Subida de contabilidad (aun queda bastante)
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@48 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
parent
916d108e61
commit
8142d7457b
BIN
Build/Build.fbl5
BIN
Build/Build.fbl5
Binary file not shown.
@ -81,3 +81,40 @@ CREATE TABLE CONT_ASIENTOS (
|
||||
|
||||
ALTER TABLE CONT_ASIENTOS ADD CONSTRAINT PK_CONT_ASIENTOS PRIMARY KEY (ID);
|
||||
|
||||
|
||||
|
||||
CREATE VIEW V_CONT_EPIGRAFES(
|
||||
ID,
|
||||
REF_EPIGRAFE,
|
||||
DESCRIPCION,
|
||||
ID_EJERCICIO,
|
||||
ID_PADRE,
|
||||
EPIGRAFE_PADRE)
|
||||
AS
|
||||
select CONT_EPI1.ID, CONT_EPI1.REF_EPIGRAFE, CONT_EPI1.DESCRIPCION, CONT_EPI1.ID_EJERCICIO,
|
||||
CONT_EPI1.ID_PADRE, CONT_EPI2.DESCRIPCION as EPIGRAFE_PADRE
|
||||
from CONT_EPIGRAFES CONT_EPI1
|
||||
left join CONT_EPIGRAFES CONT_EPI2 on (CONT_EPI2.ID = CONT_EPI1.ID_PADRE)
|
||||
;
|
||||
|
||||
CREATE VIEW V_CONT_CUENTAS(
|
||||
ID,
|
||||
REF_CUENTA,
|
||||
ID_EJERCICIO,
|
||||
DESCRIPCION,
|
||||
ID_EPIGRAFE,
|
||||
EPIGRAFE,
|
||||
ID_BALANCE,
|
||||
BALANCE,
|
||||
ID_CUENTA_ESPECIAL,
|
||||
CUENTA_ESPECIAL)
|
||||
AS
|
||||
select CONT_CUENTAS.ID, CONT_CUENTAS.REF_CUENTA, CONT_CUENTAS.ID_EJERCICIO, CONT_CUENTAS.DESCRIPCION,
|
||||
CONT_CUENTAS.ID_EPIGRAFE, CONT_EPIGRAFES.DESCRIPCION as EPIGRAFE,
|
||||
CONT_CUENTAS.ID_BALANCE, CONT_BALANCES.REF_BALANCE as BALANCE,
|
||||
CONT_CUENTAS.ID_CUENTA_ESPECIAL, CONT_CUENTAS_ESPECIALES.DESCRIPCION as CUENTA_ESPECIAL
|
||||
from CONT_CUENTAS
|
||||
left join CONT_EPIGRAFES on (CONT_EPIGRAFES.ID = CONT_CUENTAS.ID_EPIGRAFE)
|
||||
left join CONT_BALANCES on (CONT_BALANCES.ID = CONT_CUENTAS.ID_BALANCE)
|
||||
left join CONT_CUENTAS_ESPECIALES on (CONT_CUENTAS_ESPECIALES.ID = CONT_CUENTAS.ID_CUENTA_ESPECIAL)
|
||||
;
|
||||
@ -9,6 +9,9 @@
|
||||
<Projects Include="..\..\Cliente\FactuGES.dproj" />
|
||||
<Projects Include="..\..\GUIBase\GUIBase.dproj" />
|
||||
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
|
||||
<Projects Include="..\Contactos\Controller\Contactos_controller.dproj" />
|
||||
<Projects Include="..\Contactos\Views\Contactos_view.dproj" />
|
||||
<Projects Include="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" />
|
||||
<Projects Include="Controller\Contabilidad_controller.dproj" />
|
||||
<Projects Include="Data\Contabilidad_data.dproj" />
|
||||
<Projects Include="Model\Contabilidad_model.dproj" />
|
||||
@ -48,6 +51,15 @@
|
||||
<Target Name="ApplicationBase:Make">
|
||||
<MSBuild Projects="..\..\ApplicationBase\ApplicationBase.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Contactos_view">
|
||||
<MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="Contactos_view:Clean">
|
||||
<MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="Contactos_view:Make">
|
||||
<MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Contabilidad_model">
|
||||
<MSBuild Projects="Model\Contabilidad_model.dproj" Targets="" />
|
||||
</Target>
|
||||
@ -93,15 +105,6 @@
|
||||
<Target Name="Contabilidad_plugin:Make">
|
||||
<MSBuild Projects="Plugin\Contabilidad_plugin.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="FactuGES">
|
||||
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="FactuGES:Clean">
|
||||
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="FactuGES:Make">
|
||||
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="FactuGES_Server">
|
||||
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="" />
|
||||
</Target>
|
||||
@ -111,14 +114,41 @@
|
||||
<Target Name="FactuGES_Server:Make">
|
||||
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="FactuGES">
|
||||
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="FactuGES:Clean">
|
||||
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="FactuGES:Make">
|
||||
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="PedidosProveedor_view">
|
||||
<MSBuild Projects="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="PedidosProveedor_view:Clean">
|
||||
<MSBuild Projects="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="PedidosProveedor_view:Make">
|
||||
<MSBuild Projects="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Contactos_controller">
|
||||
<MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="Contactos_controller:Clean">
|
||||
<MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="Contactos_controller:Make">
|
||||
<MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Build">
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contabilidad_model;Contabilidad_data;Contabilidad_controller;Contabilidad_view;Contabilidad_plugin;FactuGES;FactuGES_Server" />
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Contabilidad_model;Contabilidad_data;Contabilidad_controller;Contabilidad_view;Contabilidad_plugin;FactuGES_Server;FactuGES;PedidosProveedor_view;Contactos_controller" />
|
||||
</Target>
|
||||
<Target Name="Clean">
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contabilidad_model:Clean;Contabilidad_data:Clean;Contabilidad_controller:Clean;Contabilidad_view:Clean;Contabilidad_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean" />
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Contabilidad_model:Clean;Contabilidad_data:Clean;Contabilidad_controller:Clean;Contabilidad_view:Clean;Contabilidad_plugin:Clean;FactuGES_Server:Clean;FactuGES:Clean;PedidosProveedor_view:Clean;Contactos_controller:Clean" />
|
||||
</Target>
|
||||
<Target Name="Make">
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contabilidad_model:Make;Contabilidad_data:Make;Contabilidad_controller:Make;Contabilidad_view:Make;Contabilidad_plugin:Make;FactuGES:Make;FactuGES_Server:Make" />
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Contabilidad_model:Make;Contabilidad_data:Make;Contabilidad_controller:Make;Contabilidad_view:Make;Contabilidad_plugin:Make;FactuGES_Server:Make;FactuGES:Make;PedidosProveedor_view:Make;Contactos_controller:Make" />
|
||||
</Target>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
@ -68,6 +68,8 @@ contains
|
||||
uIEditorCuentas in 'View\uIEditorCuentas.pas',
|
||||
uIEditorSubCuenta in 'View\uIEditorSubCuenta.pas',
|
||||
uIEditorSubCuentas in 'View\uIEditorSubCuentas.pas',
|
||||
uIEditorElegirEpigrafes in 'View\uIEditorElegirEpigrafes.pas';
|
||||
uIEditorElegirEpigrafes in 'View\uIEditorElegirEpigrafes.pas',
|
||||
uIEditorElegirBalances in 'View\uIEditorElegirBalances.pas',
|
||||
uIEditorElegirCuentasEspeciales in 'View\uIEditorElegirCuentasEspeciales.pas';
|
||||
|
||||
end.
|
||||
|
||||
@ -79,6 +79,8 @@
|
||||
<DCCReference Include="View\uIEditorCuentaEspecial.pas" />
|
||||
<DCCReference Include="View\uIEditorCuentas.pas" />
|
||||
<DCCReference Include="View\uIEditorCuentasEspeciales.pas" />
|
||||
<DCCReference Include="View\uIEditorElegirBalances.pas" />
|
||||
<DCCReference Include="View\uIEditorElegirCuentasEspeciales.pas" />
|
||||
<DCCReference Include="View\uIEditorElegirEpigrafes.pas" />
|
||||
<DCCReference Include="View\uIEditorEpigrafe.pas" />
|
||||
<DCCReference Include="View\uIEditorEpigrafes.pas" />
|
||||
|
||||
@ -3,7 +3,7 @@ unit uIEditorBalance;
|
||||
interface
|
||||
|
||||
uses
|
||||
uBizBalances;
|
||||
uBizBalances, uBalancesController;
|
||||
|
||||
type
|
||||
IEditorBalance = interface
|
||||
|
||||
@ -3,14 +3,19 @@ unit uIEditorBalances;
|
||||
interface
|
||||
|
||||
uses
|
||||
uBizBalances;
|
||||
uBizBalances, uBalancesController;
|
||||
|
||||
type
|
||||
IEditorBalances = interface
|
||||
['{47A77BA9-3845-469B-A790-81F3C6E0F134}']
|
||||
function GetController : IBalancesController;
|
||||
procedure SetController (const Value : IBalancesController);
|
||||
property Controller : IBalancesController read GetController write SetController;
|
||||
|
||||
function GetBalances: IBizBalance;
|
||||
procedure SetBalances(const Value: IBizBalance);
|
||||
property Balances: IBizBalance read GetBalances write SetBalances;
|
||||
|
||||
function ShowModal : Integer;
|
||||
procedure Release;
|
||||
end;
|
||||
|
||||
@ -3,14 +3,19 @@ unit uIEditorCuentasEspeciales;
|
||||
interface
|
||||
|
||||
uses
|
||||
uBizCuentasEspeciales;
|
||||
uBizCuentasEspeciales, uCuentasEspecialesController;
|
||||
|
||||
type
|
||||
IEditorCuentasEspeciales = interface
|
||||
['{47A77BA9-3845-469B-A790-81F3C6E0F134}']
|
||||
function GetController : ICuentasEspecialesController;
|
||||
procedure SetController (const Value : ICuentasEspecialesController);
|
||||
property Controller : ICuentasEspecialesController read GetController write SetController;
|
||||
|
||||
function GetCuentasEspeciales: IBizCuentaEspecial;
|
||||
procedure SetCuentasEspeciales(const Value: IBizCuentaEspecial);
|
||||
property CuentasEspeciales: IBizCuentaEspecial read GetCuentasEspeciales write SetCuentasEspeciales;
|
||||
|
||||
function ShowModal : Integer;
|
||||
procedure Release;
|
||||
end;
|
||||
|
||||
@ -0,0 +1,26 @@
|
||||
unit uIEditorElegirBalances;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
uIEditorBalances, uBizBalances, uGUIBase;
|
||||
|
||||
type
|
||||
IEditorElegirBalances = interface(IEditorBalances)
|
||||
['{12716994-A11A-4C05-973B-652468B859D9}']
|
||||
function GetBalancesSeleccionados: IBizBalance;
|
||||
property BalancesSeleccionados: IBizBalance read GetBalancesSeleccionados;
|
||||
|
||||
procedure SetMultiSelect (AValue : Boolean);
|
||||
function GetMultiSelect : Boolean;
|
||||
property MultiSelect : Boolean read GetMultiSelect write SetMultiSelect;
|
||||
|
||||
procedure SetMensaje (const AValue: String);
|
||||
function GetMensaje: String;
|
||||
property Mensaje : String read GetMensaje write SetMensaje;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
@ -0,0 +1,26 @@
|
||||
unit uIEditorElegirCuentasEspeciales;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
uIEditorCuentasEspeciales, uBizCuentasEspeciales, uGUIBase;
|
||||
|
||||
type
|
||||
IEditorElegirCuentasEspeciales = interface(IEditorCuentasEspeciales)
|
||||
['{12716994-A11A-4C05-973B-652468B859D9}']
|
||||
function GetCuentasEspecialesSeleccionados: IBizCuentaEspecial;
|
||||
property CuentasEspecialesSeleccionados: IBizCuentaEspecial read GetCuentasEspecialesSeleccionados;
|
||||
|
||||
procedure SetMultiSelect (AValue : Boolean);
|
||||
function GetMultiSelect : Boolean;
|
||||
property MultiSelect : Boolean read GetMultiSelect write SetMultiSelect;
|
||||
|
||||
procedure SetMensaje (const AValue: String);
|
||||
function GetMensaje: String;
|
||||
property Mensaje : String read GetMensaje write SetMensaje;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
@ -19,6 +19,9 @@ type
|
||||
procedure DescartarCambios(ABalance : IBizBalance);
|
||||
function Localizar(ABalances: IBizBalance; ADescripcion:String): Boolean;
|
||||
function DarListaBalances: TStringList;
|
||||
|
||||
function ExtraerSeleccionados(ABalances: IBizBalance) : IBizBalance;
|
||||
function ElegirBalance(ABalances : IBizBalance; AMensaje: String; AMultiSelect: Boolean): IBizBalance;
|
||||
end;
|
||||
|
||||
TBalancesController = class(TObservador, IBalancesController)
|
||||
@ -45,13 +48,16 @@ type
|
||||
procedure Ver(ABalance: IBizBalance);
|
||||
function Localizar(ABalances: IBizBalance; ADescripcion:String): Boolean;
|
||||
function DarListaBalances: TStringList;
|
||||
|
||||
function ExtraerSeleccionados(ABalances: IBizBalance) : IBizBalance;
|
||||
function ElegirBalance(ABalances : IBizBalance; AMensaje: String; AMultiSelect: Boolean): IBizBalance;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
cxControls, DB, uEditorRegistryUtils, schContabilidadClient_Intf,
|
||||
uIEditorBalances, uIEditorBalance, uDataModuleContabilidad,
|
||||
uIEditorBalances, uIEditorBalance, uIEditorElegirBalances, uDataModuleContabilidad,
|
||||
uDAInterfaces, uDataTableUtils, uDialogUtils,
|
||||
uDateUtils, uROTypes, DateUtils, Controls, Windows;
|
||||
|
||||
@ -199,6 +205,7 @@ begin
|
||||
if Assigned(AEditor) then
|
||||
with AEditor do
|
||||
begin
|
||||
Controller := Self; //OJO ORDEN MUY IMPORTANTE
|
||||
Balances := ABalances;
|
||||
ShowModal;
|
||||
Release;
|
||||
@ -209,6 +216,28 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TBalancesController.ElegirBalance(ABalances: IBizBalance; AMensaje: String; AMultiSelect: Boolean): IBizBalance;
|
||||
var
|
||||
AEditor : IEditorElegirBalances;
|
||||
begin
|
||||
Result := NIL;
|
||||
|
||||
CreateEditor('EditorElegirBalances', IEditorElegirBalances, AEditor);
|
||||
try
|
||||
with AEditor do
|
||||
begin
|
||||
Balances := ABalances;
|
||||
Controller := Self;
|
||||
Mensaje := AMensaje;
|
||||
if IsPositiveResult(ShowModal) then
|
||||
Result := BalancesSeleccionados;
|
||||
Release;
|
||||
end;
|
||||
finally
|
||||
AEditor := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TBalancesController.Eliminar(ABalance: IBizBalance): Boolean;
|
||||
begin
|
||||
Result := False;
|
||||
@ -230,6 +259,15 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TBalancesController.ExtraerSeleccionados(ABalances: IBizBalance): IBizBalance;
|
||||
var
|
||||
ASeleccionados : IBizBalance;
|
||||
begin
|
||||
ASeleccionados := Self.Buscar(ID_NULO);
|
||||
CopyDataTableDA3(ABalances.DataTable, ASeleccionados.DataTable, True);
|
||||
Result := ASeleccionados;
|
||||
end;
|
||||
|
||||
procedure TBalancesController.RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
@ -19,6 +19,10 @@ type
|
||||
procedure DescartarCambios(ACuenta : IBizCuenta);
|
||||
function Localizar(ACuentas: IBizCuenta; ADescripcion:String): Boolean;
|
||||
function DarListaCuentas: TStringList;
|
||||
|
||||
procedure ElegirEpigrafe(ACuenta: IBizCuenta);
|
||||
procedure ElegirBalance(ACuenta: IBizCuenta);
|
||||
procedure ElegirCuentaEspecial(ACuenta: IBizCuenta);
|
||||
end;
|
||||
|
||||
TCuentasController = class(TObservador, ICuentasController)
|
||||
@ -46,6 +50,10 @@ type
|
||||
procedure Ver(ACuenta: IBizCuenta);
|
||||
function Localizar(ACuentas: IBizCuenta; ADescripcion:String): Boolean;
|
||||
function DarListaCuentas: TStringList;
|
||||
|
||||
procedure ElegirEpigrafe(ACuenta: IBizCuenta);
|
||||
procedure ElegirBalance(ACuenta: IBizCuenta);
|
||||
procedure ElegirCuentaEspecial(ACuenta: IBizCuenta);
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -54,7 +62,10 @@ uses
|
||||
cxControls, DB, uEditorRegistryUtils, schContabilidadClient_Intf,
|
||||
uIEditorCuentas, uIEditorCuenta, uDataModuleContabilidad,
|
||||
uDAInterfaces, uDataTableUtils, uDialogUtils, uFactuGES_App,
|
||||
uDateUtils, uROTypes, DateUtils, Controls, Windows;
|
||||
uDateUtils, uROTypes, DateUtils, Controls, Windows,
|
||||
uBizEpigrafes, uEpigrafesController,
|
||||
uBizBalances, uBalancesController,
|
||||
uBizCuentasEspeciales, uCuentasEspecialesController;
|
||||
|
||||
{ TCuentasController }
|
||||
|
||||
@ -212,6 +223,90 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TCuentasController.ElegirBalance(ACuenta: IBizCuenta);
|
||||
var
|
||||
ABalance : IBizBalance;
|
||||
AController : IBalancesController;
|
||||
begin
|
||||
inherited;
|
||||
try
|
||||
AController := TBalancesController.Create;
|
||||
ABalance := (AController.ElegirBalance(AController.BuscarTodos, 'ddddddd', False) as IBizBalance);
|
||||
|
||||
if Assigned(ABalance) then
|
||||
begin
|
||||
if Assigned(ACuenta) then
|
||||
begin
|
||||
if not ACuenta.DataTable.Editing then
|
||||
ACuenta.DataTable.Edit;
|
||||
|
||||
ACuenta.ID_BALANCE := ABalance.ID;
|
||||
ACuenta.BALANCE := ABalance.REF_BALANCE;
|
||||
ACuenta.Post;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
AController := Nil;
|
||||
ABalance := Nil;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TCuentasController.ElegirCuentaEspecial(ACuenta: IBizCuenta);
|
||||
var
|
||||
ACuentaEspecial : IBizCuentaEspecial;
|
||||
AController : ICuentasEspecialesController;
|
||||
begin
|
||||
inherited;
|
||||
try
|
||||
AController := TCuentasEspecialesController.Create;
|
||||
ACuentaEspecial := (AController.ElegirCuentaEspecial(AController.BuscarTodos, 'ddddddd', False) as IBizCuentaEspecial);
|
||||
|
||||
if Assigned(ACuentaEspecial) then
|
||||
begin
|
||||
if Assigned(ACuenta) then
|
||||
begin
|
||||
if not ACuenta.DataTable.Editing then
|
||||
ACuenta.DataTable.Edit;
|
||||
|
||||
ACuenta.ID_CUENTA_ESPECIAL := ACuentaEspecial.ID;
|
||||
ACuenta.CUENTA_ESPECIAL := ACuentaEspecial.REFERENCIA;
|
||||
ACuenta.Post;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
AController := Nil;
|
||||
ACuentaEspecial := Nil;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TCuentasController.ElegirEpigrafe(ACuenta: IBizCuenta);
|
||||
var
|
||||
AEpigrafe : IBizEpigrafe;
|
||||
AController : IEpigrafesController;
|
||||
begin
|
||||
inherited;
|
||||
try
|
||||
AController := TEpigrafesController.Create;
|
||||
AEpigrafe := (AController.ElegirEpigrafe(AController.BuscarTodos, 'ddddddd', False) as IBizEpigrafe);
|
||||
|
||||
if Assigned(AEpigrafe) then
|
||||
begin
|
||||
if Assigned(ACuenta) then
|
||||
begin
|
||||
if not ACuenta.DataTable.Editing then
|
||||
ACuenta.DataTable.Edit;
|
||||
|
||||
ACuenta.ID_EPIGRAFE := AEpigrafe.ID;
|
||||
ACuenta.EPIGRAFE := AEpigrafe.DESCRIPCION;
|
||||
ACuenta.Post;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
AController := Nil;
|
||||
AEpigrafe := Nil;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TCuentasController.Eliminar(ACuenta: IBizCuenta): Boolean;
|
||||
begin
|
||||
Result := False;
|
||||
|
||||
@ -19,6 +19,9 @@ type
|
||||
procedure DescartarCambios(ACuentaEspecial : IBizCuentaEspecial);
|
||||
function Localizar(ACuentasEspeciales: IBizCuentaEspecial; ADescripcion:String): Boolean;
|
||||
function DarListaCuentasEspeciales: TStringList;
|
||||
|
||||
function ExtraerSeleccionados(ACuentasEspeciales: IBizCuentaEspecial) : IBizCuentaEspecial;
|
||||
function ElegirCuentaEspecial(ACuentasEspeciales : IBizCuentaEspecial; AMensaje: String; AMultiSelect: Boolean): IBizCuentaEspecial;
|
||||
end;
|
||||
|
||||
TCuentasEspecialesController = class(TObservador, ICuentasEspecialesController)
|
||||
@ -45,13 +48,17 @@ type
|
||||
procedure Ver(ACuentaEspecial: IBizCuentaEspecial);
|
||||
function Localizar(ACuentasEspeciales: IBizCuentaEspecial; ADescripcion:String): Boolean;
|
||||
function DarListaCuentasEspeciales: TStringList;
|
||||
|
||||
function ExtraerSeleccionados(ACuentasEspeciales: IBizCuentaEspecial) : IBizCuentaEspecial;
|
||||
function ElegirCuentaEspecial(ACuentasEspeciales : IBizCuentaEspecial; AMensaje: String; AMultiSelect: Boolean): IBizCuentaEspecial;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
cxControls, DB, uEditorRegistryUtils, schContabilidadClient_Intf,
|
||||
uIEditorCuentasEspeciales, uIEditorCuentaEspecial, uDataModuleContabilidad,
|
||||
uIEditorCuentasEspeciales, uIEditorCuentaEspecial, uIEditorElegirCuentasEspeciales,
|
||||
uDataModuleContabilidad,
|
||||
uDAInterfaces, uDataTableUtils, uDialogUtils,
|
||||
uDateUtils, uROTypes, DateUtils, Controls, Windows;
|
||||
|
||||
@ -199,6 +206,7 @@ begin
|
||||
if Assigned(AEditor) then
|
||||
with AEditor do
|
||||
begin
|
||||
Controller := Self; //OJO ORDEN MUY IMPORTANTE
|
||||
CuentasEspeciales := ACuentasEspeciales;
|
||||
ShowModal;
|
||||
Release;
|
||||
@ -209,6 +217,29 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TCuentasEspecialesController.ElegirCuentaEspecial(ACuentasEspeciales: IBizCuentaEspecial; AMensaje: String;
|
||||
AMultiSelect: Boolean): IBizCuentaEspecial;
|
||||
var
|
||||
AEditor : IEditorElegirCuentasEspeciales;
|
||||
begin
|
||||
Result := NIL;
|
||||
|
||||
CreateEditor('EditorElegirBalances', IEditorElegirCuentasEspeciales, AEditor);
|
||||
try
|
||||
with AEditor do
|
||||
begin
|
||||
CuentasEspeciales := ACuentasEspeciales;
|
||||
Controller := Self;
|
||||
Mensaje := AMensaje;
|
||||
if IsPositiveResult(ShowModal) then
|
||||
Result := CuentasEspecialesSeleccionados;
|
||||
Release;
|
||||
end;
|
||||
finally
|
||||
AEditor := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TCuentasEspecialesController.Eliminar(ACuentaEspecial: IBizCuentaEspecial): Boolean;
|
||||
begin
|
||||
Result := False;
|
||||
@ -230,6 +261,15 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TCuentasEspecialesController.ExtraerSeleccionados(ACuentasEspeciales: IBizCuentaEspecial): IBizCuentaEspecial;
|
||||
var
|
||||
ASeleccionados : IBizCuentaEspecial;
|
||||
begin
|
||||
ASeleccionados := Self.Buscar(ID_NULO);
|
||||
CopyDataTableDA3(ACuentasEspeciales.DataTable, ASeleccionados.DataTable, True);
|
||||
Result := ASeleccionados;
|
||||
end;
|
||||
|
||||
procedure TCuentasEspecialesController.RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
@ -14,11 +14,16 @@ type
|
||||
procedure VerTodos(AEpigrafes: IBizEpigrafe);
|
||||
procedure Ver(AEpigrafe: IBizEpigrafe);
|
||||
procedure Anadir(AEpigrafe : IBizEpigrafe);
|
||||
function Eliminar(AEpigrafe : IBizEpigrafe): Boolean;
|
||||
function Eliminar(AEpigrafe : IBizEpigrafe): Boolean;
|
||||
function Guardar(AEpigrafe : IBizEpigrafe): Boolean;
|
||||
procedure DescartarCambios(AEpigrafe : IBizEpigrafe);
|
||||
function Localizar(AEpigrafes: IBizEpigrafe; ADescripcion:String): Boolean;
|
||||
function DarListaEpigrafes: TStringList;
|
||||
|
||||
function AsignarPadre(AEpigrafe, AEpigrafePadre: IBizEpigrafe) : IBizEpigrafe;
|
||||
function ExtraerSeleccionados(AEpigrafes: IBizEpigrafe) : IBizEpigrafe;
|
||||
function ElegirEpigrafe(AEpigrafes : IBizEpigrafe; AMensaje: String; AMultiSelect: Boolean): IBizEpigrafe;
|
||||
|
||||
end;
|
||||
|
||||
TEpigrafesController = class(TObservador, IEpigrafesController)
|
||||
@ -46,13 +51,17 @@ type
|
||||
procedure Ver(AEpigrafe: IBizEpigrafe);
|
||||
function Localizar(AEpigrafes: IBizEpigrafe; ADescripcion:String): Boolean;
|
||||
function DarListaEpigrafes: TStringList;
|
||||
|
||||
function AsignarPadre(AEpigrafe, AEpigrafePadre: IBizEpigrafe) : IBizEpigrafe;
|
||||
function ExtraerSeleccionados(AEpigrafes: IBizEpigrafe) : IBizEpigrafe;
|
||||
function ElegirEpigrafe(AEpigrafes : IBizEpigrafe; AMensaje: String; AMultiSelect: Boolean): IBizEpigrafe;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
cxControls, DB, uEditorRegistryUtils, schContabilidadClient_Intf,
|
||||
uIEditorEpigrafes, uIEditorEpigrafe, uDataModuleContabilidad,
|
||||
uIEditorEpigrafes, uIEditorEpigrafe, uIEditorElegirEpigrafes, uDataModuleContabilidad,
|
||||
uDAInterfaces, uDataTableUtils, uDialogUtils, uFactuGES_App,
|
||||
uDateUtils, uROTypes, DateUtils, Controls, Windows;
|
||||
|
||||
@ -68,6 +77,22 @@ begin
|
||||
FDataModule := TDataModuleContabilidad.Create(Nil);
|
||||
end;
|
||||
|
||||
function TEpigrafesController.AsignarPadre(AEpigrafe, AEpigrafePadre: IBizEpigrafe): IBizEpigrafe;
|
||||
begin
|
||||
if Assigned(AEpigrafePadre) then
|
||||
begin
|
||||
if Assigned(AEpigrafe) then
|
||||
begin
|
||||
if not AEpigrafe.DataTable.Editing then
|
||||
AEpigrafe.DataTable.Edit;
|
||||
|
||||
AEpigrafe.ID_PADRE := AEpigrafePadre.ID;
|
||||
AEpigrafe.EPIGRAFE_PADRE := AEpigrafePadre.DESCRIPCION;
|
||||
AEpigrafe.Post;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TEpigrafesController.Buscar(ID: Integer): IBizEpigrafe;
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
@ -212,6 +237,28 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TEpigrafesController.ElegirEpigrafe(AEpigrafes: IBizEpigrafe; AMensaje: String; AMultiSelect: Boolean): IBizEpigrafe;
|
||||
var
|
||||
AEditor : IEditorElegirEpigrafes;
|
||||
begin
|
||||
Result := NIL;
|
||||
|
||||
CreateEditor('EditorElegirEpigrafes', IEditorElegirEpigrafes, AEditor);
|
||||
try
|
||||
with AEditor do
|
||||
begin
|
||||
Epigrafes := AEpigrafes;
|
||||
Controller := Self;
|
||||
Mensaje := AMensaje;
|
||||
if IsPositiveResult(ShowModal) then
|
||||
Result := EpigrafesSeleccionados;
|
||||
Release;
|
||||
end;
|
||||
finally
|
||||
AEditor := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TEpigrafesController.Eliminar(AEpigrafe: IBizEpigrafe): Boolean;
|
||||
begin
|
||||
Result := False;
|
||||
@ -233,6 +280,15 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TEpigrafesController.ExtraerSeleccionados(AEpigrafes: IBizEpigrafe): IBizEpigrafe;
|
||||
var
|
||||
ASeleccionados : IBizEpigrafe;
|
||||
begin
|
||||
ASeleccionados := Self.Buscar(ID_NULO);
|
||||
CopyDataTableDA3(AEpigrafes.DataTable, ASeleccionados.DataTable, True);
|
||||
Result := ASeleccionados;
|
||||
end;
|
||||
|
||||
procedure TEpigrafesController.FiltrarEjercicio(AEpigrafe: IBizEpigrafe);
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
|
||||
@ -156,6 +156,9 @@ inherited DataModuleContabilidad: TDataModuleContabilidad
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_CONT_EPIGRAFES_ID'
|
||||
Required = True
|
||||
DisplayLabel = 'Epigrafes_ID'
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'Epigrafes_ID'
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
@ -165,12 +168,6 @@ inherited DataModuleContabilidad: TDataModuleContabilidad
|
||||
DisplayLabel = 'Epigrafes_REF_EPIGRAFE'
|
||||
DictionaryEntry = 'Epigrafes_REF_EPIGRAFE'
|
||||
end
|
||||
item
|
||||
Name = 'ID_PADRE'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'Epigrafes_ID_PADRE'
|
||||
DictionaryEntry = 'Epigrafes_ID_PADRE'
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
DataType = datString
|
||||
@ -183,6 +180,19 @@ inherited DataModuleContabilidad: TDataModuleContabilidad
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'Epigrafes_ID_EJERCICIO'
|
||||
DictionaryEntry = 'Epigrafes_ID_EJERCICIO'
|
||||
end
|
||||
item
|
||||
Name = 'ID_PADRE'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'Epigrafes_ID_PADRE'
|
||||
DictionaryEntry = 'Epigrafes_ID_PADRE'
|
||||
end
|
||||
item
|
||||
Name = 'EPIGRAFE_PADRE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Epigrafes_EPIGRAFE_PADRE'
|
||||
DictionaryEntry = 'Epigrafes_EPIGRAFE_PADRE'
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
@ -296,6 +306,13 @@ inherited DataModuleContabilidad: TDataModuleContabilidad
|
||||
DisplayLabel = 'Cuentas_ID_EJERCICIO'
|
||||
DictionaryEntry = 'Cuentas_ID_EJERCICIO'
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Cuentas_DESCRIPCION'
|
||||
DictionaryEntry = 'Cuentas_DESCRIPCION'
|
||||
end
|
||||
item
|
||||
Name = 'ID_EPIGRAFE'
|
||||
DataType = datInteger
|
||||
@ -303,11 +320,11 @@ inherited DataModuleContabilidad: TDataModuleContabilidad
|
||||
DictionaryEntry = 'Cuentas_ID_EPIGRAFE'
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
Name = 'EPIGRAFE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Cuentas_DESCRIPCION'
|
||||
DictionaryEntry = 'Cuentas_DESCRIPCION'
|
||||
DisplayLabel = 'Cuentas_EPIGRAFE'
|
||||
DictionaryEntry = 'Cuentas_EPIGRAFE'
|
||||
end
|
||||
item
|
||||
Name = 'ID_BALANCE'
|
||||
@ -315,11 +332,25 @@ inherited DataModuleContabilidad: TDataModuleContabilidad
|
||||
DisplayLabel = 'Cuentas_ID_BALANCE'
|
||||
DictionaryEntry = 'Cuentas_ID_BALANCE'
|
||||
end
|
||||
item
|
||||
Name = 'BALANCE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Cuentas_BALANCE'
|
||||
DictionaryEntry = 'Cuentas_BALANCE'
|
||||
end
|
||||
item
|
||||
Name = 'ID_CUENTA_ESPECIAL'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'Cuentas_ID_CUENTA_ESPECIAL'
|
||||
DictionaryEntry = 'Cuentas_ID_CUENTA_ESPECIAL'
|
||||
end
|
||||
item
|
||||
Name = 'CUENTA_ESPECIAL'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Cuentas_CUENTA_ESPECIAL'
|
||||
DictionaryEntry = 'Cuentas_CUENTA_ESPECIAL'
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
|
||||
@ -9,12 +9,12 @@ 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_Asientos = '{C51C5471-A7F7-4A0B-B124-1FCA17F1EA4D}';
|
||||
RID_SubCuentas = '{BBB2A9E5-DAD7-4E8B-A14D-CC7DEAF2D283}';
|
||||
RID_Cuentas = '{A0EB7B63-501F-4E40-9872-5E70A1EE346A}';
|
||||
RID_CuentasEspeciales = '{8714C12C-03FF-4FB3-98B7-76533DFDD66C}';
|
||||
RID_Epigrafes = '{1E81E57B-5402-4881-A28B-2927146E071C}';
|
||||
RID_Balances = '{39557F67-321F-41E8-8EE0-CAB8216CD882}';
|
||||
RID_Asientos = '{E57138E2-062A-47CC-85D5-D5EDB287F9D9}';
|
||||
RID_SubCuentas = '{8CDBD04B-6906-4BD7-9F4B-7F5FE1C3571E}';
|
||||
RID_Cuentas = '{613B2477-A125-4854-8C3D-DC612F408E4C}';
|
||||
RID_CuentasEspeciales = '{34044D68-7AC8-47CA-8DB3-61B5FB731D5A}';
|
||||
RID_Epigrafes = '{94BAE66D-898F-4AA8-B9FF-7A0CD1E5CEF9}';
|
||||
RID_Balances = '{ED6CE025-E600-48AA-A8B0-5F3FE58E4B57}';
|
||||
|
||||
{ Data table names }
|
||||
nme_Asientos = 'Asientos';
|
||||
@ -62,19 +62,25 @@ const
|
||||
fld_CuentasID = 'ID';
|
||||
fld_CuentasREF_CUENTA = 'REF_CUENTA';
|
||||
fld_CuentasID_EJERCICIO = 'ID_EJERCICIO';
|
||||
fld_CuentasID_EPIGRAFE = 'ID_EPIGRAFE';
|
||||
fld_CuentasDESCRIPCION = 'DESCRIPCION';
|
||||
fld_CuentasID_EPIGRAFE = 'ID_EPIGRAFE';
|
||||
fld_CuentasEPIGRAFE = 'EPIGRAFE';
|
||||
fld_CuentasID_BALANCE = 'ID_BALANCE';
|
||||
fld_CuentasBALANCE = 'BALANCE';
|
||||
fld_CuentasID_CUENTA_ESPECIAL = 'ID_CUENTA_ESPECIAL';
|
||||
fld_CuentasCUENTA_ESPECIAL = 'CUENTA_ESPECIAL';
|
||||
|
||||
{ Cuentas field indexes }
|
||||
idx_CuentasID = 0;
|
||||
idx_CuentasREF_CUENTA = 1;
|
||||
idx_CuentasID_EJERCICIO = 2;
|
||||
idx_CuentasID_EPIGRAFE = 3;
|
||||
idx_CuentasDESCRIPCION = 4;
|
||||
idx_CuentasID_BALANCE = 5;
|
||||
idx_CuentasID_CUENTA_ESPECIAL = 6;
|
||||
idx_CuentasDESCRIPCION = 3;
|
||||
idx_CuentasID_EPIGRAFE = 4;
|
||||
idx_CuentasEPIGRAFE = 5;
|
||||
idx_CuentasID_BALANCE = 6;
|
||||
idx_CuentasBALANCE = 7;
|
||||
idx_CuentasID_CUENTA_ESPECIAL = 8;
|
||||
idx_CuentasCUENTA_ESPECIAL = 9;
|
||||
|
||||
{ CuentasEspeciales fields }
|
||||
fld_CuentasEspecialesID = 'ID';
|
||||
@ -89,16 +95,18 @@ const
|
||||
{ Epigrafes fields }
|
||||
fld_EpigrafesID = 'ID';
|
||||
fld_EpigrafesREF_EPIGRAFE = 'REF_EPIGRAFE';
|
||||
fld_EpigrafesID_PADRE = 'ID_PADRE';
|
||||
fld_EpigrafesDESCRIPCION = 'DESCRIPCION';
|
||||
fld_EpigrafesID_EJERCICIO = 'ID_EJERCICIO';
|
||||
fld_EpigrafesID_PADRE = 'ID_PADRE';
|
||||
fld_EpigrafesEPIGRAFE_PADRE = 'EPIGRAFE_PADRE';
|
||||
|
||||
{ Epigrafes field indexes }
|
||||
idx_EpigrafesID = 0;
|
||||
idx_EpigrafesREF_EPIGRAFE = 1;
|
||||
idx_EpigrafesID_PADRE = 2;
|
||||
idx_EpigrafesDESCRIPCION = 3;
|
||||
idx_EpigrafesID_EJERCICIO = 4;
|
||||
idx_EpigrafesDESCRIPCION = 2;
|
||||
idx_EpigrafesID_EJERCICIO = 3;
|
||||
idx_EpigrafesID_PADRE = 4;
|
||||
idx_EpigrafesEPIGRAFE_PADRE = 5;
|
||||
|
||||
{ Balances fields }
|
||||
fld_BalancesID = 'ID';
|
||||
@ -125,7 +133,7 @@ const
|
||||
type
|
||||
{ IAsientos }
|
||||
IAsientos = interface(IDAStronglyTypedDataTable)
|
||||
['{5914B799-7DB4-4B85-B63B-BA4CC1827CF3}']
|
||||
['{A91B6648-0B5A-4379-BA46-E7502C4BE3AC}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -244,7 +252,7 @@ type
|
||||
|
||||
{ ISubCuentas }
|
||||
ISubCuentas = interface(IDAStronglyTypedDataTable)
|
||||
['{C519726C-43A5-4168-AD68-A63176180B09}']
|
||||
['{3EA34CD0-F51B-46B6-BCB6-D0FF0BF60134}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -327,7 +335,7 @@ type
|
||||
|
||||
{ ICuentas }
|
||||
ICuentas = interface(IDAStronglyTypedDataTable)
|
||||
['{A60C051B-5B76-4B39-8B2B-30EBFCD31798}']
|
||||
['{3266B522-8AD3-4882-86C7-23E7154C83AB}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -341,22 +349,34 @@ type
|
||||
procedure SetID_EJERCICIOValue(const aValue: Integer);
|
||||
function GetID_EJERCICIOIsNull: Boolean;
|
||||
procedure SetID_EJERCICIOIsNull(const aValue: Boolean);
|
||||
function GetID_EPIGRAFEValue: Integer;
|
||||
procedure SetID_EPIGRAFEValue(const aValue: Integer);
|
||||
function GetID_EPIGRAFEIsNull: Boolean;
|
||||
procedure SetID_EPIGRAFEIsNull(const aValue: Boolean);
|
||||
function GetDESCRIPCIONValue: String;
|
||||
procedure SetDESCRIPCIONValue(const aValue: String);
|
||||
function GetDESCRIPCIONIsNull: Boolean;
|
||||
procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
|
||||
function GetID_EPIGRAFEValue: Integer;
|
||||
procedure SetID_EPIGRAFEValue(const aValue: Integer);
|
||||
function GetID_EPIGRAFEIsNull: Boolean;
|
||||
procedure SetID_EPIGRAFEIsNull(const aValue: Boolean);
|
||||
function GetEPIGRAFEValue: String;
|
||||
procedure SetEPIGRAFEValue(const aValue: String);
|
||||
function GetEPIGRAFEIsNull: Boolean;
|
||||
procedure SetEPIGRAFEIsNull(const aValue: Boolean);
|
||||
function GetID_BALANCEValue: Integer;
|
||||
procedure SetID_BALANCEValue(const aValue: Integer);
|
||||
function GetID_BALANCEIsNull: Boolean;
|
||||
procedure SetID_BALANCEIsNull(const aValue: Boolean);
|
||||
function GetBALANCEValue: String;
|
||||
procedure SetBALANCEValue(const aValue: String);
|
||||
function GetBALANCEIsNull: Boolean;
|
||||
procedure SetBALANCEIsNull(const aValue: Boolean);
|
||||
function GetID_CUENTA_ESPECIALValue: Integer;
|
||||
procedure SetID_CUENTA_ESPECIALValue(const aValue: Integer);
|
||||
function GetID_CUENTA_ESPECIALIsNull: Boolean;
|
||||
procedure SetID_CUENTA_ESPECIALIsNull(const aValue: Boolean);
|
||||
function GetCUENTA_ESPECIALValue: String;
|
||||
procedure SetCUENTA_ESPECIALValue(const aValue: String);
|
||||
function GetCUENTA_ESPECIALIsNull: Boolean;
|
||||
procedure SetCUENTA_ESPECIALIsNull(const aValue: Boolean);
|
||||
|
||||
|
||||
{ Properties }
|
||||
@ -366,14 +386,20 @@ type
|
||||
property REF_CUENTAIsNull: Boolean read GetREF_CUENTAIsNull write SetREF_CUENTAIsNull;
|
||||
property ID_EJERCICIO: Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue;
|
||||
property ID_EJERCICIOIsNull: Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
|
||||
property ID_EPIGRAFE: Integer read GetID_EPIGRAFEValue write SetID_EPIGRAFEValue;
|
||||
property ID_EPIGRAFEIsNull: Boolean read GetID_EPIGRAFEIsNull write SetID_EPIGRAFEIsNull;
|
||||
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
||||
property ID_EPIGRAFE: Integer read GetID_EPIGRAFEValue write SetID_EPIGRAFEValue;
|
||||
property ID_EPIGRAFEIsNull: Boolean read GetID_EPIGRAFEIsNull write SetID_EPIGRAFEIsNull;
|
||||
property EPIGRAFE: String read GetEPIGRAFEValue write SetEPIGRAFEValue;
|
||||
property EPIGRAFEIsNull: Boolean read GetEPIGRAFEIsNull write SetEPIGRAFEIsNull;
|
||||
property ID_BALANCE: Integer read GetID_BALANCEValue write SetID_BALANCEValue;
|
||||
property ID_BALANCEIsNull: Boolean read GetID_BALANCEIsNull write SetID_BALANCEIsNull;
|
||||
property BALANCE: String read GetBALANCEValue write SetBALANCEValue;
|
||||
property BALANCEIsNull: Boolean read GetBALANCEIsNull write SetBALANCEIsNull;
|
||||
property ID_CUENTA_ESPECIAL: Integer read GetID_CUENTA_ESPECIALValue write SetID_CUENTA_ESPECIALValue;
|
||||
property ID_CUENTA_ESPECIALIsNull: Boolean read GetID_CUENTA_ESPECIALIsNull write SetID_CUENTA_ESPECIALIsNull;
|
||||
property CUENTA_ESPECIAL: String read GetCUENTA_ESPECIALValue write SetCUENTA_ESPECIALValue;
|
||||
property CUENTA_ESPECIALIsNull: Boolean read GetCUENTA_ESPECIALIsNull write SetCUENTA_ESPECIALIsNull;
|
||||
end;
|
||||
|
||||
{ TCuentasDataTableRules }
|
||||
@ -393,22 +419,34 @@ type
|
||||
procedure SetID_EJERCICIOValue(const aValue: Integer); virtual;
|
||||
function GetID_EJERCICIOIsNull: Boolean; virtual;
|
||||
procedure SetID_EJERCICIOIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_EPIGRAFEValue: Integer; virtual;
|
||||
procedure SetID_EPIGRAFEValue(const aValue: Integer); virtual;
|
||||
function GetID_EPIGRAFEIsNull: Boolean; virtual;
|
||||
procedure SetID_EPIGRAFEIsNull(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_EPIGRAFEValue: Integer; virtual;
|
||||
procedure SetID_EPIGRAFEValue(const aValue: Integer); virtual;
|
||||
function GetID_EPIGRAFEIsNull: Boolean; virtual;
|
||||
procedure SetID_EPIGRAFEIsNull(const aValue: Boolean); virtual;
|
||||
function GetEPIGRAFEValue: String; virtual;
|
||||
procedure SetEPIGRAFEValue(const aValue: String); virtual;
|
||||
function GetEPIGRAFEIsNull: Boolean; virtual;
|
||||
procedure SetEPIGRAFEIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_BALANCEValue: Integer; virtual;
|
||||
procedure SetID_BALANCEValue(const aValue: Integer); virtual;
|
||||
function GetID_BALANCEIsNull: Boolean; virtual;
|
||||
procedure SetID_BALANCEIsNull(const aValue: Boolean); virtual;
|
||||
function GetBALANCEValue: String; virtual;
|
||||
procedure SetBALANCEValue(const aValue: String); virtual;
|
||||
function GetBALANCEIsNull: Boolean; virtual;
|
||||
procedure SetBALANCEIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_CUENTA_ESPECIALValue: Integer; virtual;
|
||||
procedure SetID_CUENTA_ESPECIALValue(const aValue: Integer); virtual;
|
||||
function GetID_CUENTA_ESPECIALIsNull: Boolean; virtual;
|
||||
procedure SetID_CUENTA_ESPECIALIsNull(const aValue: Boolean); virtual;
|
||||
function GetCUENTA_ESPECIALValue: String; virtual;
|
||||
procedure SetCUENTA_ESPECIALValue(const aValue: String); virtual;
|
||||
function GetCUENTA_ESPECIALIsNull: Boolean; virtual;
|
||||
procedure SetCUENTA_ESPECIALIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
@ -417,14 +455,20 @@ type
|
||||
property REF_CUENTAIsNull: Boolean read GetREF_CUENTAIsNull write SetREF_CUENTAIsNull;
|
||||
property ID_EJERCICIO: Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue;
|
||||
property ID_EJERCICIOIsNull: Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
|
||||
property ID_EPIGRAFE: Integer read GetID_EPIGRAFEValue write SetID_EPIGRAFEValue;
|
||||
property ID_EPIGRAFEIsNull: Boolean read GetID_EPIGRAFEIsNull write SetID_EPIGRAFEIsNull;
|
||||
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
||||
property ID_EPIGRAFE: Integer read GetID_EPIGRAFEValue write SetID_EPIGRAFEValue;
|
||||
property ID_EPIGRAFEIsNull: Boolean read GetID_EPIGRAFEIsNull write SetID_EPIGRAFEIsNull;
|
||||
property EPIGRAFE: String read GetEPIGRAFEValue write SetEPIGRAFEValue;
|
||||
property EPIGRAFEIsNull: Boolean read GetEPIGRAFEIsNull write SetEPIGRAFEIsNull;
|
||||
property ID_BALANCE: Integer read GetID_BALANCEValue write SetID_BALANCEValue;
|
||||
property ID_BALANCEIsNull: Boolean read GetID_BALANCEIsNull write SetID_BALANCEIsNull;
|
||||
property BALANCE: String read GetBALANCEValue write SetBALANCEValue;
|
||||
property BALANCEIsNull: Boolean read GetBALANCEIsNull write SetBALANCEIsNull;
|
||||
property ID_CUENTA_ESPECIAL: Integer read GetID_CUENTA_ESPECIALValue write SetID_CUENTA_ESPECIALValue;
|
||||
property ID_CUENTA_ESPECIALIsNull: Boolean read GetID_CUENTA_ESPECIALIsNull write SetID_CUENTA_ESPECIALIsNull;
|
||||
property CUENTA_ESPECIAL: String read GetCUENTA_ESPECIALValue write SetCUENTA_ESPECIALValue;
|
||||
property CUENTA_ESPECIALIsNull: Boolean read GetCUENTA_ESPECIALIsNull write SetCUENTA_ESPECIALIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
@ -434,7 +478,7 @@ type
|
||||
|
||||
{ ICuentasEspeciales }
|
||||
ICuentasEspeciales = interface(IDAStronglyTypedDataTable)
|
||||
['{267A39E7-DD65-4417-B0EF-75BF2C13BB71}']
|
||||
['{BD79A3DF-F270-4E7B-976E-2D213C63187C}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -493,7 +537,7 @@ type
|
||||
|
||||
{ IEpigrafes }
|
||||
IEpigrafes = interface(IDAStronglyTypedDataTable)
|
||||
['{1F851BD7-9C70-4A5E-B0E6-EF6918802C15}']
|
||||
['{492FACBF-1168-496F-AE21-46479708E154}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -503,10 +547,6 @@ type
|
||||
procedure SetREF_EPIGRAFEValue(const aValue: String);
|
||||
function GetREF_EPIGRAFEIsNull: Boolean;
|
||||
procedure SetREF_EPIGRAFEIsNull(const aValue: Boolean);
|
||||
function GetID_PADREValue: Integer;
|
||||
procedure SetID_PADREValue(const aValue: Integer);
|
||||
function GetID_PADREIsNull: Boolean;
|
||||
procedure SetID_PADREIsNull(const aValue: Boolean);
|
||||
function GetDESCRIPCIONValue: String;
|
||||
procedure SetDESCRIPCIONValue(const aValue: String);
|
||||
function GetDESCRIPCIONIsNull: Boolean;
|
||||
@ -515,6 +555,14 @@ type
|
||||
procedure SetID_EJERCICIOValue(const aValue: Integer);
|
||||
function GetID_EJERCICIOIsNull: Boolean;
|
||||
procedure SetID_EJERCICIOIsNull(const aValue: Boolean);
|
||||
function GetID_PADREValue: Integer;
|
||||
procedure SetID_PADREValue(const aValue: Integer);
|
||||
function GetID_PADREIsNull: Boolean;
|
||||
procedure SetID_PADREIsNull(const aValue: Boolean);
|
||||
function GetEPIGRAFE_PADREValue: String;
|
||||
procedure SetEPIGRAFE_PADREValue(const aValue: String);
|
||||
function GetEPIGRAFE_PADREIsNull: Boolean;
|
||||
procedure SetEPIGRAFE_PADREIsNull(const aValue: Boolean);
|
||||
|
||||
|
||||
{ Properties }
|
||||
@ -522,12 +570,14 @@ type
|
||||
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
|
||||
property REF_EPIGRAFE: String read GetREF_EPIGRAFEValue write SetREF_EPIGRAFEValue;
|
||||
property REF_EPIGRAFEIsNull: Boolean read GetREF_EPIGRAFEIsNull write SetREF_EPIGRAFEIsNull;
|
||||
property ID_PADRE: Integer read GetID_PADREValue write SetID_PADREValue;
|
||||
property ID_PADREIsNull: Boolean read GetID_PADREIsNull write SetID_PADREIsNull;
|
||||
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
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_PADRE: Integer read GetID_PADREValue write SetID_PADREValue;
|
||||
property ID_PADREIsNull: Boolean read GetID_PADREIsNull write SetID_PADREIsNull;
|
||||
property EPIGRAFE_PADRE: String read GetEPIGRAFE_PADREValue write SetEPIGRAFE_PADREValue;
|
||||
property EPIGRAFE_PADREIsNull: Boolean read GetEPIGRAFE_PADREIsNull write SetEPIGRAFE_PADREIsNull;
|
||||
end;
|
||||
|
||||
{ TEpigrafesDataTableRules }
|
||||
@ -543,10 +593,6 @@ type
|
||||
procedure SetREF_EPIGRAFEValue(const aValue: String); virtual;
|
||||
function GetREF_EPIGRAFEIsNull: Boolean; virtual;
|
||||
procedure SetREF_EPIGRAFEIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_PADREValue: Integer; virtual;
|
||||
procedure SetID_PADREValue(const aValue: Integer); virtual;
|
||||
function GetID_PADREIsNull: Boolean; virtual;
|
||||
procedure SetID_PADREIsNull(const aValue: Boolean); virtual;
|
||||
function GetDESCRIPCIONValue: String; virtual;
|
||||
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
|
||||
function GetDESCRIPCIONIsNull: Boolean; virtual;
|
||||
@ -555,18 +601,28 @@ type
|
||||
procedure SetID_EJERCICIOValue(const aValue: Integer); virtual;
|
||||
function GetID_EJERCICIOIsNull: Boolean; virtual;
|
||||
procedure SetID_EJERCICIOIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_PADREValue: Integer; virtual;
|
||||
procedure SetID_PADREValue(const aValue: Integer); virtual;
|
||||
function GetID_PADREIsNull: Boolean; virtual;
|
||||
procedure SetID_PADREIsNull(const aValue: Boolean); virtual;
|
||||
function GetEPIGRAFE_PADREValue: String; virtual;
|
||||
procedure SetEPIGRAFE_PADREValue(const aValue: String); virtual;
|
||||
function GetEPIGRAFE_PADREIsNull: Boolean; virtual;
|
||||
procedure SetEPIGRAFE_PADREIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
|
||||
property REF_EPIGRAFE: String read GetREF_EPIGRAFEValue write SetREF_EPIGRAFEValue;
|
||||
property REF_EPIGRAFEIsNull: Boolean read GetREF_EPIGRAFEIsNull write SetREF_EPIGRAFEIsNull;
|
||||
property ID_PADRE: Integer read GetID_PADREValue write SetID_PADREValue;
|
||||
property ID_PADREIsNull: Boolean read GetID_PADREIsNull write SetID_PADREIsNull;
|
||||
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
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_PADRE: Integer read GetID_PADREValue write SetID_PADREValue;
|
||||
property ID_PADREIsNull: Boolean read GetID_PADREIsNull write SetID_PADREIsNull;
|
||||
property EPIGRAFE_PADRE: String read GetEPIGRAFE_PADREValue write SetEPIGRAFE_PADREValue;
|
||||
property EPIGRAFE_PADREIsNull: Boolean read GetEPIGRAFE_PADREIsNull write SetEPIGRAFE_PADREIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
@ -576,7 +632,7 @@ type
|
||||
|
||||
{ IBalances }
|
||||
IBalances = interface(IDAStronglyTypedDataTable)
|
||||
['{A661BDD9-9EAC-4ECA-906D-7361D8ABACA6}']
|
||||
['{6C69EE1A-E481-42DA-81A1-573A98D95BF5}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1080,6 +1136,27 @@ begin
|
||||
DataTable.Fields[idx_CuentasID_EJERCICIO].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TCuentasDataTableRules.GetDESCRIPCIONValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_CuentasDESCRIPCION].AsString;
|
||||
end;
|
||||
|
||||
procedure TCuentasDataTableRules.SetDESCRIPCIONValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_CuentasDESCRIPCION].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TCuentasDataTableRules.GetDESCRIPCIONIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_CuentasDESCRIPCION].IsNull;
|
||||
end;
|
||||
|
||||
procedure TCuentasDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_CuentasDESCRIPCION].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TCuentasDataTableRules.GetID_EPIGRAFEValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_CuentasID_EPIGRAFE].AsInteger;
|
||||
@ -1101,25 +1178,25 @@ begin
|
||||
DataTable.Fields[idx_CuentasID_EPIGRAFE].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TCuentasDataTableRules.GetDESCRIPCIONValue: String;
|
||||
function TCuentasDataTableRules.GetEPIGRAFEValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_CuentasDESCRIPCION].AsString;
|
||||
result := DataTable.Fields[idx_CuentasEPIGRAFE].AsString;
|
||||
end;
|
||||
|
||||
procedure TCuentasDataTableRules.SetDESCRIPCIONValue(const aValue: String);
|
||||
procedure TCuentasDataTableRules.SetEPIGRAFEValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_CuentasDESCRIPCION].AsString := aValue;
|
||||
DataTable.Fields[idx_CuentasEPIGRAFE].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TCuentasDataTableRules.GetDESCRIPCIONIsNull: boolean;
|
||||
function TCuentasDataTableRules.GetEPIGRAFEIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_CuentasDESCRIPCION].IsNull;
|
||||
result := DataTable.Fields[idx_CuentasEPIGRAFE].IsNull;
|
||||
end;
|
||||
|
||||
procedure TCuentasDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
|
||||
procedure TCuentasDataTableRules.SetEPIGRAFEIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_CuentasDESCRIPCION].AsVariant := Null;
|
||||
DataTable.Fields[idx_CuentasEPIGRAFE].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TCuentasDataTableRules.GetID_BALANCEValue: Integer;
|
||||
@ -1143,6 +1220,27 @@ begin
|
||||
DataTable.Fields[idx_CuentasID_BALANCE].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TCuentasDataTableRules.GetBALANCEValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_CuentasBALANCE].AsString;
|
||||
end;
|
||||
|
||||
procedure TCuentasDataTableRules.SetBALANCEValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_CuentasBALANCE].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TCuentasDataTableRules.GetBALANCEIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_CuentasBALANCE].IsNull;
|
||||
end;
|
||||
|
||||
procedure TCuentasDataTableRules.SetBALANCEIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_CuentasBALANCE].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TCuentasDataTableRules.GetID_CUENTA_ESPECIALValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_CuentasID_CUENTA_ESPECIAL].AsInteger;
|
||||
@ -1164,6 +1262,27 @@ begin
|
||||
DataTable.Fields[idx_CuentasID_CUENTA_ESPECIAL].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TCuentasDataTableRules.GetCUENTA_ESPECIALValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_CuentasCUENTA_ESPECIAL].AsString;
|
||||
end;
|
||||
|
||||
procedure TCuentasDataTableRules.SetCUENTA_ESPECIALValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_CuentasCUENTA_ESPECIAL].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TCuentasDataTableRules.GetCUENTA_ESPECIALIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_CuentasCUENTA_ESPECIAL].IsNull;
|
||||
end;
|
||||
|
||||
procedure TCuentasDataTableRules.SetCUENTA_ESPECIALIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_CuentasCUENTA_ESPECIAL].AsVariant := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TCuentasEspecialesDataTableRules }
|
||||
constructor TCuentasEspecialesDataTableRules.Create(aDataTable: TDADataTable);
|
||||
@ -1293,27 +1412,6 @@ begin
|
||||
DataTable.Fields[idx_EpigrafesREF_EPIGRAFE].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TEpigrafesDataTableRules.GetID_PADREValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_EpigrafesID_PADRE].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TEpigrafesDataTableRules.SetID_PADREValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_EpigrafesID_PADRE].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TEpigrafesDataTableRules.GetID_PADREIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_EpigrafesID_PADRE].IsNull;
|
||||
end;
|
||||
|
||||
procedure TEpigrafesDataTableRules.SetID_PADREIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_EpigrafesID_PADRE].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TEpigrafesDataTableRules.GetDESCRIPCIONValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_EpigrafesDESCRIPCION].AsString;
|
||||
@ -1356,6 +1454,48 @@ begin
|
||||
DataTable.Fields[idx_EpigrafesID_EJERCICIO].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TEpigrafesDataTableRules.GetID_PADREValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_EpigrafesID_PADRE].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TEpigrafesDataTableRules.SetID_PADREValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_EpigrafesID_PADRE].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TEpigrafesDataTableRules.GetID_PADREIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_EpigrafesID_PADRE].IsNull;
|
||||
end;
|
||||
|
||||
procedure TEpigrafesDataTableRules.SetID_PADREIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_EpigrafesID_PADRE].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TEpigrafesDataTableRules.GetEPIGRAFE_PADREValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_EpigrafesEPIGRAFE_PADRE].AsString;
|
||||
end;
|
||||
|
||||
procedure TEpigrafesDataTableRules.SetEPIGRAFE_PADREValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_EpigrafesEPIGRAFE_PADRE].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TEpigrafesDataTableRules.GetEPIGRAFE_PADREIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_EpigrafesEPIGRAFE_PADRE].IsNull;
|
||||
end;
|
||||
|
||||
procedure TEpigrafesDataTableRules.SetEPIGRAFE_PADREIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_EpigrafesEPIGRAFE_PADRE].AsVariant := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TBalancesDataTableRules }
|
||||
constructor TBalancesDataTableRules.Create(aDataTable: TDADataTable);
|
||||
|
||||
@ -9,17 +9,17 @@ 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_AsientosDelta = '{E5444D5F-9D7A-4EF7-A3EC-54E04047ABB8}';
|
||||
RID_SubCuentasDelta = '{06655A2F-ECFC-4984-B5EF-275E3B2F84E3}';
|
||||
RID_CuentasDelta = '{FB48551E-0531-4FC3-8494-51ABBA80938C}';
|
||||
RID_CuentasEspecialesDelta = '{4A7CF142-4CE5-41BE-863B-A4983EB6D7DC}';
|
||||
RID_EpigrafesDelta = '{691EBC10-A868-46C5-9EDF-8E55A27221D0}';
|
||||
RID_BalancesDelta = '{C6255FDC-F284-4F1F-9559-685B3FEE30A9}';
|
||||
RID_AsientosDelta = '{3CD8F764-C1CA-4895-BA19-D5BF1CB0BA2F}';
|
||||
RID_SubCuentasDelta = '{7150FC51-2186-49FF-9063-EC834D78B46A}';
|
||||
RID_CuentasDelta = '{11E761CB-D9B2-4C75-B43D-8239557C676B}';
|
||||
RID_CuentasEspecialesDelta = '{7C11832B-A8CD-4327-8BF6-6CD33196255E}';
|
||||
RID_EpigrafesDelta = '{E94C2735-B84B-4303-B214-1D5015499502}';
|
||||
RID_BalancesDelta = '{602255E6-AB54-4FA3-8924-48B151B7B756}';
|
||||
|
||||
type
|
||||
{ IAsientosDelta }
|
||||
IAsientosDelta = interface(IAsientos)
|
||||
['{E5444D5F-9D7A-4EF7-A3EC-54E04047ABB8}']
|
||||
['{3CD8F764-C1CA-4895-BA19-D5BF1CB0BA2F}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_ASIENTO_COMPENSADOValue : Integer;
|
||||
@ -137,7 +137,7 @@ type
|
||||
|
||||
{ ISubCuentasDelta }
|
||||
ISubCuentasDelta = interface(ISubCuentas)
|
||||
['{06655A2F-ECFC-4984-B5EF-275E3B2F84E3}']
|
||||
['{7150FC51-2186-49FF-9063-EC834D78B46A}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldREF_SUBCUENTAValue : String;
|
||||
@ -219,24 +219,30 @@ type
|
||||
|
||||
{ ICuentasDelta }
|
||||
ICuentasDelta = interface(ICuentas)
|
||||
['{FB48551E-0531-4FC3-8494-51ABBA80938C}']
|
||||
['{11E761CB-D9B2-4C75-B43D-8239557C676B}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldREF_CUENTAValue : String;
|
||||
function GetOldID_EJERCICIOValue : Integer;
|
||||
function GetOldID_EPIGRAFEValue : Integer;
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
function GetOldID_EPIGRAFEValue : Integer;
|
||||
function GetOldEPIGRAFEValue : String;
|
||||
function GetOldID_BALANCEValue : Integer;
|
||||
function GetOldBALANCEValue : String;
|
||||
function GetOldID_CUENTA_ESPECIALValue : Integer;
|
||||
function GetOldCUENTA_ESPECIALValue : String;
|
||||
|
||||
{ Properties }
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
property OldREF_CUENTA : String read GetOldREF_CUENTAValue;
|
||||
property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
|
||||
property OldID_EPIGRAFE : Integer read GetOldID_EPIGRAFEValue;
|
||||
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
||||
property OldID_EPIGRAFE : Integer read GetOldID_EPIGRAFEValue;
|
||||
property OldEPIGRAFE : String read GetOldEPIGRAFEValue;
|
||||
property OldID_BALANCE : Integer read GetOldID_BALANCEValue;
|
||||
property OldBALANCE : String read GetOldBALANCEValue;
|
||||
property OldID_CUENTA_ESPECIAL : Integer read GetOldID_CUENTA_ESPECIALValue;
|
||||
property OldCUENTA_ESPECIAL : String read GetOldCUENTA_ESPECIALValue;
|
||||
end;
|
||||
|
||||
{ TCuentasBusinessProcessorRules }
|
||||
@ -262,30 +268,48 @@ type
|
||||
function GetOldID_EJERCICIOIsNull: Boolean; virtual;
|
||||
procedure SetID_EJERCICIOValue(const aValue: Integer); virtual;
|
||||
procedure SetID_EJERCICIOIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_EPIGRAFEValue: Integer; virtual;
|
||||
function GetID_EPIGRAFEIsNull: Boolean; virtual;
|
||||
function GetOldID_EPIGRAFEValue: Integer; virtual;
|
||||
function GetOldID_EPIGRAFEIsNull: Boolean; virtual;
|
||||
procedure SetID_EPIGRAFEValue(const aValue: Integer); virtual;
|
||||
procedure SetID_EPIGRAFEIsNull(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_EPIGRAFEValue: Integer; virtual;
|
||||
function GetID_EPIGRAFEIsNull: Boolean; virtual;
|
||||
function GetOldID_EPIGRAFEValue: Integer; virtual;
|
||||
function GetOldID_EPIGRAFEIsNull: Boolean; virtual;
|
||||
procedure SetID_EPIGRAFEValue(const aValue: Integer); virtual;
|
||||
procedure SetID_EPIGRAFEIsNull(const aValue: Boolean); virtual;
|
||||
function GetEPIGRAFEValue: String; virtual;
|
||||
function GetEPIGRAFEIsNull: Boolean; virtual;
|
||||
function GetOldEPIGRAFEValue: String; virtual;
|
||||
function GetOldEPIGRAFEIsNull: Boolean; virtual;
|
||||
procedure SetEPIGRAFEValue(const aValue: String); virtual;
|
||||
procedure SetEPIGRAFEIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_BALANCEValue: Integer; virtual;
|
||||
function GetID_BALANCEIsNull: Boolean; virtual;
|
||||
function GetOldID_BALANCEValue: Integer; virtual;
|
||||
function GetOldID_BALANCEIsNull: Boolean; virtual;
|
||||
procedure SetID_BALANCEValue(const aValue: Integer); virtual;
|
||||
procedure SetID_BALANCEIsNull(const aValue: Boolean); virtual;
|
||||
function GetBALANCEValue: String; virtual;
|
||||
function GetBALANCEIsNull: Boolean; virtual;
|
||||
function GetOldBALANCEValue: String; virtual;
|
||||
function GetOldBALANCEIsNull: Boolean; virtual;
|
||||
procedure SetBALANCEValue(const aValue: String); virtual;
|
||||
procedure SetBALANCEIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_CUENTA_ESPECIALValue: Integer; virtual;
|
||||
function GetID_CUENTA_ESPECIALIsNull: Boolean; virtual;
|
||||
function GetOldID_CUENTA_ESPECIALValue: Integer; virtual;
|
||||
function GetOldID_CUENTA_ESPECIALIsNull: Boolean; virtual;
|
||||
procedure SetID_CUENTA_ESPECIALValue(const aValue: Integer); virtual;
|
||||
procedure SetID_CUENTA_ESPECIALIsNull(const aValue: Boolean); virtual;
|
||||
function GetCUENTA_ESPECIALValue: String; virtual;
|
||||
function GetCUENTA_ESPECIALIsNull: Boolean; virtual;
|
||||
function GetOldCUENTA_ESPECIALValue: String; virtual;
|
||||
function GetOldCUENTA_ESPECIALIsNull: Boolean; virtual;
|
||||
procedure SetCUENTA_ESPECIALValue(const aValue: String); virtual;
|
||||
procedure SetCUENTA_ESPECIALIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID : Integer read GetIDValue write SetIDValue;
|
||||
@ -300,22 +324,34 @@ 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_EPIGRAFE : Integer read GetID_EPIGRAFEValue write SetID_EPIGRAFEValue;
|
||||
property ID_EPIGRAFEIsNull : Boolean read GetID_EPIGRAFEIsNull write SetID_EPIGRAFEIsNull;
|
||||
property OldID_EPIGRAFE : Integer read GetOldID_EPIGRAFEValue;
|
||||
property OldID_EPIGRAFEIsNull : Boolean read GetOldID_EPIGRAFEIsNull;
|
||||
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_EPIGRAFE : Integer read GetID_EPIGRAFEValue write SetID_EPIGRAFEValue;
|
||||
property ID_EPIGRAFEIsNull : Boolean read GetID_EPIGRAFEIsNull write SetID_EPIGRAFEIsNull;
|
||||
property OldID_EPIGRAFE : Integer read GetOldID_EPIGRAFEValue;
|
||||
property OldID_EPIGRAFEIsNull : Boolean read GetOldID_EPIGRAFEIsNull;
|
||||
property EPIGRAFE : String read GetEPIGRAFEValue write SetEPIGRAFEValue;
|
||||
property EPIGRAFEIsNull : Boolean read GetEPIGRAFEIsNull write SetEPIGRAFEIsNull;
|
||||
property OldEPIGRAFE : String read GetOldEPIGRAFEValue;
|
||||
property OldEPIGRAFEIsNull : Boolean read GetOldEPIGRAFEIsNull;
|
||||
property ID_BALANCE : Integer read GetID_BALANCEValue write SetID_BALANCEValue;
|
||||
property ID_BALANCEIsNull : Boolean read GetID_BALANCEIsNull write SetID_BALANCEIsNull;
|
||||
property OldID_BALANCE : Integer read GetOldID_BALANCEValue;
|
||||
property OldID_BALANCEIsNull : Boolean read GetOldID_BALANCEIsNull;
|
||||
property BALANCE : String read GetBALANCEValue write SetBALANCEValue;
|
||||
property BALANCEIsNull : Boolean read GetBALANCEIsNull write SetBALANCEIsNull;
|
||||
property OldBALANCE : String read GetOldBALANCEValue;
|
||||
property OldBALANCEIsNull : Boolean read GetOldBALANCEIsNull;
|
||||
property ID_CUENTA_ESPECIAL : Integer read GetID_CUENTA_ESPECIALValue write SetID_CUENTA_ESPECIALValue;
|
||||
property ID_CUENTA_ESPECIALIsNull : Boolean read GetID_CUENTA_ESPECIALIsNull write SetID_CUENTA_ESPECIALIsNull;
|
||||
property OldID_CUENTA_ESPECIAL : Integer read GetOldID_CUENTA_ESPECIALValue;
|
||||
property OldID_CUENTA_ESPECIALIsNull : Boolean read GetOldID_CUENTA_ESPECIALIsNull;
|
||||
property CUENTA_ESPECIAL : String read GetCUENTA_ESPECIALValue write SetCUENTA_ESPECIALValue;
|
||||
property CUENTA_ESPECIALIsNull : Boolean read GetCUENTA_ESPECIALIsNull write SetCUENTA_ESPECIALIsNull;
|
||||
property OldCUENTA_ESPECIAL : String read GetOldCUENTA_ESPECIALValue;
|
||||
property OldCUENTA_ESPECIALIsNull : Boolean read GetOldCUENTA_ESPECIALIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||
@ -325,7 +361,7 @@ type
|
||||
|
||||
{ ICuentasEspecialesDelta }
|
||||
ICuentasEspecialesDelta = interface(ICuentasEspeciales)
|
||||
['{4A7CF142-4CE5-41BE-863B-A4983EB6D7DC}']
|
||||
['{7C11832B-A8CD-4327-8BF6-6CD33196255E}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldREFERENCIAValue : String;
|
||||
@ -383,20 +419,22 @@ type
|
||||
|
||||
{ IEpigrafesDelta }
|
||||
IEpigrafesDelta = interface(IEpigrafes)
|
||||
['{691EBC10-A868-46C5-9EDF-8E55A27221D0}']
|
||||
['{E94C2735-B84B-4303-B214-1D5015499502}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldREF_EPIGRAFEValue : String;
|
||||
function GetOldID_PADREValue : Integer;
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
function GetOldID_EJERCICIOValue : Integer;
|
||||
function GetOldID_PADREValue : Integer;
|
||||
function GetOldEPIGRAFE_PADREValue : String;
|
||||
|
||||
{ Properties }
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
property OldREF_EPIGRAFE : String read GetOldREF_EPIGRAFEValue;
|
||||
property OldID_PADRE : Integer read GetOldID_PADREValue;
|
||||
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
||||
property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
|
||||
property OldID_PADRE : Integer read GetOldID_PADREValue;
|
||||
property OldEPIGRAFE_PADRE : String read GetOldEPIGRAFE_PADREValue;
|
||||
end;
|
||||
|
||||
{ TEpigrafesBusinessProcessorRules }
|
||||
@ -416,12 +454,6 @@ type
|
||||
function GetOldREF_EPIGRAFEIsNull: Boolean; virtual;
|
||||
procedure SetREF_EPIGRAFEValue(const aValue: String); virtual;
|
||||
procedure SetREF_EPIGRAFEIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_PADREValue: Integer; virtual;
|
||||
function GetID_PADREIsNull: Boolean; virtual;
|
||||
function GetOldID_PADREValue: Integer; virtual;
|
||||
function GetOldID_PADREIsNull: Boolean; virtual;
|
||||
procedure SetID_PADREValue(const aValue: Integer); virtual;
|
||||
procedure SetID_PADREIsNull(const aValue: Boolean); virtual;
|
||||
function GetDESCRIPCIONValue: String; virtual;
|
||||
function GetDESCRIPCIONIsNull: Boolean; virtual;
|
||||
function GetOldDESCRIPCIONValue: String; virtual;
|
||||
@ -434,6 +466,18 @@ type
|
||||
function GetOldID_EJERCICIOIsNull: Boolean; virtual;
|
||||
procedure SetID_EJERCICIOValue(const aValue: Integer); virtual;
|
||||
procedure SetID_EJERCICIOIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_PADREValue: Integer; virtual;
|
||||
function GetID_PADREIsNull: Boolean; virtual;
|
||||
function GetOldID_PADREValue: Integer; virtual;
|
||||
function GetOldID_PADREIsNull: Boolean; virtual;
|
||||
procedure SetID_PADREValue(const aValue: Integer); virtual;
|
||||
procedure SetID_PADREIsNull(const aValue: Boolean); virtual;
|
||||
function GetEPIGRAFE_PADREValue: String; virtual;
|
||||
function GetEPIGRAFE_PADREIsNull: Boolean; virtual;
|
||||
function GetOldEPIGRAFE_PADREValue: String; virtual;
|
||||
function GetOldEPIGRAFE_PADREIsNull: Boolean; virtual;
|
||||
procedure SetEPIGRAFE_PADREValue(const aValue: String); virtual;
|
||||
procedure SetEPIGRAFE_PADREIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID : Integer read GetIDValue write SetIDValue;
|
||||
@ -444,10 +488,6 @@ type
|
||||
property REF_EPIGRAFEIsNull : Boolean read GetREF_EPIGRAFEIsNull write SetREF_EPIGRAFEIsNull;
|
||||
property OldREF_EPIGRAFE : String read GetOldREF_EPIGRAFEValue;
|
||||
property OldREF_EPIGRAFEIsNull : Boolean read GetOldREF_EPIGRAFEIsNull;
|
||||
property ID_PADRE : Integer read GetID_PADREValue write SetID_PADREValue;
|
||||
property ID_PADREIsNull : Boolean read GetID_PADREIsNull write SetID_PADREIsNull;
|
||||
property OldID_PADRE : Integer read GetOldID_PADREValue;
|
||||
property OldID_PADREIsNull : Boolean read GetOldID_PADREIsNull;
|
||||
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
||||
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
||||
@ -456,6 +496,14 @@ 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_PADRE : Integer read GetID_PADREValue write SetID_PADREValue;
|
||||
property ID_PADREIsNull : Boolean read GetID_PADREIsNull write SetID_PADREIsNull;
|
||||
property OldID_PADRE : Integer read GetOldID_PADREValue;
|
||||
property OldID_PADREIsNull : Boolean read GetOldID_PADREIsNull;
|
||||
property EPIGRAFE_PADRE : String read GetEPIGRAFE_PADREValue write SetEPIGRAFE_PADREValue;
|
||||
property EPIGRAFE_PADREIsNull : Boolean read GetEPIGRAFE_PADREIsNull write SetEPIGRAFE_PADREIsNull;
|
||||
property OldEPIGRAFE_PADRE : String read GetOldEPIGRAFE_PADREValue;
|
||||
property OldEPIGRAFE_PADREIsNull : Boolean read GetOldEPIGRAFE_PADREIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||
@ -465,7 +513,7 @@ type
|
||||
|
||||
{ IBalancesDelta }
|
||||
IBalancesDelta = interface(IBalances)
|
||||
['{C6255FDC-F284-4F1F-9559-685B3FEE30A9}']
|
||||
['{602255E6-AB54-4FA3-8924-48B151B7B756}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldREF_BALANCEValue : String;
|
||||
@ -1129,6 +1177,37 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_EJERCICIO] := Null;
|
||||
end;
|
||||
|
||||
function TCuentasBusinessProcessorRules.GetDESCRIPCIONValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasDESCRIPCION];
|
||||
end;
|
||||
|
||||
function TCuentasBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasDESCRIPCION]);
|
||||
end;
|
||||
|
||||
function TCuentasBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasDESCRIPCION];
|
||||
end;
|
||||
|
||||
function TCuentasBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasDESCRIPCION]);
|
||||
end;
|
||||
|
||||
procedure TCuentasBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasDESCRIPCION] := aValue;
|
||||
end;
|
||||
|
||||
procedure TCuentasBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasDESCRIPCION] := Null;
|
||||
end;
|
||||
|
||||
function TCuentasBusinessProcessorRules.GetID_EPIGRAFEValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_EPIGRAFE];
|
||||
@ -1160,35 +1239,35 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_EPIGRAFE] := Null;
|
||||
end;
|
||||
|
||||
function TCuentasBusinessProcessorRules.GetDESCRIPCIONValue: String;
|
||||
function TCuentasBusinessProcessorRules.GetEPIGRAFEValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasDESCRIPCION];
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEPIGRAFE];
|
||||
end;
|
||||
|
||||
function TCuentasBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
|
||||
function TCuentasBusinessProcessorRules.GetEPIGRAFEIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasDESCRIPCION]);
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEPIGRAFE]);
|
||||
end;
|
||||
|
||||
function TCuentasBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
|
||||
function TCuentasBusinessProcessorRules.GetOldEPIGRAFEValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasDESCRIPCION];
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasEPIGRAFE];
|
||||
end;
|
||||
|
||||
function TCuentasBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
|
||||
function TCuentasBusinessProcessorRules.GetOldEPIGRAFEIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasDESCRIPCION]);
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasEPIGRAFE]);
|
||||
end;
|
||||
|
||||
procedure TCuentasBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
|
||||
procedure TCuentasBusinessProcessorRules.SetEPIGRAFEValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasDESCRIPCION] := aValue;
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEPIGRAFE] := aValue;
|
||||
end;
|
||||
|
||||
procedure TCuentasBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
|
||||
procedure TCuentasBusinessProcessorRules.SetEPIGRAFEIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasDESCRIPCION] := Null;
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEPIGRAFE] := Null;
|
||||
end;
|
||||
|
||||
function TCuentasBusinessProcessorRules.GetID_BALANCEValue: Integer;
|
||||
@ -1222,6 +1301,37 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_BALANCE] := Null;
|
||||
end;
|
||||
|
||||
function TCuentasBusinessProcessorRules.GetBALANCEValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasBALANCE];
|
||||
end;
|
||||
|
||||
function TCuentasBusinessProcessorRules.GetBALANCEIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasBALANCE]);
|
||||
end;
|
||||
|
||||
function TCuentasBusinessProcessorRules.GetOldBALANCEValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasBALANCE];
|
||||
end;
|
||||
|
||||
function TCuentasBusinessProcessorRules.GetOldBALANCEIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasBALANCE]);
|
||||
end;
|
||||
|
||||
procedure TCuentasBusinessProcessorRules.SetBALANCEValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasBALANCE] := aValue;
|
||||
end;
|
||||
|
||||
procedure TCuentasBusinessProcessorRules.SetBALANCEIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasBALANCE] := Null;
|
||||
end;
|
||||
|
||||
function TCuentasBusinessProcessorRules.GetID_CUENTA_ESPECIALValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_CUENTA_ESPECIAL];
|
||||
@ -1253,6 +1363,37 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_CUENTA_ESPECIAL] := Null;
|
||||
end;
|
||||
|
||||
function TCuentasBusinessProcessorRules.GetCUENTA_ESPECIALValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasCUENTA_ESPECIAL];
|
||||
end;
|
||||
|
||||
function TCuentasBusinessProcessorRules.GetCUENTA_ESPECIALIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasCUENTA_ESPECIAL]);
|
||||
end;
|
||||
|
||||
function TCuentasBusinessProcessorRules.GetOldCUENTA_ESPECIALValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasCUENTA_ESPECIAL];
|
||||
end;
|
||||
|
||||
function TCuentasBusinessProcessorRules.GetOldCUENTA_ESPECIALIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasCUENTA_ESPECIAL]);
|
||||
end;
|
||||
|
||||
procedure TCuentasBusinessProcessorRules.SetCUENTA_ESPECIALValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasCUENTA_ESPECIAL] := aValue;
|
||||
end;
|
||||
|
||||
procedure TCuentasBusinessProcessorRules.SetCUENTA_ESPECIALIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasCUENTA_ESPECIAL] := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TCuentasEspecialesBusinessProcessorRules }
|
||||
constructor TCuentasEspecialesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||
@ -1432,37 +1573,6 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesREF_EPIGRAFE] := Null;
|
||||
end;
|
||||
|
||||
function TEpigrafesBusinessProcessorRules.GetID_PADREValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_PADRE];
|
||||
end;
|
||||
|
||||
function TEpigrafesBusinessProcessorRules.GetID_PADREIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_PADRE]);
|
||||
end;
|
||||
|
||||
function TEpigrafesBusinessProcessorRules.GetOldID_PADREValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesID_PADRE];
|
||||
end;
|
||||
|
||||
function TEpigrafesBusinessProcessorRules.GetOldID_PADREIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesID_PADRE]);
|
||||
end;
|
||||
|
||||
procedure TEpigrafesBusinessProcessorRules.SetID_PADREValue(const aValue: Integer);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_PADRE] := aValue;
|
||||
end;
|
||||
|
||||
procedure TEpigrafesBusinessProcessorRules.SetID_PADREIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_PADRE] := Null;
|
||||
end;
|
||||
|
||||
function TEpigrafesBusinessProcessorRules.GetDESCRIPCIONValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesDESCRIPCION];
|
||||
@ -1525,6 +1635,68 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_EJERCICIO] := Null;
|
||||
end;
|
||||
|
||||
function TEpigrafesBusinessProcessorRules.GetID_PADREValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_PADRE];
|
||||
end;
|
||||
|
||||
function TEpigrafesBusinessProcessorRules.GetID_PADREIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_PADRE]);
|
||||
end;
|
||||
|
||||
function TEpigrafesBusinessProcessorRules.GetOldID_PADREValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesID_PADRE];
|
||||
end;
|
||||
|
||||
function TEpigrafesBusinessProcessorRules.GetOldID_PADREIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesID_PADRE]);
|
||||
end;
|
||||
|
||||
procedure TEpigrafesBusinessProcessorRules.SetID_PADREValue(const aValue: Integer);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_PADRE] := aValue;
|
||||
end;
|
||||
|
||||
procedure TEpigrafesBusinessProcessorRules.SetID_PADREIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_PADRE] := Null;
|
||||
end;
|
||||
|
||||
function TEpigrafesBusinessProcessorRules.GetEPIGRAFE_PADREValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesEPIGRAFE_PADRE];
|
||||
end;
|
||||
|
||||
function TEpigrafesBusinessProcessorRules.GetEPIGRAFE_PADREIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesEPIGRAFE_PADRE]);
|
||||
end;
|
||||
|
||||
function TEpigrafesBusinessProcessorRules.GetOldEPIGRAFE_PADREValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesEPIGRAFE_PADRE];
|
||||
end;
|
||||
|
||||
function TEpigrafesBusinessProcessorRules.GetOldEPIGRAFE_PADREIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesEPIGRAFE_PADRE]);
|
||||
end;
|
||||
|
||||
procedure TEpigrafesBusinessProcessorRules.SetEPIGRAFE_PADREValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesEPIGRAFE_PADRE] := aValue;
|
||||
end;
|
||||
|
||||
procedure TEpigrafesBusinessProcessorRules.SetEPIGRAFE_PADREIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesEPIGRAFE_PADRE] := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TBalancesBusinessProcessorRules }
|
||||
constructor TBalancesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||
|
||||
@ -3,7 +3,7 @@ unit uBizBalances;
|
||||
interface
|
||||
|
||||
uses
|
||||
uDAInterfaces, uDADataTable, schContabilidadClient_Intf;
|
||||
uDAInterfaces, uDADataTable, uDBSelectionListUtils, schContabilidadClient_Intf;
|
||||
|
||||
const
|
||||
BIZ_CLIENT_Balance = 'Client.Balance';
|
||||
@ -14,10 +14,17 @@ type
|
||||
function EsNuevo : Boolean;
|
||||
end;
|
||||
|
||||
TBizBalance = class(TBalancesDataTableRules, IBizBalance)
|
||||
TBizBalance = class(TBalancesDataTableRules, IBizBalance, ISeleccionable)
|
||||
protected
|
||||
FSeleccionableInterface : ISeleccionable;
|
||||
procedure OnNewRecord(Sender: TDADataTable); override;
|
||||
public
|
||||
property SeleccionableInterface : ISeleccionable read FSeleccionableInterface
|
||||
write FSeleccionableInterface implements ISeleccionable;
|
||||
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
destructor Destroy; override;
|
||||
|
||||
procedure IniciarValoresBalanceNueva;
|
||||
function EsNuevo : Boolean;
|
||||
end;
|
||||
@ -29,6 +36,18 @@ implementation
|
||||
uses
|
||||
SysUtils, uDataTableUtils;
|
||||
|
||||
constructor TBizBalance.Create(aDataTable: TDADataTable);
|
||||
begin
|
||||
inherited;
|
||||
FSeleccionableInterface := TSeleccionable.Create(aDataTable);
|
||||
end;
|
||||
|
||||
destructor TBizBalance.Destroy;
|
||||
begin
|
||||
FSeleccionableInterface := NIL;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TBizBalance.EsNuevo: Boolean;
|
||||
begin
|
||||
Result := (ID < 0);
|
||||
|
||||
@ -3,7 +3,7 @@ unit uBizCuentas;
|
||||
interface
|
||||
|
||||
uses
|
||||
uDAInterfaces, uDADataTable, schContabilidadClient_Intf;
|
||||
uDAInterfaces, uDADataTable, uDBSelectionListUtils, schContabilidadClient_Intf;
|
||||
|
||||
const
|
||||
BIZ_CLIENT_Cuenta = 'Client.Cuenta';
|
||||
@ -14,10 +14,17 @@ type
|
||||
function EsNuevo : Boolean;
|
||||
end;
|
||||
|
||||
TBizCuenta = class(TCuentasDataTableRules, IBizCuenta)
|
||||
TBizCuenta = class(TCuentasDataTableRules, IBizCuenta, ISeleccionable)
|
||||
protected
|
||||
FSeleccionableInterface: ISeleccionable;
|
||||
procedure OnNewRecord(Sender: TDADataTable); override;
|
||||
public
|
||||
property SeleccionableInterface : ISeleccionable read FSeleccionableInterface
|
||||
write FSeleccionableInterface implements ISeleccionable;
|
||||
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
destructor Destroy; override;
|
||||
|
||||
procedure IniciarValoresCuentaNueva;
|
||||
function EsNuevo : Boolean;
|
||||
end;
|
||||
@ -29,6 +36,18 @@ implementation
|
||||
uses
|
||||
SysUtils, uDataTableUtils, uFactuGES_App;
|
||||
|
||||
constructor TBizCuenta.Create(aDataTable: TDADataTable);
|
||||
begin
|
||||
inherited;
|
||||
FSeleccionableInterface := TSeleccionable.Create(aDataTable);
|
||||
end;
|
||||
|
||||
destructor TBizCuenta.Destroy;
|
||||
begin
|
||||
FSeleccionableInterface := NIL;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TBizCuenta.EsNuevo: Boolean;
|
||||
begin
|
||||
Result := (ID < 0);
|
||||
|
||||
@ -3,7 +3,7 @@ unit uBizCuentasEspeciales;
|
||||
interface
|
||||
|
||||
uses
|
||||
uDAInterfaces, uDADataTable, schContabilidadClient_Intf;
|
||||
uDAInterfaces, uDADataTable, uDBSelectionListUtils, schContabilidadClient_Intf;
|
||||
|
||||
const
|
||||
BIZ_CLIENT_CuentaEspecial = 'Client.CuentaEspecial';
|
||||
@ -14,10 +14,17 @@ type
|
||||
function EsNuevo : Boolean;
|
||||
end;
|
||||
|
||||
TBizCuentaEspecial = class(TCuentasEspecialesDataTableRules, IBizCuentaEspecial)
|
||||
TBizCuentaEspecial = class(TCuentasEspecialesDataTableRules, IBizCuentaEspecial, ISeleccionable)
|
||||
protected
|
||||
FSeleccionableInterface : ISeleccionable;
|
||||
procedure OnNewRecord(Sender: TDADataTable); override;
|
||||
public
|
||||
property SeleccionableInterface : ISeleccionable read FSeleccionableInterface
|
||||
write FSeleccionableInterface implements ISeleccionable;
|
||||
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
destructor Destroy; override;
|
||||
|
||||
procedure IniciarValoresCuentaEspecialNueva;
|
||||
function EsNuevo : Boolean;
|
||||
end;
|
||||
@ -29,6 +36,18 @@ implementation
|
||||
uses
|
||||
SysUtils, uDataTableUtils;
|
||||
|
||||
constructor TBizCuentaEspecial.Create(aDataTable: TDADataTable);
|
||||
begin
|
||||
inherited;
|
||||
FSeleccionableInterface := TSeleccionable.Create(aDataTable);
|
||||
end;
|
||||
|
||||
destructor TBizCuentaEspecial.Destroy;
|
||||
begin
|
||||
FSeleccionableInterface := NIL;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TBizCuentaEspecial.EsNuevo: Boolean;
|
||||
begin
|
||||
Result := (ID < 0);
|
||||
|
||||
@ -3,7 +3,7 @@ unit uBizEpigrafes;
|
||||
interface
|
||||
|
||||
uses
|
||||
uDAInterfaces, uDADataTable, schContabilidadClient_Intf;
|
||||
uDAInterfaces, uDADataTable, uDBSelectionListUtils, schContabilidadClient_Intf;
|
||||
|
||||
const
|
||||
BIZ_CLIENT_Epigrafe = 'Client.Epigrafe';
|
||||
@ -14,10 +14,17 @@ type
|
||||
function EsNuevo : Boolean;
|
||||
end;
|
||||
|
||||
TBizEpigrafe = class(TEpigrafesDataTableRules, IBizEpigrafe)
|
||||
TBizEpigrafe = class(TEpigrafesDataTableRules, IBizEpigrafe, ISeleccionable)
|
||||
protected
|
||||
FSeleccionableInterface : ISeleccionable;
|
||||
procedure OnNewRecord(Sender: TDADataTable); override;
|
||||
public
|
||||
property SeleccionableInterface : ISeleccionable read FSeleccionableInterface
|
||||
write FSeleccionableInterface implements ISeleccionable;
|
||||
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
destructor Destroy; override;
|
||||
|
||||
procedure IniciarValoresEpigrafeNueva;
|
||||
function EsNuevo : Boolean;
|
||||
end;
|
||||
@ -29,6 +36,18 @@ implementation
|
||||
uses
|
||||
SysUtils, uDataTableUtils, uFactuGES_App;
|
||||
|
||||
constructor TBizEpigrafe.Create(aDataTable: TDADataTable);
|
||||
begin
|
||||
inherited;
|
||||
FSeleccionableInterface := TSeleccionable.Create(aDataTable);
|
||||
end;
|
||||
|
||||
destructor TBizEpigrafe.Destroy;
|
||||
begin
|
||||
FSeleccionableInterface := NIL;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TBizEpigrafe.EsNuevo: Boolean;
|
||||
begin
|
||||
Result := (ID < 0);
|
||||
|
||||
@ -7,7 +7,7 @@ object srvContabilidad: TsrvContabilidad
|
||||
ExportedDataTables = <>
|
||||
BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
|
||||
Height = 181
|
||||
Width = 282
|
||||
Width = 331
|
||||
object Diagrams: TDADiagrams
|
||||
Left = 150
|
||||
Top = 90
|
||||
@ -21,7 +21,7 @@ object srvContabilidad: TsrvContabilidad
|
||||
item
|
||||
Name = 'Ejercicios_ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_CONT_BALANCES_ID'
|
||||
GeneratorName = 'GEN_CONT_EJERCICIOS_ID'
|
||||
Required = True
|
||||
DisplayLabel = 'ID'
|
||||
ServerAutoRefresh = True
|
||||
@ -69,6 +69,7 @@ object srvContabilidad: TsrvContabilidad
|
||||
item
|
||||
Name = 'Epigrafes_ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_CONT_EPIGRAFES_ID'
|
||||
Required = True
|
||||
ServerAutoRefresh = True
|
||||
end
|
||||
@ -203,6 +204,26 @@ object srvContabilidad: TsrvContabilidad
|
||||
item
|
||||
Name = 'Asientos_HABER'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'Epigrafes_EPIGRAFE_PADRE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'Cuentas_EPIGRAFE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'Cuentas_BALANCE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'Cuentas_CUENTA_ESPECIAL'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end>
|
||||
Left = 150
|
||||
Top = 24
|
||||
@ -374,7 +395,7 @@ object srvContabilidad: TsrvContabilidad
|
||||
Connection = 'IBX'
|
||||
ConnectionType = 'Interbase'
|
||||
Default = True
|
||||
TargetTable = 'CONT_CUENTAS'
|
||||
TargetTable = 'V_CONT_CUENTAS'
|
||||
Name = 'IBX'
|
||||
StatementType = stAutoSQL
|
||||
ColumnMappings = <
|
||||
@ -390,21 +411,33 @@ object srvContabilidad: TsrvContabilidad
|
||||
DatasetField = 'ID_EJERCICIO'
|
||||
TableField = 'ID_EJERCICIO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'DESCRIPCION'
|
||||
TableField = 'DESCRIPCION'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_EPIGRAFE'
|
||||
TableField = 'ID_EPIGRAFE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'DESCRIPCION'
|
||||
TableField = 'DESCRIPCION'
|
||||
DatasetField = 'EPIGRAFE'
|
||||
TableField = 'EPIGRAFE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_BALANCE'
|
||||
TableField = 'ID_BALANCE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'BALANCE'
|
||||
TableField = 'BALANCE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_CUENTA_ESPECIAL'
|
||||
TableField = 'ID_CUENTA_ESPECIAL'
|
||||
end
|
||||
item
|
||||
DatasetField = 'CUENTA_ESPECIAL'
|
||||
TableField = 'CUENTA_ESPECIAL'
|
||||
end>
|
||||
end>
|
||||
Name = 'Cuentas'
|
||||
@ -428,26 +461,44 @@ object srvContabilidad: TsrvContabilidad
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'Cuentas_ID_EJERCICIO'
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'Cuentas_DESCRIPCION'
|
||||
end
|
||||
item
|
||||
Name = 'ID_EPIGRAFE'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'Cuentas_ID_EPIGRAFE'
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
Name = 'EPIGRAFE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'Cuentas_DESCRIPCION'
|
||||
DictionaryEntry = 'Cuentas_EPIGRAFE'
|
||||
end
|
||||
item
|
||||
Name = 'ID_BALANCE'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'Cuentas_ID_BALANCE'
|
||||
end
|
||||
item
|
||||
Name = 'BALANCE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'Cuentas_BALANCE'
|
||||
end
|
||||
item
|
||||
Name = 'ID_CUENTA_ESPECIAL'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'Cuentas_ID_CUENTA_ESPECIAL'
|
||||
end
|
||||
item
|
||||
Name = 'CUENTA_ESPECIAL'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'Cuentas_CUENTA_ESPECIAL'
|
||||
end>
|
||||
end
|
||||
item
|
||||
@ -503,7 +554,7 @@ object srvContabilidad: TsrvContabilidad
|
||||
Connection = 'IBX'
|
||||
ConnectionType = 'Interbase'
|
||||
Default = True
|
||||
TargetTable = 'CONT_EPIGRAFES'
|
||||
TargetTable = 'V_CONT_EPIGRAFES'
|
||||
Name = 'IBX'
|
||||
StatementType = stAutoSQL
|
||||
ColumnMappings = <
|
||||
@ -515,10 +566,6 @@ object srvContabilidad: TsrvContabilidad
|
||||
DatasetField = 'REF_EPIGRAFE'
|
||||
TableField = 'REF_EPIGRAFE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_PADRE'
|
||||
TableField = 'ID_PADRE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'DESCRIPCION'
|
||||
TableField = 'DESCRIPCION'
|
||||
@ -526,6 +573,14 @@ object srvContabilidad: TsrvContabilidad
|
||||
item
|
||||
DatasetField = 'ID_EJERCICIO'
|
||||
TableField = 'ID_EJERCICIO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_PADRE'
|
||||
TableField = 'ID_PADRE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'EPIGRAFE_PADRE'
|
||||
TableField = 'EPIGRAFE_PADRE'
|
||||
end>
|
||||
end>
|
||||
Name = 'Epigrafes'
|
||||
@ -534,8 +589,8 @@ object srvContabilidad: TsrvContabilidad
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_CONT_EPIGRAFES_ID'
|
||||
Required = True
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'Epigrafes_ID'
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
@ -544,11 +599,6 @@ object srvContabilidad: TsrvContabilidad
|
||||
Size = 6
|
||||
DictionaryEntry = 'Epigrafes_REF_EPIGRAFE'
|
||||
end
|
||||
item
|
||||
Name = 'ID_PADRE'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'Epigrafes_ID_PADRE'
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
DataType = datString
|
||||
@ -559,6 +609,17 @@ object srvContabilidad: TsrvContabilidad
|
||||
Name = 'ID_EJERCICIO'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'Epigrafes_ID_EJERCICIO'
|
||||
end
|
||||
item
|
||||
Name = 'ID_PADRE'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'Epigrafes_ID_PADRE'
|
||||
end
|
||||
item
|
||||
Name = 'EPIGRAFE_PADRE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'Epigrafes_EPIGRAFE_PADRE'
|
||||
end>
|
||||
end
|
||||
item
|
||||
@ -611,7 +672,7 @@ object srvContabilidad: TsrvContabilidad
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_CONT_BALANCES_ID'
|
||||
GeneratorName = 'GEN_CONT_EJERCICIOS_ID'
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'Ejercicios_ID'
|
||||
InPrimaryKey = True
|
||||
@ -667,7 +728,223 @@ object srvContabilidad: TsrvContabilidad
|
||||
end>
|
||||
JoinDataTables = <>
|
||||
UnionDataTables = <>
|
||||
Commands = <>
|
||||
Commands = <
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_CONT_EPIGRAFES_ID'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'REF_EPIGRAFE'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_EJERCICIO'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_PADRE'
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
Connection = 'IBX'
|
||||
ConnectionType = 'Interbase'
|
||||
Default = True
|
||||
TargetTable = 'CONT_EPIGRAFES'
|
||||
SQL =
|
||||
'INSERT'#10' INTO CONT_EPIGRAFES'#10' (ID, REF_EPIGRAFE, DESCRIPCION,' +
|
||||
' ID_EJERCICIO, ID_PADRE)'#10' VALUES'#10' (:ID, :REF_EPIGRAFE, :DESC' +
|
||||
'RIPCION, :ID_EJERCICIO, :ID_PADRE)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
Name = 'Insert_Epigrafes'
|
||||
end
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'OLD_ID'
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
Connection = 'IBX'
|
||||
ConnectionType = 'Interbase'
|
||||
Default = True
|
||||
TargetTable = 'CONT_EPIGRAFES'
|
||||
SQL = 'DELETE '#10' FROM'#10' CONT_EPIGRAFES'#10' WHERE'#10' (ID = :OLD_ID)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
Name = 'Delete_Epigrafes'
|
||||
end
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'REF_EPIGRAFE'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_EJERCICIO'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_PADRE'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'OLD_ID'
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
Connection = 'IBX'
|
||||
ConnectionType = 'Interbase'
|
||||
Default = True
|
||||
TargetTable = 'CONT_EPIGRAFES'
|
||||
SQL =
|
||||
'UPDATE CONT_EPIGRAFES'#10' SET '#10' ID = :ID,'#10' REF_EPIGRAFE = :R' +
|
||||
'EF_EPIGRAFE, '#10' DESCRIPCION = :DESCRIPCION, '#10' ID_EJERCICIO ' +
|
||||
'= :ID_EJERCICIO, '#10' ID_PADRE = :ID_PADRE'#10' WHERE'#10' (ID = :OL' +
|
||||
'D_ID)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
Name = 'Update_Epigrafes'
|
||||
end
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_CONT_CUENTAS_ID'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'REF_CUENTA'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_EJERCICIO'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_EPIGRAFE'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_BALANCE'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_CUENTA_ESPECIAL'
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
Connection = 'IBX'
|
||||
ConnectionType = 'Interbase'
|
||||
Default = True
|
||||
TargetTable = 'CONT_CUENTAS'
|
||||
SQL =
|
||||
'INSERT'#10' INTO CONT_CUENTAS'#10' (ID, REF_CUENTA, ID_EJERCICIO, DE' +
|
||||
'SCRIPCION, ID_EPIGRAFE,'#10' ID_BALANCE, ID_CUENTA_ESPECIAL)'#10' V' +
|
||||
'ALUES'#10' (:ID, :REF_CUENTA, :ID_EJERCICIO, :DESCRIPCION, :ID_EP' +
|
||||
'IGRAFE,'#10' :ID_BALANCE, :ID_CUENTA_ESPECIAL)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
Name = 'Insert_Cuentas'
|
||||
end
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'OLD_ID'
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
Connection = 'IBX'
|
||||
ConnectionType = 'Interbase'
|
||||
Default = True
|
||||
TargetTable = 'CONT_CUENTAS'
|
||||
SQL = 'DELETE '#10' FROM'#10' CONT_CUENTAS'#10' WHERE'#10' (ID = :OLD_ID)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
Name = 'Delete_Cuentas'
|
||||
end
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'REF_CUENTA'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_EJERCICIO'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_EPIGRAFE'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_BALANCE'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_CUENTA_ESPECIAL'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'OLD_ID'
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
Connection = 'IBX'
|
||||
ConnectionType = 'Interbase'
|
||||
Default = True
|
||||
TargetTable = 'CONT_CUENTAS'
|
||||
SQL =
|
||||
'UPDATE CONT_CUENTAS'#10' SET '#10' ID = :ID,'#10' REF_CUENTA = :REF_C' +
|
||||
'UENTA, '#10' ID_EJERCICIO = :ID_EJERCICIO, '#10' DESCRIPCION = :DE' +
|
||||
'SCRIPCION, '#10' ID_EPIGRAFE = :ID_EPIGRAFE, '#10' ID_BALANCE = :I' +
|
||||
'D_BALANCE,'#10' ID_CUENTA_ESPECIAL = :ID_CUENTA_ESPECIAL'#10' WHERE'#10 +
|
||||
' (ID = :OLD_ID)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
Name = 'Update_Cuentas'
|
||||
end>
|
||||
RelationShips = <>
|
||||
UpdateRules = <>
|
||||
Version = 0
|
||||
@ -678,4 +955,26 @@ object srvContabilidad: TsrvContabilidad
|
||||
Left = 48
|
||||
Top = 88
|
||||
end
|
||||
object bpEpigrafes: TDABusinessProcessor
|
||||
Schema = schContabilidad
|
||||
InsertCommandName = 'Insert_Epigrafes'
|
||||
DeleteCommandName = 'Delete_Epigrafes'
|
||||
UpdateCommandName = 'Update_Epigrafes'
|
||||
ReferencedDataset = 'Epigrafes'
|
||||
ProcessorOptions = [poPrepareCommands]
|
||||
UpdateMode = updWhereKeyOnly
|
||||
Left = 248
|
||||
Top = 24
|
||||
end
|
||||
object bpCuentas: TDABusinessProcessor
|
||||
Schema = schContabilidad
|
||||
InsertCommandName = 'Insert_Cuentas'
|
||||
DeleteCommandName = 'Delete_Cuentas'
|
||||
UpdateCommandName = 'Update_Cuentas'
|
||||
ReferencedDataset = 'Cuentas'
|
||||
ProcessorOptions = [poPrepareCommands]
|
||||
UpdateMode = updWhereKeyOnly
|
||||
Left = 248
|
||||
Top = 80
|
||||
end
|
||||
end
|
||||
|
||||
@ -23,6 +23,8 @@ type
|
||||
TsrvContabilidad = class(TDataAbstractService, IsrvContabilidad)
|
||||
Diagrams: TDADiagrams;
|
||||
Bin2DataStreamer: TDABin2DataStreamer;
|
||||
bpEpigrafes: TDABusinessProcessor;
|
||||
bpCuentas: TDABusinessProcessor;
|
||||
schContabilidad: TDASchema;
|
||||
DataDictionary: TDADataDictionary;
|
||||
procedure DARemoteServiceCreate(Sender: TObject);
|
||||
|
||||
@ -98,6 +98,10 @@ contains
|
||||
uViewSubCuentas in 'uViewSubCuentas.pas' {frViewSubCuentas: TFrame},
|
||||
uEditorSubCuentas in 'uEditorSubCuentas.pas' {fEditorSubCuentas: TfEditorEjercicios},
|
||||
uEditorSubCuenta in 'uEditorSubCuenta.pas' {fEditorSubCuenta: TfEditorEjercicios},
|
||||
uEditorElegirEpigrafes in 'uEditorElegirEpigrafes.pas' {fEditorElegirEpigrafes: TfEditorElegirEpigrafes};
|
||||
uEditorElegirEpigrafes in 'uEditorElegirEpigrafes.pas' {fEditorElegirEpigrafes: TfEditorEjercicios},
|
||||
uViewBalances in 'uViewBalances.pas' {frViewBalances: TFrame},
|
||||
uEditorElegirBalances in 'uEditorElegirBalances.pas' {fEditorElegirBalances: TfEditorEjercicios},
|
||||
uViewCuentasEspeciales in 'uViewCuentasEspeciales.pas' {frViewCuentasEspeciales: TFrame},
|
||||
uEditorElegirCuentasEspeciales in 'uEditorElegirCuentasEspeciales.pas' {fEditorElegirCuentasEspeciales: TfEditorElegirCuentasEspeciales};
|
||||
|
||||
end.
|
||||
|
||||
@ -122,6 +122,14 @@
|
||||
<Form>fEditorCuentasEspeciales</Form>
|
||||
<DesignClass>TfEditorEjercicios</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorElegirBalances.pas">
|
||||
<Form>fEditorElegirBalances</Form>
|
||||
<DesignClass>TfEditorEjercicios</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorElegirCuentasEspeciales.pas">
|
||||
<Form>fEditorElegirCuentasEspeciales</Form>
|
||||
<DesignClass>TfEditorEjercicios</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorElegirEpigrafes.pas">
|
||||
<Form>fEditorElegirEpigrafes</Form>
|
||||
<DesignClass>TfEditorEjercicios</DesignClass>
|
||||
@ -142,6 +150,10 @@
|
||||
<Form>fEditorSubCuentas</Form>
|
||||
<DesignClass>TfEditorEjercicios</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uViewBalances.pas">
|
||||
<Form>frViewBalances</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uViewCuenta.pas">
|
||||
<Form>frViewCuenta</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
@ -150,6 +162,10 @@
|
||||
<Form>frViewCuentas</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uViewCuentasEspeciales.pas">
|
||||
<Form>frViewCuentasEspeciales</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uViewEpigrafe.pas">
|
||||
<Form>frViewEpigrafe</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
|
||||
@ -8,7 +8,8 @@ procedure UnregisterViews;
|
||||
implementation
|
||||
|
||||
uses
|
||||
uEditorRegistryUtils, uEditorBalance, uEditorBalances, uEditorCuentaEspecial, uEditorCuentasEspeciales,
|
||||
uEditorRegistryUtils, uEditorBalance, uEditorBalances, uEditorElegirBalances,
|
||||
uEditorCuentaEspecial, uEditorCuentasEspeciales, uEditorElegirCuentasEspeciales,
|
||||
uEditorEpigrafe, uEditorElegirEpigrafes, uEditorEpigrafes,
|
||||
uEditorCuenta, uEditorCuentas,
|
||||
uEditorSubCuenta, uEditorSubCuentas;
|
||||
@ -17,8 +18,10 @@ procedure RegisterViews;
|
||||
begin
|
||||
EditorRegistry.RegisterClass(TfEditorBalances, 'EditorBalances');
|
||||
EditorRegistry.RegisterClass(TfEditorBalance, 'EditorBalance');
|
||||
EditorRegistry.RegisterClass(TfEditorElegirBalances, 'EditorElegirBalances');
|
||||
EditorRegistry.RegisterClass(TfEditorCuentasEspeciales, 'EditorCuentasEspeciales');
|
||||
EditorRegistry.RegisterClass(TfEditorCuentaEspecial, 'EditorCuentaEspecial');
|
||||
EditorRegistry.RegisterClass(TfEditorElegirCuentasEspeciales, 'EditorElegirCuentasEspeciales');
|
||||
EditorRegistry.RegisterClass(TfEditorEpigrafes, 'EditorEpigrafes');
|
||||
EditorRegistry.RegisterClass(TfEditorEpigrafe, 'EditorEpigrafe');
|
||||
EditorRegistry.RegisterClass(TfEditorElegirEpigrafes, 'EditorElegirEpigrafes');
|
||||
@ -32,8 +35,10 @@ procedure UnregisterViews;
|
||||
begin
|
||||
EditorRegistry.UnRegisterClass(TfEditorBalances);
|
||||
EditorRegistry.UnRegisterClass(TfEditorBalance);
|
||||
EditorRegistry.UnRegisterClass(TfEditorElegirBalances);
|
||||
EditorRegistry.UnRegisterClass(TfEditorCuentasEspeciales);
|
||||
EditorRegistry.UnRegisterClass(TfEditorCuentaEspecial);
|
||||
EditorRegistry.UnRegisterClass(TfEditorElegirCuentasEspeciales);
|
||||
EditorRegistry.UnRegisterClass(TfEditorEpigrafes);
|
||||
EditorRegistry.UnRegisterClass(TfEditorEpigrafe);
|
||||
EditorRegistry.UnRegisterClass(TfEditorElegirEpigrafes);
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
Binary file not shown.
@ -122,6 +122,8 @@ end;
|
||||
procedure TfEditorCuenta.SetController(const Value: ICuentasController);
|
||||
begin
|
||||
FController := Value;
|
||||
if Assigned(ViewCuenta) then
|
||||
ViewCuenta.Controller := FController;
|
||||
end;
|
||||
|
||||
procedure TfEditorCuenta.SetViewCuenta(const Value: IViewCuenta);
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
Binary file not shown.
257
Source/Modulos/Contabilidad/Views/uEditorElegirBalances.dfm
Normal file
257
Source/Modulos/Contabilidad/Views/uEditorElegirBalances.dfm
Normal file
@ -0,0 +1,257 @@
|
||||
inherited fEditorElegirBalances: TfEditorElegirBalances
|
||||
Caption = 'Seleccionar pedido de cliente'
|
||||
ClientWidth = 656
|
||||
ExplicitWidth = 664
|
||||
ExplicitHeight = 240
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object JvgWizardHeader1: TJvgWizardHeader [0]
|
||||
Left = 0
|
||||
Top = 27
|
||||
Width = 656
|
||||
Height = 60
|
||||
CaptionFont.Charset = DEFAULT_CHARSET
|
||||
CaptionFont.Color = clWindowText
|
||||
CaptionFont.Height = -11
|
||||
CaptionFont.Name = 'Tahoma'
|
||||
CaptionFont.Style = [fsBold]
|
||||
CommentFont.Charset = DEFAULT_CHARSET
|
||||
CommentFont.Color = clWindowText
|
||||
CommentFont.Height = -11
|
||||
CommentFont.Name = 'Tahoma'
|
||||
CommentFont.Style = []
|
||||
SymbolFont.Charset = DEFAULT_CHARSET
|
||||
SymbolFont.Color = clHighlightText
|
||||
SymbolFont.Height = -35
|
||||
SymbolFont.Name = 'Wingdings'
|
||||
SymbolFont.Style = [fsBold]
|
||||
Captions.Strings = (
|
||||
'Seleccione el pedido de proveedor')
|
||||
Comments.Strings = (
|
||||
' ')
|
||||
Gradient.FromColor = clHighlight
|
||||
Gradient.ToColor = clWindow
|
||||
Gradient.Active = False
|
||||
Gradient.Orientation = fgdVertical
|
||||
BufferedDraw = False
|
||||
ExplicitTop = 16
|
||||
end
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 656
|
||||
Caption = 'Lista de pedidos de proveedor'
|
||||
Visible = False
|
||||
ExplicitWidth = 656
|
||||
inherited Image1: TImage
|
||||
Left = 629
|
||||
ExplicitLeft = 629
|
||||
end
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
Top = 87
|
||||
Width = 656
|
||||
ExplicitTop = 87
|
||||
ExplicitWidth = 656
|
||||
inherited tbxMain: TTBXToolbar
|
||||
Align = alRight
|
||||
ExplicitWidth = 126
|
||||
inherited TBXItem2: TTBXItem
|
||||
Visible = False
|
||||
end
|
||||
inherited TBXItem5: TTBXItem
|
||||
Visible = False
|
||||
end
|
||||
inherited TBXItem4: TTBXItem
|
||||
Visible = False
|
||||
end
|
||||
inherited TBXItem6: TTBXItem
|
||||
Visible = False
|
||||
end
|
||||
inherited TBXItem36: TTBXItem
|
||||
Action = actAnchoAuto2
|
||||
end
|
||||
end
|
||||
inherited tbxFiltro: TTBXToolbar
|
||||
Left = 126
|
||||
Top = 23
|
||||
DockPos = 115
|
||||
DockRow = 1
|
||||
ExplicitLeft = 126
|
||||
ExplicitTop = 23
|
||||
inherited TBXItem34: TTBXItem
|
||||
Action = actQuitarFiltro2
|
||||
end
|
||||
end
|
||||
inherited tbxMenu: TTBXToolbar
|
||||
ExplicitWidth = 656
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
Width = 656
|
||||
Visible = False
|
||||
ExplicitWidth = 656
|
||||
end
|
||||
inline frViewBarraSeleccion1: TfrViewBarraSeleccion [4]
|
||||
Left = 0
|
||||
Top = 376
|
||||
Width = 656
|
||||
Height = 49
|
||||
Align = alBottom
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 4
|
||||
ReadOnly = False
|
||||
ExplicitTop = 376
|
||||
ExplicitWidth = 656
|
||||
inherited JvFooter1: TJvFooter
|
||||
Width = 656
|
||||
ExplicitWidth = 656
|
||||
inherited bSeleccionar: TJvFooterBtn
|
||||
Left = 444
|
||||
ExplicitLeft = 444
|
||||
end
|
||||
inherited bCancelar: TJvFooterBtn
|
||||
Left = 548
|
||||
ExplicitLeft = 548
|
||||
end
|
||||
end
|
||||
inherited BarraSeleccionActionList: TActionList
|
||||
inherited actSeleccionar: TAction
|
||||
OnExecute = frViewBarraSeleccion1actSeleccionarExecute
|
||||
OnUpdate = frViewBarraSeleccion1actSeleccionarUpdate
|
||||
end
|
||||
inherited actCancelar: TAction
|
||||
OnExecute = frViewBarraSeleccion1actCancelarExecute
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited frViewBalances1: TfrViewBalances [5]
|
||||
Top = 162
|
||||
Width = 656
|
||||
Height = 214
|
||||
ExplicitTop = 162
|
||||
ExplicitWidth = 656
|
||||
ExplicitHeight = 214
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 656
|
||||
Height = 86
|
||||
ExplicitWidth = 656
|
||||
ExplicitHeight = 86
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
DataController.Summary.DefaultGroupSummaryItems = <
|
||||
item
|
||||
Format = ',0.00 '#8364';-,0.00 '#8364
|
||||
Kind = skSum
|
||||
Position = spFooter
|
||||
end>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Format = '0 pedidos'
|
||||
Kind = skCount
|
||||
end>
|
||||
inherited cxGridViewID: TcxGridDBColumn
|
||||
IsCaptionAssigned = True
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited frViewFiltroBase1: TfrViewFiltroBase
|
||||
Width = 656
|
||||
ExplicitWidth = 656
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
ExplicitWidth = 656
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 656
|
||||
ExplicitWidth = 656
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
Left = 290
|
||||
ExplicitLeft = 290
|
||||
ExplicitWidth = 421
|
||||
Width = 421
|
||||
end
|
||||
end
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
Width = 656
|
||||
ExplicitWidth = 656
|
||||
inherited tbxBotones: TTBXToolbar
|
||||
Width = 646
|
||||
ExplicitWidth = 646
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited pnlAgrupaciones: TTBXDockablePanel
|
||||
Top = 188
|
||||
ExplicitTop = 188
|
||||
ExplicitWidth = 656
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
Width = 656
|
||||
ExplicitWidth = 656
|
||||
inherited TBXToolbar1: TTBXToolbar
|
||||
Width = 646
|
||||
ExplicitWidth = 646
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited dxComponentPrinter: TdxComponentPrinter
|
||||
inherited dxComponentPrinterLink: TdxGridReportLink
|
||||
BuiltInReportLink = True
|
||||
end
|
||||
end
|
||||
inherited cxViewGridPopupMenu: TcxGridPopupMenu
|
||||
PopupMenus = <
|
||||
item
|
||||
GridView = frViewBalances1.cxGridView
|
||||
HitTypes = [gvhtCell]
|
||||
Index = 0
|
||||
end>
|
||||
end
|
||||
inherited dxPrintStyleManager1: TdxPrintStyleManager
|
||||
inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
|
||||
BuiltInStyle = True
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited EditorActionList: TActionList [8]
|
||||
Left = 112
|
||||
Top = 192
|
||||
inherited actDuplicar: TAction
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
inherited dsDataTable: TDADataSource
|
||||
Left = 8
|
||||
Top = 192
|
||||
end
|
||||
inherited JvFormStorage: TJvFormStorage [12]
|
||||
end
|
||||
inherited GridPopupMenu: TPopupMenu
|
||||
Left = 80
|
||||
Top = 192
|
||||
end
|
||||
object EditorSeleccionActionList: TActionList
|
||||
Images = SmallImages
|
||||
Left = 152
|
||||
Top = 192
|
||||
object actBuscar2: TAction
|
||||
Category = 'Buscar'
|
||||
Caption = 'Buscar'
|
||||
ImageIndex = 10
|
||||
ShortCut = 114
|
||||
end
|
||||
object actQuitarFiltro2: TAction
|
||||
Category = 'Buscar'
|
||||
Caption = 'Quitar filtro y ver todo'
|
||||
ImageIndex = 19
|
||||
OnExecute = actQuitarFiltro2Execute
|
||||
end
|
||||
object actAnchoAuto2: TAction
|
||||
Category = 'Ver'
|
||||
Caption = 'Ancho autom'#225'tico'
|
||||
ImageIndex = 21
|
||||
OnExecute = actAnchoAuto2Execute
|
||||
end
|
||||
end
|
||||
end
|
||||
126
Source/Modulos/Contabilidad/Views/uEditorElegirBalances.pas
Normal file
126
Source/Modulos/Contabilidad/Views/uEditorElegirBalances.pas
Normal file
@ -0,0 +1,126 @@
|
||||
unit uEditorElegirBalances;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, DB, uDADataTable, Menus, JvAppStorage, JvAppRegistryStorage,
|
||||
JvComponentBase, JvFormPlacement, ImgList, PngImageList, StdActns,
|
||||
ActnList, uCustomView, uViewBase, uViewGridBase, uViewGrid,
|
||||
ComCtrls, TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar,
|
||||
pngimage, ExtCtrls, JvExControls, JvComponent,
|
||||
JvNavigationPane, uViewBarraSeleccion, JvgWizardHeader, StdCtrls,
|
||||
uBizBalances, uIEditorElegirBalances,
|
||||
JvExComCtrls, JvStatusBar, uEditorBalances, uViewBalances,
|
||||
JSDialog, uDAInterfaces;
|
||||
|
||||
type
|
||||
TfEditorElegirBalances = class(TfEditorBalances, IEditorElegirBalances)
|
||||
frViewBarraSeleccion1: TfrViewBarraSeleccion;
|
||||
JvgWizardHeader1: TJvgWizardHeader;
|
||||
EditorSeleccionActionList: TActionList;
|
||||
actBuscar2: TAction;
|
||||
actQuitarFiltro2: TAction;
|
||||
actAnchoAuto2: TAction;
|
||||
procedure frViewBarraSeleccion1actSeleccionarUpdate(Sender: TObject);
|
||||
procedure frViewBarraSeleccion1actCancelarExecute(Sender: TObject);
|
||||
procedure frViewBarraSeleccion1actSeleccionarExecute(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure actAnchoAuto2Execute(Sender: TObject);
|
||||
procedure actQuitarFiltro2Execute(Sender: TObject);
|
||||
protected
|
||||
procedure SetMultiSelect (AValue : Boolean);
|
||||
function GetMultiSelect : Boolean;
|
||||
function GetBalancesSeleccionados: IBizBalance;
|
||||
procedure SetViewGrid(const Value: IViewGridBase); override;
|
||||
procedure SetMensaje (const AValue: String);
|
||||
function GetMensaje: String;
|
||||
public
|
||||
property Mensaje : String read GetMensaje write SetMensaje;
|
||||
property BalancesSeleccionados: IBizBalance read GetBalancesSeleccionados;
|
||||
property MultiSelect : Boolean read GetMultiSelect write SetMultiSelect;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
uEditorGridBase, cxGridCustomTableView, uIntegerListUtils, uDBSelectionListUtils,
|
||||
uGridUtils, uEditorBase, uBalancesController;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
{ TfEditorElegirBalances }
|
||||
|
||||
procedure TfEditorElegirBalances.actAnchoAuto2Execute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
actAnchoAuto.Execute;
|
||||
end;
|
||||
|
||||
procedure TfEditorElegirBalances.actQuitarFiltro2Execute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
actQuitarFiltro.Execute;
|
||||
end;
|
||||
|
||||
procedure TfEditorElegirBalances.FormShow(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
EditorActionList.State := asSuspended;
|
||||
end;
|
||||
|
||||
procedure TfEditorElegirBalances.frViewBarraSeleccion1actCancelarExecute(
|
||||
Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfEditorElegirBalances.frViewBarraSeleccion1actSeleccionarExecute(
|
||||
Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
ModalResult := mrOk;
|
||||
end;
|
||||
|
||||
procedure TfEditorElegirBalances.frViewBarraSeleccion1actSeleccionarUpdate(
|
||||
Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(Sender as TAction).Enabled := (ViewGrid._FocusedView.Controller.SelectedRowCount > 0)
|
||||
end;
|
||||
|
||||
function TfEditorElegirBalances.GetBalancesSeleccionados: IBizBalance;
|
||||
begin
|
||||
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Balances as ISeleccionable).SelectedRecords);
|
||||
// En SelectedRecords tengo los ID de las filas seleccionadas del grid
|
||||
Result := (Controller as IBalancesController).ExtraerSeleccionados(Balances) as IBizBalance;
|
||||
end;
|
||||
|
||||
function TfEditorElegirBalances.GetMensaje: String;
|
||||
begin
|
||||
Result := JvgWizardHeader1.Comments.Text;
|
||||
end;
|
||||
|
||||
function TfEditorElegirBalances.GetMultiSelect: Boolean;
|
||||
begin
|
||||
Result := ViewGrid.MultiSelect;
|
||||
end;
|
||||
|
||||
procedure TfEditorElegirBalances.SetMensaje(const AValue: String);
|
||||
begin
|
||||
JvgWizardHeader1.Comments.Text := AValue;
|
||||
end;
|
||||
|
||||
procedure TfEditorElegirBalances.SetMultiSelect(AValue: Boolean);
|
||||
begin
|
||||
ViewGrid.MultiSelect := AValue;
|
||||
end;
|
||||
|
||||
procedure TfEditorElegirBalances.SetViewGrid(const Value: IViewGridBase);
|
||||
begin
|
||||
inherited;
|
||||
ViewGrid.OnDblClick := frViewBarraSeleccion1.actSeleccionar.OnExecute;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -0,0 +1,257 @@
|
||||
inherited fEditorElegirCuentasEspeciales: TfEditorElegirCuentasEspeciales
|
||||
Caption = 'Seleccionar pedido de cliente'
|
||||
ClientWidth = 656
|
||||
ExplicitWidth = 664
|
||||
ExplicitHeight = 240
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object JvgWizardHeader1: TJvgWizardHeader [0]
|
||||
Left = 0
|
||||
Top = 27
|
||||
Width = 656
|
||||
Height = 60
|
||||
CaptionFont.Charset = DEFAULT_CHARSET
|
||||
CaptionFont.Color = clWindowText
|
||||
CaptionFont.Height = -11
|
||||
CaptionFont.Name = 'Tahoma'
|
||||
CaptionFont.Style = [fsBold]
|
||||
CommentFont.Charset = DEFAULT_CHARSET
|
||||
CommentFont.Color = clWindowText
|
||||
CommentFont.Height = -11
|
||||
CommentFont.Name = 'Tahoma'
|
||||
CommentFont.Style = []
|
||||
SymbolFont.Charset = DEFAULT_CHARSET
|
||||
SymbolFont.Color = clHighlightText
|
||||
SymbolFont.Height = -35
|
||||
SymbolFont.Name = 'Wingdings'
|
||||
SymbolFont.Style = [fsBold]
|
||||
Captions.Strings = (
|
||||
'Seleccione el pedido de proveedor')
|
||||
Comments.Strings = (
|
||||
' ')
|
||||
Gradient.FromColor = clHighlight
|
||||
Gradient.ToColor = clWindow
|
||||
Gradient.Active = False
|
||||
Gradient.Orientation = fgdVertical
|
||||
BufferedDraw = False
|
||||
ExplicitTop = 16
|
||||
end
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 656
|
||||
Caption = 'Lista de pedidos de proveedor'
|
||||
Visible = False
|
||||
ExplicitWidth = 656
|
||||
inherited Image1: TImage
|
||||
Left = 629
|
||||
ExplicitLeft = 629
|
||||
end
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
Top = 87
|
||||
Width = 656
|
||||
ExplicitTop = 87
|
||||
ExplicitWidth = 656
|
||||
inherited tbxMain: TTBXToolbar
|
||||
Align = alRight
|
||||
ExplicitWidth = 126
|
||||
inherited TBXItem2: TTBXItem
|
||||
Visible = False
|
||||
end
|
||||
inherited TBXItem5: TTBXItem
|
||||
Visible = False
|
||||
end
|
||||
inherited TBXItem4: TTBXItem
|
||||
Visible = False
|
||||
end
|
||||
inherited TBXItem6: TTBXItem
|
||||
Visible = False
|
||||
end
|
||||
inherited TBXItem36: TTBXItem
|
||||
Action = actAnchoAuto2
|
||||
end
|
||||
end
|
||||
inherited tbxFiltro: TTBXToolbar
|
||||
Left = 126
|
||||
Top = 23
|
||||
DockPos = 115
|
||||
DockRow = 1
|
||||
ExplicitLeft = 126
|
||||
ExplicitTop = 23
|
||||
inherited TBXItem34: TTBXItem
|
||||
Action = actQuitarFiltro2
|
||||
end
|
||||
end
|
||||
inherited tbxMenu: TTBXToolbar
|
||||
ExplicitWidth = 656
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
Width = 656
|
||||
Visible = False
|
||||
ExplicitWidth = 656
|
||||
end
|
||||
inline frViewBarraSeleccion1: TfrViewBarraSeleccion [4]
|
||||
Left = 0
|
||||
Top = 376
|
||||
Width = 656
|
||||
Height = 49
|
||||
Align = alBottom
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 4
|
||||
ReadOnly = False
|
||||
ExplicitTop = 376
|
||||
ExplicitWidth = 656
|
||||
inherited JvFooter1: TJvFooter
|
||||
Width = 656
|
||||
ExplicitWidth = 656
|
||||
inherited bSeleccionar: TJvFooterBtn
|
||||
Left = 444
|
||||
ExplicitLeft = 444
|
||||
end
|
||||
inherited bCancelar: TJvFooterBtn
|
||||
Left = 548
|
||||
ExplicitLeft = 548
|
||||
end
|
||||
end
|
||||
inherited BarraSeleccionActionList: TActionList
|
||||
inherited actSeleccionar: TAction
|
||||
OnExecute = frViewBarraSeleccion1actSeleccionarExecute
|
||||
OnUpdate = frViewBarraSeleccion1actSeleccionarUpdate
|
||||
end
|
||||
inherited actCancelar: TAction
|
||||
OnExecute = frViewBarraSeleccion1actCancelarExecute
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited frViewCuentasEspeciales1: TfrViewCuentasEspeciales [5]
|
||||
Top = 162
|
||||
Width = 656
|
||||
Height = 214
|
||||
ExplicitTop = 162
|
||||
ExplicitWidth = 656
|
||||
ExplicitHeight = 214
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 656
|
||||
Height = 86
|
||||
ExplicitWidth = 656
|
||||
ExplicitHeight = 86
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
DataController.Summary.DefaultGroupSummaryItems = <
|
||||
item
|
||||
Format = ',0.00 '#8364';-,0.00 '#8364
|
||||
Kind = skSum
|
||||
Position = spFooter
|
||||
end>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Format = '0 pedidos'
|
||||
Kind = skCount
|
||||
end>
|
||||
inherited cxGridViewID: TcxGridDBColumn
|
||||
IsCaptionAssigned = True
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited frViewFiltroBase1: TfrViewFiltroBase
|
||||
Width = 656
|
||||
ExplicitWidth = 656
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
ExplicitWidth = 656
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 656
|
||||
ExplicitWidth = 656
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
Left = 225
|
||||
ExplicitLeft = 225
|
||||
ExplicitWidth = 421
|
||||
Width = 421
|
||||
end
|
||||
end
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
Width = 656
|
||||
ExplicitWidth = 656
|
||||
inherited tbxBotones: TTBXToolbar
|
||||
Width = 646
|
||||
ExplicitWidth = 646
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited pnlAgrupaciones: TTBXDockablePanel
|
||||
Top = 188
|
||||
ExplicitTop = 188
|
||||
ExplicitWidth = 656
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
Width = 656
|
||||
ExplicitWidth = 656
|
||||
inherited TBXToolbar1: TTBXToolbar
|
||||
Width = 646
|
||||
ExplicitWidth = 646
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited dxComponentPrinter: TdxComponentPrinter
|
||||
inherited dxComponentPrinterLink: TdxGridReportLink
|
||||
BuiltInReportLink = True
|
||||
end
|
||||
end
|
||||
inherited cxViewGridPopupMenu: TcxGridPopupMenu
|
||||
PopupMenus = <
|
||||
item
|
||||
GridView = frViewCuentasEspeciales1.cxGridView
|
||||
HitTypes = [gvhtCell]
|
||||
Index = 0
|
||||
end>
|
||||
end
|
||||
inherited dxPrintStyleManager1: TdxPrintStyleManager
|
||||
inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
|
||||
BuiltInStyle = True
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited EditorActionList: TActionList [8]
|
||||
Left = 112
|
||||
Top = 192
|
||||
inherited actDuplicar: TAction
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
inherited dsDataTable: TDADataSource
|
||||
Left = 8
|
||||
Top = 192
|
||||
end
|
||||
inherited JvFormStorage: TJvFormStorage [12]
|
||||
end
|
||||
inherited GridPopupMenu: TPopupMenu
|
||||
Left = 80
|
||||
Top = 192
|
||||
end
|
||||
object EditorSeleccionActionList: TActionList
|
||||
Images = SmallImages
|
||||
Left = 152
|
||||
Top = 192
|
||||
object actBuscar2: TAction
|
||||
Category = 'Buscar'
|
||||
Caption = 'Buscar'
|
||||
ImageIndex = 10
|
||||
ShortCut = 114
|
||||
end
|
||||
object actQuitarFiltro2: TAction
|
||||
Category = 'Buscar'
|
||||
Caption = 'Quitar filtro y ver todo'
|
||||
ImageIndex = 19
|
||||
OnExecute = actQuitarFiltro2Execute
|
||||
end
|
||||
object actAnchoAuto2: TAction
|
||||
Category = 'Ver'
|
||||
Caption = 'Ancho autom'#225'tico'
|
||||
ImageIndex = 21
|
||||
OnExecute = actAnchoAuto2Execute
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -0,0 +1,126 @@
|
||||
unit uEditorElegirCuentasEspeciales;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, DB, uDADataTable, Menus, JvAppStorage, JvAppRegistryStorage,
|
||||
JvComponentBase, JvFormPlacement, ImgList, PngImageList, StdActns,
|
||||
ActnList, uCustomView, uViewBase, uViewGridBase, uViewGrid,
|
||||
ComCtrls, TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar,
|
||||
pngimage, ExtCtrls, JvExControls, JvComponent,
|
||||
JvNavigationPane, uViewBarraSeleccion, JvgWizardHeader, StdCtrls,
|
||||
uBizCuentasEspeciales, uIEditorElegirCuentasEspeciales,
|
||||
JvExComCtrls, JvStatusBar, uEditorCuentasEspeciales, uViewCuentasEspeciales,
|
||||
JSDialog, uDAInterfaces;
|
||||
|
||||
type
|
||||
TfEditorElegirCuentasEspeciales = class(TfEditorCuentasEspeciales, IEditorElegirCuentasEspeciales)
|
||||
frViewBarraSeleccion1: TfrViewBarraSeleccion;
|
||||
JvgWizardHeader1: TJvgWizardHeader;
|
||||
EditorSeleccionActionList: TActionList;
|
||||
actBuscar2: TAction;
|
||||
actQuitarFiltro2: TAction;
|
||||
actAnchoAuto2: TAction;
|
||||
procedure frViewBarraSeleccion1actSeleccionarUpdate(Sender: TObject);
|
||||
procedure frViewBarraSeleccion1actCancelarExecute(Sender: TObject);
|
||||
procedure frViewBarraSeleccion1actSeleccionarExecute(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure actAnchoAuto2Execute(Sender: TObject);
|
||||
procedure actQuitarFiltro2Execute(Sender: TObject);
|
||||
protected
|
||||
procedure SetMultiSelect (AValue : Boolean);
|
||||
function GetMultiSelect : Boolean;
|
||||
function GetCuentasEspecialesSeleccionados: IBizCuentaEspecial;
|
||||
procedure SetViewGrid(const Value: IViewGridBase); override;
|
||||
procedure SetMensaje (const AValue: String);
|
||||
function GetMensaje: String;
|
||||
public
|
||||
property Mensaje : String read GetMensaje write SetMensaje;
|
||||
property CuentasEspecialesSeleccionados: IBizCuentaEspecial read GetCuentasEspecialesSeleccionados;
|
||||
property MultiSelect : Boolean read GetMultiSelect write SetMultiSelect;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
uEditorGridBase, cxGridCustomTableView, uIntegerListUtils, uDBSelectionListUtils,
|
||||
uGridUtils, uEditorBase, uCuentasEspecialesController;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
{ TfEditorElegirCuentasEspeciales }
|
||||
|
||||
procedure TfEditorElegirCuentasEspeciales.actAnchoAuto2Execute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
actAnchoAuto.Execute;
|
||||
end;
|
||||
|
||||
procedure TfEditorElegirCuentasEspeciales.actQuitarFiltro2Execute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
actQuitarFiltro.Execute;
|
||||
end;
|
||||
|
||||
procedure TfEditorElegirCuentasEspeciales.FormShow(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
EditorActionList.State := asSuspended;
|
||||
end;
|
||||
|
||||
procedure TfEditorElegirCuentasEspeciales.frViewBarraSeleccion1actCancelarExecute(
|
||||
Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfEditorElegirCuentasEspeciales.frViewBarraSeleccion1actSeleccionarExecute(
|
||||
Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
ModalResult := mrOk;
|
||||
end;
|
||||
|
||||
procedure TfEditorElegirCuentasEspeciales.frViewBarraSeleccion1actSeleccionarUpdate(
|
||||
Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(Sender as TAction).Enabled := (ViewGrid._FocusedView.Controller.SelectedRowCount > 0)
|
||||
end;
|
||||
|
||||
function TfEditorElegirCuentasEspeciales.GetCuentasEspecialesSeleccionados: IBizCuentaEspecial;
|
||||
begin
|
||||
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (CuentasEspeciales as ISeleccionable).SelectedRecords);
|
||||
// En SelectedRecords tengo los ID de las filas seleccionadas del grid
|
||||
Result := (Controller as ICuentasEspecialesController).ExtraerSeleccionados(CuentasEspeciales) as IBizCuentaEspecial;
|
||||
end;
|
||||
|
||||
function TfEditorElegirCuentasEspeciales.GetMensaje: String;
|
||||
begin
|
||||
Result := JvgWizardHeader1.Comments.Text;
|
||||
end;
|
||||
|
||||
function TfEditorElegirCuentasEspeciales.GetMultiSelect: Boolean;
|
||||
begin
|
||||
Result := ViewGrid.MultiSelect;
|
||||
end;
|
||||
|
||||
procedure TfEditorElegirCuentasEspeciales.SetMensaje(const AValue: String);
|
||||
begin
|
||||
JvgWizardHeader1.Comments.Text := AValue;
|
||||
end;
|
||||
|
||||
procedure TfEditorElegirCuentasEspeciales.SetMultiSelect(AValue: Boolean);
|
||||
begin
|
||||
ViewGrid.MultiSelect := AValue;
|
||||
end;
|
||||
|
||||
procedure TfEditorElegirCuentasEspeciales.SetViewGrid(const Value: IViewGridBase);
|
||||
begin
|
||||
inherited;
|
||||
ViewGrid.OnDblClick := frViewBarraSeleccion1.actSeleccionar.OnExecute;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -165,8 +165,8 @@ inherited fEditorElegirEpigrafes: TfEditorElegirEpigrafes
|
||||
Width = 656
|
||||
ExplicitWidth = 656
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
Left = 294
|
||||
ExplicitLeft = 294
|
||||
Left = 290
|
||||
ExplicitLeft = 290
|
||||
ExplicitWidth = 421
|
||||
Width = 421
|
||||
end
|
||||
|
||||
@ -94,7 +94,7 @@ function TfEditorElegirEpigrafes.GetEpigrafesSeleccionados: IBizEpigrafe;
|
||||
begin
|
||||
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Epigrafes as ISeleccionable).SelectedRecords);
|
||||
// En SelectedRecords tengo los ID de las filas seleccionadas del grid
|
||||
// Result := (Controller as IEpigrafesController).ExtraerSeleccionados(Epigrafes) as IBizEpigrafe;
|
||||
Result := (Controller as IEpigrafesController).ExtraerSeleccionados(Epigrafes) as IBizEpigrafe;
|
||||
end;
|
||||
|
||||
function TfEditorElegirEpigrafes.GetMensaje: String;
|
||||
|
||||
@ -122,6 +122,8 @@ end;
|
||||
procedure TfEditorEpigrafe.SetController(const Value: IEpigrafesController);
|
||||
begin
|
||||
FController := Value;
|
||||
if Assigned(ViewEpigrafe) then
|
||||
ViewEpigrafe.Controller := FController;
|
||||
end;
|
||||
|
||||
procedure TfEditorEpigrafe.SetViewEpigrafe(const Value: IViewEpigrafe);
|
||||
|
||||
117
Source/Modulos/Contabilidad/Views/uViewBalances.dfm
Normal file
117
Source/Modulos/Contabilidad/Views/uViewBalances.dfm
Normal file
@ -0,0 +1,117 @@
|
||||
inherited frViewBalances: TfrViewBalances
|
||||
inherited cxGrid: TcxGrid
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
DataController.KeyFieldNames = 'ID'
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Format = '0 ejercicios'
|
||||
Kind = skCount
|
||||
Column = cxGridViewNATURALEZA
|
||||
end>
|
||||
OptionsBehavior.PullFocusing = True
|
||||
object cxGridViewID: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'ID'
|
||||
OnCustomDrawCell = cxGridViewIDCustomDrawCell
|
||||
BestFitMaxWidth = 22
|
||||
MinWidth = 22
|
||||
Options.HorzSizing = False
|
||||
Width = 22
|
||||
IsCaptionAssigned = True
|
||||
end
|
||||
object cxGridViewREF_BALANCE: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'REF_BALANCE'
|
||||
Visible = False
|
||||
end
|
||||
object cxGridViewNATURALEZA: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'NATURALEZA'
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
SortIndex = 0
|
||||
SortOrder = soAscending
|
||||
Width = 304
|
||||
end
|
||||
object cxGridViewNIVEL1: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'NIVEL1'
|
||||
end
|
||||
object cxGridViewDESCRIPCION1: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'DESCRIPCION1'
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Width = 118
|
||||
end
|
||||
object cxGridViewNIVEL2: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'NIVEL2'
|
||||
end
|
||||
object cxGridViewDESCRIPCION2: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'DESCRIPCION2'
|
||||
end
|
||||
object cxGridViewNIVEL3: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'NIVEL3'
|
||||
end
|
||||
object cxGridViewDESCRIPCION3: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'DESCRIPCION3'
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited frViewFiltroBase1: TfrViewFiltroBase
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
inherited txtFiltroTodo: TcxTextEdit
|
||||
ExplicitWidth = 273
|
||||
Width = 273
|
||||
end
|
||||
inherited edtFechaIniFiltro: TcxDateEdit
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
end
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited pnlAgrupaciones: TTBXDockablePanel
|
||||
ExplicitWidth = 554
|
||||
end
|
||||
inherited dxComponentPrinter: TdxComponentPrinter
|
||||
inherited dxComponentPrinterLink: TdxGridReportLink
|
||||
ReportDocument.CreationDate = 38673.842406053240000000
|
||||
BuiltInReportLink = True
|
||||
end
|
||||
end
|
||||
inherited dxPrintStyleManager1: TdxPrintStyleManager
|
||||
inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
|
||||
BuiltInStyle = True
|
||||
end
|
||||
end
|
||||
object PngImageList: TPngImageList
|
||||
PngImages = <
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||
610000000970485973000017120000171201679FD2520000022E4944415478DA
|
||||
8D93CF6BD36018C7BF6997A45DD376EA70CA18D31D44981741280C44119DA83D
|
||||
C87619781A1EFD1BC49B2028B28353141111A43BE8CD934E65A8D4A1686B61B5
|
||||
A31DD8CCBAFEDAACEDF226B389EFFB26CBCC54E6030FEFCB4B3E9FE79B9744B0
|
||||
2C0B8220E0F7BA3AB2D75A282DE07F4AD82C60F0851B8F50530BF85EF98A6236
|
||||
8DCCAB69B0B366BD8C95B24ACF4BB877FD226AFD635EC13A5CF99243A356869A
|
||||
4D51F8398799EC476D09E5621E0F6F5EC6C8D938EE7C503604EB7055CDA34127
|
||||
A8B90C3ECD3CE570A35AA2FD0DCB4B2AEE4F5CC29953C35094102667655B706D
|
||||
7480C3F97412AD951AAAC502E6DEBCE47031974673B942BB8AA9DB57103F7D12
|
||||
9D9D413ED4154C8C0BD6FCE7AD2F6C2816C3CE9E6E8862077C3E9F57307CE2FC
|
||||
1F80655A308C35E844C7B3273318D8D78FE8B6282449A41211B7DE05FE2D304D
|
||||
13866EC34433F0FAC55BF4EDE945A42B0C910A6459C6DD94F27781D936F964B2
|
||||
AADB02DAEF9329ECEEED4138A240944548B2840773DBBD02B637596C6238205D
|
||||
352AD175643E66B1A3BB0B0A15489204292061AAB0CB2B68D3C96B34367120BE
|
||||
3AB2F96C01E1A8825028083920F35778BCD8B721387E6C9C42060788465C50A3
|
||||
12B24AB0582C2110946907282C61BA3588442221B882C343E75C50A30093B104
|
||||
84D849EAD53AFC1D7E0ECFFA631C76FF0526387470D4135977405B62A0D56CB2
|
||||
C791891C71618FE0C0FEB873618623B2E33361FB679B4A340A1FF5C01E41928C
|
||||
6DF9256E8659FD02D3B7960923D6946A0000000049454E44AE426082}
|
||||
Name = 'PngImage0'
|
||||
Background = clWindow
|
||||
end>
|
||||
Left = 160
|
||||
Top = 32
|
||||
Bitmap = {}
|
||||
end
|
||||
end
|
||||
82
Source/Modulos/Contabilidad/Views/uViewBalances.pas
Normal file
82
Source/Modulos/Contabilidad/Views/uViewBalances.pas
Normal file
@ -0,0 +1,82 @@
|
||||
unit uViewBalances;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, uViewGrid, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
|
||||
cxDataStorage, cxEdit, DB, cxDBData, uDADataTable, cxGridLevel,
|
||||
cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView,
|
||||
cxGridTableView, cxGridDBTableView, cxGrid, uBizBalances, ActnList, Menus,
|
||||
cxGridBandedTableView, cxGridDBBandedTableView, JvComponent,
|
||||
JvFormAutoSize, PngImageList, ImgList, dxPSGlbl, dxPSUtl, dxPSEngn,
|
||||
dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
|
||||
dxPSEdgePatterns, cxIntlPrintSys3, dxPSCore, dxPScxCommon, dxPScxGridLnk,
|
||||
cxGridCustomPopupMenu, cxGridPopupMenu, uViewFiltroBase, TB2Item, TBX,
|
||||
TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces, cxCalendar,
|
||||
cxImageComboBox, cxTextEdit;
|
||||
|
||||
type
|
||||
IViewBalances = interface(IViewGrid)
|
||||
['{E1960F7E-97F6-4BF6-82AA-82E60C220B33}']
|
||||
function GetBalances: IBizBalance;
|
||||
procedure SetBalances(const Value: IBizBalance);
|
||||
property Balances: IBizBalance read GetBalances write SetBalances;
|
||||
end;
|
||||
|
||||
TfrViewBalances = class(TfrViewGrid, IViewBalances)
|
||||
cxGridViewDESCRIPCION1: TcxGridDBColumn;
|
||||
cxGridViewNATURALEZA: TcxGridDBColumn;
|
||||
cxGridViewID: TcxGridDBColumn;
|
||||
PngImageList: TPngImageList;
|
||||
cxGridViewREF_BALANCE: TcxGridDBColumn;
|
||||
cxGridViewNIVEL1: TcxGridDBColumn;
|
||||
cxGridViewNIVEL2: TcxGridDBColumn;
|
||||
cxGridViewDESCRIPCION2: TcxGridDBColumn;
|
||||
cxGridViewNIVEL3: TcxGridDBColumn;
|
||||
cxGridViewDESCRIPCION3: TcxGridDBColumn;
|
||||
procedure cxGridViewIDCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
|
||||
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||||
protected
|
||||
FBalances: IBizBalance;
|
||||
function GetBalances: IBizBalance; virtual;
|
||||
procedure SetBalances(const Value: IBizBalance); virtual;
|
||||
public
|
||||
property Balances: IBizBalance read GetBalances write SetBalances;
|
||||
end;
|
||||
|
||||
implementation
|
||||
{$R *.dfm}
|
||||
|
||||
{ TfrViewBalances }
|
||||
|
||||
{
|
||||
******************************* TfrViewBalances *******************************
|
||||
}
|
||||
function TfrViewBalances.GetBalances: IBizBalance;
|
||||
begin
|
||||
Result := FBalances;
|
||||
end;
|
||||
|
||||
procedure TfrViewBalances.SetBalances(const Value: IBizBalance);
|
||||
begin
|
||||
FBalances := Value;
|
||||
if Assigned(FBalances) then
|
||||
dsDataSource.DataTable := FBalances.DataTable;
|
||||
end;
|
||||
|
||||
|
||||
procedure TfrViewBalances.cxGridViewIDCustomDrawCell(
|
||||
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
|
||||
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||||
var
|
||||
R : TRect;
|
||||
begin
|
||||
inherited;
|
||||
R := AViewInfo.ContentBounds;
|
||||
ACanvas.FillRect(R);
|
||||
ACanvas.DrawImage(PngImageList, R.Left, R.Top, 0);
|
||||
ADone := True;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -73,7 +73,7 @@ inherited frViewCuenta: TfrViewCuenta
|
||||
end
|
||||
object eBalance: TcxDBTextEdit
|
||||
Left = 107
|
||||
Top = 140
|
||||
Top = 144
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'BALANCE'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -86,7 +86,7 @@ inherited frViewCuenta: TfrViewCuenta
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 5
|
||||
TabOrder = 6
|
||||
Width = 322
|
||||
end
|
||||
object eEpigrafe: TcxDBTextEdit
|
||||
@ -116,6 +116,24 @@ inherited frViewCuenta: TfrViewCuenta
|
||||
Caption = 'Elegir ep'#237'grafe'
|
||||
TabOrder = 1
|
||||
end
|
||||
object BitBtn2: TBitBtn
|
||||
Left = 354
|
||||
Top = 113
|
||||
Width = 75
|
||||
Height = 25
|
||||
Action = actCuentaEspecial
|
||||
Caption = 'Cuenta especial'
|
||||
TabOrder = 5
|
||||
end
|
||||
object BitBtn3: TBitBtn
|
||||
Left = 354
|
||||
Top = 144
|
||||
Width = 75
|
||||
Height = 25
|
||||
Action = actBalance
|
||||
Caption = 'Balance'
|
||||
TabOrder = 7
|
||||
end
|
||||
object dxLayoutControlCuentaGroup_Root: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
@ -154,15 +172,41 @@ inherited frViewCuenta: TfrViewCuenta
|
||||
Control = eDescripcion
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControlCuentaItem2: TdxLayoutItem
|
||||
Caption = 'Cuenta especial:'
|
||||
Control = eCuentaEspecial
|
||||
ControlOptions.ShowBorder = False
|
||||
object dxLayoutControlCuentaGroup3: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
LayoutDirection = ldHorizontal
|
||||
ShowBorder = False
|
||||
object dxLayoutControlCuentaItem2: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
Caption = 'Cuenta especial:'
|
||||
Control = eCuentaEspecial
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControlCuentaItem7: TdxLayoutItem
|
||||
ShowCaption = False
|
||||
Control = BitBtn2
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
object dxLayoutControlCuentaItem4: TdxLayoutItem
|
||||
Caption = 'Balance:'
|
||||
Control = eBalance
|
||||
ControlOptions.ShowBorder = False
|
||||
object dxLayoutControlCuentaGroup4: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
LayoutDirection = ldHorizontal
|
||||
ShowBorder = False
|
||||
object dxLayoutControlCuentaItem4: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
Caption = 'Balance:'
|
||||
Control = eBalance
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControlCuentaItem8: TdxLayoutItem
|
||||
ShowCaption = False
|
||||
Control = BitBtn3
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -178,6 +222,14 @@ inherited frViewCuenta: TfrViewCuenta
|
||||
Caption = 'Elegir ep'#237'grafe'
|
||||
OnExecute = actElegirEpigrafeExecute
|
||||
end
|
||||
object actBalance: TAction
|
||||
Caption = 'Balance'
|
||||
OnExecute = actBalanceExecute
|
||||
end
|
||||
object actCuentaEspecial: TAction
|
||||
Caption = 'Cuenta especial'
|
||||
OnExecute = actCuentaEspecialExecute
|
||||
end
|
||||
end
|
||||
object LargeImages: TPngImageList
|
||||
Height = 24
|
||||
|
||||
@ -5,7 +5,7 @@ interface
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, uViewBase, ExtCtrls, StdCtrls, Buttons, DB, uDADataTable,
|
||||
DBCtrls, Grids, DBGrids, uBizCuentas, Mask, ComCtrls, uCustomView,
|
||||
DBCtrls, Grids, DBGrids, uBizCuentas, uCuentasController, Mask, ComCtrls, uCustomView,
|
||||
JvComponent, JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit,
|
||||
cxDBEdit, dxLayoutControl, uDAInterfaces, cxGraphics, cxDropDownEdit,
|
||||
cxImageComboBox, cxMaskEdit, cxCalendar, ActnList, ImgList, PngImageList;
|
||||
@ -13,6 +13,10 @@ uses
|
||||
type
|
||||
IViewCuenta = interface(IViewBase)
|
||||
['{F44F8AEF-CB9C-44D5-93DA-53D6AB6A2D29}']
|
||||
function GetController : ICuentasController;
|
||||
procedure SetController (const Value : ICuentasController);
|
||||
property Controller : ICuentasController read GetController write SetController;
|
||||
|
||||
function GetCuenta: IBizCuenta;
|
||||
procedure SetCuenta(const Value: IBizCuenta);
|
||||
property Cuenta: IBizCuenta read GetCuenta write SetCuenta;
|
||||
@ -38,28 +42,62 @@ type
|
||||
BitBtn1: TBitBtn;
|
||||
dxLayoutControlCuentaItem6: TdxLayoutItem;
|
||||
dxLayoutControlCuentaGroup2: TdxLayoutGroup;
|
||||
dxLayoutControlCuentaItem7: TdxLayoutItem;
|
||||
BitBtn2: TBitBtn;
|
||||
dxLayoutControlCuentaGroup3: TdxLayoutGroup;
|
||||
dxLayoutControlCuentaItem8: TdxLayoutItem;
|
||||
BitBtn3: TBitBtn;
|
||||
dxLayoutControlCuentaGroup4: TdxLayoutGroup;
|
||||
actBalance: TAction;
|
||||
actCuentaEspecial: TAction;
|
||||
procedure actElegirEpigrafeExecute(Sender: TObject);
|
||||
procedure actBalanceExecute(Sender: TObject);
|
||||
procedure actCuentaEspecialExecute(Sender: TObject);
|
||||
protected
|
||||
FCuenta: IBizCuenta;
|
||||
FController : ICuentasController;
|
||||
function GetCuenta: IBizCuenta;
|
||||
procedure SetCuenta(const Value: IBizCuenta);
|
||||
function GetController : ICuentasController;
|
||||
procedure SetController (const Value : ICuentasController);
|
||||
|
||||
public
|
||||
property Controller : ICuentasController read GetController write SetController;
|
||||
property Cuenta: IBizCuenta read GetCuenta write SetCuenta;
|
||||
end;
|
||||
|
||||
implementation
|
||||
{$R *.dfm}
|
||||
|
||||
uses uBizEpigrafes;
|
||||
|
||||
{ TfrViewCuenta }
|
||||
|
||||
{
|
||||
******************************* TfrViewCuenta ********************************
|
||||
}
|
||||
|
||||
procedure TfrViewCuenta.actBalanceExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
Controller.ElegirBalance(Cuenta);
|
||||
end;
|
||||
|
||||
procedure TfrViewCuenta.actCuentaEspecialExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
Controller.ElegirCuentaEspecial(Cuenta);
|
||||
end;
|
||||
|
||||
procedure TfrViewCuenta.actElegirEpigrafeExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
//Seleccion de epigrafe
|
||||
Controller.ElegirEpigrafe(Cuenta);
|
||||
end;
|
||||
|
||||
function TfrViewCuenta.GetController: ICuentasController;
|
||||
begin
|
||||
Result := FController;
|
||||
end;
|
||||
|
||||
function TfrViewCuenta.GetCuenta: IBizCuenta;
|
||||
@ -67,6 +105,11 @@ begin
|
||||
Result := FCuenta;
|
||||
end;
|
||||
|
||||
procedure TfrViewCuenta.SetController(const Value: ICuentasController);
|
||||
begin
|
||||
FController := Value;
|
||||
end;
|
||||
|
||||
procedure TfrViewCuenta.SetCuenta(const Value: IBizCuenta);
|
||||
begin
|
||||
FCuenta := Value;
|
||||
|
||||
97
Source/Modulos/Contabilidad/Views/uViewCuentasEspeciales.dfm
Normal file
97
Source/Modulos/Contabilidad/Views/uViewCuentasEspeciales.dfm
Normal file
@ -0,0 +1,97 @@
|
||||
inherited frViewCuentasEspeciales: TfrViewCuentasEspeciales
|
||||
inherited cxGrid: TcxGrid
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
DataController.KeyFieldNames = 'ID'
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Format = '0 ejercicios'
|
||||
Kind = skCount
|
||||
Column = cxGridViewDESCRIPCION
|
||||
end>
|
||||
OptionsBehavior.PullFocusing = True
|
||||
object cxGridViewID: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'ID'
|
||||
OnCustomDrawCell = cxGridViewIDCustomDrawCell
|
||||
BestFitMaxWidth = 22
|
||||
MinWidth = 22
|
||||
Options.HorzSizing = False
|
||||
Width = 22
|
||||
IsCaptionAssigned = True
|
||||
end
|
||||
object cxGridViewREFERENCIA: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'REFERENCIA'
|
||||
Visible = False
|
||||
end
|
||||
object cxGridViewDESCRIPCION: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'DESCRIPCION'
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
SortIndex = 0
|
||||
SortOrder = soAscending
|
||||
Width = 304
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited frViewFiltroBase1: TfrViewFiltroBase
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
inherited txtFiltroTodo: TcxTextEdit
|
||||
ExplicitWidth = 273
|
||||
Width = 273
|
||||
end
|
||||
inherited edtFechaIniFiltro: TcxDateEdit
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
end
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited pnlAgrupaciones: TTBXDockablePanel
|
||||
ExplicitWidth = 554
|
||||
end
|
||||
inherited dxComponentPrinter: TdxComponentPrinter
|
||||
inherited dxComponentPrinterLink: TdxGridReportLink
|
||||
ReportDocument.CreationDate = 38673.842406053240000000
|
||||
BuiltInReportLink = True
|
||||
end
|
||||
end
|
||||
inherited dxPrintStyleManager1: TdxPrintStyleManager
|
||||
inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
|
||||
BuiltInStyle = True
|
||||
end
|
||||
end
|
||||
object PngImageList: TPngImageList
|
||||
PngImages = <
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||
610000000970485973000017120000171201679FD2520000022E4944415478DA
|
||||
8D93CF6BD36018C7BF6997A45DD376EA70CA18D31D44981741280C44119DA83D
|
||||
C87619781A1EFD1BC49B2028B28353141111A43BE8CD934E65A8D4A1686B61B5
|
||||
A31DD8CCBAFEDAACEDF226B389EFFB26CBCC54E6030FEFCB4B3E9FE79B9744B0
|
||||
2C0B8220E0F7BA3AB2D75A282DE07F4AD82C60F0851B8F50530BF85EF98A6236
|
||||
8DCCAB69B0B366BD8C95B24ACF4BB877FD226AFD635EC13A5CF99243A356869A
|
||||
4D51F8398799EC476D09E5621E0F6F5EC6C8D938EE7C503604EB7055CDA34127
|
||||
A8B90C3ECD3CE570A35AA2FD0DCB4B2AEE4F5CC29953C35094102667655B706D
|
||||
7480C3F97412AD951AAAC502E6DEBCE47031974673B942BB8AA9DB57103F7D12
|
||||
9D9D413ED4154C8C0BD6FCE7AD2F6C2816C3CE9E6E8862077C3E9F57307CE2FC
|
||||
1F80655A308C35E844C7B3273318D8D78FE8B6282449A41211B7DE05FE2D304D
|
||||
13866EC34433F0FAC55BF4EDE945A42B0C910A6459C6DD94F27781D936F964B2
|
||||
AADB02DAEF9329ECEEED4138A240944548B2840773DBBD02B637596C6238205D
|
||||
352AD175643E66B1A3BB0B0A15489204292061AAB0CB2B68D3C96B34367120BE
|
||||
3AB2F96C01E1A8825028083920F35778BCD8B721387E6C9C42060788465C50A3
|
||||
12B24AB0582C2110946907282C61BA3588442221B882C343E75C50A30093B104
|
||||
84D849EAD53AFC1D7E0ECFFA631C76FF0526387470D4135977405B62A0D56CB2
|
||||
C791891C71618FE0C0FEB873618623B2E33361FB679B4A340A1FF5C01E41928C
|
||||
6DF9256E8659FD02D3B7960923D6946A0000000049454E44AE426082}
|
||||
Name = 'PngImage0'
|
||||
Background = clWindow
|
||||
end>
|
||||
Left = 160
|
||||
Top = 32
|
||||
Bitmap = {}
|
||||
end
|
||||
end
|
||||
76
Source/Modulos/Contabilidad/Views/uViewCuentasEspeciales.pas
Normal file
76
Source/Modulos/Contabilidad/Views/uViewCuentasEspeciales.pas
Normal file
@ -0,0 +1,76 @@
|
||||
unit uViewCuentasEspeciales;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, uViewGrid, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
|
||||
cxDataStorage, cxEdit, DB, cxDBData, uDADataTable, cxGridLevel,
|
||||
cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView,
|
||||
cxGridTableView, cxGridDBTableView, cxGrid, uBizCuentasEspeciales, ActnList, Menus,
|
||||
cxGridBandedTableView, cxGridDBBandedTableView, JvComponent,
|
||||
JvFormAutoSize, PngImageList, ImgList, dxPSGlbl, dxPSUtl, dxPSEngn,
|
||||
dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
|
||||
dxPSEdgePatterns, cxIntlPrintSys3, dxPSCore, dxPScxCommon, dxPScxGridLnk,
|
||||
cxGridCustomPopupMenu, cxGridPopupMenu, uViewFiltroBase, TB2Item, TBX,
|
||||
TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces, cxCalendar,
|
||||
cxImageComboBox, cxTextEdit;
|
||||
|
||||
type
|
||||
IViewCuentasEspeciales = interface(IViewGrid)
|
||||
['{E1960F7E-97F6-4BF6-82AA-82E60C220B33}']
|
||||
function GetCuentasEspeciales: IBizCuentaEspecial;
|
||||
procedure SetCuentasEspeciales(const Value: IBizCuentaEspecial);
|
||||
property CuentasEspeciales: IBizCuentaEspecial read GetCuentasEspeciales write SetCuentasEspeciales;
|
||||
end;
|
||||
|
||||
TfrViewCuentasEspeciales = class(TfrViewGrid, IViewCuentasEspeciales)
|
||||
cxGridViewDESCRIPCION: TcxGridDBColumn;
|
||||
cxGridViewID: TcxGridDBColumn;
|
||||
PngImageList: TPngImageList;
|
||||
cxGridViewREFERENCIA: TcxGridDBColumn;
|
||||
procedure cxGridViewIDCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
|
||||
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||||
protected
|
||||
FCuentasEspeciales: IBizCuentaEspecial;
|
||||
function GetCuentasEspeciales: IBizCuentaEspecial; virtual;
|
||||
procedure SetCuentasEspeciales(const Value: IBizCuentaEspecial); virtual;
|
||||
public
|
||||
property CuentasEspeciales: IBizCuentaEspecial read GetCuentasEspeciales write SetCuentasEspeciales;
|
||||
end;
|
||||
|
||||
implementation
|
||||
{$R *.dfm}
|
||||
|
||||
{ TfrViewCuentasEspeciales }
|
||||
|
||||
{
|
||||
******************************* TfrViewCuentasEspeciales *******************************
|
||||
}
|
||||
function TfrViewCuentasEspeciales.GetCuentasEspeciales: IBizCuentaEspecial;
|
||||
begin
|
||||
Result := FCuentasEspeciales;
|
||||
end;
|
||||
|
||||
procedure TfrViewCuentasEspeciales.SetCuentasEspeciales(const Value: IBizCuentaEspecial);
|
||||
begin
|
||||
FCuentasEspeciales := Value;
|
||||
if Assigned(FCuentasEspeciales) then
|
||||
dsDataSource.DataTable := FCuentasEspeciales.DataTable;
|
||||
end;
|
||||
|
||||
|
||||
procedure TfrViewCuentasEspeciales.cxGridViewIDCustomDrawCell(
|
||||
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
|
||||
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||||
var
|
||||
R : TRect;
|
||||
begin
|
||||
inherited;
|
||||
R := AViewInfo.ContentBounds;
|
||||
ACanvas.FillRect(R);
|
||||
ACanvas.DrawImage(PngImageList, R.Left, R.Top, 0);
|
||||
ADone := True;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -76,6 +76,7 @@ inherited frViewEpigrafe: TfrViewEpigrafe
|
||||
Top = 28
|
||||
Width = 75
|
||||
Height = 25
|
||||
Action = actElegirEpigrafe
|
||||
Caption = 'Elegir ep'#237'grafe'
|
||||
TabOrder = 1
|
||||
end
|
||||
|
||||
@ -5,7 +5,7 @@ interface
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, uViewBase, ExtCtrls, StdCtrls, Buttons, DB, uDADataTable,
|
||||
DBCtrls, Grids, DBGrids, uBizEpigrafes, Mask, ComCtrls, uCustomView,
|
||||
DBCtrls, Grids, DBGrids, uBizEpigrafes, uEpigrafesController, Mask, ComCtrls, uCustomView,
|
||||
JvComponent, JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit,
|
||||
cxDBEdit, dxLayoutControl, uDAInterfaces, cxGraphics, cxDropDownEdit,
|
||||
cxImageComboBox, cxMaskEdit, cxCalendar, ActnList, ImgList, PngImageList;
|
||||
@ -13,11 +13,15 @@ uses
|
||||
type
|
||||
IViewEpigrafe = interface(IViewBase)
|
||||
['{F44F8AEF-CB9C-44D5-93DA-53D6AB6A2D29}']
|
||||
function GetController : IEpigrafesController;
|
||||
procedure SetController (const Value : IEpigrafesController);
|
||||
property Controller : IEpigrafesController read GetController write SetController;
|
||||
|
||||
function GetEpigrafe: IBizEpigrafe;
|
||||
procedure SetEpigrafe(const Value: IBizEpigrafe);
|
||||
property Epigrafe: IBizEpigrafe read GetEpigrafe write SetEpigrafe;
|
||||
end;
|
||||
|
||||
|
||||
TfrViewEpigrafe = class(TfrViewBase, IViewEpigrafe)
|
||||
DADataSource: TDADataSource;
|
||||
dxLayoutControlEpigrafeGroup_Root: TdxLayoutGroup;
|
||||
@ -37,10 +41,14 @@ type
|
||||
actElegirEpigrafe: TAction;
|
||||
procedure actElegirEpigrafeExecute(Sender: TObject);
|
||||
protected
|
||||
FController : IEpigrafesController;
|
||||
FEpigrafe: IBizEpigrafe;
|
||||
function GetEpigrafe: IBizEpigrafe;
|
||||
procedure SetEpigrafe(const Value: IBizEpigrafe);
|
||||
function GetController : IEpigrafesController;
|
||||
procedure SetController (const Value : IEpigrafesController);
|
||||
public
|
||||
property Controller : IEpigrafesController read GetController write SetController;
|
||||
property Epigrafe: IBizEpigrafe read GetEpigrafe write SetEpigrafe;
|
||||
end;
|
||||
|
||||
@ -54,9 +62,18 @@ implementation
|
||||
}
|
||||
|
||||
procedure TfrViewEpigrafe.actElegirEpigrafeExecute(Sender: TObject);
|
||||
var
|
||||
AEpigrafe : IBizEpigrafe;
|
||||
begin
|
||||
inherited;
|
||||
//
|
||||
AEpigrafe := (Controller.ElegirEpigrafe(Controller.BuscarTodos, 'ddddddd', False) as IBizEpigrafe);
|
||||
Controller.AsignarPadre(Epigrafe, AEpigrafe);
|
||||
AEpigrafe := Nil;
|
||||
end;
|
||||
|
||||
function TfrViewEpigrafe.GetController: IEpigrafesController;
|
||||
begin
|
||||
Result := FController;
|
||||
end;
|
||||
|
||||
function TfrViewEpigrafe.GetEpigrafe: IBizEpigrafe;
|
||||
@ -64,6 +81,11 @@ begin
|
||||
Result := FEpigrafe;
|
||||
end;
|
||||
|
||||
procedure TfrViewEpigrafe.SetController(const Value: IEpigrafesController);
|
||||
begin
|
||||
FController := Value;
|
||||
end;
|
||||
|
||||
procedure TfrViewEpigrafe.SetEpigrafe(const Value: IBizEpigrafe);
|
||||
begin
|
||||
FEpigrafe := Value;
|
||||
|
||||
Binary file not shown.
@ -14,7 +14,7 @@ BEGIN
|
||||
BEGIN
|
||||
VALUE "FileVersion", "1.0.0.0\0"
|
||||
VALUE "ProductVersion", "1.0.0.0\0"
|
||||
VALUE "CompileDate", "miércoles, 05 de diciembre de 2007 18:39\0"
|
||||
VALUE "CompileDate", "jueves, 06 de diciembre de 2007 17:14\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Loading…
Reference in New Issue
Block a user