Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Se adaptan las facturas de proveedor para poder añadir contratos de cliente y introducir el importe correspondiente a cada uno de la factura, para así sacar el beneficio a partir de los precios del contrato

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@533 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2010-08-25 17:54:36 +00:00
parent 0468a39729
commit d14c65c8bc
41 changed files with 2888 additions and 467 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
Database/scripts/factuges.sql
View File

@ -189,6 +189,9 @@ SET GENERATOR GEN_FACTURAS_PROVEEDOR_ID TO 1;
CREATE GENERATOR GEN_FACTURA_CLIENTE_DETALLES_ID;
SET GENERATOR GEN_FACTURA_CLIENTE_DETALLES_ID TO 1;
CREATE GENERATOR GEN_FACTURAS_PROV_CONTRATOS_ID;
SET GENERATOR GEN_FACTURAS_PROV_CONTRATOS_ID TO 1;
CREATE GENERATOR GEN_FACTURA_PROV_DETALLES_ID;
SET GENERATOR GEN_FACTURA_PROV_DETALLES_ID TO 1;
@ -977,6 +980,13 @@ CREATE TABLE FACTURAS_PROVEEDOR_DETALLES (
FECHA_MODIFICACION TIMESTAMP
);
CREATE TABLE FACTURAS_PROVEEDOR_CONTRATOS (
ID TIPO_ID NOT NULL,
ID_FACTURA TIPO_ID NOT NULL,
ID_CONTRATO TIPO_ID NOT NULL,
IMPORTE TIPO_IMPORTE
);
CREATE TABLE FAMILIAS (
ID TIPO_ID NOT NULL,
DESCRIPCION VARCHAR(255)
@ -4137,6 +4147,33 @@ FROM
ORDER BY USERNAME;
;
create view V_CONTRATOS_FACTURAS_PROVEEDOR (ID_CONTRATO, IMPORTE)
AS
select ID_CONTRATO, SUM(IMPORTE) as IMPORTE_GASTOS_PROVEEDORES
from facturas_proveedor_contratos
group by 1;
create view V_CONTRATOS_BENEFICIOS (ID, REFERENCIA, FECHA_CONTRATO, NOMBRE, NIF_CIF,
IMPORTE_NETO, IMPORTE_DESCUENTO, BASE_IMPONIBLE, IMPORTE_FACTURAS_PROVEEDOR,
IMPORTE_BENEFICIO, PORCENTAJE_BENEFICIO)
AS
select
contratos_cliente.ID,
contratos_cliente.referencia, contratos_cliente.fecha_contrato,
contratos_cliente.nombre, contratos_cliente.nif_cif,
contratos_cliente.importe_neto, contratos_cliente.importe_descuento,
contratos_cliente.base_imponible, v_contratos_facturas_proveedor.importe as importe_facturas_proveedor,
(contratos_cliente.base_imponible - coalesce(v_contratos_facturas_proveedor.importe, 0)) as importe_beneficio,
case when (contratos_cliente.base_imponible - coalesce(v_contratos_facturas_proveedor.importe, 0)) = 0 then 0
else (((contratos_cliente.base_imponible - coalesce(v_contratos_facturas_proveedor.importe, 0))*100)/contratos_cliente.importe_neto)
end as porcentaje_beneficio
from contratos_cliente
left join v_contratos_facturas_proveedor
on (v_contratos_facturas_proveedor.ID_CONTRATO = contratos_cliente.ID);
/******************************************************************************/
/**** Primary Keys ****/
/******************************************************************************/
@ -4178,6 +4215,7 @@ ALTER TABLE FACTURAS_CLIENTE ADD CONSTRAINT PK_FACTURAS_CLIENTE PRIMARY KEY (ID)
ALTER TABLE FACTURAS_CLIENTE_DETALLES ADD CONSTRAINT PK_FACTURAS_CLIENTE_DETALLES PRIMARY KEY (ID);
ALTER TABLE FACTURAS_PROVEEDOR ADD CONSTRAINT PK_FACTURAS_PROVEEDOR PRIMARY KEY (ID);
ALTER TABLE FACTURAS_PROVEEDOR_DETALLES ADD CONSTRAINT PK_FACTURAS_PROVEEDOR_DETALLES PRIMARY KEY (ID);
ALTER TABLE FACTURAS_PROVEEDOR_CONTRATOS ADD CONSTRAINT PK_FACTURAS_PROVEEDOR_CONTRATOS PRIMARY KEY (ID);
ALTER TABLE FAMILIAS ADD CONSTRAINT PK_FAMILIAS PRIMARY KEY (ID);
ALTER TABLE FORMAS_PAGO ADD PRIMARY KEY (ID);
ALTER TABLE FORMAS_PAGO_PLAZOS ADD PRIMARY KEY (ID);
@ -4230,6 +4268,8 @@ ALTER TABLE EMPRESAS_TIENDAS ADD CONSTRAINT FK_EMPRESAS_TIENDAS_1 FOREIGN KEY (I
ALTER TABLE FACTURAS_CLIENTE ADD CONSTRAINT FK_FACTURAS_CLIENTE_EMPRESAS FOREIGN KEY (ID_EMPRESA) REFERENCES EMPRESAS (ID) ON DELETE NO ACTION ON UPDATE NO ACTION;
ALTER TABLE FACTURAS_PROVEEDOR ADD CONSTRAINT FK_FACTURAS_PROVEEDOR_EMPRESAS FOREIGN KEY (ID_EMPRESA) REFERENCES EMPRESAS (ID) ON DELETE NO ACTION ON UPDATE NO ACTION;
ALTER TABLE FACTURAS_PROVEEDOR_DETALLES ADD CONSTRAINT FK_FACTURAS_PRO_DET_ID_FACTURA FOREIGN KEY (ID_FACTURA) REFERENCES FACTURAS_PROVEEDOR (ID) ON DELETE CASCADE ON UPDATE CASCADE;
ALTER TABLE FACTURAS_PROVEEDOR_CONTRATOS ADD CONSTRAINT FK_FACTURAS_PROVEEDOR_CONTRATO2 FOREIGN KEY (ID_CONTRATO) REFERENCES CONTRATOS_CLIENTE (ID) ON DELETE CASCADE ON UPDATE CASCADE;
ALTER TABLE FACTURAS_PROVEEDOR_CONTRATOS ADD CONSTRAINT FK_FACTURAS_PROVEEDOR_CONTRATOS FOREIGN KEY (ID_FACTURA) REFERENCES FACTURAS_PROVEEDOR (ID) ON DELETE CASCADE ON UPDATE CASCADE;
ALTER TABLE MOVIMIENTOS ADD CONSTRAINT FK_MOVIMIENTOS FOREIGN KEY (ID_ARTICULO) REFERENCES ARTICULOS (ID);
ALTER TABLE MOVIMIENTOS ADD CONSTRAINT FK_MOVIMIENTOS2 FOREIGN KEY (ID_ALMACEN) REFERENCES ALMACENES (ID);
ALTER TABLE PEDIDOS_CLIENTE ADD CONSTRAINT FK_PEDIDOS_CLIENTE FOREIGN KEY (ID_CLIENTE) REFERENCES CONTACTOS (ID);

56
Source/GUIBase/GUIBase.dproj
View File

@ -58,34 +58,34 @@
<DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Modulos\Recibos de cliente\Base.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\ccpackD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\frx11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\frxe11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\fs11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvGlobusD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\tb2k_d10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vclx.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Views\Base.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Views\ccpackD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Views\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Views\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Views\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Views\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Views\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Views\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Views\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Views\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Views\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Views\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Views\frx11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Views\frxe11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Views\fs11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Views\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Views\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Views\JvGlobusD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Views\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Views\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Views\rtl.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Views\tb2k_d10.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Views\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Views\vcl.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Views\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Views\vcldb.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Views\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Views\vclx.dcp" />
<DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form>
</DCCReference>

BIN
Source/GUIBase/GUIBase.res
View File

Binary file not shown.

BIN
Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.RES
View File

Binary file not shown.

BIN
Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.dpk
View File

Binary file not shown.

17
Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.dproj
View File

@ -49,20 +49,21 @@
<DelphiCompile Include="ContratosCliente_controller.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Presupuestos de cliente\Views\Articulos_controller.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\Contactos_controller.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\ContratosCliente_data.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\ContratosCliente_model.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\GestorDocumentos_controller.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\GUIBase.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\PresupuestosCliente_controller.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\PresupuestosCliente_model.dcp" />
<DCCReference Include="uArticulosContratoClienteController.pas" />
<DCCReference Include="uContratosClienteController.pas" />
<DCCReference Include="uContratosClienteReportController.pas" />
<DCCReference Include="uDetallesContratoClienteController.pas" />
<DCCReference Include="View\Articulos_controller.dcp" />
<DCCReference Include="View\Contactos_controller.dcp" />
<DCCReference Include="View\ContratosCliente_data.dcp" />
<DCCReference Include="View\ContratosCliente_model.dcp" />
<DCCReference Include="View\GestorDocumentos_controller.dcp" />
<DCCReference Include="View\GUIBase.dcp" />
<DCCReference Include="View\PresupuestosCliente_controller.dcp" />
<DCCReference Include="View\PresupuestosCliente_model.dcp" />
<DCCReference Include="View\uIEditorContratoCliente.pas" />
<DCCReference Include="View\uIEditorContratosCliente.pas" />
<DCCReference Include="View\uIEditorContratosClienteBeneficios.pas" />
<DCCReference Include="View\uIEditorContratosClientePreview.pas" />
<DCCReference Include="View\uIEditorDireccionEntregaContratoCliente.pas" />
<DCCReference Include="View\uIEditorElegirArticulosContratosCliente.pas" />

28
Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas
View File

@ -59,6 +59,7 @@ type
function DarListaAnosContratos: TStringList;
procedure FiltrarAno(AContrato: IBizContratoCliente; ADynWhereDataTable: WideString; const Ano: String);
procedure VerListadoBeneficios;
end;
TContratosClienteController = class(TControllerBase, IContratosClienteController)
@ -129,6 +130,7 @@ type
function DarListaAnosContratos: TStringList;
procedure FiltrarAno(AContrato: IBizContratoCliente; ADynWhereDataTable: WideString; const Ano: String);
procedure VerListadoBeneficios;
end;
implementation
@ -140,7 +142,8 @@ uses
schContratosClienteClient_Intf, uDAInterfaces, uDateUtils, uIEditorContratoCliente,
uIEditorElegirContratosCliente, uIEditorDireccionEntregaContratoCliente,
schContactosClient_Intf, uContratosClienteReportController,
uSistemaFunc, uEMailUtils, uDialogElegirEMail, Dialogs, uStringsUtils;
uSistemaFunc, uEMailUtils, uDialogElegirEMail, Dialogs, uStringsUtils,
uIEditorContratosClienteBeneficios;
{ TContratosClienteController }
@ -451,6 +454,29 @@ begin
end;
end;
procedure TContratosClienteController.VerListadoBeneficios;
var
AContratosClienteBeneficios: IBizContratosClienteBeneficios;
AEditor : IEditorContratosClienteBeneficios;
begin
AEditor := NIL;
AContratosClienteBeneficios := FDataModule.GetContratosClienteBeneficios;
CreateEditor('EditorContratosClienteBeneficios', IEditorContratosClienteBeneficios, AEditor);
if Assigned(AEditor) then
try
// AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
AEditor.Contratos := AContratosClienteBeneficios;
AEditor.ShowModal;
finally
AEditor.Release;
AEditor := NIL;
end;
end;
procedure TContratosClienteController.VerTodos(AContratos: IBizContratoCliente;
const AVerModal : Boolean = False; const AWindowCaption: String = '';
const AHeaderText: String = '');

68
Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm
View File

@ -1,7 +1,7 @@
inherited DataModuleContratosCliente: TDataModuleContratosCliente
OnCreate = DAClientDataModuleCreate
Height = 370
Width = 603
Height = 423
Width = 828
object RORemoteService: TRORemoteService
Message = dmConexion.ROMessage
Channel = dmConexion.ROChannel
@ -565,4 +565,68 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
Left = 352
Top = 256
end
object tbl_ContratosClienteBeneficios: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datInteger
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'FECHA_CONTRATO'
DataType = datDateTime
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
end
item
Name = 'IMPORTE_NETO'
DataType = datCurrency
end
item
Name = 'IMPORTE_DESCUENTO'
DataType = datCurrency
end
item
Name = 'BASE_IMPONIBLE'
DataType = datCurrency
end
item
Name = 'IMPORTE_FACTURAS_PROVEEDOR'
DataType = datCurrency
end
item
Name = 'IMPORTE_BENEFICIO'
DataType = datCurrency
end
item
Name = 'PORCENTAJE_BENEFICIO'
DataType = datCurrency
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_ContratosCliente
LogicalName = 'ContratosClienteBeneficios'
IndexDefs = <>
Left = 712
Top = 88
end
object ds_ContratosClienteBeneficios: TDADataSource
DataSet = tbl_ContratosClienteBeneficios.Dataset
DataTable = tbl_ContratosClienteBeneficios
Left = 712
Top = 32
end
end

19
Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.pas
View File

@ -31,6 +31,8 @@ type
ds_Valores: TDADataSource;
tbl_TiposCapitulos: TDAMemDataTable;
ds_TiposCapitulos: TDADataSource;
tbl_ContratosClienteBeneficios: TDAMemDataTable;
ds_ContratosClienteBeneficios: TDADataSource;
procedure DAClientDataModuleCreate(Sender: TObject);
private
@ -51,6 +53,7 @@ type
function GetRptPDFContrato(const AID: Integer): Binary;
function GetAnosItems : TStringList;
function GetContratosClienteBeneficios : IBizContratosClienteBeneficios;
end;
implementation
@ -159,6 +162,22 @@ begin
end;
end;
function TDataModuleContratosCliente.GetContratosClienteBeneficios: IBizContratosClienteBeneficios;
var
AContratosBeneficios: TDAMemDataTable;
begin
ShowHourglassCursor;
try
AContratosBeneficios := CloneDataTable(tbl_ContratosClienteBeneficios);
AContratosBeneficios.BusinessRulesID := BIZ_CLIENT_CONTRATOS_CLIENTE_BENEFICIOS;
Result := (AContratosBeneficios as IBizContratosClienteBeneficios);
finally
HideHourglassCursor;
end;
end;
function TDataModuleContratosCliente.GetItem(const ID: Integer): IBizContratoCliente;
var
Condicion: TDAWhereExpression;

1
Source/Modulos/Contratos de cliente/Model/Data/uIDataModuleContratosCliente.pas
View File

@ -14,6 +14,7 @@ type
function GetItems(const AListaID: TIntegerList) : IBizContratoCliente; overload;
function GetItem(const ID : Integer) : IBizContratoCliente;
function NewItem : IBizContratoCliente;
function GetContratosClienteBeneficios : IBizContratosClienteBeneficios;
end;
implementation

465
Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas
View File

@ -3,23 +3,25 @@ unit schContratosClienteClient_Intf;
interface
uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_Valores = '{57BFD5F5-494A-4231-B97D-032F7E10F24B}';
RID_Propiedades = '{4D58ECE3-A9F8-43A4-AAA3-CD646C22B7DE}';
RID_ListaAnosContratos = '{1D11C4F1-0182-4996-BAC0-9196D938AA76}';
RID_ContratosCliente = '{73CCDE34-A6B2-46FB-A827-92F690E6DDBC}';
RID_TiposCapitulos = '{EDB0FFD7-2779-4985-821B-E4777E629C36}';
RID_ContratosCliente_Detalles = '{4B663F62-78D9-4AFF-A977-54BE10A624FE}';
RID_Valores = '{72B7AEE8-325E-4838-9EFA-4A888B257897}';
RID_Propiedades = '{204B145C-8E4B-42B5-8305-40B6D02D17A8}';
RID_ListaAnosContratos = '{A9376B52-1BE5-4374-A5C9-A28ED0A55664}';
RID_ContratosClienteBeneficios = '{465DF5E0-F5CF-4515-B7DC-B4BE11BE7934}';
RID_ContratosCliente = '{8CB29C6D-A484-4B0A-8273-424E91DAF879}';
RID_TiposCapitulos = '{A3D99F24-9CDC-4DC7-A89B-2AC340010C93}';
RID_ContratosCliente_Detalles = '{421C5A4A-27CD-4656-9DC9-6D2E2E508231}';
{ Data table names }
nme_Valores = 'Valores';
nme_Propiedades = 'Propiedades';
nme_ListaAnosContratos = 'ListaAnosContratos';
nme_ContratosClienteBeneficios = 'ContratosClienteBeneficios';
nme_ContratosCliente = 'ContratosCliente';
nme_TiposCapitulos = 'TiposCapitulos';
nme_ContratosCliente_Detalles = 'ContratosCliente_Detalles';
@ -50,6 +52,32 @@ const
{ ListaAnosContratos field indexes }
idx_ListaAnosContratosANO = 0;
{ ContratosClienteBeneficios fields }
fld_ContratosClienteBeneficiosID = 'ID';
fld_ContratosClienteBeneficiosREFERENCIA = 'REFERENCIA';
fld_ContratosClienteBeneficiosFECHA_CONTRATO = 'FECHA_CONTRATO';
fld_ContratosClienteBeneficiosNOMBRE = 'NOMBRE';
fld_ContratosClienteBeneficiosNIF_CIF = 'NIF_CIF';
fld_ContratosClienteBeneficiosIMPORTE_NETO = 'IMPORTE_NETO';
fld_ContratosClienteBeneficiosIMPORTE_DESCUENTO = 'IMPORTE_DESCUENTO';
fld_ContratosClienteBeneficiosBASE_IMPONIBLE = 'BASE_IMPONIBLE';
fld_ContratosClienteBeneficiosIMPORTE_FACTURAS_PROVEEDOR = 'IMPORTE_FACTURAS_PROVEEDOR';
fld_ContratosClienteBeneficiosIMPORTE_BENEFICIO = 'IMPORTE_BENEFICIO';
fld_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO = 'PORCENTAJE_BENEFICIO';
{ ContratosClienteBeneficios field indexes }
idx_ContratosClienteBeneficiosID = 0;
idx_ContratosClienteBeneficiosREFERENCIA = 1;
idx_ContratosClienteBeneficiosFECHA_CONTRATO = 2;
idx_ContratosClienteBeneficiosNOMBRE = 3;
idx_ContratosClienteBeneficiosNIF_CIF = 4;
idx_ContratosClienteBeneficiosIMPORTE_NETO = 5;
idx_ContratosClienteBeneficiosIMPORTE_DESCUENTO = 6;
idx_ContratosClienteBeneficiosBASE_IMPONIBLE = 7;
idx_ContratosClienteBeneficiosIMPORTE_FACTURAS_PROVEEDOR = 8;
idx_ContratosClienteBeneficiosIMPORTE_BENEFICIO = 9;
idx_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO = 10;
{ ContratosCliente fields }
fld_ContratosClienteID = 'ID';
fld_ContratosClienteID_EMPRESA = 'ID_EMPRESA';
@ -197,7 +225,7 @@ const
type
{ IValores }
IValores = interface(IDAStronglyTypedDataTable)
['{7C23406A-157C-424B-ABCF-148CC015BC4F}']
['{FAEF0BA9-EE5E-4DBA-8566-920E9D426DC7}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -223,7 +251,7 @@ type
end;
{ TValoresDataTableRules }
TValoresDataTableRules = class(TIntfObjectDADataTableRules, IValores)
TValoresDataTableRules = class(TDADataTableRules, IValores)
private
protected
{ Property getters and setters }
@ -256,7 +284,7 @@ type
{ IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable)
['{52FAC363-53E6-4F11-AE60-FE16A842EEA4}']
['{E0116E85-FA5E-4B34-9EB7-CDD77FBE72DE}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -282,7 +310,7 @@ type
end;
{ TPropiedadesDataTableRules }
TPropiedadesDataTableRules = class(TIntfObjectDADataTableRules, IPropiedades)
TPropiedadesDataTableRules = class(TDADataTableRules, IPropiedades)
private
protected
{ Property getters and setters }
@ -315,7 +343,7 @@ type
{ IListaAnosContratos }
IListaAnosContratos = interface(IDAStronglyTypedDataTable)
['{F741301B-D6DB-457C-9B43-1EC77A740D17}']
['{B157E813-9175-49A8-B893-9A9924926C56}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -329,7 +357,7 @@ type
end;
{ TListaAnosContratosDataTableRules }
TListaAnosContratosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosContratos)
TListaAnosContratosDataTableRules = class(TDADataTableRules, IListaAnosContratos)
private
protected
{ Property getters and setters }
@ -348,9 +376,164 @@ type
end;
{ IContratosClienteBeneficios }
IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable)
['{669F62EB-07E0-4A41-9D2A-B8FC81A11A12}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
function GetIDIsNull: Boolean;
procedure SetIDIsNull(const aValue: Boolean);
function GetREFERENCIAValue: String;
procedure SetREFERENCIAValue(const aValue: String);
function GetREFERENCIAIsNull: Boolean;
procedure SetREFERENCIAIsNull(const aValue: Boolean);
function GetFECHA_CONTRATOValue: DateTime;
procedure SetFECHA_CONTRATOValue(const aValue: DateTime);
function GetFECHA_CONTRATOIsNull: Boolean;
procedure SetFECHA_CONTRATOIsNull(const aValue: Boolean);
function GetNOMBREValue: String;
procedure SetNOMBREValue(const aValue: String);
function GetNOMBREIsNull: Boolean;
procedure SetNOMBREIsNull(const aValue: Boolean);
function GetNIF_CIFValue: String;
procedure SetNIF_CIFValue(const aValue: String);
function GetNIF_CIFIsNull: Boolean;
procedure SetNIF_CIFIsNull(const aValue: Boolean);
function GetIMPORTE_NETOValue: Currency;
procedure SetIMPORTE_NETOValue(const aValue: Currency);
function GetIMPORTE_NETOIsNull: Boolean;
procedure SetIMPORTE_NETOIsNull(const aValue: Boolean);
function GetIMPORTE_DESCUENTOValue: Currency;
procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency);
function GetIMPORTE_DESCUENTOIsNull: Boolean;
procedure SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean);
function GetBASE_IMPONIBLEValue: Currency;
procedure SetBASE_IMPONIBLEValue(const aValue: Currency);
function GetBASE_IMPONIBLEIsNull: Boolean;
procedure SetBASE_IMPONIBLEIsNull(const aValue: Boolean);
function GetIMPORTE_FACTURAS_PROVEEDORValue: Currency;
procedure SetIMPORTE_FACTURAS_PROVEEDORValue(const aValue: Currency);
function GetIMPORTE_FACTURAS_PROVEEDORIsNull: Boolean;
procedure SetIMPORTE_FACTURAS_PROVEEDORIsNull(const aValue: Boolean);
function GetIMPORTE_BENEFICIOValue: Currency;
procedure SetIMPORTE_BENEFICIOValue(const aValue: Currency);
function GetIMPORTE_BENEFICIOIsNull: Boolean;
procedure SetIMPORTE_BENEFICIOIsNull(const aValue: Boolean);
function GetPORCENTAJE_BENEFICIOValue: Currency;
procedure SetPORCENTAJE_BENEFICIOValue(const aValue: Currency);
function GetPORCENTAJE_BENEFICIOIsNull: Boolean;
procedure SetPORCENTAJE_BENEFICIOIsNull(const aValue: Boolean);
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property FECHA_CONTRATO: DateTime read GetFECHA_CONTRATOValue write SetFECHA_CONTRATOValue;
property FECHA_CONTRATOIsNull: Boolean read GetFECHA_CONTRATOIsNull write SetFECHA_CONTRATOIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property IMPORTE_NETO: Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue;
property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull;
property IMPORTE_DESCUENTO: Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue;
property IMPORTE_DESCUENTOIsNull: Boolean read GetIMPORTE_DESCUENTOIsNull write SetIMPORTE_DESCUENTOIsNull;
property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue;
property BASE_IMPONIBLEIsNull: Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull;
property IMPORTE_FACTURAS_PROVEEDOR: Currency read GetIMPORTE_FACTURAS_PROVEEDORValue write SetIMPORTE_FACTURAS_PROVEEDORValue;
property IMPORTE_FACTURAS_PROVEEDORIsNull: Boolean read GetIMPORTE_FACTURAS_PROVEEDORIsNull write SetIMPORTE_FACTURAS_PROVEEDORIsNull;
property IMPORTE_BENEFICIO: Currency read GetIMPORTE_BENEFICIOValue write SetIMPORTE_BENEFICIOValue;
property IMPORTE_BENEFICIOIsNull: Boolean read GetIMPORTE_BENEFICIOIsNull write SetIMPORTE_BENEFICIOIsNull;
property PORCENTAJE_BENEFICIO: Currency read GetPORCENTAJE_BENEFICIOValue write SetPORCENTAJE_BENEFICIOValue;
property PORCENTAJE_BENEFICIOIsNull: Boolean read GetPORCENTAJE_BENEFICIOIsNull write SetPORCENTAJE_BENEFICIOIsNull;
end;
{ TContratosClienteBeneficiosDataTableRules }
TContratosClienteBeneficiosDataTableRules = class(TDADataTableRules, IContratosClienteBeneficios)
private
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
function GetIDIsNull: Boolean; virtual;
procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetREFERENCIAValue: String; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
function GetFECHA_CONTRATOValue: DateTime; virtual;
procedure SetFECHA_CONTRATOValue(const aValue: DateTime); virtual;
function GetFECHA_CONTRATOIsNull: Boolean; virtual;
procedure SetFECHA_CONTRATOIsNull(const aValue: Boolean); virtual;
function GetNOMBREValue: String; virtual;
procedure SetNOMBREValue(const aValue: String); virtual;
function GetNOMBREIsNull: Boolean; virtual;
procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
function GetNIF_CIFValue: String; virtual;
procedure SetNIF_CIFValue(const aValue: String); virtual;
function GetNIF_CIFIsNull: Boolean; virtual;
procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_NETOValue: Currency; virtual;
procedure SetIMPORTE_NETOValue(const aValue: Currency); virtual;
function GetIMPORTE_NETOIsNull: Boolean; virtual;
procedure SetIMPORTE_NETOIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_DESCUENTOValue: Currency; virtual;
procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); virtual;
function GetIMPORTE_DESCUENTOIsNull: Boolean; virtual;
procedure SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean); virtual;
function GetBASE_IMPONIBLEValue: Currency; virtual;
procedure SetBASE_IMPONIBLEValue(const aValue: Currency); virtual;
function GetBASE_IMPONIBLEIsNull: Boolean; virtual;
procedure SetBASE_IMPONIBLEIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_FACTURAS_PROVEEDORValue: Currency; virtual;
procedure SetIMPORTE_FACTURAS_PROVEEDORValue(const aValue: Currency); virtual;
function GetIMPORTE_FACTURAS_PROVEEDORIsNull: Boolean; virtual;
procedure SetIMPORTE_FACTURAS_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_BENEFICIOValue: Currency; virtual;
procedure SetIMPORTE_BENEFICIOValue(const aValue: Currency); virtual;
function GetIMPORTE_BENEFICIOIsNull: Boolean; virtual;
procedure SetIMPORTE_BENEFICIOIsNull(const aValue: Boolean); virtual;
function GetPORCENTAJE_BENEFICIOValue: Currency; virtual;
procedure SetPORCENTAJE_BENEFICIOValue(const aValue: Currency); virtual;
function GetPORCENTAJE_BENEFICIOIsNull: Boolean; virtual;
procedure SetPORCENTAJE_BENEFICIOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property FECHA_CONTRATO: DateTime read GetFECHA_CONTRATOValue write SetFECHA_CONTRATOValue;
property FECHA_CONTRATOIsNull: Boolean read GetFECHA_CONTRATOIsNull write SetFECHA_CONTRATOIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property IMPORTE_NETO: Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue;
property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull;
property IMPORTE_DESCUENTO: Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue;
property IMPORTE_DESCUENTOIsNull: Boolean read GetIMPORTE_DESCUENTOIsNull write SetIMPORTE_DESCUENTOIsNull;
property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue;
property BASE_IMPONIBLEIsNull: Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull;
property IMPORTE_FACTURAS_PROVEEDOR: Currency read GetIMPORTE_FACTURAS_PROVEEDORValue write SetIMPORTE_FACTURAS_PROVEEDORValue;
property IMPORTE_FACTURAS_PROVEEDORIsNull: Boolean read GetIMPORTE_FACTURAS_PROVEEDORIsNull write SetIMPORTE_FACTURAS_PROVEEDORIsNull;
property IMPORTE_BENEFICIO: Currency read GetIMPORTE_BENEFICIOValue write SetIMPORTE_BENEFICIOValue;
property IMPORTE_BENEFICIOIsNull: Boolean read GetIMPORTE_BENEFICIOIsNull write SetIMPORTE_BENEFICIOIsNull;
property PORCENTAJE_BENEFICIO: Currency read GetPORCENTAJE_BENEFICIOValue write SetPORCENTAJE_BENEFICIOValue;
property PORCENTAJE_BENEFICIOIsNull: Boolean read GetPORCENTAJE_BENEFICIOIsNull write SetPORCENTAJE_BENEFICIOIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
{ IContratosCliente }
IContratosCliente = interface(IDAStronglyTypedDataTable)
['{BC6E72B5-30B2-4553-8C99-CBBBCA899EBA}']
['{6C9916A4-79AB-4C37-A48C-6012AB24C980}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -624,7 +807,7 @@ type
end;
{ TContratosClienteDataTableRules }
TContratosClienteDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente)
TContratosClienteDataTableRules = class(TDADataTableRules, IContratosCliente)
private
f_FORMA_PAGO: IROStrings;
f_PLAZO_ENTREGA: IROStrings;
@ -916,7 +1099,7 @@ type
}
{ ITiposCapitulos }
ITiposCapitulos = interface(IDAStronglyTypedDataTable)
['{BA175773-59CB-4349-A002-2BF8672EFA85}']
['{CA80C6D6-6E5B-4E3A-9790-34416A07D6B6}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -960,7 +1143,7 @@ type
end;
{ TTiposCapitulosDataTableRules }
TTiposCapitulosDataTableRules = class(TIntfObjectDADataTableRules, ITiposCapitulos)
TTiposCapitulosDataTableRules = class(TDADataTableRules, ITiposCapitulos)
private
protected
{ Property getters and setters }
@ -1011,7 +1194,7 @@ type
{ IContratosCliente_Detalles }
IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{45989059-DF2C-4A8B-8A53-028E6F526A87}']
['{01A6BC62-F13E-40FD-A7CA-ACE471474C86}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1109,7 +1292,7 @@ type
end;
{ TContratosCliente_DetallesDataTableRules }
TContratosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente_Detalles)
TContratosCliente_DetallesDataTableRules = class(TDADataTableRules, IContratosCliente_Detalles)
private
protected
{ Property getters and setters }
@ -1399,6 +1582,249 @@ begin
end;
{ TContratosClienteBeneficiosDataTableRules }
constructor TContratosClienteBeneficiosDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TContratosClienteBeneficiosDataTableRules.Destroy;
begin
inherited;
end;
function TContratosClienteBeneficiosDataTableRules.GetIDValue: Integer;
begin
result := DataTable.Fields[idx_ContratosClienteBeneficiosID].AsInteger;
end;
procedure TContratosClienteBeneficiosDataTableRules.SetIDValue(const aValue: Integer);
begin
DataTable.Fields[idx_ContratosClienteBeneficiosID].AsInteger := aValue;
end;
function TContratosClienteBeneficiosDataTableRules.GetIDIsNull: boolean;
begin
result := DataTable.Fields[idx_ContratosClienteBeneficiosID].IsNull;
end;
procedure TContratosClienteBeneficiosDataTableRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratosClienteBeneficiosID].AsVariant := Null;
end;
function TContratosClienteBeneficiosDataTableRules.GetREFERENCIAValue: String;
begin
result := DataTable.Fields[idx_ContratosClienteBeneficiosREFERENCIA].AsString;
end;
procedure TContratosClienteBeneficiosDataTableRules.SetREFERENCIAValue(const aValue: String);
begin
DataTable.Fields[idx_ContratosClienteBeneficiosREFERENCIA].AsString := aValue;
end;
function TContratosClienteBeneficiosDataTableRules.GetREFERENCIAIsNull: boolean;
begin
result := DataTable.Fields[idx_ContratosClienteBeneficiosREFERENCIA].IsNull;
end;
procedure TContratosClienteBeneficiosDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratosClienteBeneficiosREFERENCIA].AsVariant := Null;
end;
function TContratosClienteBeneficiosDataTableRules.GetFECHA_CONTRATOValue: DateTime;
begin
result := DataTable.Fields[idx_ContratosClienteBeneficiosFECHA_CONTRATO].AsDateTime;
end;
procedure TContratosClienteBeneficiosDataTableRules.SetFECHA_CONTRATOValue(const aValue: DateTime);
begin
DataTable.Fields[idx_ContratosClienteBeneficiosFECHA_CONTRATO].AsDateTime := aValue;
end;
function TContratosClienteBeneficiosDataTableRules.GetFECHA_CONTRATOIsNull: boolean;
begin
result := DataTable.Fields[idx_ContratosClienteBeneficiosFECHA_CONTRATO].IsNull;
end;
procedure TContratosClienteBeneficiosDataTableRules.SetFECHA_CONTRATOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratosClienteBeneficiosFECHA_CONTRATO].AsVariant := Null;
end;
function TContratosClienteBeneficiosDataTableRules.GetNOMBREValue: String;
begin
result := DataTable.Fields[idx_ContratosClienteBeneficiosNOMBRE].AsString;
end;
procedure TContratosClienteBeneficiosDataTableRules.SetNOMBREValue(const aValue: String);
begin
DataTable.Fields[idx_ContratosClienteBeneficiosNOMBRE].AsString := aValue;
end;
function TContratosClienteBeneficiosDataTableRules.GetNOMBREIsNull: boolean;
begin
result := DataTable.Fields[idx_ContratosClienteBeneficiosNOMBRE].IsNull;
end;
procedure TContratosClienteBeneficiosDataTableRules.SetNOMBREIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratosClienteBeneficiosNOMBRE].AsVariant := Null;
end;
function TContratosClienteBeneficiosDataTableRules.GetNIF_CIFValue: String;
begin
result := DataTable.Fields[idx_ContratosClienteBeneficiosNIF_CIF].AsString;
end;
procedure TContratosClienteBeneficiosDataTableRules.SetNIF_CIFValue(const aValue: String);
begin
DataTable.Fields[idx_ContratosClienteBeneficiosNIF_CIF].AsString := aValue;
end;
function TContratosClienteBeneficiosDataTableRules.GetNIF_CIFIsNull: boolean;
begin
result := DataTable.Fields[idx_ContratosClienteBeneficiosNIF_CIF].IsNull;
end;
procedure TContratosClienteBeneficiosDataTableRules.SetNIF_CIFIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratosClienteBeneficiosNIF_CIF].AsVariant := Null;
end;
function TContratosClienteBeneficiosDataTableRules.GetIMPORTE_NETOValue: Currency;
begin
result := DataTable.Fields[idx_ContratosClienteBeneficiosIMPORTE_NETO].AsCurrency;
end;
procedure TContratosClienteBeneficiosDataTableRules.SetIMPORTE_NETOValue(const aValue: Currency);
begin
DataTable.Fields[idx_ContratosClienteBeneficiosIMPORTE_NETO].AsCurrency := aValue;
end;
function TContratosClienteBeneficiosDataTableRules.GetIMPORTE_NETOIsNull: boolean;
begin
result := DataTable.Fields[idx_ContratosClienteBeneficiosIMPORTE_NETO].IsNull;
end;
procedure TContratosClienteBeneficiosDataTableRules.SetIMPORTE_NETOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratosClienteBeneficiosIMPORTE_NETO].AsVariant := Null;
end;
function TContratosClienteBeneficiosDataTableRules.GetIMPORTE_DESCUENTOValue: Currency;
begin
result := DataTable.Fields[idx_ContratosClienteBeneficiosIMPORTE_DESCUENTO].AsCurrency;
end;
procedure TContratosClienteBeneficiosDataTableRules.SetIMPORTE_DESCUENTOValue(const aValue: Currency);
begin
DataTable.Fields[idx_ContratosClienteBeneficiosIMPORTE_DESCUENTO].AsCurrency := aValue;
end;
function TContratosClienteBeneficiosDataTableRules.GetIMPORTE_DESCUENTOIsNull: boolean;
begin
result := DataTable.Fields[idx_ContratosClienteBeneficiosIMPORTE_DESCUENTO].IsNull;
end;
procedure TContratosClienteBeneficiosDataTableRules.SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratosClienteBeneficiosIMPORTE_DESCUENTO].AsVariant := Null;
end;
function TContratosClienteBeneficiosDataTableRules.GetBASE_IMPONIBLEValue: Currency;
begin
result := DataTable.Fields[idx_ContratosClienteBeneficiosBASE_IMPONIBLE].AsCurrency;
end;
procedure TContratosClienteBeneficiosDataTableRules.SetBASE_IMPONIBLEValue(const aValue: Currency);
begin
DataTable.Fields[idx_ContratosClienteBeneficiosBASE_IMPONIBLE].AsCurrency := aValue;
end;
function TContratosClienteBeneficiosDataTableRules.GetBASE_IMPONIBLEIsNull: boolean;
begin
result := DataTable.Fields[idx_ContratosClienteBeneficiosBASE_IMPONIBLE].IsNull;
end;
procedure TContratosClienteBeneficiosDataTableRules.SetBASE_IMPONIBLEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratosClienteBeneficiosBASE_IMPONIBLE].AsVariant := Null;
end;
function TContratosClienteBeneficiosDataTableRules.GetIMPORTE_FACTURAS_PROVEEDORValue: Currency;
begin
result := DataTable.Fields[idx_ContratosClienteBeneficiosIMPORTE_FACTURAS_PROVEEDOR].AsCurrency;
end;
procedure TContratosClienteBeneficiosDataTableRules.SetIMPORTE_FACTURAS_PROVEEDORValue(const aValue: Currency);
begin
DataTable.Fields[idx_ContratosClienteBeneficiosIMPORTE_FACTURAS_PROVEEDOR].AsCurrency := aValue;
end;
function TContratosClienteBeneficiosDataTableRules.GetIMPORTE_FACTURAS_PROVEEDORIsNull: boolean;
begin
result := DataTable.Fields[idx_ContratosClienteBeneficiosIMPORTE_FACTURAS_PROVEEDOR].IsNull;
end;
procedure TContratosClienteBeneficiosDataTableRules.SetIMPORTE_FACTURAS_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratosClienteBeneficiosIMPORTE_FACTURAS_PROVEEDOR].AsVariant := Null;
end;
function TContratosClienteBeneficiosDataTableRules.GetIMPORTE_BENEFICIOValue: Currency;
begin
result := DataTable.Fields[idx_ContratosClienteBeneficiosIMPORTE_BENEFICIO].AsCurrency;
end;
procedure TContratosClienteBeneficiosDataTableRules.SetIMPORTE_BENEFICIOValue(const aValue: Currency);
begin
DataTable.Fields[idx_ContratosClienteBeneficiosIMPORTE_BENEFICIO].AsCurrency := aValue;
end;
function TContratosClienteBeneficiosDataTableRules.GetIMPORTE_BENEFICIOIsNull: boolean;
begin
result := DataTable.Fields[idx_ContratosClienteBeneficiosIMPORTE_BENEFICIO].IsNull;
end;
procedure TContratosClienteBeneficiosDataTableRules.SetIMPORTE_BENEFICIOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratosClienteBeneficiosIMPORTE_BENEFICIO].AsVariant := Null;
end;
function TContratosClienteBeneficiosDataTableRules.GetPORCENTAJE_BENEFICIOValue: Currency;
begin
result := DataTable.Fields[idx_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO].AsCurrency;
end;
procedure TContratosClienteBeneficiosDataTableRules.SetPORCENTAJE_BENEFICIOValue(const aValue: Currency);
begin
DataTable.Fields[idx_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO].AsCurrency := aValue;
end;
function TContratosClienteBeneficiosDataTableRules.GetPORCENTAJE_BENEFICIOIsNull: boolean;
begin
result := DataTable.Fields[idx_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO].IsNull;
end;
procedure TContratosClienteBeneficiosDataTableRules.SetPORCENTAJE_BENEFICIOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO].AsVariant := Null;
end;
{ TContratosClienteDataTableRules }
constructor TContratosClienteDataTableRules.Create(aDataTable: TDADataTable);
var
@ -2847,6 +3273,7 @@ initialization
RegisterDataTableRules(RID_Valores, TValoresDataTableRules);
RegisterDataTableRules(RID_Propiedades, TPropiedadesDataTableRules);
RegisterDataTableRules(RID_ListaAnosContratos, TListaAnosContratosDataTableRules);
RegisterDataTableRules(RID_ContratosClienteBeneficios, TContratosClienteBeneficiosDataTableRules);
RegisterDataTableRules(RID_ContratosCliente, TContratosClienteDataTableRules);
RegisterDataTableRules(RID_TiposCapitulos, TTiposCapitulosDataTableRules);
RegisterDataTableRules(RID_ContratosCliente_Detalles, TContratosCliente_DetallesDataTableRules);

533
Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas
View File

@ -9,17 +9,18 @@ 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_ValoresDelta = '{94A3010D-5D46-4AA9-9838-04B55576C94E}';
RID_PropiedadesDelta = '{99F13846-B993-4348-AE33-7D0922C5D1AD}';
RID_ListaAnosContratosDelta = '{74150E30-F707-4AF1-9D4C-69ACEE1FF491}';
RID_ContratosClienteDelta = '{4D6235D2-E6FF-4894-889B-937ED4E1A5C7}';
RID_TiposCapitulosDelta = '{837573E5-D7F7-44CC-A73C-797CBB7D62F0}';
RID_ContratosCliente_DetallesDelta = '{EA0605D9-70CD-4487-8706-ECC60AEC6E82}';
RID_ValoresDelta = '{70C4BC9D-7C37-4D4D-8DD1-28D18949AFCF}';
RID_PropiedadesDelta = '{EAC18BA2-1808-42BD-B887-7780E0DE9339}';
RID_ListaAnosContratosDelta = '{2E6083C4-12F7-4E98-B59D-C5DDBBA65708}';
RID_ContratosClienteBeneficiosDelta = '{01CD2693-B234-4FED-ABDE-8B8E1C7A2508}';
RID_ContratosClienteDelta = '{D54F00B0-E8DC-4A66-BE4C-3F39EE74EE66}';
RID_TiposCapitulosDelta = '{6A3B35F6-2F7A-413B-AB11-9F05935C5774}';
RID_ContratosCliente_DetallesDelta = '{01D29ED0-F4B1-45DD-A233-C0B689192303}';
type
{ IValoresDelta }
IValoresDelta = interface(IValores)
['{94A3010D-5D46-4AA9-9838-04B55576C94E}']
['{70C4BC9D-7C37-4D4D-8DD1-28D18949AFCF}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PROPIEDADValue : Integer;
@ -77,7 +78,7 @@ type
{ IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades)
['{99F13846-B993-4348-AE33-7D0922C5D1AD}']
['{EAC18BA2-1808-42BD-B887-7780E0DE9339}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@ -135,7 +136,7 @@ type
{ IListaAnosContratosDelta }
IListaAnosContratosDelta = interface(IListaAnosContratos)
['{74150E30-F707-4AF1-9D4C-69ACEE1FF491}']
['{2E6083C4-12F7-4E98-B59D-C5DDBBA65708}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -167,9 +168,163 @@ type
end;
{ IContratosClienteBeneficiosDelta }
IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios)
['{01CD2693-B234-4FED-ABDE-8B8E1C7A2508}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldREFERENCIAValue : String;
function GetOldFECHA_CONTRATOValue : DateTime;
function GetOldNOMBREValue : String;
function GetOldNIF_CIFValue : String;
function GetOldIMPORTE_NETOValue : Currency;
function GetOldIMPORTE_DESCUENTOValue : Currency;
function GetOldBASE_IMPONIBLEValue : Currency;
function GetOldIMPORTE_FACTURAS_PROVEEDORValue : Currency;
function GetOldIMPORTE_BENEFICIOValue : Currency;
function GetOldPORCENTAJE_BENEFICIOValue : Currency;
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldFECHA_CONTRATO : DateTime read GetOldFECHA_CONTRATOValue;
property OldNOMBRE : String read GetOldNOMBREValue;
property OldNIF_CIF : String read GetOldNIF_CIFValue;
property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue;
property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue;
property OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue;
property OldIMPORTE_FACTURAS_PROVEEDOR : Currency read GetOldIMPORTE_FACTURAS_PROVEEDORValue;
property OldIMPORTE_BENEFICIO : Currency read GetOldIMPORTE_BENEFICIOValue;
property OldPORCENTAJE_BENEFICIO : Currency read GetOldPORCENTAJE_BENEFICIOValue;
end;
{ TContratosClienteBeneficiosBusinessProcessorRules }
TContratosClienteBeneficiosBusinessProcessorRules = class(TDABusinessProcessorRules, IContratosClienteBeneficios, IContratosClienteBeneficiosDelta)
private
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
function GetIDIsNull: Boolean; virtual;
function GetOldIDValue: Integer; virtual;
function GetOldIDIsNull: Boolean; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetREFERENCIAValue: String; virtual;
function GetREFERENCIAIsNull: Boolean; virtual;
function GetOldREFERENCIAValue: String; virtual;
function GetOldREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
function GetFECHA_CONTRATOValue: DateTime; virtual;
function GetFECHA_CONTRATOIsNull: Boolean; virtual;
function GetOldFECHA_CONTRATOValue: DateTime; virtual;
function GetOldFECHA_CONTRATOIsNull: Boolean; virtual;
procedure SetFECHA_CONTRATOValue(const aValue: DateTime); virtual;
procedure SetFECHA_CONTRATOIsNull(const aValue: Boolean); virtual;
function GetNOMBREValue: String; virtual;
function GetNOMBREIsNull: Boolean; virtual;
function GetOldNOMBREValue: String; virtual;
function GetOldNOMBREIsNull: Boolean; virtual;
procedure SetNOMBREValue(const aValue: String); virtual;
procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
function GetNIF_CIFValue: String; virtual;
function GetNIF_CIFIsNull: Boolean; virtual;
function GetOldNIF_CIFValue: String; virtual;
function GetOldNIF_CIFIsNull: Boolean; virtual;
procedure SetNIF_CIFValue(const aValue: String); virtual;
procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_NETOValue: Currency; virtual;
function GetIMPORTE_NETOIsNull: Boolean; virtual;
function GetOldIMPORTE_NETOValue: Currency; virtual;
function GetOldIMPORTE_NETOIsNull: Boolean; virtual;
procedure SetIMPORTE_NETOValue(const aValue: Currency); virtual;
procedure SetIMPORTE_NETOIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_DESCUENTOValue: Currency; virtual;
function GetIMPORTE_DESCUENTOIsNull: Boolean; virtual;
function GetOldIMPORTE_DESCUENTOValue: Currency; virtual;
function GetOldIMPORTE_DESCUENTOIsNull: Boolean; virtual;
procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); virtual;
procedure SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean); virtual;
function GetBASE_IMPONIBLEValue: Currency; virtual;
function GetBASE_IMPONIBLEIsNull: Boolean; virtual;
function GetOldBASE_IMPONIBLEValue: Currency; virtual;
function GetOldBASE_IMPONIBLEIsNull: Boolean; virtual;
procedure SetBASE_IMPONIBLEValue(const aValue: Currency); virtual;
procedure SetBASE_IMPONIBLEIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_FACTURAS_PROVEEDORValue: Currency; virtual;
function GetIMPORTE_FACTURAS_PROVEEDORIsNull: Boolean; virtual;
function GetOldIMPORTE_FACTURAS_PROVEEDORValue: Currency; virtual;
function GetOldIMPORTE_FACTURAS_PROVEEDORIsNull: Boolean; virtual;
procedure SetIMPORTE_FACTURAS_PROVEEDORValue(const aValue: Currency); virtual;
procedure SetIMPORTE_FACTURAS_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_BENEFICIOValue: Currency; virtual;
function GetIMPORTE_BENEFICIOIsNull: Boolean; virtual;
function GetOldIMPORTE_BENEFICIOValue: Currency; virtual;
function GetOldIMPORTE_BENEFICIOIsNull: Boolean; virtual;
procedure SetIMPORTE_BENEFICIOValue(const aValue: Currency); virtual;
procedure SetIMPORTE_BENEFICIOIsNull(const aValue: Boolean); virtual;
function GetPORCENTAJE_BENEFICIOValue: Currency; virtual;
function GetPORCENTAJE_BENEFICIOIsNull: Boolean; virtual;
function GetOldPORCENTAJE_BENEFICIOValue: Currency; virtual;
function GetOldPORCENTAJE_BENEFICIOIsNull: Boolean; virtual;
procedure SetPORCENTAJE_BENEFICIOValue(const aValue: Currency); virtual;
procedure SetPORCENTAJE_BENEFICIOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
property OldID : Integer read GetOldIDValue;
property OldIDIsNull : Boolean read GetOldIDIsNull;
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
property FECHA_CONTRATO : DateTime read GetFECHA_CONTRATOValue write SetFECHA_CONTRATOValue;
property FECHA_CONTRATOIsNull : Boolean read GetFECHA_CONTRATOIsNull write SetFECHA_CONTRATOIsNull;
property OldFECHA_CONTRATO : DateTime read GetOldFECHA_CONTRATOValue;
property OldFECHA_CONTRATOIsNull : Boolean read GetOldFECHA_CONTRATOIsNull;
property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property OldNOMBRE : String read GetOldNOMBREValue;
property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull;
property NIF_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue;
property NIF_CIFIsNull : Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property OldNIF_CIF : String read GetOldNIF_CIFValue;
property OldNIF_CIFIsNull : Boolean read GetOldNIF_CIFIsNull;
property IMPORTE_NETO : Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue;
property IMPORTE_NETOIsNull : Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull;
property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue;
property OldIMPORTE_NETOIsNull : Boolean read GetOldIMPORTE_NETOIsNull;
property IMPORTE_DESCUENTO : Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue;
property IMPORTE_DESCUENTOIsNull : Boolean read GetIMPORTE_DESCUENTOIsNull write SetIMPORTE_DESCUENTOIsNull;
property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue;
property OldIMPORTE_DESCUENTOIsNull : Boolean read GetOldIMPORTE_DESCUENTOIsNull;
property BASE_IMPONIBLE : Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue;
property BASE_IMPONIBLEIsNull : Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull;
property OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue;
property OldBASE_IMPONIBLEIsNull : Boolean read GetOldBASE_IMPONIBLEIsNull;
property IMPORTE_FACTURAS_PROVEEDOR : Currency read GetIMPORTE_FACTURAS_PROVEEDORValue write SetIMPORTE_FACTURAS_PROVEEDORValue;
property IMPORTE_FACTURAS_PROVEEDORIsNull : Boolean read GetIMPORTE_FACTURAS_PROVEEDORIsNull write SetIMPORTE_FACTURAS_PROVEEDORIsNull;
property OldIMPORTE_FACTURAS_PROVEEDOR : Currency read GetOldIMPORTE_FACTURAS_PROVEEDORValue;
property OldIMPORTE_FACTURAS_PROVEEDORIsNull : Boolean read GetOldIMPORTE_FACTURAS_PROVEEDORIsNull;
property IMPORTE_BENEFICIO : Currency read GetIMPORTE_BENEFICIOValue write SetIMPORTE_BENEFICIOValue;
property IMPORTE_BENEFICIOIsNull : Boolean read GetIMPORTE_BENEFICIOIsNull write SetIMPORTE_BENEFICIOIsNull;
property OldIMPORTE_BENEFICIO : Currency read GetOldIMPORTE_BENEFICIOValue;
property OldIMPORTE_BENEFICIOIsNull : Boolean read GetOldIMPORTE_BENEFICIOIsNull;
property PORCENTAJE_BENEFICIO : Currency read GetPORCENTAJE_BENEFICIOValue write SetPORCENTAJE_BENEFICIOValue;
property PORCENTAJE_BENEFICIOIsNull : Boolean read GetPORCENTAJE_BENEFICIOIsNull write SetPORCENTAJE_BENEFICIOIsNull;
property OldPORCENTAJE_BENEFICIO : Currency read GetOldPORCENTAJE_BENEFICIOValue;
property OldPORCENTAJE_BENEFICIOIsNull : Boolean read GetOldPORCENTAJE_BENEFICIOIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
{ IContratosClienteDelta }
IContratosClienteDelta = interface(IContratosCliente)
['{4D6235D2-E6FF-4894-889B-937ED4E1A5C7}']
['{D54F00B0-E8DC-4A66-BE4C-3F39EE74EE66}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -735,7 +890,7 @@ type
{ ITiposCapitulosDelta }
ITiposCapitulosDelta = interface(ITiposCapitulos)
['{837573E5-D7F7-44CC-A73C-797CBB7D62F0}']
['{6A3B35F6-2F7A-413B-AB11-9F05935C5774}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer;
@ -829,7 +984,7 @@ type
{ IContratosCliente_DetallesDelta }
IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles)
['{EA0605D9-70CD-4487-8706-ECC60AEC6E82}']
['{01D29ED0-F4B1-45DD-A233-C0B689192303}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTRATOValue : Integer;
@ -1287,6 +1442,359 @@ begin
end;
{ TContratosClienteBeneficiosBusinessProcessorRules }
constructor TContratosClienteBeneficiosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TContratosClienteBeneficiosBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosID];
end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosID]);
end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetOldIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosID];
end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetOldIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosID]);
end;
procedure TContratosClienteBeneficiosBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosID] := aValue;
end;
procedure TContratosClienteBeneficiosBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosID] := Null;
end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosREFERENCIA];
end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosREFERENCIA]);
end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosREFERENCIA];
end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosREFERENCIA]);
end;
procedure TContratosClienteBeneficiosBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosREFERENCIA] := aValue;
end;
procedure TContratosClienteBeneficiosBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosREFERENCIA] := Null;
end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetFECHA_CONTRATOValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosFECHA_CONTRATO];
end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetFECHA_CONTRATOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosFECHA_CONTRATO]);
end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetOldFECHA_CONTRATOValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosFECHA_CONTRATO];
end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetOldFECHA_CONTRATOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosFECHA_CONTRATO]);
end;
procedure TContratosClienteBeneficiosBusinessProcessorRules.SetFECHA_CONTRATOValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosFECHA_CONTRATO] := aValue;
end;
procedure TContratosClienteBeneficiosBusinessProcessorRules.SetFECHA_CONTRATOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosFECHA_CONTRATO] := Null;
end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetNOMBREValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosNOMBRE];
end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetNOMBREIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosNOMBRE]);
end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetOldNOMBREValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosNOMBRE];
end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosNOMBRE]);
end;
procedure TContratosClienteBeneficiosBusinessProcessorRules.SetNOMBREValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosNOMBRE] := aValue;
end;
procedure TContratosClienteBeneficiosBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosNOMBRE] := Null;
end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetNIF_CIFValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosNIF_CIF];
end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetNIF_CIFIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosNIF_CIF]);
end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetOldNIF_CIFValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosNIF_CIF];
end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetOldNIF_CIFIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosNIF_CIF]);
end;
procedure TContratosClienteBeneficiosBusinessProcessorRules.SetNIF_CIFValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosNIF_CIF] := aValue;
end;
procedure TContratosClienteBeneficiosBusinessProcessorRules.SetNIF_CIFIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosNIF_CIF] := Null;
end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetIMPORTE_NETOValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosIMPORTE_NETO];
end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetIMPORTE_NETOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosIMPORTE_NETO]);
end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetOldIMPORTE_NETOValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosIMPORTE_NETO];
end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetOldIMPORTE_NETOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosIMPORTE_NETO]);
end;
procedure TContratosClienteBeneficiosBusinessProcessorRules.SetIMPORTE_NETOValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosIMPORTE_NETO] := aValue;
end;
procedure TContratosClienteBeneficiosBusinessProcessorRules.SetIMPORTE_NETOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosIMPORTE_NETO] := Null;
end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetIMPORTE_DESCUENTOValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosIMPORTE_DESCUENTO];
end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetIMPORTE_DESCUENTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosIMPORTE_DESCUENTO]);
end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetOldIMPORTE_DESCUENTOValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosIMPORTE_DESCUENTO];
end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetOldIMPORTE_DESCUENTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosIMPORTE_DESCUENTO]);
end;
procedure TContratosClienteBeneficiosBusinessProcessorRules.SetIMPORTE_DESCUENTOValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosIMPORTE_DESCUENTO] := aValue;
end;
procedure TContratosClienteBeneficiosBusinessProcessorRules.SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosIMPORTE_DESCUENTO] := Null;
end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetBASE_IMPONIBLEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosBASE_IMPONIBLE];
end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetBASE_IMPONIBLEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosBASE_IMPONIBLE]);
end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetOldBASE_IMPONIBLEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosBASE_IMPONIBLE];
end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetOldBASE_IMPONIBLEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosBASE_IMPONIBLE]);
end;
procedure TContratosClienteBeneficiosBusinessProcessorRules.SetBASE_IMPONIBLEValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosBASE_IMPONIBLE] := aValue;
end;
procedure TContratosClienteBeneficiosBusinessProcessorRules.SetBASE_IMPONIBLEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosBASE_IMPONIBLE] := Null;
end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetIMPORTE_FACTURAS_PROVEEDORValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosIMPORTE_FACTURAS_PROVEEDOR];
end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetIMPORTE_FACTURAS_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosIMPORTE_FACTURAS_PROVEEDOR]);
end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetOldIMPORTE_FACTURAS_PROVEEDORValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosIMPORTE_FACTURAS_PROVEEDOR];
end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetOldIMPORTE_FACTURAS_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosIMPORTE_FACTURAS_PROVEEDOR]);
end;
procedure TContratosClienteBeneficiosBusinessProcessorRules.SetIMPORTE_FACTURAS_PROVEEDORValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosIMPORTE_FACTURAS_PROVEEDOR] := aValue;
end;
procedure TContratosClienteBeneficiosBusinessProcessorRules.SetIMPORTE_FACTURAS_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosIMPORTE_FACTURAS_PROVEEDOR] := Null;
end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetIMPORTE_BENEFICIOValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosIMPORTE_BENEFICIO];
end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetIMPORTE_BENEFICIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosIMPORTE_BENEFICIO]);
end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetOldIMPORTE_BENEFICIOValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosIMPORTE_BENEFICIO];
end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetOldIMPORTE_BENEFICIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosIMPORTE_BENEFICIO]);
end;
procedure TContratosClienteBeneficiosBusinessProcessorRules.SetIMPORTE_BENEFICIOValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosIMPORTE_BENEFICIO] := aValue;
end;
procedure TContratosClienteBeneficiosBusinessProcessorRules.SetIMPORTE_BENEFICIOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosIMPORTE_BENEFICIO] := Null;
end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetPORCENTAJE_BENEFICIOValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO];
end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetPORCENTAJE_BENEFICIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO]);
end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetOldPORCENTAJE_BENEFICIOValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO];
end;
function TContratosClienteBeneficiosBusinessProcessorRules.GetOldPORCENTAJE_BENEFICIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO]);
end;
procedure TContratosClienteBeneficiosBusinessProcessorRules.SetPORCENTAJE_BENEFICIOValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO] := aValue;
end;
procedure TContratosClienteBeneficiosBusinessProcessorRules.SetPORCENTAJE_BENEFICIOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteBeneficiosPORCENTAJE_BENEFICIO] := Null;
end;
{ TContratosClienteBusinessProcessorRules }
constructor TContratosClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
var
@ -3399,6 +3907,7 @@ initialization
RegisterBusinessProcessorRules(RID_ValoresDelta, TValoresBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_PropiedadesDelta, TPropiedadesBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_ListaAnosContratosDelta, TListaAnosContratosBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_ContratosClienteBeneficiosDelta, TContratosClienteBeneficiosBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_ContratosClienteDelta, TContratosClienteBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_TiposCapitulosDelta, TTiposCapitulosBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_ContratosCliente_DetallesDelta, TContratosCliente_DetallesBusinessProcessorRules);

9
Source/Modulos/Contratos de cliente/Model/uBizContratosCliente.pas
View File

@ -9,6 +9,7 @@ uses
const
BIZ_CLIENT_CONTRATO_CLIENTE = 'Client.ContratoCliente';
BIZ_CLIENT_CONTRATOS_CLIENTE_BENEFICIOS = 'Client.ContratosClienteBeneficios';
SITUACION_CONTRATO_PENDIENTE = 'PENDIENTE';
SITUACION_CONTRATO_TERMINADO = 'TERMINADO';
@ -38,6 +39,10 @@ type
function DarListaSituaciones: TStringList;
end;
IBizContratosClienteBeneficios = interface(IContratosClienteBeneficios)
['{ABB58720-9FD2-4E85-AEAA-4E7DAA1E6223}']
end;
TBizContratoCliente = class(TContratosClienteDataTableRules, IBizContratoCliente, ISeleccionable)
private
procedure CalcularBaseImponible;
@ -94,6 +99,9 @@ type
destructor Destroy; override;
end;
TBizContratosClienteBeneficios = class(TContratosClienteBeneficiosDataTableRules, IBizContratosClienteBeneficios)
end;
implementation
@ -403,6 +411,7 @@ end;
initialization
RegisterDataTableRules(BIZ_CLIENT_CONTRATO_CLIENTE, TBizContratoCliente);
RegisterDataTableRules(BIZ_CLIENT_CONTRATOS_CLIENTE_BENEFICIOS, TBizContratosClienteBeneficios);
finalization

111
Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm
View File

@ -127,6 +127,117 @@ object srvContratosCliente: TsrvContratosCliente
Size = 254
end>
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'V_CONTRATOS_BENEFICIOS'
Name = 'IBX'
SQL =
'SELECT '#10' ID, REFERENCIA, FECHA_CONTRATO, NOMBRE, NIF_CIF, IMP' +
'ORTE_NETO, '#10' IMPORTE_DESCUENTO, BASE_IMPONIBLE, IMPORTE_FACTU' +
'RAS_PROVEEDOR, '#10' IMPORTE_BENEFICIO, PORCENTAJE_BENEFICIO'#10' FR' +
'OM'#10' V_CONTRATOS_BENEFICIOS'#10' WHERE {Where}'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'FECHA_CONTRATO'
TableField = 'FECHA_CONTRATO'
end
item
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
end
item
DatasetField = 'NIF_CIF'
TableField = 'NIF_CIF'
end
item
DatasetField = 'IMPORTE_NETO'
TableField = 'IMPORTE_NETO'
end
item
DatasetField = 'IMPORTE_DESCUENTO'
TableField = 'IMPORTE_DESCUENTO'
end
item
DatasetField = 'BASE_IMPONIBLE'
TableField = 'BASE_IMPONIBLE'
end
item
DatasetField = 'IMPORTE_FACTURAS_PROVEEDOR'
TableField = 'IMPORTE_FACTURAS_PROVEEDOR'
end
item
DatasetField = 'IMPORTE_BENEFICIO'
TableField = 'IMPORTE_BENEFICIO'
end
item
DatasetField = 'PORCENTAJE_BENEFICIO'
TableField = 'PORCENTAJE_BENEFICIO'
end>
end>
Name = 'ContratosClienteBeneficios'
Fields = <
item
Name = 'ID'
DataType = datInteger
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'FECHA_CONTRATO'
DataType = datDateTime
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
end
item
Name = 'IMPORTE_NETO'
DataType = datCurrency
end
item
Name = 'IMPORTE_DESCUENTO'
DataType = datCurrency
end
item
Name = 'BASE_IMPONIBLE'
DataType = datCurrency
end
item
Name = 'IMPORTE_FACTURAS_PROVEEDOR'
DataType = datCurrency
end
item
Name = 'IMPORTE_BENEFICIO'
DataType = datCurrency
end
item
Name = 'PORCENTAJE_BENEFICIO'
DataType = datCurrency
end>
end
item
Params = <>
Statements = <

BIN
Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.RES
View File

Binary file not shown.

33
Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.dpk
View File

@ -47,7 +47,34 @@ requires
dxComnD11,
ContratosCliente_model,
ContratosCliente_controller,
ConCli_FacCli_relation;
ConCli_FacCli_relation,
PngComponentsD10,
PNG_D10,
vclactnband,
vclx,
tb2k_d10,
tbx_d10,
GUISDK_D11R,
designide,
xmlrtl,
dxCoreD11,
cxGridD11,
cxPageControlD11,
cxExtEditorsD11,
cxExportD11,
dxPSCoreD11,
dxPScxCommonD11,
dxPSLnksD11,
vclshlctrls,
dxPScxGrid6LnkD11,
dclcxLibraryD11,
dcldxCoreD11,
JvStdCtrlsD11R,
JclVcl,
Jcl,
JvCoreD11R,
JvSystemD11R,
JvPageCompsD11R;
contains
uContratosClienteViewRegister in 'uContratosClienteViewRegister.pas',
@ -62,6 +89,8 @@ contains
uEditorContratosClienteReport in 'uEditorContratosClienteReport.pas' {fEditorContratosClientePreview: TfEditorPedidosClientePreview},
uViewDireccionEntregaContratoCliente in 'uViewDireccionEntregaContratoCliente.pas' {frViewDireccionEntregaContratoCliente: TFrame},
uViewDocumentosContratoCliente in 'uViewDocumentosContratoCliente.pas' {frViewDocumentosContratoCliente: TFrame},
uViewDatosYSeleccionClienteContrato in 'uViewDatosYSeleccionClienteContrato.pas' {frViewDatosYSeleccionClienteContrato: TFrame};
uViewDatosYSeleccionClienteContrato in 'uViewDatosYSeleccionClienteContrato.pas' {frViewDatosYSeleccionClienteContrato: TFrame},
uViewContratosClienteBeneficios in 'uViewContratosClienteBeneficios.pas' {frViewContratosClienteBeneficios: TFrame},
uEditorContratosClienteBeneficios in 'uEditorContratosClienteBeneficios.pas' {fEditorContratosClienteBeneficios: TFrame};
end.

81
Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.dproj
View File

@ -49,29 +49,49 @@
<DelphiCompile Include="ContratosCliente_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Relaciones\Contratos de cliente - Facturas de cliente\adortl.dcp" />
<DCCReference Include="..\..\Relaciones\Contratos de cliente - Facturas de cliente\Articulos_view.dcp" />
<DCCReference Include="..\..\Relaciones\Contratos de cliente - Facturas de cliente\Base.dcp" />
<DCCReference Include="..\..\Relaciones\Contratos de cliente - Facturas de cliente\ConCli_FacCli_relation.dcp" />
<DCCReference Include="..\..\Relaciones\Contratos de cliente - Facturas de cliente\ContratosCliente_controller.dcp" />
<DCCReference Include="..\..\Relaciones\Contratos de cliente - Facturas de cliente\ContratosCliente_model.dcp" />
<DCCReference Include="..\..\Relaciones\Contratos de cliente - Facturas de cliente\cxDataD11.dcp" />
<DCCReference Include="..\..\Relaciones\Contratos de cliente - Facturas de cliente\cxEditorsD11.dcp" />
<DCCReference Include="..\..\Relaciones\Contratos de cliente - Facturas de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Relaciones\Contratos de cliente - Facturas de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Relaciones\Contratos de cliente - Facturas de cliente\dbrtl.dcp" />
<DCCReference Include="..\..\Relaciones\Contratos de cliente - Facturas de cliente\dsnap.dcp" />
<DCCReference Include="..\..\Relaciones\Contratos de cliente - Facturas de cliente\dxComnD11.dcp" />
<DCCReference Include="..\..\Relaciones\Contratos de cliente - Facturas de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Relaciones\Contratos de cliente - Facturas de cliente\dxLayoutControlD11.dcp" />
<DCCReference Include="..\..\Relaciones\Contratos de cliente - Facturas de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\..\Relaciones\Contratos de cliente - Facturas de cliente\GestorInformes_controller.dcp" />
<DCCReference Include="..\..\Relaciones\Contratos de cliente - Facturas de cliente\GUIBase.dcp" />
<DCCReference Include="..\..\Relaciones\Contratos de cliente - Facturas de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Relaciones\Contratos de cliente - Facturas de cliente\rtl.dcp" />
<DCCReference Include="..\..\Relaciones\Contratos de cliente - Facturas de cliente\vcl.dcp" />
<DCCReference Include="..\..\Relaciones\Contratos de cliente - Facturas de cliente\vcldb.dcp" />
<DCCReference Include="..\..\Relaciones\Contratos de cliente - Facturas de cliente\vcljpg.dcp" />
<DCCReference Include="adortl.dcp" />
<DCCReference Include="Articulos_view.dcp" />
<DCCReference Include="Base.dcp" />
<DCCReference Include="ConCli_FacCli_relation.dcp" />
<DCCReference Include="ContratosCliente_controller.dcp" />
<DCCReference Include="ContratosCliente_model.dcp" />
<DCCReference Include="cxDataD11.dcp" />
<DCCReference Include="cxEditorsD11.dcp" />
<DCCReference Include="cxExportD11.dcp" />
<DCCReference Include="cxExtEditorsD11.dcp" />
<DCCReference Include="cxGridD11.dcp" />
<DCCReference Include="cxLibraryD11.dcp" />
<DCCReference Include="cxPageControlD11.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" />
<DCCReference Include="dbrtl.dcp" />
<DCCReference Include="dclcxLibraryD11.dcp" />
<DCCReference Include="dcldxCoreD11.dcp" />
<DCCReference Include="designide.dcp" />
<DCCReference Include="dsnap.dcp" />
<DCCReference Include="dxComnD11.dcp" />
<DCCReference Include="dxCoreD11.dcp" />
<DCCReference Include="dxGDIPlusD11.dcp" />
<DCCReference Include="dxLayoutControlD11.dcp" />
<DCCReference Include="dxPSCoreD11.dcp" />
<DCCReference Include="dxPScxCommonD11.dcp" />
<DCCReference Include="dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="dxPSLnksD11.dcp" />
<DCCReference Include="dxThemeD11.dcp" />
<DCCReference Include="GestorInformes_controller.dcp" />
<DCCReference Include="GUIBase.dcp" />
<DCCReference Include="GUISDK_D11R.dcp" />
<DCCReference Include="Jcl.dcp" />
<DCCReference Include="JclVcl.dcp" />
<DCCReference Include="JvCoreD11R.dcp" />
<DCCReference Include="JvPageCompsD11R.dcp" />
<DCCReference Include="JvStdCtrlsD11R.dcp" />
<DCCReference Include="JvSystemD11R.dcp" />
<DCCReference Include="PngComponentsD10.dcp" />
<DCCReference Include="PNG_D10.dcp" />
<DCCReference Include="RemObjects_Core_D11.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="tb2k_d10.dcp" />
<DCCReference Include="tbx_d10.dcp" />
<DCCReference Include="uContratosClienteViewRegister.pas" />
<DCCReference Include="uEditorContratoCliente.pas">
<Form>fEditorPresupuestoCliente</Form>
@ -81,6 +101,10 @@
<Form>fEditorContratosCliente</Form>
<DesignClass>TfEditorPedidoCliente</DesignClass>
</DCCReference>
<DCCReference Include="uEditorContratosClienteBeneficios.pas">
<Form>fEditorContratosClienteBeneficios</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uEditorContratosClienteReport.pas">
<Form>fEditorContratosClientePreview</Form>
<DesignClass>TfEditorPedidosClientePreview</DesignClass>
@ -101,6 +125,10 @@
<Form>frViewContratosCliente</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewContratosClienteBeneficios.pas">
<Form>frViewContratosClienteBeneficios</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewDatosYSeleccionClienteContrato.pas">
<Form>frViewDatosYSeleccionClienteContrato</Form>
<DesignClass>TFrame</DesignClass>
@ -121,6 +149,13 @@
<Form>frViewElegirArticulosContratosCliente</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vclactnband.dcp" />
<DCCReference Include="vcldb.dcp" />
<DCCReference Include="vcljpg.dcp" />
<DCCReference Include="vclshlctrls.dcp" />
<DCCReference Include="vclx.dcp" />
<DCCReference Include="xmlrtl.dcp" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line

5
Source/Modulos/Contratos de cliente/Views/uContratosClienteViewRegister.pas
View File

@ -8,11 +8,13 @@ procedure UnregisterViews;
implementation
uses
uEditorRegistryUtils, uEditorContratosCliente, uEditorContratoCliente, uEditorElegirContratosCliente,
uEditorRegistryUtils, uEditorContratosCliente, uEditorContratosClienteBeneficios,
uEditorContratoCliente, uEditorElegirContratosCliente,
uEditorElegirArticulosContratoCliente, uEditorContratosClienteReport;
procedure RegisterViews;
begin
EditorRegistry.RegisterClass(TfEditorContratosClienteBeneficios, 'EditorContratosClienteBeneficios');
EditorRegistry.RegisterClass(TfEditorContratosCliente, 'EditorContratosCliente');
EditorRegistry.RegisterClass(TfEditorContratoCliente, 'EditorContratoCliente');
EditorRegistry.RegisterClass(TfEditorElegirContratosCliente, 'EditorElegirContratosCliente');
@ -22,6 +24,7 @@ end;
procedure UnregisterViews;
begin
EditorRegistry.UnRegisterClass(TfEditorContratosClienteBeneficios);
EditorRegistry.UnRegisterClass(TfEditorContratosCliente);
EditorRegistry.UnRegisterClass(TfEditorContratoCliente);
EditorRegistry.UnRegisterClass(TfEditorElegirContratosCliente);

12
Source/Modulos/Contratos de cliente/Views/uEditorContratosCliente.dfm
View File

@ -168,7 +168,7 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
DockPos = 343
Visible = True
ExplicitLeft = 431
ExplicitWidth = 117
ExplicitWidth = 221
object TBXSeparatorItem18: TTBXSeparatorItem
end
object TBXItem40: TTBXItem
@ -178,6 +178,10 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
object TBXItem46: TTBXItem
Action = actInformes
end
object TBXItem42: TTBXItem
Action = actListadoBeneficios
DisplayMode = nbdmImageAndText
end
end
end
inherited StatusBar: TJvStatusBar
@ -223,6 +227,12 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
Visible = False
OnExecute = actInformesExecute
end
object actListadoBeneficios: TAction
Category = 'Acciones'
Caption = 'Listar beneficios'
ImageIndex = 26
OnExecute = actListadoBeneficiosExecute
end
end
inherited SmallImages: TPngImageList
PngImages = <

9
Source/Modulos/Contratos de cliente/Views/uEditorContratosCliente.pas
View File

@ -40,6 +40,8 @@ type
TBXItem46: TTBXItem;
JSInformesDialog: TJSDialog;
TBXItem47: TTBXItem;
actListadoBeneficios: TAction;
TBXItem42: TTBXItem;
procedure FormShow(Sender: TObject);
procedure actGenerarAlbaranCliExecute(Sender: TObject);
procedure actEliminarUpdate(Sender: TObject);
@ -55,6 +57,7 @@ type
procedure actEnviarEMailUpdate(Sender: TObject);
procedure actInformesExecute(Sender: TObject);
procedure OnListaAnosChange(Sender: TObject; const Text: string);
procedure actListadoBeneficiosExecute(Sender: TObject);
protected
FContratos: IBizContratoCliente;
@ -309,6 +312,12 @@ begin
end;
end;
procedure TfEditorContratosCliente.actListadoBeneficiosExecute(Sender: TObject);
begin
inherited;
FController.VerListadoBeneficios;
end;
procedure TfEditorContratosCliente.AsignarVista;
begin
ViewGrid := CreateView(TfrViewContratosCliente) as IViewContratosCliente;

BIN
Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.RES
View File

Binary file not shown.

BIN
Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.dpk
View File

Binary file not shown.

37
Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.dproj
View File

@ -1,4 +1,5 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{7ed85635-c723-4c0b-bf1d-f719e0ea33ad}</ProjectGuid>
<MainSource>FacturasProveedor_controller.dpk</MainSource>
@ -41,25 +42,41 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">FacturasProveedor_controller.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">FacturasProveedor_controller.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="FacturasProveedor_controller.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\AlbaranesProveedor_controller.dcp" />
<DCCReference Include="..\AlbaranesProveedor_model.dcp" />
<DCCReference Include="..\Articulos_controller.dcp" />
<DCCReference Include="..\Contactos_controller.dcp" />
<DCCReference Include="..\FacturasProveedor_data.dcp" />
<DCCReference Include="..\FacturasProveedor_model.dcp" />
<DCCReference Include="..\FormasPago_controller.dcp" />
<DCCReference Include="..\RecibosProveedor_controller.dcp" />
<DCCReference Include="adortl.dcp" />
<DCCReference Include="AlbaranesProveedor_controller.dcp" />
<DCCReference Include="AlbaranesProveedor_model.dcp" />
<DCCReference Include="Articulos_controller.dcp" />
<DCCReference Include="Contactos_controller.dcp" />
<DCCReference Include="ContratosCliente_controller.dcp" />
<DCCReference Include="ContratosCliente_model.dcp" />
<DCCReference Include="cxLibraryD11.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" />
<DCCReference Include="dbrtl.dcp" />
<DCCReference Include="dsnap.dcp" />
<DCCReference Include="dxCoreD11.dcp" />
<DCCReference Include="dxGDIPlusD11.dcp" />
<DCCReference Include="dxThemeD11.dcp" />
<DCCReference Include="FacturasProveedor_data.dcp" />
<DCCReference Include="FacturasProveedor_model.dcp" />
<DCCReference Include="FormasPago_controller.dcp" />
<DCCReference Include="RecibosProveedor_controller.dcp" />
<DCCReference Include="RemObjects_Core_D11.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="uArticulosFacturaProveedorController.pas" />
<DCCReference Include="uContratosFacturaProveedorController.pas" />
<DCCReference Include="uDetallesFacturaProveedorController.pas" />
<DCCReference Include="uFacturasProveedorController.pas" />
<DCCReference Include="uFacturasProveedorReportController.pas" />
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vcldb.dcp" />
<DCCReference Include="vclx.dcp" />
<DCCReference Include="View\uIEditorElegirArticulosFacturasProveedor.pas" />
<DCCReference Include="View\uIEditorFacturaProveedor.pas" />
<DCCReference Include="View\uIEditorFacturasProveedor.pas" />

27
Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
View File

@ -6,7 +6,7 @@ interface
uses
Classes, SysUtils, uDADataTable, uControllerBase, uIDataModuleFacturasProveedor,
uProveedoresController, uDetallesFacturaProveedorController, uBizFacturasProveedor,
uBizAlbaranesProveedor, uBizDireccionesContacto;
uBizAlbaranesProveedor, uBizDireccionesContacto, uContratosFacturaProveedorController;
type
IFacturasProveedorController = interface(IControllerBase)
@ -19,6 +19,10 @@ type
procedure SetDetallesController(const Value: IDetallesFacturaProveedorController);
property DetallesController: IDetallesFacturaProveedorController read GetDetallesController write SetDetallesController;
function GetContratosController: IContratosFacturaProveedorController;
procedure SetContratosController(const Value: IContratosFacturaProveedorController);
property ContratosController: IContratosFacturaProveedorController read GetContratosController write SetContratosController;
function Buscar(const ID: Integer): IBizFacturaProveedor;
function BuscarTodos: IBizFacturaProveedor;
procedure Ver(AFactura : IBizFacturaProveedor);
@ -59,6 +63,7 @@ type
FDataModule : IDataModuleFacturasProveedor;
FProveedorController : IProveedoresController;
FDetallesController : IDetallesFacturaProveedorController;
FContratosController : IContratosFacturaProveedorController;
function GetProveedorController: IProveedoresController;
procedure SetProveedorController(const Value: IProveedoresController);
@ -66,6 +71,9 @@ type
function GetDetallesController: IDetallesFacturaProveedorController;
procedure SetDetallesController(const Value: IDetallesFacturaProveedorController);
function GetContratosController: IContratosFacturaProveedorController;
procedure SetContratosController(const Value: IContratosFacturaProveedorController);
function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean;
function _Vacio : IBizFacturaProveedor;
@ -80,6 +88,7 @@ type
public
property ProveedorController: IProveedoresController read GetProveedorController write SetProveedorController;
property DetallesController: IDetallesFacturaProveedorController read GetDetallesController write SetDetallesController;
property ContratosController: IContratosFacturaProveedorController read GetContratosController write SetContratosController;
constructor Create; override;
destructor Destroy; override;
@ -555,6 +564,7 @@ begin
FProveedorController := TProveedoresController.Create;
FDetallesController := TDetallesFacturaProveedorController.Create;
FDetallesController.addObservador(Self);
FContratosController := TContratosFacturaProveedorController.Create;
end;
function TFacturasProveedorController.CreateEditor(const AName: String;
@ -589,6 +599,7 @@ begin
FDataModule := Nil;
FProveedorController := Nil;
FDetallesController := Nil;
FContratosController := Nil;
inherited;
end;
@ -875,6 +886,9 @@ end;
function TFacturasProveedorController.EsEliminable(AFactura: IBizFacturaProveedor; var AComentario: Variant): Boolean;
begin
Result := True;
AComentario := Null;
if not Assigned(AFactura) then
raise Exception.Create ('Factura no asignado: EsEliminable');
@ -897,6 +911,7 @@ end;
function TFacturasProveedorController.EsModificable(AFactura: IBizFacturaProveedor; var AComentario: Variant): Boolean;
begin
Result := True;
AComentario := Null;
if not Assigned(AFactura) then
@ -1049,6 +1064,11 @@ begin
FProveedorController := Value;
end;
procedure TFacturasProveedorController.SetContratosController(const Value: IContratosFacturaProveedorController);
begin
FContratosController := Value;
end;
procedure TFacturasProveedorController.SetDetallesController(const Value: IDetallesFacturaProveedorController);
begin
FDetallesController := Value;
@ -1321,6 +1341,11 @@ begin
Result := FProveedorController;
end;
function TFacturasProveedorController.GetContratosController: IContratosFacturaProveedorController;
begin
Result := FContratosController;
end;
function TFacturasProveedorController.GetDetallesController: IDetallesFacturaProveedorController;
begin
Result := FDetallesController;

66
Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm
View File

@ -424,4 +424,70 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
Left = 208
Top = 168
end
object tbl_FacturasProveedor_Contratos: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_FACTURAS_PROV_CONTRATOS_ID'
ServerAutoRefresh = True
DictionaryEntry = 'FacturasProveedor_Contratos_ID'
InPrimaryKey = True
end
item
Name = 'ID_FACTURA'
DataType = datInteger
DisplayLabel = 'FacturasProveedor_Contratos_ID_FACTURA'
DictionaryEntry = 'FacturasProveedor_Contratos_ID_FACTURA'
end
item
Name = 'ID_CONTRATO'
DataType = datInteger
DisplayLabel = 'FacturasProveedor_Contratos_ID_CONTRATO'
DictionaryEntry = 'FacturasProveedor_Contratos_ID_CONTRATO'
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
DisplayLabel = 'FacturasProveedor_Contratos_NOMBRE'
DictionaryEntry = 'FacturasProveedor_Contratos_NOMBRE'
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
DisplayLabel = 'FacturasProveedor_Contratos_NIF_CIF'
DictionaryEntry = 'FacturasProveedor_Contratos_NIF_CIF'
end
item
Name = 'IMPORTE'
DataType = datCurrency
DisplayLabel = 'FacturasProveedor_Contratos_IMPORTE'
DictionaryEntry = 'FacturasProveedor_Contratos_IMPORTE'
end>
Params = <>
MasterMappingMode = mmWhere
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_FacturasProveedor
MasterSource = ds_FacturasProveedor
MasterFields = 'ID'
DetailFields = 'ID_FACTURA'
LogicalName = 'FacturasProveedor_Contratos'
IndexDefs = <>
Left = 368
Top = 168
end
object ds_FacturasProveedor_Contratos: TDADataSource
DataSet = tbl_FacturasProveedor_Contratos.Dataset
DataTable = tbl_FacturasProveedor_Contratos
Left = 368
Top = 216
end
end

22
Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.pas
View File

@ -22,9 +22,12 @@ type
ds_FacturasProveedor_Detalles: TDADataSource;
tbl_ListaAnosFacturas: TDAMemDataTable;
ds_ListaAnosFacturas: TDADataSource;
tbl_FacturasProveedor_Contratos: TDAMemDataTable;
ds_FacturasProveedor_Contratos: TDADataSource;
procedure DAClientDataModuleCreate(Sender: TObject);
private
function _GetDetalles : IBizDetallesFacturaProveedor;
function _GetContratos : IBizContratosFacturaProveedor;
public
function GetAnosItems : TStringList;
function GetItems : IBizFacturaProveedor;
@ -61,6 +64,24 @@ begin
Result := GetItem(ID_NULO)
end;
function TDataModuleFacturasProveedor._GetContratos: IBizContratosFacturaProveedor;
var
AContratos : TDAMemDataTable;
begin
ShowHourglassCursor;
try
AContratos := CloneDataTable(tbl_FacturasProveedor_Contratos);
with AContratos do
begin
BusinessRulesID := BIZ_CLIENT_CONTRATOS_FACTURA_PROVEEDOR;
DetailOptions := DetailOptions - [dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates];
end;
Result := (AContratos as IBizContratosFacturaProveedor);
finally
HideHourglassCursor;
end;
end;
function TDataModuleFacturasProveedor._GetDetalles: IBizDetallesFacturaProveedor;
var
ADetalles : TDAMemDataTable;
@ -142,6 +163,7 @@ begin
with TBizFacturaProveedor(AFactura.BusinessEventsObj) do
begin
Detalles := _GetDetalles;
Contratos := _GetContratos;
end;
Result := (AFactura as IBizFacturaProveedor);

307
Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas
View File

@ -3,18 +3,20 @@ unit schFacturasProveedorClient_Intf;
interface
uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosFacturas = '{6D612B76-FD37-4A12-A8FC-AEBF06FE9DFF}';
RID_FacturasProveedor = '{19A5FACD-B082-4017-9472-473A335CC4CD}';
RID_FacturasProveedor_Detalles = '{8F1894C4-09C5-46A6-9C33-BA6CDCE61EF3}';
RID_ListaAnosFacturas = '{E4006E34-9471-4B45-8BFB-34D795EE5B47}';
RID_FacturasProveedor_Contratos = '{AEFE41C5-3FCA-46FB-8174-2704B20E2905}';
RID_FacturasProveedor = '{4621460A-3688-408C-9676-B526823EC8EF}';
RID_FacturasProveedor_Detalles = '{13D46CB1-CC91-4B2C-83B0-6265D005B1E1}';
{ Data table names }
nme_ListaAnosFacturas = 'ListaAnosFacturas';
nme_FacturasProveedor_Contratos = 'FacturasProveedor_Contratos';
nme_FacturasProveedor = 'FacturasProveedor';
nme_FacturasProveedor_Detalles = 'FacturasProveedor_Detalles';
@ -24,6 +26,24 @@ const
{ ListaAnosFacturas field indexes }
idx_ListaAnosFacturasANO = 0;
{ FacturasProveedor_Contratos fields }
fld_FacturasProveedor_ContratosID = 'ID';
fld_FacturasProveedor_ContratosID_FACTURA = 'ID_FACTURA';
fld_FacturasProveedor_ContratosID_CONTRATO = 'ID_CONTRATO';
fld_FacturasProveedor_ContratosREFERENCIA = 'REFERENCIA';
fld_FacturasProveedor_ContratosNOMBRE = 'NOMBRE';
fld_FacturasProveedor_ContratosNIF_CIF = 'NIF_CIF';
fld_FacturasProveedor_ContratosIMPORTE = 'IMPORTE';
{ FacturasProveedor_Contratos field indexes }
idx_FacturasProveedor_ContratosID = 0;
idx_FacturasProveedor_ContratosID_FACTURA = 1;
idx_FacturasProveedor_ContratosID_CONTRATO = 2;
idx_FacturasProveedor_ContratosREFERENCIA = 3;
idx_FacturasProveedor_ContratosNOMBRE = 4;
idx_FacturasProveedor_ContratosNIF_CIF = 5;
idx_FacturasProveedor_ContratosIMPORTE = 6;
{ FacturasProveedor fields }
fld_FacturasProveedorID = 'ID';
fld_FacturasProveedorID_EMPRESA = 'ID_EMPRESA';
@ -147,7 +167,7 @@ const
type
{ IListaAnosFacturas }
IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
['{D2198D6D-34A4-4ADB-ACA0-62A4FA0126C7}']
['{FC0D46EE-86BF-4511-819E-E9791181DC39}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -161,7 +181,7 @@ type
end;
{ TListaAnosFacturasDataTableRules }
TListaAnosFacturasDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosFacturas)
TListaAnosFacturasDataTableRules = class(TDADataTableRules, IListaAnosFacturas)
private
protected
{ Property getters and setters }
@ -180,9 +200,116 @@ type
end;
{ IFacturasProveedor_Contratos }
IFacturasProveedor_Contratos = interface(IDAStronglyTypedDataTable)
['{DDCB3A4E-D047-4E73-8B5C-7E5879061F5E}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
function GetIDIsNull: Boolean;
procedure SetIDIsNull(const aValue: Boolean);
function GetID_FACTURAValue: Integer;
procedure SetID_FACTURAValue(const aValue: Integer);
function GetID_FACTURAIsNull: Boolean;
procedure SetID_FACTURAIsNull(const aValue: Boolean);
function GetID_CONTRATOValue: Integer;
procedure SetID_CONTRATOValue(const aValue: Integer);
function GetID_CONTRATOIsNull: Boolean;
procedure SetID_CONTRATOIsNull(const aValue: Boolean);
function GetREFERENCIAValue: String;
procedure SetREFERENCIAValue(const aValue: String);
function GetREFERENCIAIsNull: Boolean;
procedure SetREFERENCIAIsNull(const aValue: Boolean);
function GetNOMBREValue: String;
procedure SetNOMBREValue(const aValue: String);
function GetNOMBREIsNull: Boolean;
procedure SetNOMBREIsNull(const aValue: Boolean);
function GetNIF_CIFValue: String;
procedure SetNIF_CIFValue(const aValue: String);
function GetNIF_CIFIsNull: Boolean;
procedure SetNIF_CIFIsNull(const aValue: Boolean);
function GetIMPORTEValue: Currency;
procedure SetIMPORTEValue(const aValue: Currency);
function GetIMPORTEIsNull: Boolean;
procedure SetIMPORTEIsNull(const aValue: Boolean);
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
property ID_CONTRATO: Integer read GetID_CONTRATOValue write SetID_CONTRATOValue;
property ID_CONTRATOIsNull: Boolean read GetID_CONTRATOIsNull write SetID_CONTRATOIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property IMPORTE: Currency read GetIMPORTEValue write SetIMPORTEValue;
property IMPORTEIsNull: Boolean read GetIMPORTEIsNull write SetIMPORTEIsNull;
end;
{ TFacturasProveedor_ContratosDataTableRules }
TFacturasProveedor_ContratosDataTableRules = class(TDADataTableRules, IFacturasProveedor_Contratos)
private
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
function GetIDIsNull: Boolean; virtual;
procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetID_FACTURAValue: Integer; virtual;
procedure SetID_FACTURAValue(const aValue: Integer); virtual;
function GetID_FACTURAIsNull: Boolean; virtual;
procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual;
function GetID_CONTRATOValue: Integer; virtual;
procedure SetID_CONTRATOValue(const aValue: Integer); virtual;
function GetID_CONTRATOIsNull: Boolean; virtual;
procedure SetID_CONTRATOIsNull(const aValue: Boolean); virtual;
function GetREFERENCIAValue: String; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
function GetNOMBREValue: String; virtual;
procedure SetNOMBREValue(const aValue: String); virtual;
function GetNOMBREIsNull: Boolean; virtual;
procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
function GetNIF_CIFValue: String; virtual;
procedure SetNIF_CIFValue(const aValue: String); virtual;
function GetNIF_CIFIsNull: Boolean; virtual;
procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual;
function GetIMPORTEValue: Currency; virtual;
procedure SetIMPORTEValue(const aValue: Currency); virtual;
function GetIMPORTEIsNull: Boolean; virtual;
procedure SetIMPORTEIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
property ID_CONTRATO: Integer read GetID_CONTRATOValue write SetID_CONTRATOValue;
property ID_CONTRATOIsNull: Boolean read GetID_CONTRATOIsNull write SetID_CONTRATOIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property IMPORTE: Currency read GetIMPORTEValue write SetIMPORTEValue;
property IMPORTEIsNull: Boolean read GetIMPORTEIsNull write SetIMPORTEIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
{ IFacturasProveedor }
IFacturasProveedor = interface(IDAStronglyTypedDataTable)
['{233A9E71-2F88-4FEC-8520-7D094756B72C}']
['{1D01094B-37F3-499C-84DD-5C94D01CE360}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -441,7 +568,7 @@ type
end;
{ TFacturasProveedorDataTableRules }
TFacturasProveedorDataTableRules = class(TIntfObjectDADataTableRules, IFacturasProveedor)
TFacturasProveedorDataTableRules = class(TDADataTableRules, IFacturasProveedor)
private
f_OBSERVACIONES: IROStrings;
procedure OBSERVACIONES_OnChange(Sender: TObject);
@ -709,7 +836,7 @@ type
{ IFacturasProveedor_Detalles }
IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{982FA653-D815-42BA-8B55-2014F12285FE}']
['{4D3A6663-3708-42B0-8D14-5C4E213D48FC}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -801,7 +928,7 @@ type
end;
{ TFacturasProveedor_DetallesDataTableRules }
TFacturasProveedor_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IFacturasProveedor_Detalles)
TFacturasProveedor_DetallesDataTableRules = class(TDADataTableRules, IFacturasProveedor_Detalles)
private
protected
{ Property getters and setters }
@ -935,6 +1062,165 @@ begin
end;
{ TFacturasProveedor_ContratosDataTableRules }
constructor TFacturasProveedor_ContratosDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TFacturasProveedor_ContratosDataTableRules.Destroy;
begin
inherited;
end;
function TFacturasProveedor_ContratosDataTableRules.GetIDValue: Integer;
begin
result := DataTable.Fields[idx_FacturasProveedor_ContratosID].AsInteger;
end;
procedure TFacturasProveedor_ContratosDataTableRules.SetIDValue(const aValue: Integer);
begin
DataTable.Fields[idx_FacturasProveedor_ContratosID].AsInteger := aValue;
end;
function TFacturasProveedor_ContratosDataTableRules.GetIDIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasProveedor_ContratosID].IsNull;
end;
procedure TFacturasProveedor_ContratosDataTableRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasProveedor_ContratosID].AsVariant := Null;
end;
function TFacturasProveedor_ContratosDataTableRules.GetID_FACTURAValue: Integer;
begin
result := DataTable.Fields[idx_FacturasProveedor_ContratosID_FACTURA].AsInteger;
end;
procedure TFacturasProveedor_ContratosDataTableRules.SetID_FACTURAValue(const aValue: Integer);
begin
DataTable.Fields[idx_FacturasProveedor_ContratosID_FACTURA].AsInteger := aValue;
end;
function TFacturasProveedor_ContratosDataTableRules.GetID_FACTURAIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasProveedor_ContratosID_FACTURA].IsNull;
end;
procedure TFacturasProveedor_ContratosDataTableRules.SetID_FACTURAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasProveedor_ContratosID_FACTURA].AsVariant := Null;
end;
function TFacturasProveedor_ContratosDataTableRules.GetID_CONTRATOValue: Integer;
begin
result := DataTable.Fields[idx_FacturasProveedor_ContratosID_CONTRATO].AsInteger;
end;
procedure TFacturasProveedor_ContratosDataTableRules.SetID_CONTRATOValue(const aValue: Integer);
begin
DataTable.Fields[idx_FacturasProveedor_ContratosID_CONTRATO].AsInteger := aValue;
end;
function TFacturasProveedor_ContratosDataTableRules.GetID_CONTRATOIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasProveedor_ContratosID_CONTRATO].IsNull;
end;
procedure TFacturasProveedor_ContratosDataTableRules.SetID_CONTRATOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasProveedor_ContratosID_CONTRATO].AsVariant := Null;
end;
function TFacturasProveedor_ContratosDataTableRules.GetREFERENCIAValue: String;
begin
result := DataTable.Fields[idx_FacturasProveedor_ContratosREFERENCIA].AsString;
end;
procedure TFacturasProveedor_ContratosDataTableRules.SetREFERENCIAValue(const aValue: String);
begin
DataTable.Fields[idx_FacturasProveedor_ContratosREFERENCIA].AsString := aValue;
end;
function TFacturasProveedor_ContratosDataTableRules.GetREFERENCIAIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasProveedor_ContratosREFERENCIA].IsNull;
end;
procedure TFacturasProveedor_ContratosDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasProveedor_ContratosREFERENCIA].AsVariant := Null;
end;
function TFacturasProveedor_ContratosDataTableRules.GetNOMBREValue: String;
begin
result := DataTable.Fields[idx_FacturasProveedor_ContratosNOMBRE].AsString;
end;
procedure TFacturasProveedor_ContratosDataTableRules.SetNOMBREValue(const aValue: String);
begin
DataTable.Fields[idx_FacturasProveedor_ContratosNOMBRE].AsString := aValue;
end;
function TFacturasProveedor_ContratosDataTableRules.GetNOMBREIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasProveedor_ContratosNOMBRE].IsNull;
end;
procedure TFacturasProveedor_ContratosDataTableRules.SetNOMBREIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasProveedor_ContratosNOMBRE].AsVariant := Null;
end;
function TFacturasProveedor_ContratosDataTableRules.GetNIF_CIFValue: String;
begin
result := DataTable.Fields[idx_FacturasProveedor_ContratosNIF_CIF].AsString;
end;
procedure TFacturasProveedor_ContratosDataTableRules.SetNIF_CIFValue(const aValue: String);
begin
DataTable.Fields[idx_FacturasProveedor_ContratosNIF_CIF].AsString := aValue;
end;
function TFacturasProveedor_ContratosDataTableRules.GetNIF_CIFIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasProveedor_ContratosNIF_CIF].IsNull;
end;
procedure TFacturasProveedor_ContratosDataTableRules.SetNIF_CIFIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasProveedor_ContratosNIF_CIF].AsVariant := Null;
end;
function TFacturasProveedor_ContratosDataTableRules.GetIMPORTEValue: Currency;
begin
result := DataTable.Fields[idx_FacturasProveedor_ContratosIMPORTE].AsCurrency;
end;
procedure TFacturasProveedor_ContratosDataTableRules.SetIMPORTEValue(const aValue: Currency);
begin
DataTable.Fields[idx_FacturasProveedor_ContratosIMPORTE].AsCurrency := aValue;
end;
function TFacturasProveedor_ContratosDataTableRules.GetIMPORTEIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasProveedor_ContratosIMPORTE].IsNull;
end;
procedure TFacturasProveedor_ContratosDataTableRules.SetIMPORTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasProveedor_ContratosIMPORTE].AsVariant := Null;
end;
{ TFacturasProveedorDataTableRules }
constructor TFacturasProveedorDataTableRules.Create(aDataTable: TDADataTable);
var
@ -2144,6 +2430,7 @@ end;
initialization
RegisterDataTableRules(RID_ListaAnosFacturas, TListaAnosFacturasDataTableRules);
RegisterDataTableRules(RID_FacturasProveedor_Contratos, TFacturasProveedor_ContratosDataTableRules);
RegisterDataTableRules(RID_FacturasProveedor, TFacturasProveedorDataTableRules);
RegisterDataTableRules(RID_FacturasProveedor_Detalles, TFacturasProveedor_DetallesDataTableRules);

349
Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas
View File

@ -9,14 +9,15 @@ 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 = '{A45050BB-F735-43E0-8E89-C9AFAD7410D0}';
RID_FacturasProveedorDelta = '{1DB4D8A7-7089-4F96-A433-E160E9BCF222}';
RID_FacturasProveedor_DetallesDelta = '{F8EAC101-E855-449E-84E3-C54BC44929DB}';
RID_ListaAnosFacturasDelta = '{89FAA336-EE10-4D08-A890-EFD959DA9FB3}';
RID_FacturasProveedor_ContratosDelta = '{2BF7C867-86B7-42EB-9FFA-92DF6E9874F0}';
RID_FacturasProveedorDelta = '{FB90A42D-E182-4F49-9873-E549CD6C3519}';
RID_FacturasProveedor_DetallesDelta = '{25250ECD-8E6B-4B25-9F0A-00B4B207C317}';
type
{ IListaAnosFacturasDelta }
IListaAnosFacturasDelta = interface(IListaAnosFacturas)
['{A45050BB-F735-43E0-8E89-C9AFAD7410D0}']
['{89FAA336-EE10-4D08-A890-EFD959DA9FB3}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -48,9 +49,115 @@ type
end;
{ IFacturasProveedor_ContratosDelta }
IFacturasProveedor_ContratosDelta = interface(IFacturasProveedor_Contratos)
['{2BF7C867-86B7-42EB-9FFA-92DF6E9874F0}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer;
function GetOldID_CONTRATOValue : Integer;
function GetOldREFERENCIAValue : String;
function GetOldNOMBREValue : String;
function GetOldNIF_CIFValue : String;
function GetOldIMPORTEValue : Currency;
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
property OldID_CONTRATO : Integer read GetOldID_CONTRATOValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldNOMBRE : String read GetOldNOMBREValue;
property OldNIF_CIF : String read GetOldNIF_CIFValue;
property OldIMPORTE : Currency read GetOldIMPORTEValue;
end;
{ TFacturasProveedor_ContratosBusinessProcessorRules }
TFacturasProveedor_ContratosBusinessProcessorRules = class(TDABusinessProcessorRules, IFacturasProveedor_Contratos, IFacturasProveedor_ContratosDelta)
private
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
function GetIDIsNull: Boolean; virtual;
function GetOldIDValue: Integer; virtual;
function GetOldIDIsNull: Boolean; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetID_FACTURAValue: Integer; virtual;
function GetID_FACTURAIsNull: Boolean; virtual;
function GetOldID_FACTURAValue: Integer; virtual;
function GetOldID_FACTURAIsNull: Boolean; virtual;
procedure SetID_FACTURAValue(const aValue: Integer); virtual;
procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual;
function GetID_CONTRATOValue: Integer; virtual;
function GetID_CONTRATOIsNull: Boolean; virtual;
function GetOldID_CONTRATOValue: Integer; virtual;
function GetOldID_CONTRATOIsNull: Boolean; virtual;
procedure SetID_CONTRATOValue(const aValue: Integer); virtual;
procedure SetID_CONTRATOIsNull(const aValue: Boolean); virtual;
function GetREFERENCIAValue: String; virtual;
function GetREFERENCIAIsNull: Boolean; virtual;
function GetOldREFERENCIAValue: String; virtual;
function GetOldREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
function GetNOMBREValue: String; virtual;
function GetNOMBREIsNull: Boolean; virtual;
function GetOldNOMBREValue: String; virtual;
function GetOldNOMBREIsNull: Boolean; virtual;
procedure SetNOMBREValue(const aValue: String); virtual;
procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
function GetNIF_CIFValue: String; virtual;
function GetNIF_CIFIsNull: Boolean; virtual;
function GetOldNIF_CIFValue: String; virtual;
function GetOldNIF_CIFIsNull: Boolean; virtual;
procedure SetNIF_CIFValue(const aValue: String); virtual;
procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual;
function GetIMPORTEValue: Currency; virtual;
function GetIMPORTEIsNull: Boolean; virtual;
function GetOldIMPORTEValue: Currency; virtual;
function GetOldIMPORTEIsNull: Boolean; virtual;
procedure SetIMPORTEValue(const aValue: Currency); virtual;
procedure SetIMPORTEIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
property OldID : Integer read GetOldIDValue;
property OldIDIsNull : Boolean read GetOldIDIsNull;
property ID_FACTURA : Integer read GetID_FACTURAValue write SetID_FACTURAValue;
property ID_FACTURAIsNull : Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
property OldID_FACTURAIsNull : Boolean read GetOldID_FACTURAIsNull;
property ID_CONTRATO : Integer read GetID_CONTRATOValue write SetID_CONTRATOValue;
property ID_CONTRATOIsNull : Boolean read GetID_CONTRATOIsNull write SetID_CONTRATOIsNull;
property OldID_CONTRATO : Integer read GetOldID_CONTRATOValue;
property OldID_CONTRATOIsNull : Boolean read GetOldID_CONTRATOIsNull;
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property OldNOMBRE : String read GetOldNOMBREValue;
property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull;
property NIF_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue;
property NIF_CIFIsNull : Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property OldNIF_CIF : String read GetOldNIF_CIFValue;
property OldNIF_CIFIsNull : Boolean read GetOldNIF_CIFIsNull;
property IMPORTE : Currency read GetIMPORTEValue write SetIMPORTEValue;
property IMPORTEIsNull : Boolean read GetIMPORTEIsNull write SetIMPORTEIsNull;
property OldIMPORTE : Currency read GetOldIMPORTEValue;
property OldIMPORTEIsNull : Boolean read GetOldIMPORTEIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
{ IFacturasProveedorDelta }
IFacturasProveedorDelta = interface(IFacturasProveedor)
['{1DB4D8A7-7089-4F96-A433-E160E9BCF222}']
['{FB90A42D-E182-4F49-9873-E549CD6C3519}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -577,7 +684,7 @@ type
{ IFacturasProveedor_DetallesDelta }
IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles)
['{F8EAC101-E855-449E-84E3-C54BC44929DB}']
['{25250ECD-8E6B-4B25-9F0A-00B4B207C317}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer;
@ -813,6 +920,235 @@ begin
end;
{ TFacturasProveedor_ContratosBusinessProcessorRules }
constructor TFacturasProveedor_ContratosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TFacturasProveedor_ContratosBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TFacturasProveedor_ContratosBusinessProcessorRules.GetIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosID];
end;
function TFacturasProveedor_ContratosBusinessProcessorRules.GetIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosID]);
end;
function TFacturasProveedor_ContratosBusinessProcessorRules.GetOldIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedor_ContratosID];
end;
function TFacturasProveedor_ContratosBusinessProcessorRules.GetOldIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedor_ContratosID]);
end;
procedure TFacturasProveedor_ContratosBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosID] := aValue;
end;
procedure TFacturasProveedor_ContratosBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosID] := Null;
end;
function TFacturasProveedor_ContratosBusinessProcessorRules.GetID_FACTURAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosID_FACTURA];
end;
function TFacturasProveedor_ContratosBusinessProcessorRules.GetID_FACTURAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosID_FACTURA]);
end;
function TFacturasProveedor_ContratosBusinessProcessorRules.GetOldID_FACTURAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedor_ContratosID_FACTURA];
end;
function TFacturasProveedor_ContratosBusinessProcessorRules.GetOldID_FACTURAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedor_ContratosID_FACTURA]);
end;
procedure TFacturasProveedor_ContratosBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosID_FACTURA] := aValue;
end;
procedure TFacturasProveedor_ContratosBusinessProcessorRules.SetID_FACTURAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosID_FACTURA] := Null;
end;
function TFacturasProveedor_ContratosBusinessProcessorRules.GetID_CONTRATOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosID_CONTRATO];
end;
function TFacturasProveedor_ContratosBusinessProcessorRules.GetID_CONTRATOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosID_CONTRATO]);
end;
function TFacturasProveedor_ContratosBusinessProcessorRules.GetOldID_CONTRATOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedor_ContratosID_CONTRATO];
end;
function TFacturasProveedor_ContratosBusinessProcessorRules.GetOldID_CONTRATOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedor_ContratosID_CONTRATO]);
end;
procedure TFacturasProveedor_ContratosBusinessProcessorRules.SetID_CONTRATOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosID_CONTRATO] := aValue;
end;
procedure TFacturasProveedor_ContratosBusinessProcessorRules.SetID_CONTRATOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosID_CONTRATO] := Null;
end;
function TFacturasProveedor_ContratosBusinessProcessorRules.GetREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosREFERENCIA];
end;
function TFacturasProveedor_ContratosBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosREFERENCIA]);
end;
function TFacturasProveedor_ContratosBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedor_ContratosREFERENCIA];
end;
function TFacturasProveedor_ContratosBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedor_ContratosREFERENCIA]);
end;
procedure TFacturasProveedor_ContratosBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosREFERENCIA] := aValue;
end;
procedure TFacturasProveedor_ContratosBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosREFERENCIA] := Null;
end;
function TFacturasProveedor_ContratosBusinessProcessorRules.GetNOMBREValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosNOMBRE];
end;
function TFacturasProveedor_ContratosBusinessProcessorRules.GetNOMBREIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosNOMBRE]);
end;
function TFacturasProveedor_ContratosBusinessProcessorRules.GetOldNOMBREValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedor_ContratosNOMBRE];
end;
function TFacturasProveedor_ContratosBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedor_ContratosNOMBRE]);
end;
procedure TFacturasProveedor_ContratosBusinessProcessorRules.SetNOMBREValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosNOMBRE] := aValue;
end;
procedure TFacturasProveedor_ContratosBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosNOMBRE] := Null;
end;
function TFacturasProveedor_ContratosBusinessProcessorRules.GetNIF_CIFValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosNIF_CIF];
end;
function TFacturasProveedor_ContratosBusinessProcessorRules.GetNIF_CIFIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosNIF_CIF]);
end;
function TFacturasProveedor_ContratosBusinessProcessorRules.GetOldNIF_CIFValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedor_ContratosNIF_CIF];
end;
function TFacturasProveedor_ContratosBusinessProcessorRules.GetOldNIF_CIFIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedor_ContratosNIF_CIF]);
end;
procedure TFacturasProveedor_ContratosBusinessProcessorRules.SetNIF_CIFValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosNIF_CIF] := aValue;
end;
procedure TFacturasProveedor_ContratosBusinessProcessorRules.SetNIF_CIFIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosNIF_CIF] := Null;
end;
function TFacturasProveedor_ContratosBusinessProcessorRules.GetIMPORTEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosIMPORTE];
end;
function TFacturasProveedor_ContratosBusinessProcessorRules.GetIMPORTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosIMPORTE]);
end;
function TFacturasProveedor_ContratosBusinessProcessorRules.GetOldIMPORTEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedor_ContratosIMPORTE];
end;
function TFacturasProveedor_ContratosBusinessProcessorRules.GetOldIMPORTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedor_ContratosIMPORTE]);
end;
procedure TFacturasProveedor_ContratosBusinessProcessorRules.SetIMPORTEValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosIMPORTE] := aValue;
end;
procedure TFacturasProveedor_ContratosBusinessProcessorRules.SetIMPORTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_ContratosIMPORTE] := Null;
end;
{ TFacturasProveedorBusinessProcessorRules }
constructor TFacturasProveedorBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
var
@ -2583,6 +2919,7 @@ end;
initialization
RegisterBusinessProcessorRules(RID_ListaAnosFacturasDelta, TListaAnosFacturasBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_FacturasProveedor_ContratosDelta, TFacturasProveedor_ContratosBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_FacturasProveedorDelta, TFacturasProveedorBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_FacturasProveedor_DetallesDelta, TFacturasProveedor_DetallesBusinessProcessorRules);

25
Source/Modulos/Facturas de proveedor/Model/uBizDetallesFacturaProveedor.pas
View File

@ -7,18 +7,28 @@ uses
const
BIZ_CLIENT_DETALLES_FACTURA_Proveedor = 'Client.DetallesFactura.Proveedor';
BIZ_CLIENT_CONTRATOS_FACTURA_Proveedor = 'Client.ContratosFactura.Proveedor';
type
IBizDetallesFacturaProveedor = interface(IFacturasProveedor_Detalles)
['{785A33CF-17AF-4FFC-9904-33AD3489A6B5}']
end;
IBizContratosFacturaProveedor = interface(IFacturasProveedor_Contratos)
['{7C95F11B-9ED5-408A-A7CC-804288086511}']
end;
TBizDetallesFacturaProveedor = class(TFacturasProveedor_DetallesDataTableRules, IBizDetallesFacturaProveedor)
protected
procedure OnNewRecord(Sender: TDADataTable); override;
procedure BeforeInsert(Sender: TDADataTable); override;
end;
TBizContratosFacturaProveedor = class(TFacturasProveedor_ContratosDataTableRules, IBizContratosFacturaProveedor)
protected
procedure BeforeInsert(Sender: TDADataTable); override;
end;
implementation
uses
@ -44,7 +54,22 @@ begin
VISIBLE := 1;
end;
{ TBizContratosFacturaProveedor }
procedure TBizContratosFacturaProveedor.BeforeInsert(Sender: TDADataTable);
var
AMasterTable : TDADataTable;
begin
inherited;
AMasterTable := DataTable.GetMasterDataTable;
if Assigned(AMasterTable) and (AMasterTable.State = dsInsert) then
begin
AMasterTable.Post;
end;
end;
initialization
RegisterDataTableRules(BIZ_CLIENT_DETALLES_FACTURA_PROVEEDOR, TBizDetallesFacturaProveedor);
RegisterDataTableRules(BIZ_CLIENT_CONTRATOS_FACTURA_PROVEEDOR, TBizContratosFacturaProveedor);
end.

28
Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas
View File

@ -34,6 +34,10 @@ type
procedure SetDetalles(Value: IBizDetallesFacturaProveedor);
property Detalles: IBizDetallesFacturaProveedor read GetDetalles write SetDetalles;
function GetContratos: IBizContratosFacturaProveedor;
procedure SetContratos(Value: IBizContratosFacturaProveedor);
property Contratos: IBizContratosFacturaProveedor read GetContratos write SetContratos;
function EsNuevo : Boolean;
procedure CalcularImporteTotal;
end;
@ -50,6 +54,8 @@ type
FProveedor : IBizProveedor;
FDetalles : IBizDetallesFacturaProveedor;
FDetallesLink : TDADataSource;
FContratos : IBizContratosFacturaProveedor;
FContratosLink : TDADataSource;
procedure SetProveedor(AValue : IBizProveedor);
function GetProveedor : IBizProveedor;
@ -60,6 +66,9 @@ type
function GetDetalles: IBizDetallesFacturaProveedor;
procedure SetDetalles(Value: IBizDetallesFacturaProveedor);
function GetContratos: IBizContratosFacturaProveedor;
procedure SetContratos(Value: IBizContratosFacturaProveedor);
procedure RECARGO_EQUIVALENCIAOnChange(Sender: TDACustomField);
procedure ID_TIPO_IVAOnChange(Sender: TDACustomField);
@ -68,7 +77,7 @@ type
procedure DESCUENTOOnChange(Sender: TDACustomField);
procedure IVAOnChange(Sender: TDACustomField);
procedure REOnChange(Sender: TDACustomField);
procedure SetID_TIENDAValue(const aValue: Integer);
procedure SetID_TIENDAValue(const aValue: Integer);
procedure SetID_SUBCUENTAValue(const aValue: Integer);
procedure OnNewRecord(Sender: TDADataTable); override;
@ -81,6 +90,7 @@ type
property Proveedor : IBizProveedor read GetProveedor write SetProveedor;
property _Proveedor : IBizProveedor read _GetProveedor write _SetProveedor;
property Detalles: IBizDetallesFacturaProveedor read GetDetalles write SetDetalles;
property Contratos: IBizContratosFacturaProveedor read GetContratos write SetContratos;
property SeleccionableInterface : ISeleccionable read FSeleccionableInterface
write FSeleccionableInterface implements ISeleccionable;
@ -194,6 +204,9 @@ begin
FDetallesLink := TDADataSource.Create(NIL);
FDetallesLink.DataTable := aDataTable;
FContratosLink := TDADataSource.Create(NIL);
FContratosLink.DataTable := aDataTable;
FSeleccionableInterface := TSeleccionable.Create(aDataTable);
end;
@ -207,6 +220,8 @@ begin
FProveedor := NIL;
FDetalles := NIL;
FDetallesLink.Free;
FContratos := NIL;
FContratosLink.Free;
FSeleccionableInterface := NIL;
inherited;
@ -217,6 +232,11 @@ begin
Result := FProveedor;
end;
function TBizFacturaProveedor.GetContratos: IBizContratosFacturaProveedor;
begin
Result := FContratos;
end;
function TBizFacturaProveedor.GetDetalles: IBizDetallesFacturaProveedor;
begin
Result := FDetalles;
@ -333,6 +353,12 @@ begin
end
end;
procedure TBizFacturaProveedor.SetContratos(Value: IBizContratosFacturaProveedor);
begin
FContratos := Value;
EnlazarMaestroDetalle(FContratosLink, FContratos);
end;
procedure TBizFacturaProveedor.SetDetalles(Value: IBizDetallesFacturaProveedor);
begin
FDetalles := Value;

258
Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm
View File

@ -6,8 +6,8 @@ object srvFacturasProveedor: TsrvFacturasProveedor
ServiceDataStreamer = Bin2DataStreamer
ExportedDataTables = <>
BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
Height = 180
Width = 386
Height = 271
Width = 528
object schFacturasProveedor: TDASchema
ConnectionManager = dmServer.ConnectionManager
DataDictionary = DataDictionary
@ -40,6 +40,99 @@ object srvFacturasProveedor: TsrvFacturasProveedor
Size = 255
end>
end
item
Params = <>
Statements = <
item
ConnectionType = 'Interbase'
Default = True
TargetTable = 'FACTURAS_PROVEEDOR_CONTRATOS'
Name = 'IBX'
SQL =
'SELECT '#10' FACTURAS_PROVEEDOR_CONTRATOS.ID, FACTURAS_PROVEEDOR_' +
'CONTRATOS.ID_FACTURA, FACTURAS_PROVEEDOR_CONTRATOS.ID_CONTRATO,'#10 +
' contratos_cliente.referencia, contratos_cliente.nombre, cont' +
'ratos_cliente.nif_cif,'#10' FACTURAS_PROVEEDOR_CONTRATOS.IMPORTE'#10 +
' FROM'#10' FACTURAS_PROVEEDOR_CONTRATOS'#10' left join contratos_cl' +
'iente on (contratos_cliente.id = FACTURAS_PROVEEDOR_CONTRATOS.id' +
'_contrato)'#10' WHERE {Where}'#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'ID_FACTURA'
TableField = 'ID_FACTURA'
end
item
DatasetField = 'ID_CONTRATO'
TableField = 'ID_CONTRATO'
end
item
DatasetField = 'NOMBRE'
TableField = '<unknown>'
SQLOrigin = 'NOMBRE'
end
item
DatasetField = 'NIF_CIF'
TableField = '<unknown>'
SQLOrigin = 'NIF_CIF'
end
item
DatasetField = 'IMPORTE'
TableField = 'IMPORTE'
end
item
DatasetField = 'REFERENCIA'
TableField = '<unknown>'
SQLOrigin = 'REFERENCIA'
end>
end>
Name = 'FacturasProveedor_Contratos'
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_FACTURAS_PROV_CONTRATOS_ID'
ServerAutoRefresh = True
DictionaryEntry = 'FacturasProveedor_Contratos_ID'
InPrimaryKey = True
end
item
Name = 'ID_FACTURA'
DataType = datInteger
DictionaryEntry = 'FacturasProveedor_Contratos_ID_FACTURA'
end
item
Name = 'ID_CONTRATO'
DataType = datInteger
DictionaryEntry = 'FacturasProveedor_Contratos_ID_CONTRATO'
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
DictionaryEntry = 'FacturasProveedor_Contratos_NOMBRE'
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
DictionaryEntry = 'FacturasProveedor_Contratos_NIF_CIF'
end
item
Name = 'IMPORTE'
DataType = datCurrency
DictionaryEntry = 'FacturasProveedor_Contratos_IMPORTE'
end>
end
item
Params = <>
Statements = <
@ -1196,8 +1289,108 @@ object srvFacturasProveedor: TsrvFacturasProveedor
ColumnMappings = <>
end>
Name = 'Update_FacturasProveedor_Detalles'
end
item
Params = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_FACTURAS_PROV_CONTRATOS_ID'
Value = ''
end
item
Name = 'ID_FACTURA'
DataType = datInteger
Value = ''
end
item
Name = 'ID_CONTRATO'
DataType = datInteger
Value = ''
end
item
Name = 'IMPORTE'
DataType = datCurrency
Value = ''
end>
Statements = <
item
ConnectionType = 'Interbase'
Default = True
TargetTable = 'FACTURAS_PROVEEDOR_CONTRATOS'
SQL =
'INSERT'#10' INTO FACTURAS_PROVEEDOR_CONTRATOS'#10' (ID, ID_FACTURA, ' +
'ID_CONTRATO, IMPORTE)'#10' VALUES'#10' (:ID, :ID_FACTURA, :ID_CONTRA' +
'TO, :IMPORTE)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_FacturasProveedor_Contratos'
end
item
Params = <
item
Name = 'OLD_ID'
DataType = datAutoInc
Value = ''
end>
Statements = <
item
ConnectionType = 'Interbase'
Default = True
TargetTable = 'FACTURAS_PROVEEDOR_CONTRATOS'
SQL =
'DELETE '#10' FROM'#10' FACTURAS_PROVEEDOR_CONTRATOS'#10' WHERE'#10' (ID ' +
'= :OLD_ID)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Delete_FacturasProveedor_Contratos'
end
item
Params = <
item
Name = 'ID_FACTURA'
DataType = datInteger
Value = ''
end
item
Name = 'ID_CONTRATO'
DataType = datInteger
Value = ''
end
item
Name = 'IMPORTE'
DataType = datCurrency
Value = ''
end
item
Name = 'OLD_ID'
Value = ''
end>
Statements = <
item
ConnectionType = 'Interbase'
Default = True
TargetTable = 'FACTURAS_PROVEEDOR_CONTRATOS'
SQL =
'UPDATE FACTURAS_PROVEEDOR_CONTRATOS'#10' SET '#10' ID_FACTURA = :ID_' +
'FACTURA, '#10' ID_CONTRATO = :ID_CONTRATO, '#10' IMPORTE = :IMPORT' +
'E'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_FacturasProveedor_Contratos'
end>
RelationShips = <
item
Name = 'FK_FacturasProveedor_Contratos'
MasterDatasetName = 'FacturasProveedor'
MasterFields = 'ID'
DetailDatasetName = 'FacturasProveedor_Contratos'
DetailFields = 'ID_FACTURA'
RelationshipType = rtForeignKey
end
item
Name = 'FK_FacturasProveedor_Detalles'
MasterDatasetName = 'FacturasProveedor'
@ -1221,6 +1414,13 @@ object srvFacturasProveedor: TsrvFacturasProveedor
DatasetName = 'FacturasProveedor_Detalles'
FailureBehavior = fbRaiseException
end
item
Name = 'Insert FacturasProveedor_Contratos'
DoUpdate = False
DoDelete = False
DatasetName = 'FacturasProveedor_Contratos'
FailureBehavior = fbRaiseException
end
item
Name = 'Update FacturasProveedor'
DoInsert = False
@ -1235,6 +1435,13 @@ object srvFacturasProveedor: TsrvFacturasProveedor
DatasetName = 'FacturasProveedor_Detalles'
FailureBehavior = fbRaiseException
end
item
Name = 'Update FacturasProveedor_Contratos'
DoInsert = False
DoDelete = False
DatasetName = 'FacturasProveedor_Contratos'
FailureBehavior = fbRaiseException
end
item
Name = 'Delete FacturasProveedor_Detalles'
DoUpdate = False
@ -1242,6 +1449,13 @@ object srvFacturasProveedor: TsrvFacturasProveedor
DatasetName = 'FacturasProveedor_Detalles'
FailureBehavior = fbRaiseException
end
item
Name = 'Delete FacturasProveedor_Contratos'
DoUpdate = False
DoInsert = False
DatasetName = 'FacturasProveedor_Contratos'
FailureBehavior = fbRaiseException
end
item
Name = 'Delete FacturasProveedor'
DoUpdate = False
@ -1543,6 +1757,35 @@ object srvFacturasProveedor: TsrvFacturasProveedor
DataType = datString
Size = 255
DisplayLabel = 'REFERENCIA_PROVEEDOR'
end
item
Name = 'FacturasProveedor_Contratos_ID'
DataType = datAutoInc
GeneratorName = 'GEN_FACTURAS_PROV_CONTRATOS_ID'
DisplayLabel = 'ID'
ServerAutoRefresh = True
end
item
Name = 'FacturasProveedor_Contratos_ID_FACTURA'
DataType = datInteger
end
item
Name = 'FacturasProveedor_Contratos_ID_CONTRATO'
DataType = datInteger
end
item
Name = 'FacturasProveedor_Contratos_NOMBRE'
DataType = datString
Size = 255
end
item
Name = 'FacturasProveedor_Contratos_NIF_CIF'
DataType = datString
Size = 15
end
item
Name = 'FacturasProveedor_Contratos_IMPORTE'
DataType = datCurrency
end>
Left = 150
Top = 22
@ -1573,4 +1816,15 @@ object srvFacturasProveedor: TsrvFacturasProveedor
Left = 48
Top = 80
end
object bpFacturasProveedor_Contratos: TDABusinessProcessor
Schema = schFacturasProveedor
InsertCommandName = 'Insert_FacturasProveedor_Contratos'
DeleteCommandName = 'Delete_FacturasProveedor_Contratos'
UpdateCommandName = 'Update_FacturasProveedor_Contratos'
ReferencedDataset = 'FacturasProveedor_Contratos'
ProcessorOptions = [poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 280
Top = 136
end
end

1
Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.pas
View File

@ -25,6 +25,7 @@ type
bpFacturasProveedor: TDABusinessProcessor;
bpFacturasProveedor_Detalles: TDABusinessProcessor;
Bin2DataStreamer: TDABin2DataStreamer;
bpFacturasProveedor_Contratos: TDABusinessProcessor;
schFacturasProveedor: TDASchema;
DataDictionary: TDADataDictionary;
procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset;

BIN
Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dpk
View File

Binary file not shown.

72
Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dproj
View File

@ -41,6 +41,9 @@
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FacturasProveedor_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
@ -49,35 +52,42 @@
<DelphiCompile Include="FacturasProveedor_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Recibos de cliente\adortl.dcp" />
<DCCReference Include="..\..\Recibos de cliente\Articulos_view.dcp" />
<DCCReference Include="..\..\Recibos de cliente\Contabilidad_controller.dcp" />
<DCCReference Include="..\..\Recibos de cliente\Contabilidad_view.dcp" />
<DCCReference Include="..\..\Recibos de cliente\Contactos_controller.dcp" />
<DCCReference Include="..\..\Recibos de cliente\Contactos_model.dcp" />
<DCCReference Include="..\..\Recibos de cliente\cxDataD11.dcp" />
<DCCReference Include="..\..\Recibos de cliente\cxEditorsD11.dcp" />
<DCCReference Include="..\..\Recibos de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Recibos de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Recibos de cliente\dbrtl.dcp" />
<DCCReference Include="..\..\Recibos de cliente\dsnap.dcp" />
<DCCReference Include="..\..\Recibos de cliente\dxComnD11.dcp" />
<DCCReference Include="..\..\Recibos de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Recibos de cliente\dxLayoutControlD11.dcp" />
<DCCReference Include="..\..\Recibos de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\..\Recibos de cliente\FacturasProveedor_controller.dcp" />
<DCCReference Include="..\..\Recibos de cliente\FacturasProveedor_model.dcp" />
<DCCReference Include="..\..\Recibos de cliente\GestorInformes_controller.dcp" />
<DCCReference Include="..\..\Recibos de cliente\GUIBase.dcp" />
<DCCReference Include="..\..\Recibos de cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\..\Recibos de cliente\PNG_D10.dcp" />
<DCCReference Include="..\..\Recibos de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Recibos de cliente\rtl.dcp" />
<DCCReference Include="..\..\Recibos de cliente\vcl.dcp" />
<DCCReference Include="..\..\Recibos de cliente\vclactnband.dcp" />
<DCCReference Include="..\..\Recibos de cliente\vcldb.dcp" />
<DCCReference Include="..\..\Recibos de cliente\vcljpg.dcp" />
<DCCReference Include="..\..\Recibos de cliente\vclx.dcp" />
<DCCReference Include="..\adortl.dcp" />
<DCCReference Include="..\Articulos_view.dcp" />
<DCCReference Include="..\Contabilidad_controller.dcp" />
<DCCReference Include="..\Contabilidad_view.dcp" />
<DCCReference Include="..\Contactos_controller.dcp" />
<DCCReference Include="..\Contactos_model.dcp" />
<DCCReference Include="..\ContratosCliente_controller.dcp" />
<DCCReference Include="..\ContratosCliente_model.dcp" />
<DCCReference Include="..\cxDataD11.dcp" />
<DCCReference Include="..\cxEditorsD11.dcp" />
<DCCReference Include="..\cxExportD11.dcp" />
<DCCReference Include="..\cxExtEditorsD11.dcp" />
<DCCReference Include="..\cxGridD11.dcp" />
<DCCReference Include="..\cxLibraryD11.dcp" />
<DCCReference Include="..\cxPageControlD11.dcp" />
<DCCReference Include="..\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="..\dsnap.dcp" />
<DCCReference Include="..\dxComnD11.dcp" />
<DCCReference Include="..\dxCoreD11.dcp" />
<DCCReference Include="..\dxGDIPlusD11.dcp" />
<DCCReference Include="..\dxLayoutControlD11.dcp" />
<DCCReference Include="..\dxThemeD11.dcp" />
<DCCReference Include="..\FacturasProveedor_controller.dcp" />
<DCCReference Include="..\FacturasProveedor_model.dcp" />
<DCCReference Include="..\GestorInformes_controller.dcp" />
<DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\PngComponentsD10.dcp" />
<DCCReference Include="..\PNG_D10.dcp" />
<DCCReference Include="..\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\vclactnband.dcp" />
<DCCReference Include="..\vcldb.dcp" />
<DCCReference Include="..\vcljpg.dcp" />
<DCCReference Include="..\vclx.dcp" />
<DCCReference Include="uEditorElegirArticulosFacturaProveedor.pas">
<Form>fEditorElegirArticulosFacturaProveedor</Form>
<DesignClass>TfEditorElegirArticulosFacturaProveedor</DesignClass>
@ -95,6 +105,10 @@
<DesignClass>TfEditorFacturasProveedorReport</DesignClass>
</DCCReference>
<DCCReference Include="uFacturasProveedorViewRegister.pas" />
<DCCReference Include="uViewContratosFacturaProveedor.pas">
<Form>frViewContratosFacturaProveedor</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewDetallesFacturaProveedor.pas">
<Form>frViewDetallesFacturaProveedor</Form>
<DesignClass>TFrame</DesignClass>

BIN
Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.res
View File

Binary file not shown.

66
Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm
View File

@ -81,8 +81,8 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
inherited pgPaginas: TPageControl
Width = 740
Height = 312
ActivePage = PagContratos
OnChanging = pgPaginasChanging
ExplicitTop = 109
ExplicitWidth = 740
ExplicitHeight = 312
inherited pagGeneral: TTabSheet
@ -202,14 +202,14 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
end
end
inherited frViewObservaciones1: TfrViewObservaciones
Width = 521
Width = 671
Height = 228
ExplicitWidth = 521
ExplicitWidth = 671
ExplicitHeight = 228
inherited memObservaciones: TcxDBMemo
DataBinding.DataSource = frViewFacturaProveedor1.DADataSource
Height = 228
Width = 521
Width = 671
end
end
end
@ -218,6 +218,10 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
object pagContenido: TTabSheet
Caption = 'Contenido'
ImageIndex = 1
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewDetallesFacturaProveedor1: TfrViewDetallesFacturaProveedor
Left = 0
Top = 0
@ -308,9 +312,52 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
end
end
end
object PagContratos: TTabSheet
Caption = 'Contratos'
ImageIndex = 2
inline frViewContratosFacturaProveedor1: TfrViewContratosFacturaProveedor
Left = 0
Top = 0
Width = 732
Height = 284
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 732
ExplicitHeight = 284
inherited cxGrid: TcxGrid
Width = 732
Height = 259
ExplicitWidth = 732
ExplicitHeight = 259
end
inherited ToolBar1: TToolBar
Width = 732
ExplicitWidth = 732
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
end
end
end
object pagContabilidad: TTabSheet
Caption = 'Contabilidad'
ImageIndex = 2
ImageIndex = 3
inline frViewListaSubcuentas1: TfrViewListaSubcuentas
Left = 0
Top = 0
@ -569,11 +616,6 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
Visible = False
end
end
inherited dxLayoutControl1Group8: TdxLayoutGroup
inherited dxLayoutControl1Item7: TdxLayoutItem
Visible = True
end
end
end
end
end
@ -583,10 +625,6 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
inherited PnlComentario: TPanel [5]
Width = 746
ExplicitWidth = 746
inherited lbComentario: TLabel
Width = 736
Height = 25
end
end
inherited EditorActionList: TActionList [9]
Left = 8

7
Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas
View File

@ -14,7 +14,8 @@ uses
dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar, uBizTiposIVA,
uViewDetallesDTO, uViewDetallesArticulos, uTiposIVAController,
uViewDetallesFacturaProveedor, uViewFacturaProveedor, uDAInterfaces,
cxControls, cxContainer, cxEdit, cxCheckBox, cxDBEdit, uViewListaSubCuentas;
cxControls, cxContainer, cxEdit, cxCheckBox, cxDBEdit, uViewListaSubCuentas,
uViewDetallesGenerico, uViewContratosFacturaProveedor;
type
@ -24,6 +25,8 @@ type
frViewDetallesFacturaProveedor1: TfrViewDetallesFacturaProveedor;
pagContabilidad: TTabSheet;
frViewListaSubcuentas1: TfrViewListaSubcuentas;
PagContratos: TTabSheet;
frViewContratosFacturaProveedor1: TfrViewContratosFacturaProveedor;
procedure FormShow(Sender: TObject);
procedure frViewProveedorFactura1edtlNombrePropertiesEditValueChanged(
Sender: TObject);
@ -409,6 +412,7 @@ begin
begin
ViewFacturaProveedor.Controller := FController;
frViewDetallesFacturaProveedor1.Controller := Controller.DetallesController;
frViewContratosFacturaProveedor1.Controller := Controller.ContratosController;
end;
end;
@ -434,6 +438,7 @@ begin
FViewFactura.Factura := FFactura;
frViewDetallesFacturaProveedor1.Detalles := FFactura.Detalles;
frViewDetallesFacturaProveedor1.Factura := FFactura; //Para poder sacar los descuento del articulos segun el proveedor seleccionado
frViewContratosFacturaProveedor1.Contratos := FFactura.Contratos;
end;
{$IFDEF CONTABILIDAD}

9
Source/Modulos/Facturas de proveedor/Views/uViewDetallesFacturaProveedor.dfm
View File

@ -1,9 +1,18 @@
inherited frViewDetallesFacturaProveedor: TfrViewDetallesFacturaProveedor
inherited cxGrid: TcxGrid
inherited cxGridView: TcxGridDBTableView
inherited cxGridViewCANTIDAD: TcxGridDBColumn
Properties.Alignment.Horz = taRightJustify
end
inherited cxGridViewDESCUENTO: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
inherited cxGridViewIMPORTENETO: TcxGridDBColumn
Properties.ReadOnly = False
Visible = False
Options.Editing = True
VisibleForCustomization = False
end
end
end

3
Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.pas
View File

@ -13,7 +13,8 @@ uses
cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGrid,
cxImage, Grids, DBGrids, uBizFacturasProveedor, cxGridCustomPopupMenu,
cxGridPopupMenu, cxCalendar, cxCurrencyEdit, uViewFiltroBase, TB2Item, TBX,
TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces;
TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces, uCustomView,
uViewBase;
type
IViewFacturasProveedor = interface(IViewGrid)

10
Source/Servidor/FactuGES_Server.dpr
View File

@ -125,18 +125,18 @@ uses
schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas',
schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas';
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}

581
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,294 +1,295 @@
<?xml version="1.0" encoding="utf-8"?>
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">4</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.4.4.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.4.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 21 de junio de 2010 10:29</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
<ItemGroup>
<DelphiCompile Include="FactuGES_Server.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas"/>
<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
<Form>srvEjercicios</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<Form>srvEmpresas</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
<Form>srvProvinciasPoblaciones</Form>
<DesignClass>TRORemoteDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
<DCCReference Include="..\Base\schBase_Intf.pas"/>
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/>
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<Form>srvAlbaranesCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<Form>srvAlbaranesProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<Form>srvAlmacenes</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/>
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas"/>
<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
<Form>RptComisiones</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
<Form>srvComisiones</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contabilidad\Model\uBizAsientosServer.pas"/>
<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
<Form>srvContabilidad</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<Form>RptEtiquetasContacto</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContactos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas">
<Form>RptContratosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas">
<Form>srvContratosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<Form>RptFacturasCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<Form>srvFacturasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
<Form>RptFacturasProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<Form>srvFacturasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/>
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
<Form>srvGestorDocumentos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
<Form>srvGestorInformes</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<Form>srvHistoricoMovimientos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<Form>srvInventario</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<Form>srvPedidosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<Form>RptPresupuestosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<Form>srvPresupuestosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
<Form>RptRecibosCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<Form>srvRecibosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
<Form>RptRecibosProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<Form>srvRecibosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<Form>srvReferencias</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<Form>srvRemesasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<Form>srvRemesasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
<Form>srvUnidadesMedida</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<Form>srvConfiguracion</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form>
<DesignClass>TForm</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="srvLogin_Impl.pas">
<Form>srvLogin</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form>
</DCCReference>
<DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="uServerMainForm.pas">
<Form>fServerForm</Form>
</DCCReference>
<DCCReference Include="Utiles\RegExpr.pas"/>
<DCCReference Include="Utiles\uBusinessUtils.pas"/>
<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
<DCCReference Include="Utiles\uServerAppUtils.pas"/>
<DCCReference Include="Utiles\uSesionesUtils.pas"/>
</ItemGroup>
<PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType />
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">4</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.4.4.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.4.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 21 de junio de 2010 10:29</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="FactuGES_Server.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas" />
<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
<Form>srvEjercicios</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<Form>srvEmpresas</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
<Form>srvProvinciasPoblaciones</Form>
<DesignClass>TRORemoteDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
<DCCReference Include="..\Base\schBase_Intf.pas" />
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" />
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<Form>srvAlbaranesCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<Form>srvAlbaranesProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<Form>srvAlmacenes</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" />
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas" />
<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
<Form>RptComisiones</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
<Form>srvComisiones</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contabilidad\Model\uBizAsientosServer.pas" />
<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
<Form>srvContabilidad</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<Form>RptEtiquetasContacto</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContactos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas" />
<DCCReference Include="..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas">
<Form>RptContratosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas">
<Form>srvContratosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<Form>RptFacturasCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<Form>srvFacturasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
<Form>RptFacturasProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<Form>srvFacturasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" />
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
<Form>srvGestorDocumentos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
<Form>srvGestorInformes</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<Form>srvHistoricoMovimientos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<Form>srvInventario</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<Form>srvPedidosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<Form>RptPresupuestosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<Form>srvPresupuestosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
<Form>RptRecibosCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<Form>srvRecibosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
<Form>RptRecibosProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<Form>srvRecibosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<Form>srvReferencias</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<Form>srvRemesasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<Form>srvRemesasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
<Form>srvUnidadesMedida</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<Form>srvConfiguracion</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form>
<DesignClass>TForm</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="srvLogin_Impl.pas">
<Form>srvLogin</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form>
</DCCReference>
<DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="uServerMainForm.pas">
<Form>fServerForm</Form>
</DCCReference>
<DCCReference Include="Utiles\RegExpr.pas" />
<DCCReference Include="Utiles\uBusinessUtils.pas" />
<DCCReference Include="Utiles\uDatabaseUtils.pas" />
<DCCReference Include="Utiles\uReferenciasUtils.pas" />
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
<DCCReference Include="Utiles\uServerAppUtils.pas" />
<DCCReference Include="Utiles\uSesionesUtils.pas" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]