diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql
index 454cd395..a44b0ecb 100644
--- a/Database/scripts/factuges.sql
+++ b/Database/scripts/factuges.sql
@@ -913,7 +913,8 @@ CREATE TABLE FACTURAS_CLIENTE (
ID_TIENDA TIPO_ID,
FECHA_VENCIMIENTO DATE,
ID_DIRECCION TIPO_ID,
- ID_CONTRATO TIPO_ID
+ ID_CONTRATO TIPO_ID,
+ SIN_COMISION SMALLINT
);
CREATE TABLE FACTURAS_CLIENTE_DETALLES (
@@ -2665,7 +2666,8 @@ CREATE VIEW V_FACTURAS_CLIENTE(
ESTADO_EJERCICIO,
ASIENTO_PUNTEADO,
ID_CONTRATO,
- REF_CONTRATO)
+ REF_CONTRATO,
+ SIN_COMISION)
AS
SELECT FACTURAS_CLIENTE.ID,
FACTURAS_CLIENTE.ID_EMPRESA,
@@ -2713,7 +2715,8 @@ SELECT FACTURAS_CLIENTE.ID,
V_CONT_FAC_CLI_VENTAS.ESTADO_EJERCICIO,
V_CONT_FAC_CLI_VENTAS.ASIENTO_PUNTEADO,
FACTURAS_CLIENTE.ID_CONTRATO,
- CONTRATOS_CLIENTE.REFERENCIA
+ CONTRATOS_CLIENTE.REFERENCIA,
+ FACTURAS_CLIENTE.SIN_COMISION
FROM V_FAC_CLI_SITUACION
LEFT JOIN FACTURAS_CLIENTE
@@ -2728,6 +2731,9 @@ SELECT FACTURAS_CLIENTE.ID,
;
+update facturas_cliente
+set sin_comision = 0;
+
/* Create view: V_FACTURAS_PROVEEDOR*/
CREATE VIEW V_FACTURAS_PROVEEDOR(
ID,
diff --git a/Source/Base/Base.res b/Source/Base/Base.res
index 1641339f..8b251f31 100644
Binary files a/Source/Base/Base.res and b/Source/Base/Base.res differ
diff --git a/Source/GUIBase/GUIBase.dproj b/Source/GUIBase/GUIBase.dproj
index f44e3be7..28783a40 100644
--- a/Source/GUIBase/GUIBase.dproj
+++ b/Source/GUIBase/GUIBase.dproj
@@ -58,34 +58,34 @@
MainSource
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/GUIBase/GUIBase.res b/Source/GUIBase/GUIBase.res
index 8b251f31..1641339f 100644
Binary files a/Source/GUIBase/GUIBase.res and b/Source/GUIBase/GUIBase.res differ
diff --git a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
index 322b49a9..995c5923 100644
--- a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
+++ b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
@@ -396,18 +396,16 @@ begin
try
Result := BuscarTodos;
-{//Desactivamos comisiones por AGENTE
with Result.DataTable.DynamicWhere do
begin
- //Todas las facturas de un agente determinado
- Condicion := NewBinaryExpression(NewField('', fld_FacturasClienteID_AGENTE), NewConstant(IdAgente, datInteger), dboEqual);
+ //Todas las facturas que sean comisionables
+ Condicion := NewBinaryExpression(NewField('', fld_FacturasClienteSIN_COMISION), NewConstant(0, datInteger), dboEqual);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
-}
with Result.DataTable.DynamicWhere do
begin
diff --git a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm
index 30385f5f..bbad960f 100644
--- a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm
+++ b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm
@@ -304,6 +304,10 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
Name = 'REF_CONTRATO'
DataType = datString
Size = 255
+ end
+ item
+ Name = 'SIN_COMISION'
+ DataType = datSmallInt
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
diff --git a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
index 9d9f56d4..10338ca6 100644
--- a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
+++ b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
@@ -9,9 +9,9 @@ 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_ListaAnosFacturas = '{BDB39885-9D0F-4A3E-814C-D2BB2474181C}';
- RID_FacturasCliente = '{A4F7181E-ABF7-495D-822D-A5731C736961}';
- RID_FacturasCliente_Detalles = '{FE5983B1-508C-45E3-A334-50F9C6DFD116}';
+ RID_ListaAnosFacturas = '{B3CC2885-3705-4BC8-B921-2F2557CB66A1}';
+ RID_FacturasCliente = '{DBC2C52D-8B55-4B32-9C3A-EA6B5435576F}';
+ RID_FacturasCliente_Detalles = '{1163C02B-0BE3-41F7-A346-BD6017A0DC4D}';
{ Data table names }
nme_ListaAnosFacturas = 'ListaAnosFacturas';
@@ -72,6 +72,7 @@ const
fld_FacturasClienteASIENTO_PUNTEADO = 'ASIENTO_PUNTEADO';
fld_FacturasClienteID_CONTRATO = 'ID_CONTRATO';
fld_FacturasClienteREF_CONTRATO = 'REF_CONTRATO';
+ fld_FacturasClienteSIN_COMISION = 'SIN_COMISION';
{ FacturasCliente field indexes }
idx_FacturasClienteID = 0;
@@ -121,6 +122,7 @@ const
idx_FacturasClienteASIENTO_PUNTEADO = 44;
idx_FacturasClienteID_CONTRATO = 45;
idx_FacturasClienteREF_CONTRATO = 46;
+ idx_FacturasClienteSIN_COMISION = 47;
{ FacturasCliente_Detalles fields }
fld_FacturasCliente_DetallesID = 'ID';
@@ -157,7 +159,7 @@ const
type
{ IListaAnosFacturas }
IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
- ['{2F9A8276-7FDE-4342-B4DA-361F0102FE8E}']
+ ['{AFDC48B7-CAC8-49CF-9841-0B5D6A4EA22E}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@@ -192,7 +194,7 @@ type
{ IFacturasCliente }
IFacturasCliente = interface(IDAStronglyTypedDataTable)
- ['{D347A94A-101F-4383-BF8B-35BFBB31D148}']
+ ['{384238A5-DA30-44AE-BCFB-6E8FB855EE43}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -381,6 +383,10 @@ type
procedure SetREF_CONTRATOValue(const aValue: String);
function GetREF_CONTRATOIsNull: Boolean;
procedure SetREF_CONTRATOIsNull(const aValue: Boolean);
+ function GetSIN_COMISIONValue: SmallInt;
+ procedure SetSIN_COMISIONValue(const aValue: SmallInt);
+ function GetSIN_COMISIONIsNull: Boolean;
+ procedure SetSIN_COMISIONIsNull(const aValue: Boolean);
{ Properties }
@@ -478,6 +484,8 @@ type
property ID_CONTRATOIsNull: Boolean read GetID_CONTRATOIsNull write SetID_CONTRATOIsNull;
property REF_CONTRATO: String read GetREF_CONTRATOValue write SetREF_CONTRATOValue;
property REF_CONTRATOIsNull: Boolean read GetREF_CONTRATOIsNull write SetREF_CONTRATOIsNull;
+ property SIN_COMISION: SmallInt read GetSIN_COMISIONValue write SetSIN_COMISIONValue;
+ property SIN_COMISIONIsNull: Boolean read GetSIN_COMISIONIsNull write SetSIN_COMISIONIsNull;
end;
{ TFacturasClienteDataTableRules }
@@ -674,6 +682,10 @@ type
procedure SetREF_CONTRATOValue(const aValue: String); virtual;
function GetREF_CONTRATOIsNull: Boolean; virtual;
procedure SetREF_CONTRATOIsNull(const aValue: Boolean); virtual;
+ function GetSIN_COMISIONValue: SmallInt; virtual;
+ procedure SetSIN_COMISIONValue(const aValue: SmallInt); virtual;
+ function GetSIN_COMISIONIsNull: Boolean; virtual;
+ procedure SetSIN_COMISIONIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@@ -770,6 +782,8 @@ type
property ID_CONTRATOIsNull: Boolean read GetID_CONTRATOIsNull write SetID_CONTRATOIsNull;
property REF_CONTRATO: String read GetREF_CONTRATOValue write SetREF_CONTRATOValue;
property REF_CONTRATOIsNull: Boolean read GetREF_CONTRATOIsNull write SetREF_CONTRATOIsNull;
+ property SIN_COMISION: SmallInt read GetSIN_COMISIONValue write SetSIN_COMISIONValue;
+ property SIN_COMISIONIsNull: Boolean read GetSIN_COMISIONIsNull write SetSIN_COMISIONIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@@ -779,7 +793,7 @@ type
{ IFacturasCliente_Detalles }
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
- ['{271EEB03-3BCE-44BE-BA84-C416E4D1C317}']
+ ['{CA479886-F282-4EE6-B576-5E07F6676407}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -2010,6 +2024,27 @@ begin
DataTable.Fields[idx_FacturasClienteREF_CONTRATO].AsVariant := Null;
end;
+function TFacturasClienteDataTableRules.GetSIN_COMISIONValue: SmallInt;
+begin
+ result := DataTable.Fields[idx_FacturasClienteSIN_COMISION].AsSmallInt;
+end;
+
+procedure TFacturasClienteDataTableRules.SetSIN_COMISIONValue(const aValue: SmallInt);
+begin
+ DataTable.Fields[idx_FacturasClienteSIN_COMISION].AsSmallInt := aValue;
+end;
+
+function TFacturasClienteDataTableRules.GetSIN_COMISIONIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasClienteSIN_COMISION].IsNull;
+end;
+
+procedure TFacturasClienteDataTableRules.SetSIN_COMISIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasClienteSIN_COMISION].AsVariant := Null;
+end;
+
{ TFacturasCliente_DetallesDataTableRules }
constructor TFacturasCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);
diff --git a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas
index e9c2b944..9cc9cbae 100644
--- a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas
+++ b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas
@@ -9,14 +9,14 @@ 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_ListaAnosFacturasDelta = '{9A67FA8C-4CB5-4322-9000-40E97CC2695E}';
- RID_FacturasClienteDelta = '{E64B2F64-D71E-4347-ADB5-13CD8A079A2E}';
- RID_FacturasCliente_DetallesDelta = '{FC124307-55CB-47BB-8160-54C85EDE96C9}';
+ RID_ListaAnosFacturasDelta = '{B959365B-CFBF-4C4B-848E-4F97B481B71D}';
+ RID_FacturasClienteDelta = '{D35BA392-FA41-4FA8-BBF8-4BD4F2F994A2}';
+ RID_FacturasCliente_DetallesDelta = '{4BB27398-EDD5-4CA6-9418-0B4FA94D6C68}';
type
{ IListaAnosFacturasDelta }
IListaAnosFacturasDelta = interface(IListaAnosFacturas)
- ['{9A67FA8C-4CB5-4322-9000-40E97CC2695E}']
+ ['{B959365B-CFBF-4C4B-848E-4F97B481B71D}']
{ Property getters and setters }
function GetOldANOValue : String;
@@ -50,7 +50,7 @@ type
{ IFacturasClienteDelta }
IFacturasClienteDelta = interface(IFacturasCliente)
- ['{E64B2F64-D71E-4347-ADB5-13CD8A079A2E}']
+ ['{D35BA392-FA41-4FA8-BBF8-4BD4F2F994A2}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -99,6 +99,7 @@ type
function GetOldASIENTO_PUNTEADOValue : SmallInt;
function GetOldID_CONTRATOValue : Integer;
function GetOldREF_CONTRATOValue : String;
+ function GetOldSIN_COMISIONValue : SmallInt;
{ Properties }
property OldID : Integer read GetOldIDValue;
@@ -148,6 +149,7 @@ type
property OldASIENTO_PUNTEADO : SmallInt read GetOldASIENTO_PUNTEADOValue;
property OldID_CONTRATO : Integer read GetOldID_CONTRATOValue;
property OldREF_CONTRATO : String read GetOldREF_CONTRATOValue;
+ property OldSIN_COMISION : SmallInt read GetOldSIN_COMISIONValue;
end;
{ TFacturasClienteBusinessProcessorRules }
@@ -438,6 +440,12 @@ type
function GetOldREF_CONTRATOIsNull: Boolean; virtual;
procedure SetREF_CONTRATOValue(const aValue: String); virtual;
procedure SetREF_CONTRATOIsNull(const aValue: Boolean); virtual;
+ function GetSIN_COMISIONValue: SmallInt; virtual;
+ function GetSIN_COMISIONIsNull: Boolean; virtual;
+ function GetOldSIN_COMISIONValue: SmallInt; virtual;
+ function GetOldSIN_COMISIONIsNull: Boolean; virtual;
+ procedure SetSIN_COMISIONValue(const aValue: SmallInt); virtual;
+ procedure SetSIN_COMISIONIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@@ -628,6 +636,10 @@ type
property REF_CONTRATOIsNull : Boolean read GetREF_CONTRATOIsNull write SetREF_CONTRATOIsNull;
property OldREF_CONTRATO : String read GetOldREF_CONTRATOValue;
property OldREF_CONTRATOIsNull : Boolean read GetOldREF_CONTRATOIsNull;
+ property SIN_COMISION : SmallInt read GetSIN_COMISIONValue write SetSIN_COMISIONValue;
+ property SIN_COMISIONIsNull : Boolean read GetSIN_COMISIONIsNull write SetSIN_COMISIONIsNull;
+ property OldSIN_COMISION : SmallInt read GetOldSIN_COMISIONValue;
+ property OldSIN_COMISIONIsNull : Boolean read GetOldSIN_COMISIONIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -637,7 +649,7 @@ type
{ IFacturasCliente_DetallesDelta }
IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
- ['{FC124307-55CB-47BB-8160-54C85EDE96C9}']
+ ['{4BB27398-EDD5-4CA6-9418-0B4FA94D6C68}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer;
@@ -2349,6 +2361,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREF_CONTRATO] := Null;
end;
+function TFacturasClienteBusinessProcessorRules.GetSIN_COMISIONValue: SmallInt;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteSIN_COMISION];
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetSIN_COMISIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteSIN_COMISION]);
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetOldSIN_COMISIONValue: SmallInt;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteSIN_COMISION];
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetOldSIN_COMISIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteSIN_COMISION]);
+end;
+
+procedure TFacturasClienteBusinessProcessorRules.SetSIN_COMISIONValue(const aValue: SmallInt);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteSIN_COMISION] := aValue;
+end;
+
+procedure TFacturasClienteBusinessProcessorRules.SetSIN_COMISIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteSIN_COMISION] := Null;
+end;
+
{ TFacturasCliente_DetallesBusinessProcessorRules }
constructor TFacturasCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
diff --git a/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas b/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas
index c57643fa..8c9fb7b4 100644
--- a/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas
+++ b/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas
@@ -255,6 +255,7 @@ begin
FECHA_FACTURA := DateOf(Now);
TIPO := CTE_TIPO_FACTURA;
ID_CLIENTE := ID_NULO;
+ SIN_COMISION := 0;
ID_FORMA_PAGO := AppFactuGES.EmpresaActiva.ID_FORMA_PAGO;
ID_TIPO_IVA := AppFactuGES.EmpresaActiva.ID_TIPO_IVA;
diff --git a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
index a46ece08..25e18b41 100644
--- a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
+++ b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
@@ -235,6 +235,10 @@ object srvFacturasCliente: TsrvFacturasCliente
item
DatasetField = 'REF_CONTRATO'
TableField = 'REF_CONTRATO'
+ end
+ item
+ DatasetField = 'SIN_COMISION'
+ TableField = 'SIN_COMISION'
end>
end>
Name = 'FacturasCliente'
@@ -484,6 +488,10 @@ object srvFacturasCliente: TsrvFacturasCliente
Name = 'REF_CONTRATO'
DataType = datString
Size = 255
+ end
+ item
+ Name = 'SIN_COMISION'
+ DataType = datSmallInt
end>
end
item
@@ -1086,6 +1094,11 @@ object srvFacturasCliente: TsrvFacturasCliente
Name = 'ID_CONTRATO'
DataType = datInteger
Value = ''
+ end
+ item
+ Name = 'SIN_COMISION'
+ DataType = datSmallInt
+ Value = ''
end>
Statements = <
item
@@ -1101,17 +1114,17 @@ object srvFacturasCliente: TsrvFacturasCliente
'CION,'#10' PROVINCIA,'#10' CODIGO_POSTAL,'#10' FECHA_ALTA,'#10' FECH' +
'A_MODIFICACION,'#10' USUARIO,'#10' ID_FORMA_PAGO,'#10' RECARGO_EQUI' +
'VALENCIA,'#10' ID_TIPO_IVA,'#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10 +
- ' IGNORAR_CONTABILIDAD,'#10' ID_TIENDA,'#10' ID_CONTRATO)'#10' VALU' +
- 'ES ('#10' :ID,'#10' :ID_EMPRESA,'#10' :REFERENCIA,'#10' :FECHA_FACTU' +
- 'RA,'#10' :FECHA_VENCIMIENTO,'#10' :BASE_IMPONIBLE,'#10' :DESCUENTO,' +
- #10' :IMPORTE_DESCUENTO,'#10' :IVA,'#10' :IMPORTE_IVA,'#10' :RE,'#10' ' +
- ' :IMPORTE_RE,'#10' :IMPORTE_TOTAL,'#10' :OBSERVACIONES,'#10' :ID_C' +
- 'LIENTE,'#10' :NIF_CIF,'#10' :NOMBRE,'#10' :CALLE,'#10' :POBLACION,'#10' ' +
- ' :PROVINCIA,'#10' :CODIGO_POSTAL,'#10' :FECHA_ALTA,'#10' :FECHA_M' +
- 'ODIFICACION,'#10' :USUARIO,'#10' :ID_FORMA_PAGO,'#10' :RECARGO_EQUI' +
- 'VALENCIA,'#10' :ID_TIPO_IVA,'#10' :IMPORTE_NETO,'#10' :IMPORTE_PORT' +
- 'E,'#10' :IGNORAR_CONTABILIDAD,'#10' :ID_TIENDA,'#10' :ID_CONTRATO);' +
- #10
+ ' IGNORAR_CONTABILIDAD,'#10' ID_TIENDA,'#10' ID_CONTRATO,'#10' SI' +
+ 'N_COMISION)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' :REFERENCIA' +
+ ','#10' :FECHA_FACTURA,'#10' :FECHA_VENCIMIENTO,'#10' :BASE_IMPONIBL' +
+ 'E,'#10' :DESCUENTO,'#10' :IMPORTE_DESCUENTO,'#10' :IVA,'#10' :IMPORT' +
+ 'E_IVA,'#10' :RE,'#10' :IMPORTE_RE,'#10' :IMPORTE_TOTAL,'#10' :OBSERV' +
+ 'ACIONES,'#10' :ID_CLIENTE,'#10' :NIF_CIF,'#10' :NOMBRE,'#10' :CALLE,' +
+ #10' :POBLACION,'#10' :PROVINCIA,'#10' :CODIGO_POSTAL,'#10' :FECHA_' +
+ 'ALTA,'#10' :FECHA_MODIFICACION,'#10' :USUARIO,'#10' :ID_FORMA_PAGO,' +
+ #10' :RECARGO_EQUIVALENCIA,'#10' :ID_TIPO_IVA,'#10' :IMPORTE_NETO,' +
+ #10' :IMPORTE_PORTE,'#10' :IGNORAR_CONTABILIDAD,'#10' :ID_TIENDA,'#10 +
+ ' :ID_CONTRATO,'#10' :SIN_COMISION);'#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -1282,6 +1295,11 @@ object srvFacturasCliente: TsrvFacturasCliente
DataType = datInteger
Value = ''
end
+ item
+ Name = 'SIN_COMISION'
+ DataType = datSmallInt
+ Value = ''
+ end
item
Name = 'OLD_ID'
Value = ''
@@ -1307,7 +1325,8 @@ object srvFacturasCliente: TsrvFacturasCliente
'A = :ID_TIPO_IVA,'#10' IMPORTE_NETO = :IMPORTE_NETO,'#10' IMPORTE_' +
'PORTE = :IMPORTE_PORTE,'#10' IGNORAR_CONTABILIDAD = :IGNORAR_CONT' +
'ABILIDAD,'#10' ID_TIENDA = :ID_TIENDA,'#10' ID_CONTRATO = :ID_CONT' +
- 'RATO'#10' WHERE'#10' (ID = :OLD_ID);'#10
+ 'RATO,'#10' SIN_COMISION = :SIN_COMISION'#10' WHERE'#10' (ID = :OLD_ID);' +
+ #10
StatementType = stSQL
ColumnMappings = <>
end>
diff --git a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dproj b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dproj
index 36085455..79c932f1 100644
--- a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dproj
+++ b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dproj
@@ -49,35 +49,35 @@
MainSource
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
TForm
diff --git a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.res b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.res
index 8b251f31..1641339f 100644
Binary files a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.res and b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.res differ
diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorElegirFacturasCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uEditorElegirFacturasCliente.dfm
index fe4fa173..c1636150 100644
--- a/Source/Modulos/Facturas de cliente/Views/uEditorElegirFacturasCliente.dfm
+++ b/Source/Modulos/Facturas de cliente/Views/uEditorElegirFacturasCliente.dfm
@@ -8,7 +8,7 @@ inherited fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente
Width = 862
Caption = 'Lista de facturas de cliente para liquidar su comisi'#243'n'
Visible = False
- ExplicitWidth = 654
+ ExplicitWidth = 862
inherited Image1: TImage
Left = 835
ExplicitLeft = 629
@@ -52,17 +52,18 @@ inherited fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente
ExplicitWidth = 862
end
inherited TBXTMain2: TTBXToolbar
- Left = 702
+ Left = 706
Top = 23
- DockPos = 702
+ DockPos = 706
DockRow = 1
- ExplicitLeft = 702
+ Visible = False
+ ExplicitLeft = 706
ExplicitTop = 23
end
end
inherited StatusBar: TJvStatusBar
Width = 862
- ExplicitWidth = 654
+ ExplicitWidth = 862
end
inline frViewBarraSeleccion1: TfrViewBarraSeleccion [3]
Left = 0
@@ -79,12 +80,12 @@ inherited fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente
TabOrder = 4
ReadOnly = False
ExplicitTop = 611
- ExplicitWidth = 654
+ ExplicitWidth = 862
ExplicitHeight = 36
inherited JvFooter1: TJvFooter
Width = 862
Height = 36
- ExplicitWidth = 654
+ ExplicitWidth = 862
ExplicitHeight = 36
inherited bSeleccionar: TJvFooterBtn
Left = 650
@@ -113,14 +114,15 @@ inherited fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente
Top = 140
Width = 862
Height = 471
- ExplicitWidth = 654
- ExplicitHeight = 509
+ ExplicitTop = 140
+ ExplicitWidth = 862
+ ExplicitHeight = 471
inherited cxGrid: TcxGrid
Width = 862
Height = 343
RootLevelOptions.DetailTabsPosition = dtpNone
- ExplicitWidth = 654
- ExplicitHeight = 381
+ ExplicitWidth = 862
+ ExplicitHeight = 343
inherited cxGridView: TcxGridDBTableView
DataController.Summary.DefaultGroupSummaryItems = <
item
@@ -145,22 +147,34 @@ inherited fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente
inherited frViewFiltroBase1: TfrViewFiltroBase
Width = 862
Visible = True
- ExplicitWidth = 654
+ ExplicitWidth = 862
inherited TBXDockablePanel1: TTBXDockablePanel
- ExplicitWidth = 654
+ ExplicitWidth = 862
inherited dxLayoutControl1: TdxLayoutControl
Width = 862
- ExplicitWidth = 654
+ ExplicitWidth = 862
inherited txtFiltroTodo: TcxTextEdit
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 273
Width = 273
end
inherited edtFechaIniFiltro: TcxDateEdit
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121
Width = 121
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 327
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 327
ExplicitWidth = 343
Width = 343
@@ -168,24 +182,24 @@ inherited fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 862
- ExplicitWidth = 654
+ ExplicitWidth = 862
inherited tbxBotones: TTBXToolbar
Width = 852
- ExplicitWidth = 644
+ ExplicitWidth = 852
end
end
end
end
inherited pnlAgrupaciones: TTBXDockablePanel
Top = 445
- ExplicitTop = 483
- ExplicitWidth = 654
+ ExplicitTop = 445
+ ExplicitWidth = 862
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 862
- ExplicitWidth = 654
+ ExplicitWidth = 862
inherited TBXToolbar1: TTBXToolbar
Width = 852
- ExplicitWidth = 644
+ ExplicitWidth = 852
end
end
end
@@ -217,9 +231,6 @@ inherited fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente
Padding.Bottom = 8
ParentBackground = False
TabOrder = 5
- ExplicitLeft = -2
- ExplicitTop = 0
- ExplicitWidth = 656
object lblTitle: TLabel
AlignWithMargins = True
Left = 25
@@ -299,6 +310,8 @@ inherited fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente
end
inherited JsNuevoAbonoDialog: TJSDialog [18]
end
+ inherited JsListaFacturasNoEliminadas: TJSDialog [19]
+ end
object EditorSeleccionActionList: TActionList
Images = SmallImages
Left = 152
diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm
index 0439fc7c..9720a76a 100644
--- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm
+++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm
@@ -146,8 +146,6 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitWidth = 399
- Width = 399
end
end
end
@@ -243,6 +241,14 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Width = 521
end
end
+ inherited cbRecargoEquivalencia: TcxDBCheckBox
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitWidth = 158
+ Width = 158
+ end
end
end
end
@@ -450,10 +456,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
inherited Bevel3: TBevel
Left = 457
Top = 30
- Height = 122
ExplicitLeft = 457
ExplicitTop = 30
- ExplicitHeight = 122
end
inherited Bevel4: TBevel
Left = 569
diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm
index 4715fa30..36546ea1 100644
--- a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm
+++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm
@@ -1,6 +1,6 @@
inherited frViewFacturaCliente: TfrViewFacturaCliente
- Width = 780
- Height = 514
+ Width = 839
+ Height = 398
Align = alClient
OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy
@@ -9,8 +9,8 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
- Width = 780
- Height = 514
+ Width = 839
+ Height = 398
Align = alClient
ParentBackground = True
TabOrder = 0
@@ -20,8 +20,8 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
ExplicitWidth = 451
ExplicitHeight = 304
DesignSize = (
- 780
- 514)
+ 839
+ 398)
object eReferencia: TcxDBTextEdit
Left = 135
Top = 30
@@ -98,7 +98,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 78
end
object bFormasPago: TButton
- Left = 255
+ Left = 285
Top = 108
Width = 132
Height = 23
@@ -135,7 +135,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
end
end
inline frViewClienteFactura1: TfrViewClienteFactura
- Left = 415
+ Left = 445
Top = 30
Width = 398
Height = 265
@@ -145,9 +145,9 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
- TabOrder = 6
+ TabOrder = 7
ReadOnly = False
- ExplicitLeft = 415
+ ExplicitLeft = 445
ExplicitTop = 30
ExplicitWidth = 398
ExplicitHeight = 265
@@ -177,12 +177,12 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 276
end
inherited edtCodigoPostal: TcxDBTextEdit
- Left = 251
- ExplicitLeft = 251
+ Left = 280
+ ExplicitLeft = 280
end
inherited Button3: TBitBtn
- Left = 141
- ExplicitLeft = 141
+ Left = 170
+ ExplicitLeft = 170
end
inherited cxDBTextEdit1: TcxDBTextEdit
ExplicitWidth = 283
@@ -223,19 +223,48 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
- TabOrder = 7
+ TabOrder = 8
ReadOnly = False
ExplicitLeft = 22
ExplicitTop = 325
+ ExplicitHeight = 228
inherited memObservaciones: TcxDBMemo
DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource
- ExplicitLeft = 0
- ExplicitTop = 0
- ExplicitWidth = 521
ExplicitHeight = 228
+ Height = 228
end
end
+ object cbRecargoEquivalencia: TcxDBCheckBox
+ Left = 22
+ Top = 266
+ Caption = ' No acogida a comisiones'
+ DataBinding.DataField = 'SIN_COMISION'
+ DataBinding.DataSource = DADataSource
+ Properties.DisplayChecked = '1'
+ Properties.DisplayUnchecked = '0'
+ Properties.ImmediatePost = True
+ Properties.NullStyle = nssUnchecked
+ Properties.ValueChecked = 1
+ Properties.ValueUnchecked = 0
+ Style.BorderColor = clWindowFrame
+ Style.BorderStyle = ebs3D
+ Style.HotTrack = False
+ Style.LookAndFeel.Kind = lfStandard
+ Style.LookAndFeel.NativeStyle = True
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.Kind = lfStandard
+ StyleDisabled.LookAndFeel.NativeStyle = True
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.Kind = lfStandard
+ StyleFocused.LookAndFeel.NativeStyle = True
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.Kind = lfStandard
+ StyleHot.LookAndFeel.NativeStyle = True
+ StyleHot.LookAndFeel.SkinName = ''
+ TabOrder = 6
+ Width = 158
+ end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
Hidden = True
@@ -303,6 +332,14 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
ControlOptions.ShowBorder = False
end
end
+ object dxLayoutControl1Group9: TdxLayoutGroup
+ Caption = 'Comisiones'
+ object dxLayoutControl1Item7: TdxLayoutItem
+ ShowCaption = False
+ Control = cbRecargoEquivalencia
+ ControlOptions.ShowBorder = False
+ end
+ end
end
object dxLayoutControl1Group2: TdxLayoutGroup
AutoAligns = []
diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas
index f69e27c8..27170cec 100644
--- a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas
+++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas
@@ -11,7 +11,7 @@ uses
DBCtrls, cxGraphics, dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit,
cxDBLookupComboBox, uFormasPagoController, uDAInterfaces, uBizFormasPago,
uViewTienda, uFacturasClienteController, uViewClienteFactura, Menus, StdActns,
- ActnList, uViewObservaciones;
+ ActnList, uViewObservaciones, cxCheckBox;
type
IViewFacturaCliente = interface(IViewBase)
@@ -55,6 +55,9 @@ type
dxLayoutControl1Group3: TdxLayoutGroup;
frViewObservaciones1: TfrViewObservaciones;
dxLayoutControl1Item5: TdxLayoutItem;
+ dxLayoutControl1Item7: TdxLayoutItem;
+ cbRecargoEquivalencia: TcxDBCheckBox;
+ dxLayoutControl1Group9: TdxLayoutGroup;
procedure bFormasPagoClick(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
procedure CustomViewCreate(Sender: TObject);
diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index 0a432c5d..a2115fdf 100644
Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ
diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr
index 839ff67c..b5d05470 100644
--- a/Source/Servidor/FactuGES_Server.dpr
+++ b/Source/Servidor/FactuGES_Server.dpr
@@ -131,12 +131,12 @@ uses
srvContratosCliente_Impl in '..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas' {srvContratosCliente: TDataAbstractService},
uBizContratosClienteServer in '..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas',
uRptContratosCliente_Server in '..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas' {RptContratosCliente},
- schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
- schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
- schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas';
+ schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas',
+ schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
+ schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}
diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj
index 61d926fd..ed702471 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -1,305 +1,296 @@
-
+
-
- {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}
- FactuGES_Server.dpr
- Debug
- AnyCPU
- DCC32
- ..\..\Output\Debug\Servidor\FactuGES_Server.exe
-
-
- 7.0
- False
- False
- 0
- 3
- ..\..\Output\Release\Servidor
- RELEASE
-
-
- 7.0
- 3
- ..\..\Output\Debug\Servidor
- DEBUG;
- True
-
-
- Delphi.Personality
-
-
-FalseTrueFalseTrueFalse2390FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.3.9.0FactuGES (Servidor)2.3.9.0jueves, 19 de noviembre de 2009 20:26
-
-
-
-
-
-
-
-
-
- Express Cross Platform Library by Developer Express Inc.
- ExpressPrinting System by Developer Express Inc.
- RemObjects Data Abstract - CoreLabs SDAC Driver
- FactuGES_Server.dpr
-
-
-
-
- MainSource
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDARemoteService
-
-
-
- TRORemoteDataModule
-
-
-
-
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDARemoteService
-
-
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDARemoteService
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
- TFrame
-
-
-
- TFrame
-
-
-
- TForm
-
-
-
- TFrame
-
-
-
- TDARemoteService
-
-
-
-
-
-
- TDataModule
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+ {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}
+ FactuGES_Server.dpr
+ Debug
+ AnyCPU
+ DCC32
+ ..\..\Output\Debug\Servidor\FactuGES_Server.exe
+
+
+ 7.0
+ False
+ False
+ 0
+ 3
+ ..\..\Output\Release\Servidor
+ RELEASE
+
+
+ 7.0
+ 3
+ ..\..\Output\Debug\Servidor
+ DEBUG;
+ True
+
+
+ Delphi.Personality
+
+
+ FalseTrueFalseTrueFalse2390FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.3.9.0FactuGES (Servidor)2.3.9.0jueves, 19 de noviembre de 2009 20:26
+ Express Cross Platform Library by Developer Express Inc.
+ ExpressPrinting System by Developer Express Inc.
+ RemObjects Data Abstract - CoreLabs SDAC Driver
+ FactuGES_Server.dpr
+
+
+
+
+ MainSource
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDARemoteService
+
+
+
+ TRORemoteDataModule
+
+
+
+
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+ TFrame
+
+
+
+ TFrame
+
+
+
+ TForm
+
+
+
+ TFrame
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+ TDataModule
+
+
+
+
+
+
+
+
+
+
+
+
+