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

Ticket #79 -> (repaso) Imprimir en el contrato el nº de teléfono del cliente

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@475 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2009-11-24 18:11:03 +00:00
parent 2d6a376c4f
commit ba7f4ccf90
21 changed files with 1235 additions and 662 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Database/scripts/factuges.sql
View File

@ -1272,12 +1272,13 @@ CREATE TABLE CONTRATOS_CLIENTE (
ID_CLIENTE TIPO_ID, ID_CLIENTE TIPO_ID,
NIF_CIF VARCHAR(15), NIF_CIF VARCHAR(15),
NOMBRE VARCHAR(255), NOMBRE VARCHAR(255),
ID_DIRECCION TIPO_ID,
CALLE VARCHAR(255), CALLE VARCHAR(255),
POBLACION VARCHAR(255), POBLACION VARCHAR(255),
PROVINCIA VARCHAR(255), PROVINCIA VARCHAR(255),
CODIGO_POSTAL VARCHAR(10), CODIGO_POSTAL VARCHAR(10),
TELEFONO VARCHAR(25), TELEFONO VARCHAR(25),
MOVIL VARCHAR(25), MOVIL VARCHAR(25),
REFERENCIA VARCHAR(255), REFERENCIA VARCHAR(255),
FECHA_CONTRATO DATE, FECHA_CONTRATO DATE,
SITUACION VARCHAR(255), SITUACION VARCHAR(255),
@ -3701,6 +3702,7 @@ CREATE VIEW V_CONTRATOS_CLIENTE(
NOMBRE_COMERCIAL_CLIENTE, NOMBRE_COMERCIAL_CLIENTE,
NIF_CIF, NIF_CIF,
NOMBRE, NOMBRE,
ID_DIRECCION,
CALLE, CALLE,
POBLACION, POBLACION,
PROVINCIA, PROVINCIA,
@ -3746,6 +3748,7 @@ SELECT CONTRATOS_CLIENTE.ID,
CLIENTES_DATOS.NOMBRE_COMERCIAL, CLIENTES_DATOS.NOMBRE_COMERCIAL,
CONTRATOS_CLIENTE.NIF_CIF, CONTRATOS_CLIENTE.NIF_CIF,
CONTRATOS_CLIENTE.NOMBRE, CONTRATOS_CLIENTE.NOMBRE,
CONTRATOS_CLIENTE.ID_DIRECCION,
CONTRATOS_CLIENTE.CALLE, CONTRATOS_CLIENTE.CALLE,
CONTRATOS_CLIENTE.POBLACION, CONTRATOS_CLIENTE.POBLACION,
CONTRATOS_CLIENTE.PROVINCIA, CONTRATOS_CLIENTE.PROVINCIA,

2
Source/Base/Controladores/uControllerDetallesBase.pas
View File

@ -52,7 +52,7 @@ type
procedure Mover(DataTable: TDADataTable; Posicion: Integer; NumPosiciones: Integer); procedure Mover(DataTable: TDADataTable; Posicion: Integer; NumPosiciones: Integer);
//Si en los hijos existen campos a tener en cuenta se sobreescribira este metodo //Si en los hijos existen campos a tener en cuenta se sobreescribira este metodo
procedure validarCampos(DataTable: TDADataTable); virtual; procedure ValidarCampos(DataTable: TDADataTable); virtual;
//Si sobreescribimos este método podremos tener en cuenta otras columnas para el calculo del importe total de un concepto //Si sobreescribimos este método podremos tener en cuenta otras columnas para el calculo del importe total de un concepto
function CalcularImporteTotalConcepto(DataTable: TDADataTable): Double; virtual; function CalcularImporteTotalConcepto(DataTable: TDADataTable): Double; virtual;

14
Source/Informes/InfContratoCliente.fr3
View File

File diff suppressed because one or more lines are too long

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

@ -35,7 +35,6 @@ type
procedure VerTodos(AContratos: IBizContratoCliente; procedure VerTodos(AContratos: IBizContratoCliente;
const AVerModal : Boolean = False; const AWindowCaption: String = ''; const AVerModal : Boolean = False; const AWindowCaption: String = '';
const AHeaderText: String = ''); const AHeaderText: String = '');
procedure VerDireccionEntrega(AContrato : IBizContratoCliente);
function Nuevo : IBizContratoCliente; function Nuevo : IBizContratoCliente;
function Anadir(AContrato : IBizContratoCliente) : Boolean; function Anadir(AContrato : IBizContratoCliente) : Boolean;
function Eliminar(const ID : Integer): Boolean; overload; function Eliminar(const ID : Integer): Boolean; overload;
@ -49,8 +48,6 @@ type
function ExtraerSeleccionados(AContrato: IBizContratoCliente) : IBizContratoCliente; function ExtraerSeleccionados(AContrato: IBizContratoCliente) : IBizContratoCliente;
function ElegirContratos(AContrato: IBizContratoCliente; AMensaje: String; AMultiSelect: Boolean): IBizContratoCliente; function ElegirContratos(AContrato: IBizContratoCliente; AMensaje: String; AMultiSelect: Boolean): IBizContratoCliente;
procedure QuitarDireccionEnvio(AContrato: IBizContratoCliente);
procedure RecalcularImportes(AContrato : IBizContratoCliente); procedure RecalcularImportes(AContrato : IBizContratoCliente);
function EsModificable(AContrato : IBizContratoCliente): Boolean; function EsModificable(AContrato : IBizContratoCliente): Boolean;
function EsEliminable(AContrato : IBizContratoCliente): Boolean; function EsEliminable(AContrato : IBizContratoCliente): Boolean;
@ -116,10 +113,8 @@ type
procedure VerTodos(AContratos: IBizContratoCliente; procedure VerTodos(AContratos: IBizContratoCliente;
const AVerModal : Boolean = False; const AWindowCaption: String = ''; const AVerModal : Boolean = False; const AWindowCaption: String = '';
const AHeaderText: String = ''); const AHeaderText: String = '');
procedure VerDireccionEntrega(AContrato : IBizContratoCliente);
function Duplicar(AContrato: IBizContratoCliente): IBizContratoCliente; function Duplicar(AContrato: IBizContratoCliente): IBizContratoCliente;
procedure QuitarDireccionEnvio(AContrato: IBizContratoCliente);
function ExtraerSeleccionados(AContrato: IBizContratoCliente) : IBizContratoCliente; function ExtraerSeleccionados(AContrato: IBizContratoCliente) : IBizContratoCliente;
function ElegirContratos(AContrato: IBizContratoCliente; AMensaje: String; AMultiSelect: Boolean): IBizContratoCliente; function ElegirContratos(AContrato: IBizContratoCliente; AMensaje: String; AMultiSelect: Boolean): IBizContratoCliente;
@ -456,29 +451,6 @@ begin
end; end;
end; end;
procedure TContratosClienteController.VerDireccionEntrega(
AContrato: IBizContratoCliente);
{var
AEditor : IEditorDireccionEntregaContratoCliente;}
begin
{
AEditor := NIL;
//RecuperarObjetos(AContrato); <- No descomentar. No hace falta
CreateEditor('EditorDireccionEntregaContratoCliente', IEditorDireccionEntregaContratoCliente, AEditor);
if Assigned(AEditor) then
with (AEditor as IEditorDireccionEntregaContratoCliente) do
begin
try
Presupuesto := AContrato;
ShowModal;
finally
AEditor.Release;
AEditor := NIL;
end;
end;
}
end;
procedure TContratosClienteController.VerTodos(AContratos: IBizContratoCliente; procedure TContratosClienteController.VerTodos(AContratos: IBizContratoCliente;
const AVerModal : Boolean = False; const AWindowCaption: String = ''; const AVerModal : Boolean = False; const AWindowCaption: String = '';
const AHeaderText: String = ''); const AHeaderText: String = '');
@ -882,40 +854,6 @@ begin
Result := AContrato; Result := AContrato;
end; end;
procedure TContratosClienteController.QuitarDireccionEnvio(
AContrato: IBizContratoCliente);
{var
bEnEdicion : Boolean;}
begin
{
if not Assigned(AContrato) then
raise Exception.Create ('Contrato no asignado (QuitarDireccionEnvio)');
if AContrato.DataTable.Active then
AContrato.DataTable.Active := True;
bEnEdicion := (AContrato.DataTable.State in dsEditModes);
if not bEnEdicion then
AContrato.Edit;
ShowHourglassCursor;
AContrato.Edit;
try
AContrato.DataTable.FieldByName(fld_ContratosClienteCALLE).Clear;
AContrato.DataTable.FieldByName(fld_ContratosClientePOBLACION).Clear;
AContrato.DataTable.FieldByName(fld_ContratosClienteCODIGO_POSTAL).Clear;
AContrato.DataTable.FieldByName(fld_ContratosClientePROVINCIA).Clear;
AContrato.DataTable.FieldByName(fld_ContratosClienteTELEFONO).Clear;
AContrato.DataTable.FieldByName(fld_ContratosClientePERSONA_CONTACTO).Clear;
if not bEnEdicion then
AContrato.Post;
finally
HideHourglassCursor;
end;
}
end;
procedure TContratosClienteController.Preview(AContrato: IBizContratoCliente; AllItems: Boolean = false); procedure TContratosClienteController.Preview(AContrato: IBizContratoCliente; AllItems: Boolean = false);
var var
AReportController : IContratosClienteReportController; AReportController : IContratosClienteReportController;

13
Source/Modulos/Contratos de cliente/Controller/uContratosClienteReportController.pas
View File

@ -59,9 +59,10 @@ end;
function TContratosClienteReportController.ExportToPDF(const AID: Integer; function TContratosClienteReportController.ExportToPDF(const AID: Integer;
const AFileName: String): Boolean; const AFileName: String): Boolean;
var {var
AStream: Binary; AStream: Binary;}
begin begin
Result := False;
{ {
Result := False; Result := False;
if EsCadenaVacia(AFileName) then if EsCadenaVacia(AFileName) then
@ -116,12 +117,12 @@ begin
end; end;
procedure TContratosClienteReportController.Print(const AListaID : TIntegerList); procedure TContratosClienteReportController.Print(const AListaID : TIntegerList);
var {var
AStream: Binary; AStream: Binary;
AEditor : IEditorContratosClientePreview; AEditor : IEditorContratosClientePreview;}
begin begin
AEditor := NIL; { AEditor := NIL;
{
ShowHourglassCursor; ShowHourglassCursor;
try try
AStream := FDataModule.GetRptPresupuestos(AListaID); AStream := FDataModule.GetRptPresupuestos(AListaID);

12
Source/Modulos/Contratos de cliente/Controller/uDetallesContratoClienteController.pas
View File

@ -24,10 +24,7 @@ type
private private
//Propiedad temporal hasta que exista el controlador independiente de propiedades y capitulos, valores, etc //Propiedad temporal hasta que exista el controlador independiente de propiedades y capitulos, valores, etc
FDetallesPresupuestoCliente: IDetallesPresupuestoClienteController; FDetallesPresupuestoCliente: IDetallesPresupuestoClienteController;
FDataModule : IDataModuleContratosCliente; FDataModule : IDataModuleContratosCliente;
function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean;
protected protected
procedure RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); overload; override; procedure RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); overload; override;
procedure RellenarImportes(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); override; procedure RellenarImportes(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); override;
@ -130,11 +127,6 @@ begin
FDetallesPresupuestoCliente:= TDetallesPresupuestoClienteController.Create; FDetallesPresupuestoCliente:= TDetallesPresupuestoClienteController.Create;
end; end;
function TDetallesContratoClienteController.CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
begin
Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf);
end;
function TDetallesContratoClienteController.DarPropiedades: IBizPropiedades; function TDetallesContratoClienteController.DarPropiedades: IBizPropiedades;
begin begin
Result := FDetallesPresupuestoCliente.DarPropiedades; Result := FDetallesPresupuestoCliente.DarPropiedades;
@ -207,7 +199,7 @@ begin
while ADataTable.DataTable.Locate(CAMPO_POSICION, AuxPosicion, []) do while ADataTable.DataTable.Locate(CAMPO_POSICION, AuxPosicion, []) do
begin begin
if (ADataTable.DataTable.FieldByName(CAMPO_TIPO).AsString = TIPO_DETALLE_TITULO) then if (ADataTable.DataTable.FieldByName(CAMPO_TIPO).AsString = TIPO_DETALLE_TITULO) then
AuxTipoArticulo := ADataTable.DataTable.FieldByName(fld_CapitulosPresupuestoTIPO_ARTICULO).AsString AuxTipoArticulo := ADataTable.DataTable.FieldByName(fld_TiposCapitulosTIPO_ARTICULO).AsString
else if (ADataTable.DataTable.FieldByName(CAMPO_TIPO).AsString = TIPO_DETALLE_SUBTOTAL) then else if (ADataTable.DataTable.FieldByName(CAMPO_TIPO).AsString = TIPO_DETALLE_SUBTOTAL) then
AuxTipoArticulo := '' AuxTipoArticulo := ''
else if (ADataTable.DataTable.FieldByName(CAMPO_TIPO).AsString = TIPO_DETALLE_CONCEPTO) then else if (ADataTable.DataTable.FieldByName(CAMPO_TIPO).AsString = TIPO_DETALLE_CONCEPTO) then
@ -215,7 +207,7 @@ begin
begin begin
if not ADataTable.DataTable.Editing then if not ADataTable.DataTable.Editing then
ADataTable.DataTable.Edit; ADataTable.DataTable.Edit;
ADataTable.DataTable.FieldByName(fld_CapitulosPresupuestoTIPO_ARTICULO).AsString := AuxTipoArticulo; ADataTable.DataTable.FieldByName(fld_TiposCapitulosTIPO_ARTICULO).AsString := AuxTipoArticulo;
ADataTable.DataTable.Post; ADataTable.DataTable.Post;
end; end;

24
Source/Modulos/Contratos de cliente/Data/ContratosCliente_data.dproj
View File

@ -49,18 +49,18 @@
<DelphiCompile Include="ContratosCliente_data.dpk"> <DelphiCompile Include="ContratosCliente_data.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\adortl.dcp" /> <DCCReference Include="..\..\Facturas de cliente\adortl.dcp" />
<DCCReference Include="..\ContratosCliente_model.dcp" /> <DCCReference Include="..\..\Facturas de cliente\ContratosCliente_model.dcp" />
<DCCReference Include="..\cxLibraryD11.dcp" /> <DCCReference Include="..\..\Facturas de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\..\Facturas de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\dbrtl.dcp" /> <DCCReference Include="..\..\Facturas de cliente\dbrtl.dcp" />
<DCCReference Include="..\dsnap.dcp" /> <DCCReference Include="..\..\Facturas de cliente\dsnap.dcp" />
<DCCReference Include="..\dxGDIPlusD11.dcp" /> <DCCReference Include="..\..\Facturas de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\dxThemeD11.dcp" /> <DCCReference Include="..\..\Facturas de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\..\Facturas de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\rtl.dcp" /> <DCCReference Include="..\..\Facturas de cliente\rtl.dcp" />
<DCCReference Include="..\vcl.dcp" /> <DCCReference Include="..\..\Facturas de cliente\vcl.dcp" />
<DCCReference Include="..\vcldb.dcp" /> <DCCReference Include="..\..\Facturas de cliente\vcldb.dcp" />
<DCCReference Include="uDataModuleContratosCliente.pas" /> <DCCReference Include="uDataModuleContratosCliente.pas" />
</ItemGroup> </ItemGroup>
</Project> </Project>

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

@ -49,17 +49,28 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
Name = 'NOMBRE_CLIENTE' Name = 'NOMBRE_CLIENTE'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'ContratosCliente_NOMBRE_CLIENTE'
DictionaryEntry = 'ContratosCliente_NOMBRE_CLIENTE'
end
item
Name = 'REF_CLIENTE'
DataType = datString
Size = 255
DisplayLabel = 'Ref. Cliente'
DictionaryEntry = 'ContratosCliente_REF_CLIENTE'
end end
item item
Name = 'NOMBRE_COMERCIAL_CLIENTE' Name = 'NOMBRE_COMERCIAL_CLIENTE'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'ContratosCliente_NOMBRE_COMERCIAL_CLIENTE'
DictionaryEntry = 'ContratosCliente_NOMBRE_COMERCIAL_CLIENTE'
end end
item item
Name = 'NIF_CIF' Name = 'NIF_CIF'
DataType = datString DataType = datString
Size = 15 Size = 15
DisplayLabel = 'ContratosCliente_NIF_CIF' DisplayLabel = 'NIF/CIF'
ServerAutoRefresh = True ServerAutoRefresh = True
DictionaryEntry = 'ContratosCliente_NIF_CIF' DictionaryEntry = 'ContratosCliente_NIF_CIF'
end end
@ -71,25 +82,53 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
ServerAutoRefresh = True ServerAutoRefresh = True
DictionaryEntry = 'ContratosCliente_NOMBRE' DictionaryEntry = 'ContratosCliente_NOMBRE'
end end
item
Name = 'ID_DIRECCION'
DataType = datInteger
DisplayLabel = 'ContratosCliente_ID_DIRECCION'
DictionaryEntry = 'ContratosCliente_ID_DIRECCION'
end
item item
Name = 'CALLE' Name = 'CALLE'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Calle'
DictionaryEntry = 'ContratosCliente_CALLE'
end end
item item
Name = 'POBLACION' Name = 'POBLACION'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Poblaci'#243'n'
DictionaryEntry = 'ContratosCliente_POBLACION'
end end
item item
Name = 'PROVINCIA' Name = 'PROVINCIA'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'ContratosCliente_PROVINCIA'
DictionaryEntry = 'ContratosCliente_PROVINCIA'
end end
item item
Name = 'CODIGO_POSTAL' Name = 'CODIGO_POSTAL'
DataType = datString DataType = datString
Size = 10 Size = 10
DisplayLabel = 'C'#243'd. postal'
DictionaryEntry = 'ContratosCliente_CODIGO_POSTAL'
end
item
Name = 'TELEFONO'
DataType = datString
Size = 25
DisplayLabel = 'Tel'#233'fono'
DictionaryEntry = 'ContratosCliente_TELEFONO'
end
item
Name = 'MOVIL'
DataType = datString
Size = 25
DisplayLabel = 'M'#243'vil'
DictionaryEntry = 'ContratosCliente_MOVIL'
end end
item item
Name = 'REFERENCIA' Name = 'REFERENCIA'
@ -101,6 +140,8 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
item item
Name = 'FECHA_CONTRATO' Name = 'FECHA_CONTRATO'
DataType = datDateTime DataType = datDateTime
DisplayLabel = 'Fecha contrato'
DictionaryEntry = 'ContratosCliente_FECHA_CONTRATO'
end end
item item
Name = 'SITUACION' Name = 'SITUACION'
@ -112,10 +153,14 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
item item
Name = 'FORMA_PAGO' Name = 'FORMA_PAGO'
DataType = datMemo DataType = datMemo
DisplayLabel = 'ContratosCliente_FORMA_PAGO'
DictionaryEntry = 'ContratosCliente_FORMA_PAGO'
end end
item item
Name = 'PLAZO_ENTREGA' Name = 'PLAZO_ENTREGA'
DataType = datMemo DataType = datMemo
DisplayLabel = 'ContratosCliente_PLAZO_ENTREGA'
DictionaryEntry = 'ContratosCliente_PLAZO_ENTREGA'
end end
item item
Name = 'OBSERVACIONES' Name = 'OBSERVACIONES'
@ -152,18 +197,26 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
item item
Name = 'RECARGO_EQUIVALENCIA' Name = 'RECARGO_EQUIVALENCIA'
DataType = datSmallInt DataType = datSmallInt
DisplayLabel = 'ContratosCliente_RECARGO_EQUIVALENCIA'
DictionaryEntry = 'ContratosCliente_RECARGO_EQUIVALENCIA'
end end
item item
Name = 'RE' Name = 'RE'
DataType = datFloat DataType = datFloat
DisplayLabel = 'ContratosCliente_RE'
DictionaryEntry = 'ContratosCliente_RE'
end end
item item
Name = 'IMPORTE_RE' Name = 'IMPORTE_RE'
DataType = datCurrency DataType = datCurrency
DisplayLabel = 'Importe RE'
DictionaryEntry = 'ContratosCliente_IMPORTE_RE'
end end
item item
Name = 'ID_TIPO_IVA' Name = 'ID_TIPO_IVA'
DataType = datInteger DataType = datInteger
DisplayLabel = 'ContratosCliente_ID_TIPO_IVA'
DictionaryEntry = 'ContratosCliente_ID_TIPO_IVA'
end end
item item
Name = 'IVA' Name = 'IVA'
@ -196,11 +249,15 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
item item
Name = 'ID_TIENDA' Name = 'ID_TIENDA'
DataType = datInteger DataType = datInteger
DisplayLabel = 'ContratosCliente_ID_TIENDA'
DictionaryEntry = 'ContratosCliente_ID_TIENDA'
end end
item item
Name = 'TIENDA' Name = 'TIENDA'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'ContratosCliente_TIENDA'
DictionaryEntry = 'ContratosCliente_TIENDA'
end end
item item
Name = 'BASE_IMPONIBLE' Name = 'BASE_IMPONIBLE'
@ -239,16 +296,22 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
item item
Name = 'ID_VENDEDOR' Name = 'ID_VENDEDOR'
DataType = datInteger DataType = datInteger
DisplayLabel = 'ContratosCliente_ID_VENDEDOR'
DictionaryEntry = 'ContratosCliente_ID_VENDEDOR'
end end
item item
Name = 'VENDEDOR' Name = 'VENDEDOR'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Vendedor'
DictionaryEntry = 'ContratosCliente_VENDEDOR'
end end
item item
Name = 'PERSONA_CONTACTO' Name = 'PERSONA_CONTACTO'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Persona de contacto'
DictionaryEntry = 'ContratosCliente_PERSONA_CONTACTO'
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
@ -448,7 +511,7 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
Left = 544 Left = 544
Top = 152 Top = 152
end end
object tbl_CapitulosPresupuesto: TDAMemDataTable object tbl_TiposCapitulos: TDAMemDataTable
RemoteUpdatesOptions = [] RemoteUpdatesOptions = []
Fields = < Fields = <
item item
@ -483,14 +546,14 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_ContratosCliente RemoteDataAdapter = rda_ContratosCliente
LogicalName = 'CapitulosPresupuesto' LogicalName = 'TiposCapitulos'
IndexDefs = <> IndexDefs = <>
Left = 352 Left = 352
Top = 312 Top = 312
end end
object ds_CapitulosPresupuesto: TDADataSource object ds_TiposCapitulos: TDADataSource
DataSet = tbl_CapitulosPresupuesto.Dataset DataSet = tbl_TiposCapitulos.Dataset
DataTable = tbl_CapitulosPresupuesto DataTable = tbl_TiposCapitulos
Left = 352 Left = 352
Top = 256 Top = 256
end end

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

@ -29,8 +29,8 @@ type
ds_Propiedades: TDADataSource; ds_Propiedades: TDADataSource;
tbl_Valores: TDAMemDataTable; tbl_Valores: TDAMemDataTable;
ds_Valores: TDADataSource; ds_Valores: TDADataSource;
tbl_CapitulosPresupuesto: TDAMemDataTable; tbl_TiposCapitulos: TDAMemDataTable;
ds_CapitulosPresupuesto: TDADataSource; ds_TiposCapitulos: TDADataSource;
procedure DAClientDataModuleCreate(Sender: TObject); procedure DAClientDataModuleCreate(Sender: TObject);
private private
@ -220,20 +220,20 @@ end;
function TDataModuleContratosCliente.GetItems: IBizContratoCliente; function TDataModuleContratosCliente.GetItems: IBizContratoCliente;
var var
APresupuesto: TDAMemDataTable; AContrato: TDAMemDataTable;
begin begin
ShowHourglassCursor; ShowHourglassCursor;
try try
APresupuesto := CloneDataTable(tbl_ContratosCliente); AContrato := CloneDataTable(tbl_ContratosCliente);
AsignarClaseNegocio(APresupuesto); AsignarClaseNegocio(AContrato);
// EL CAMPO REFERENCIA TIENEN QUE SER AUTOREFRESH!!!!! // EL CAMPO REFERENCIA TIENEN QUE SER AUTOREFRESH!!!!!
APresupuesto.FieldByName(fld_ContratosClienteREFERENCIA).ServerAutoRefresh := TRUE; AContrato.FieldByName(fld_ContratosClienteREFERENCIA).ServerAutoRefresh := TRUE;
with TBizContratoCliente(APresupuesto.BusinessEventsObj) do with TBizContratoCliente(AContrato.BusinessEventsObj) do
Detalles := _GetDetalles; Detalles := _GetDetalles;
Result := (APresupuesto as IBizContratoCliente); Result := (AContrato as IBizContratoCliente);
finally finally
HideHourglassCursor; HideHourglassCursor;

9
Source/Modulos/Contratos de cliente/Model/ContratosCliente_model.dpk
View File

@ -33,13 +33,16 @@ requires
adortl, adortl,
Base, Base,
Contactos_model, Contactos_model,
Contactos_controller; Contactos_controller,
RemObjects_Core_D11,
DataAbstract_Core_D11;
contains contains
uBizDetallesContratoCliente in 'uBizDetallesContratoCliente.pas', uBizDetallesContratoCliente in 'uBizDetallesContratoCliente.pas',
uBizContratosCliente in 'uBizContratosCliente.pas', uBizContratosCliente in 'uBizContratosCliente.pas',
uIDataModuleContratosCliente in 'Data\uIDataModuleContratosCliente.pas', uIDataModuleContratosCliente in 'Data\uIDataModuleContratosCliente.pas',
uIDataModuleContratosClienteReport in 'Data\uIDataModuleContratosClienteReport.pas'; uIDataModuleContratosClienteReport in 'Data\uIDataModuleContratosClienteReport.pas',
schContratosClienteClient_Intf in 'schContratosClienteClient_Intf.pas',
schContratosClienteServer_Intf in 'schContratosClienteServer_Intf.pas';
end. end.

33
Source/Modulos/Contratos de cliente/Model/ContratosCliente_model.dproj
View File

@ -43,6 +43,8 @@
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<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><Excluded_Packages> <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 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 Name="C:\Archivos de programa\EurekaLog 5\Delphi10\ExceptionExpert10.bpl">EurekaLog 5.1.9</Excluded_Packages> <Excluded_Packages Name="C:\Archivos de programa\EurekaLog 5\Delphi10\ExceptionExpert10.bpl">EurekaLog 5.1.9</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">ContratosCliente_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">ContratosCliente_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
@ -52,28 +54,23 @@
<DelphiCompile Include="ContratosCliente_model.dpk"> <DelphiCompile Include="ContratosCliente_model.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\adortl.dcp" /> <DCCReference Include="adortl.dcp" />
<DCCReference Include="..\Base.dcp" /> <DCCReference Include="Base.dcp" />
<DCCReference Include="..\Contactos_c.dcp" /> <DCCReference Include="Contactos_controller.dcp" />
<DCCReference Include="..\Contactos_co.dcp" /> <DCCReference Include="Contactos_model.dcp" />
<DCCReference Include="..\Contactos_con.dcp" /> <DCCReference Include="DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Contactos_cont.dcp" />
<DCCReference Include="..\Contactos_contr.dcp" />
<DCCReference Include="..\Contactos_contro.dcp" />
<DCCReference Include="..\Contactos_control.dcp" />
<DCCReference Include="..\Contactos_controll.dcp" />
<DCCReference Include="..\Contactos_controlle.dcp" />
<DCCReference Include="..\Contactos_model.dcp" />
<DCCReference Include="..\Contactos_modelcontainsuBizDetallesContratoClientein.dcp" />
<DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="..\dsnap.dcp" />
<DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\vcldb.dcp" />
<DCCReference Include="Data\uIDataModuleContratosCliente.pas" /> <DCCReference Include="Data\uIDataModuleContratosCliente.pas" />
<DCCReference Include="Data\uIDataModuleContratosClienteReport.pas" /> <DCCReference Include="Data\uIDataModuleContratosClienteReport.pas" />
<DCCReference Include="dbrtl.dcp" />
<DCCReference Include="dsnap.dcp" />
<DCCReference Include="RemObjects_Core_D11.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="schContratosClienteClient_Intf.pas" />
<DCCReference Include="schContratosClienteServer_Intf.pas" />
<DCCReference Include="uBizContratosCliente.pas" /> <DCCReference Include="uBizContratosCliente.pas" />
<DCCReference Include="uBizDetallesContratoCliente.pas" /> <DCCReference Include="uBizDetallesContratoCliente.pas" />
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vcldb.dcp" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line

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

@ -9,19 +9,19 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_Valores = '{6425EDD9-EBD4-43FD-8545-FFEF34A8562A}'; RID_Valores = '{F657CD6D-DF69-43EA-A3E2-A241DCF09084}';
RID_Propiedades = '{0F975252-35A0-4D39-846F-4A63EE7B4E60}'; RID_Propiedades = '{9906A858-2BEF-45E9-99AD-FA2D7942CD73}';
RID_ListaAnosContratos = '{24E43FF1-C21B-46BB-B88C-17E3A68E3CA3}'; RID_ListaAnosContratos = '{10A0FC78-53FA-448C-B4BB-98D991B18186}';
RID_ContratosCliente = '{1866BCD5-3262-49D3-804C-401D7D3FCBE0}'; RID_ContratosCliente = '{E1ADD649-C673-4258-A5F9-7C7898C5D92B}';
RID_CapitulosPresupuesto = '{F8960438-1112-4E2B-8C4F-546552C38E66}'; RID_TiposCapitulos = '{D5F98509-6827-480B-85D3-BF0BA0C64998}';
RID_ContratosCliente_Detalles = '{D7437C8C-E8C5-4877-A3BD-BAC0DB86C2DA}'; RID_ContratosCliente_Detalles = '{008EBBD7-35BC-43B8-8CBA-26F4B279CFD6}';
{ Data table names } { Data table names }
nme_Valores = 'Valores'; nme_Valores = 'Valores';
nme_Propiedades = 'Propiedades'; nme_Propiedades = 'Propiedades';
nme_ListaAnosContratos = 'ListaAnosContratos'; nme_ListaAnosContratos = 'ListaAnosContratos';
nme_ContratosCliente = 'ContratosCliente'; nme_ContratosCliente = 'ContratosCliente';
nme_CapitulosPresupuesto = 'CapitulosPresupuesto'; nme_TiposCapitulos = 'TiposCapitulos';
nme_ContratosCliente_Detalles = 'ContratosCliente_Detalles'; nme_ContratosCliente_Detalles = 'ContratosCliente_Detalles';
{ Valores fields } { Valores fields }
@ -55,13 +55,17 @@ const
fld_ContratosClienteID_EMPRESA = 'ID_EMPRESA'; fld_ContratosClienteID_EMPRESA = 'ID_EMPRESA';
fld_ContratosClienteID_CLIENTE = 'ID_CLIENTE'; fld_ContratosClienteID_CLIENTE = 'ID_CLIENTE';
fld_ContratosClienteNOMBRE_CLIENTE = 'NOMBRE_CLIENTE'; fld_ContratosClienteNOMBRE_CLIENTE = 'NOMBRE_CLIENTE';
fld_ContratosClienteREF_CLIENTE = 'REF_CLIENTE';
fld_ContratosClienteNOMBRE_COMERCIAL_CLIENTE = 'NOMBRE_COMERCIAL_CLIENTE'; fld_ContratosClienteNOMBRE_COMERCIAL_CLIENTE = 'NOMBRE_COMERCIAL_CLIENTE';
fld_ContratosClienteNIF_CIF = 'NIF_CIF'; fld_ContratosClienteNIF_CIF = 'NIF_CIF';
fld_ContratosClienteNOMBRE = 'NOMBRE'; fld_ContratosClienteNOMBRE = 'NOMBRE';
fld_ContratosClienteID_DIRECCION = 'ID_DIRECCION';
fld_ContratosClienteCALLE = 'CALLE'; fld_ContratosClienteCALLE = 'CALLE';
fld_ContratosClientePOBLACION = 'POBLACION'; fld_ContratosClientePOBLACION = 'POBLACION';
fld_ContratosClientePROVINCIA = 'PROVINCIA'; fld_ContratosClientePROVINCIA = 'PROVINCIA';
fld_ContratosClienteCODIGO_POSTAL = 'CODIGO_POSTAL'; fld_ContratosClienteCODIGO_POSTAL = 'CODIGO_POSTAL';
fld_ContratosClienteTELEFONO = 'TELEFONO';
fld_ContratosClienteMOVIL = 'MOVIL';
fld_ContratosClienteREFERENCIA = 'REFERENCIA'; fld_ContratosClienteREFERENCIA = 'REFERENCIA';
fld_ContratosClienteFECHA_CONTRATO = 'FECHA_CONTRATO'; fld_ContratosClienteFECHA_CONTRATO = 'FECHA_CONTRATO';
fld_ContratosClienteSITUACION = 'SITUACION'; fld_ContratosClienteSITUACION = 'SITUACION';
@ -97,58 +101,62 @@ const
idx_ContratosClienteID_EMPRESA = 1; idx_ContratosClienteID_EMPRESA = 1;
idx_ContratosClienteID_CLIENTE = 2; idx_ContratosClienteID_CLIENTE = 2;
idx_ContratosClienteNOMBRE_CLIENTE = 3; idx_ContratosClienteNOMBRE_CLIENTE = 3;
idx_ContratosClienteNOMBRE_COMERCIAL_CLIENTE = 4; idx_ContratosClienteREF_CLIENTE = 4;
idx_ContratosClienteNIF_CIF = 5; idx_ContratosClienteNOMBRE_COMERCIAL_CLIENTE = 5;
idx_ContratosClienteNOMBRE = 6; idx_ContratosClienteNIF_CIF = 6;
idx_ContratosClienteCALLE = 7; idx_ContratosClienteNOMBRE = 7;
idx_ContratosClientePOBLACION = 8; idx_ContratosClienteID_DIRECCION = 8;
idx_ContratosClientePROVINCIA = 9; idx_ContratosClienteCALLE = 9;
idx_ContratosClienteCODIGO_POSTAL = 10; idx_ContratosClientePOBLACION = 10;
idx_ContratosClienteREFERENCIA = 11; idx_ContratosClientePROVINCIA = 11;
idx_ContratosClienteFECHA_CONTRATO = 12; idx_ContratosClienteCODIGO_POSTAL = 12;
idx_ContratosClienteSITUACION = 13; idx_ContratosClienteTELEFONO = 13;
idx_ContratosClienteFORMA_PAGO = 14; idx_ContratosClienteMOVIL = 14;
idx_ContratosClientePLAZO_ENTREGA = 15; idx_ContratosClienteREFERENCIA = 15;
idx_ContratosClienteOBSERVACIONES = 16; idx_ContratosClienteFECHA_CONTRATO = 16;
idx_ContratosClienteINCIDENCIAS = 17; idx_ContratosClienteSITUACION = 17;
idx_ContratosClienteINCIDENCIAS_ACTIVAS = 18; idx_ContratosClienteFORMA_PAGO = 18;
idx_ContratosClienteFECHA_ALTA = 19; idx_ContratosClientePLAZO_ENTREGA = 19;
idx_ContratosClienteFECHA_MODIFICACION = 20; idx_ContratosClienteOBSERVACIONES = 20;
idx_ContratosClienteUSUARIO = 21; idx_ContratosClienteINCIDENCIAS = 21;
idx_ContratosClienteRECARGO_EQUIVALENCIA = 22; idx_ContratosClienteINCIDENCIAS_ACTIVAS = 22;
idx_ContratosClienteRE = 23; idx_ContratosClienteFECHA_ALTA = 23;
idx_ContratosClienteIMPORTE_RE = 24; idx_ContratosClienteFECHA_MODIFICACION = 24;
idx_ContratosClienteID_TIPO_IVA = 25; idx_ContratosClienteUSUARIO = 25;
idx_ContratosClienteIVA = 26; idx_ContratosClienteRECARGO_EQUIVALENCIA = 26;
idx_ContratosClienteIMPORTE_IVA = 27; idx_ContratosClienteRE = 27;
idx_ContratosClienteIMPORTE_NETO = 28; idx_ContratosClienteIMPORTE_RE = 28;
idx_ContratosClienteIMPORTE_PORTE = 29; idx_ContratosClienteID_TIPO_IVA = 29;
idx_ContratosClienteID_TIENDA = 30; idx_ContratosClienteIVA = 30;
idx_ContratosClienteTIENDA = 31; idx_ContratosClienteIMPORTE_IVA = 31;
idx_ContratosClienteBASE_IMPONIBLE = 32; idx_ContratosClienteIMPORTE_NETO = 32;
idx_ContratosClienteDESCUENTO = 33; idx_ContratosClienteIMPORTE_PORTE = 33;
idx_ContratosClienteIMPORTE_DESCUENTO = 34; idx_ContratosClienteID_TIENDA = 34;
idx_ContratosClienteIMPORTE_TOTAL = 35; idx_ContratosClienteTIENDA = 35;
idx_ContratosClienteID_FORMA_PAGO = 36; idx_ContratosClienteBASE_IMPONIBLE = 36;
idx_ContratosClienteID_VENDEDOR = 37; idx_ContratosClienteDESCUENTO = 37;
idx_ContratosClienteVENDEDOR = 38; idx_ContratosClienteIMPORTE_DESCUENTO = 38;
idx_ContratosClientePERSONA_CONTACTO = 39; idx_ContratosClienteIMPORTE_TOTAL = 39;
idx_ContratosClienteID_FORMA_PAGO = 40;
idx_ContratosClienteID_VENDEDOR = 41;
idx_ContratosClienteVENDEDOR = 42;
idx_ContratosClientePERSONA_CONTACTO = 43;
{ CapitulosPresupuesto fields } { TiposCapitulos fields }
fld_CapitulosPresupuestoID = 'ID'; fld_TiposCapitulosID = 'ID';
fld_CapitulosPresupuestoPOSICION = 'POSICION'; fld_TiposCapitulosPOSICION = 'POSICION';
fld_CapitulosPresupuestoTIPO_DETALLE = 'TIPO_DETALLE'; fld_TiposCapitulosTIPO_DETALLE = 'TIPO_DETALLE';
fld_CapitulosPresupuestoTIPO_ARTICULO = 'TIPO_ARTICULO'; fld_TiposCapitulosTIPO_ARTICULO = 'TIPO_ARTICULO';
fld_CapitulosPresupuestoID_ARTICULO = 'ID_ARTICULO'; fld_TiposCapitulosID_ARTICULO = 'ID_ARTICULO';
fld_CapitulosPresupuestoCONCEPTO = 'CONCEPTO'; fld_TiposCapitulosCONCEPTO = 'CONCEPTO';
{ CapitulosPresupuesto field indexes } { TiposCapitulos field indexes }
idx_CapitulosPresupuestoID = 0; idx_TiposCapitulosID = 0;
idx_CapitulosPresupuestoPOSICION = 1; idx_TiposCapitulosPOSICION = 1;
idx_CapitulosPresupuestoTIPO_DETALLE = 2; idx_TiposCapitulosTIPO_DETALLE = 2;
idx_CapitulosPresupuestoTIPO_ARTICULO = 3; idx_TiposCapitulosTIPO_ARTICULO = 3;
idx_CapitulosPresupuestoID_ARTICULO = 4; idx_TiposCapitulosID_ARTICULO = 4;
idx_CapitulosPresupuestoCONCEPTO = 5; idx_TiposCapitulosCONCEPTO = 5;
{ ContratosCliente_Detalles fields } { ContratosCliente_Detalles fields }
fld_ContratosCliente_DetallesID = 'ID'; fld_ContratosCliente_DetallesID = 'ID';
@ -187,7 +195,7 @@ const
type type
{ IValores } { IValores }
IValores = interface(IDAStronglyTypedDataTable) IValores = interface(IDAStronglyTypedDataTable)
['{654B9338-5C3E-46DC-9D3B-FEE5C1362851}'] ['{A5848FC2-A766-4CF4-8F3D-EBE5A95319D5}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -246,7 +254,7 @@ type
{ IPropiedades } { IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable) IPropiedades = interface(IDAStronglyTypedDataTable)
['{EE7E48A1-556F-4CCD-A5C0-310C33E76C05}'] ['{801022BE-B0EE-4FBA-B321-93EA0FEB0A3F}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -305,7 +313,7 @@ type
{ IListaAnosContratos } { IListaAnosContratos }
IListaAnosContratos = interface(IDAStronglyTypedDataTable) IListaAnosContratos = interface(IDAStronglyTypedDataTable)
['{BDEFFDA8-85EB-4B16-9E08-C3CD397B2F70}'] ['{86E1F5A6-C2DF-472D-9F60-FEDBE12CD3D6}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -340,7 +348,7 @@ type
{ IContratosCliente } { IContratosCliente }
IContratosCliente = interface(IDAStronglyTypedDataTable) IContratosCliente = interface(IDAStronglyTypedDataTable)
['{71B11240-6256-418D-82D7-5586D8A10591}'] ['{A7B4A2D4-BCA1-4C5C-AD2E-20C4F3BC13CA}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -358,6 +366,10 @@ type
procedure SetNOMBRE_CLIENTEValue(const aValue: String); procedure SetNOMBRE_CLIENTEValue(const aValue: String);
function GetNOMBRE_CLIENTEIsNull: Boolean; function GetNOMBRE_CLIENTEIsNull: Boolean;
procedure SetNOMBRE_CLIENTEIsNull(const aValue: Boolean); procedure SetNOMBRE_CLIENTEIsNull(const aValue: Boolean);
function GetREF_CLIENTEValue: String;
procedure SetREF_CLIENTEValue(const aValue: String);
function GetREF_CLIENTEIsNull: Boolean;
procedure SetREF_CLIENTEIsNull(const aValue: Boolean);
function GetNOMBRE_COMERCIAL_CLIENTEValue: String; function GetNOMBRE_COMERCIAL_CLIENTEValue: String;
procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String);
function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean;
@ -370,6 +382,10 @@ type
procedure SetNOMBREValue(const aValue: String); procedure SetNOMBREValue(const aValue: String);
function GetNOMBREIsNull: Boolean; function GetNOMBREIsNull: Boolean;
procedure SetNOMBREIsNull(const aValue: Boolean); procedure SetNOMBREIsNull(const aValue: Boolean);
function GetID_DIRECCIONValue: Integer;
procedure SetID_DIRECCIONValue(const aValue: Integer);
function GetID_DIRECCIONIsNull: Boolean;
procedure SetID_DIRECCIONIsNull(const aValue: Boolean);
function GetCALLEValue: String; function GetCALLEValue: String;
procedure SetCALLEValue(const aValue: String); procedure SetCALLEValue(const aValue: String);
function GetCALLEIsNull: Boolean; function GetCALLEIsNull: Boolean;
@ -386,6 +402,14 @@ type
procedure SetCODIGO_POSTALValue(const aValue: String); procedure SetCODIGO_POSTALValue(const aValue: String);
function GetCODIGO_POSTALIsNull: Boolean; function GetCODIGO_POSTALIsNull: Boolean;
procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); procedure SetCODIGO_POSTALIsNull(const aValue: Boolean);
function GetTELEFONOValue: String;
procedure SetTELEFONOValue(const aValue: String);
function GetTELEFONOIsNull: Boolean;
procedure SetTELEFONOIsNull(const aValue: Boolean);
function GetMOVILValue: String;
procedure SetMOVILValue(const aValue: String);
function GetMOVILIsNull: Boolean;
procedure SetMOVILIsNull(const aValue: Boolean);
function GetREFERENCIAValue: String; function GetREFERENCIAValue: String;
procedure SetREFERENCIAValue(const aValue: String); procedure SetREFERENCIAValue(const aValue: String);
function GetREFERENCIAIsNull: Boolean; function GetREFERENCIAIsNull: Boolean;
@ -509,12 +533,16 @@ type
property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull; property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue; property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull; property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
property REF_CLIENTE: String read GetREF_CLIENTEValue write SetREF_CLIENTEValue;
property REF_CLIENTEIsNull: Boolean read GetREF_CLIENTEIsNull write SetREF_CLIENTEIsNull;
property NOMBRE_COMERCIAL_CLIENTE: String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue; property NOMBRE_COMERCIAL_CLIENTE: String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue;
property NOMBRE_COMERCIAL_CLIENTEIsNull: Boolean read GetNOMBRE_COMERCIAL_CLIENTEIsNull write SetNOMBRE_COMERCIAL_CLIENTEIsNull; property NOMBRE_COMERCIAL_CLIENTEIsNull: Boolean read GetNOMBRE_COMERCIAL_CLIENTEIsNull write SetNOMBRE_COMERCIAL_CLIENTEIsNull;
property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue; property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull; property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property ID_DIRECCION: Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue;
property ID_DIRECCIONIsNull: Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull;
property CALLE: String read GetCALLEValue write SetCALLEValue; property CALLE: String read GetCALLEValue write SetCALLEValue;
property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull; property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull;
property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
@ -523,6 +551,10 @@ type
property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull; property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull; property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
property TELEFONO: String read GetTELEFONOValue write SetTELEFONOValue;
property TELEFONOIsNull: Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull;
property MOVIL: String read GetMOVILValue write SetMOVILValue;
property MOVILIsNull: Boolean read GetMOVILIsNull write SetMOVILIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property FECHA_CONTRATO: DateTime read GetFECHA_CONTRATOValue write SetFECHA_CONTRATOValue; property FECHA_CONTRATO: DateTime read GetFECHA_CONTRATOValue write SetFECHA_CONTRATOValue;
@ -612,6 +644,10 @@ type
procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual; procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual;
function GetNOMBRE_CLIENTEIsNull: Boolean; virtual; function GetNOMBRE_CLIENTEIsNull: Boolean; virtual;
procedure SetNOMBRE_CLIENTEIsNull(const aValue: Boolean); virtual; procedure SetNOMBRE_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetREF_CLIENTEValue: String; virtual;
procedure SetREF_CLIENTEValue(const aValue: String); virtual;
function GetREF_CLIENTEIsNull: Boolean; virtual;
procedure SetREF_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetNOMBRE_COMERCIAL_CLIENTEValue: String; virtual; function GetNOMBRE_COMERCIAL_CLIENTEValue: String; virtual;
procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual; procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual;
function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; virtual; function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; virtual;
@ -624,6 +660,10 @@ type
procedure SetNOMBREValue(const aValue: String); virtual; procedure SetNOMBREValue(const aValue: String); virtual;
function GetNOMBREIsNull: Boolean; virtual; function GetNOMBREIsNull: Boolean; virtual;
procedure SetNOMBREIsNull(const aValue: Boolean); virtual; procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
function GetID_DIRECCIONValue: Integer; virtual;
procedure SetID_DIRECCIONValue(const aValue: Integer); virtual;
function GetID_DIRECCIONIsNull: Boolean; virtual;
procedure SetID_DIRECCIONIsNull(const aValue: Boolean); virtual;
function GetCALLEValue: String; virtual; function GetCALLEValue: String; virtual;
procedure SetCALLEValue(const aValue: String); virtual; procedure SetCALLEValue(const aValue: String); virtual;
function GetCALLEIsNull: Boolean; virtual; function GetCALLEIsNull: Boolean; virtual;
@ -640,6 +680,14 @@ type
procedure SetCODIGO_POSTALValue(const aValue: String); virtual; procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
function GetCODIGO_POSTALIsNull: Boolean; virtual; function GetCODIGO_POSTALIsNull: Boolean; virtual;
procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual; procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual;
function GetTELEFONOValue: String; virtual;
procedure SetTELEFONOValue(const aValue: String); virtual;
function GetTELEFONOIsNull: Boolean; virtual;
procedure SetTELEFONOIsNull(const aValue: Boolean); virtual;
function GetMOVILValue: String; virtual;
procedure SetMOVILValue(const aValue: String); virtual;
function GetMOVILIsNull: Boolean; virtual;
procedure SetMOVILIsNull(const aValue: Boolean); virtual;
function GetREFERENCIAValue: String; virtual; function GetREFERENCIAValue: String; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual; procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetREFERENCIAIsNull: Boolean; virtual; function GetREFERENCIAIsNull: Boolean; virtual;
@ -762,12 +810,16 @@ type
property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull; property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue; property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull; property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
property REF_CLIENTE: String read GetREF_CLIENTEValue write SetREF_CLIENTEValue;
property REF_CLIENTEIsNull: Boolean read GetREF_CLIENTEIsNull write SetREF_CLIENTEIsNull;
property NOMBRE_COMERCIAL_CLIENTE: String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue; property NOMBRE_COMERCIAL_CLIENTE: String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue;
property NOMBRE_COMERCIAL_CLIENTEIsNull: Boolean read GetNOMBRE_COMERCIAL_CLIENTEIsNull write SetNOMBRE_COMERCIAL_CLIENTEIsNull; property NOMBRE_COMERCIAL_CLIENTEIsNull: Boolean read GetNOMBRE_COMERCIAL_CLIENTEIsNull write SetNOMBRE_COMERCIAL_CLIENTEIsNull;
property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue; property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull; property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property ID_DIRECCION: Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue;
property ID_DIRECCIONIsNull: Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull;
property CALLE: String read GetCALLEValue write SetCALLEValue; property CALLE: String read GetCALLEValue write SetCALLEValue;
property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull; property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull;
property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
@ -776,6 +828,10 @@ type
property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull; property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull; property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
property TELEFONO: String read GetTELEFONOValue write SetTELEFONOValue;
property TELEFONOIsNull: Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull;
property MOVIL: String read GetMOVILValue write SetMOVILValue;
property MOVILIsNull: Boolean read GetMOVILIsNull write SetMOVILIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property FECHA_CONTRATO: DateTime read GetFECHA_CONTRATOValue write SetFECHA_CONTRATOValue; property FECHA_CONTRATO: DateTime read GetFECHA_CONTRATOValue write SetFECHA_CONTRATOValue;
@ -844,9 +900,9 @@ type
{ {
No tocar es la lista de distintos capitulos existentes No tocar es la lista de distintos capitulos existentes
} }
{ ICapitulosPresupuesto } { ITiposCapitulos }
ICapitulosPresupuesto = interface(IDAStronglyTypedDataTable) ITiposCapitulos = interface(IDAStronglyTypedDataTable)
['{2187AEED-477B-45C3-BBBF-270822AF8DF1}'] ['{70CCE7F6-9235-4BA4-9F7E-4DAF2B1C6DD9}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -889,8 +945,8 @@ type
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
end; end;
{ TCapitulosPresupuestoDataTableRules } { TTiposCapitulosDataTableRules }
TCapitulosPresupuestoDataTableRules = class(TIntfObjectDADataTableRules, ICapitulosPresupuesto) TTiposCapitulosDataTableRules = class(TIntfObjectDADataTableRules, ITiposCapitulos)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -941,7 +997,7 @@ type
{ IContratosCliente_Detalles } { IContratosCliente_Detalles }
IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable) IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{AE19F002-20B5-4F2A-9EDE-C17C3DA772EA}'] ['{BFB8ADB9-FD43-4885-A66C-5CD57A89BE87}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1462,6 +1518,27 @@ begin
DataTable.Fields[idx_ContratosClienteNOMBRE_CLIENTE].AsVariant := Null; DataTable.Fields[idx_ContratosClienteNOMBRE_CLIENTE].AsVariant := Null;
end; end;
function TContratosClienteDataTableRules.GetREF_CLIENTEValue: String;
begin
result := DataTable.Fields[idx_ContratosClienteREF_CLIENTE].AsString;
end;
procedure TContratosClienteDataTableRules.SetREF_CLIENTEValue(const aValue: String);
begin
DataTable.Fields[idx_ContratosClienteREF_CLIENTE].AsString := aValue;
end;
function TContratosClienteDataTableRules.GetREF_CLIENTEIsNull: boolean;
begin
result := DataTable.Fields[idx_ContratosClienteREF_CLIENTE].IsNull;
end;
procedure TContratosClienteDataTableRules.SetREF_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratosClienteREF_CLIENTE].AsVariant := Null;
end;
function TContratosClienteDataTableRules.GetNOMBRE_COMERCIAL_CLIENTEValue: String; function TContratosClienteDataTableRules.GetNOMBRE_COMERCIAL_CLIENTEValue: String;
begin begin
result := DataTable.Fields[idx_ContratosClienteNOMBRE_COMERCIAL_CLIENTE].AsString; result := DataTable.Fields[idx_ContratosClienteNOMBRE_COMERCIAL_CLIENTE].AsString;
@ -1525,6 +1602,27 @@ begin
DataTable.Fields[idx_ContratosClienteNOMBRE].AsVariant := Null; DataTable.Fields[idx_ContratosClienteNOMBRE].AsVariant := Null;
end; end;
function TContratosClienteDataTableRules.GetID_DIRECCIONValue: Integer;
begin
result := DataTable.Fields[idx_ContratosClienteID_DIRECCION].AsInteger;
end;
procedure TContratosClienteDataTableRules.SetID_DIRECCIONValue(const aValue: Integer);
begin
DataTable.Fields[idx_ContratosClienteID_DIRECCION].AsInteger := aValue;
end;
function TContratosClienteDataTableRules.GetID_DIRECCIONIsNull: boolean;
begin
result := DataTable.Fields[idx_ContratosClienteID_DIRECCION].IsNull;
end;
procedure TContratosClienteDataTableRules.SetID_DIRECCIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratosClienteID_DIRECCION].AsVariant := Null;
end;
function TContratosClienteDataTableRules.GetCALLEValue: String; function TContratosClienteDataTableRules.GetCALLEValue: String;
begin begin
result := DataTable.Fields[idx_ContratosClienteCALLE].AsString; result := DataTable.Fields[idx_ContratosClienteCALLE].AsString;
@ -1609,6 +1707,48 @@ begin
DataTable.Fields[idx_ContratosClienteCODIGO_POSTAL].AsVariant := Null; DataTable.Fields[idx_ContratosClienteCODIGO_POSTAL].AsVariant := Null;
end; end;
function TContratosClienteDataTableRules.GetTELEFONOValue: String;
begin
result := DataTable.Fields[idx_ContratosClienteTELEFONO].AsString;
end;
procedure TContratosClienteDataTableRules.SetTELEFONOValue(const aValue: String);
begin
DataTable.Fields[idx_ContratosClienteTELEFONO].AsString := aValue;
end;
function TContratosClienteDataTableRules.GetTELEFONOIsNull: boolean;
begin
result := DataTable.Fields[idx_ContratosClienteTELEFONO].IsNull;
end;
procedure TContratosClienteDataTableRules.SetTELEFONOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratosClienteTELEFONO].AsVariant := Null;
end;
function TContratosClienteDataTableRules.GetMOVILValue: String;
begin
result := DataTable.Fields[idx_ContratosClienteMOVIL].AsString;
end;
procedure TContratosClienteDataTableRules.SetMOVILValue(const aValue: String);
begin
DataTable.Fields[idx_ContratosClienteMOVIL].AsString := aValue;
end;
function TContratosClienteDataTableRules.GetMOVILIsNull: boolean;
begin
result := DataTable.Fields[idx_ContratosClienteMOVIL].IsNull;
end;
procedure TContratosClienteDataTableRules.SetMOVILIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratosClienteMOVIL].AsVariant := Null;
end;
function TContratosClienteDataTableRules.GetREFERENCIAValue: String; function TContratosClienteDataTableRules.GetREFERENCIAValue: String;
begin begin
result := DataTable.Fields[idx_ContratosClienteREFERENCIA].AsString; result := DataTable.Fields[idx_ContratosClienteREFERENCIA].AsString;
@ -2203,141 +2343,141 @@ begin
end; end;
{ TCapitulosPresupuestoDataTableRules } { TTiposCapitulosDataTableRules }
constructor TCapitulosPresupuestoDataTableRules.Create(aDataTable: TDADataTable); constructor TTiposCapitulosDataTableRules.Create(aDataTable: TDADataTable);
begin begin
inherited; inherited;
end; end;
destructor TCapitulosPresupuestoDataTableRules.Destroy; destructor TTiposCapitulosDataTableRules.Destroy;
begin begin
inherited; inherited;
end; end;
function TCapitulosPresupuestoDataTableRules.GetIDValue: Integer; function TTiposCapitulosDataTableRules.GetIDValue: Integer;
begin begin
result := DataTable.Fields[idx_CapitulosPresupuestoID].AsInteger; result := DataTable.Fields[idx_TiposCapitulosID].AsInteger;
end; end;
procedure TCapitulosPresupuestoDataTableRules.SetIDValue(const aValue: Integer); procedure TTiposCapitulosDataTableRules.SetIDValue(const aValue: Integer);
begin begin
DataTable.Fields[idx_CapitulosPresupuestoID].AsInteger := aValue; DataTable.Fields[idx_TiposCapitulosID].AsInteger := aValue;
end; end;
function TCapitulosPresupuestoDataTableRules.GetIDIsNull: boolean; function TTiposCapitulosDataTableRules.GetIDIsNull: boolean;
begin begin
result := DataTable.Fields[idx_CapitulosPresupuestoID].IsNull; result := DataTable.Fields[idx_TiposCapitulosID].IsNull;
end; end;
procedure TCapitulosPresupuestoDataTableRules.SetIDIsNull(const aValue: Boolean); procedure TTiposCapitulosDataTableRules.SetIDIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
DataTable.Fields[idx_CapitulosPresupuestoID].AsVariant := Null; DataTable.Fields[idx_TiposCapitulosID].AsVariant := Null;
end; end;
function TCapitulosPresupuestoDataTableRules.GetPOSICIONValue: Integer; function TTiposCapitulosDataTableRules.GetPOSICIONValue: Integer;
begin begin
result := DataTable.Fields[idx_CapitulosPresupuestoPOSICION].AsInteger; result := DataTable.Fields[idx_TiposCapitulosPOSICION].AsInteger;
end; end;
procedure TCapitulosPresupuestoDataTableRules.SetPOSICIONValue(const aValue: Integer); procedure TTiposCapitulosDataTableRules.SetPOSICIONValue(const aValue: Integer);
begin begin
DataTable.Fields[idx_CapitulosPresupuestoPOSICION].AsInteger := aValue; DataTable.Fields[idx_TiposCapitulosPOSICION].AsInteger := aValue;
end; end;
function TCapitulosPresupuestoDataTableRules.GetPOSICIONIsNull: boolean; function TTiposCapitulosDataTableRules.GetPOSICIONIsNull: boolean;
begin begin
result := DataTable.Fields[idx_CapitulosPresupuestoPOSICION].IsNull; result := DataTable.Fields[idx_TiposCapitulosPOSICION].IsNull;
end; end;
procedure TCapitulosPresupuestoDataTableRules.SetPOSICIONIsNull(const aValue: Boolean); procedure TTiposCapitulosDataTableRules.SetPOSICIONIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
DataTable.Fields[idx_CapitulosPresupuestoPOSICION].AsVariant := Null; DataTable.Fields[idx_TiposCapitulosPOSICION].AsVariant := Null;
end; end;
function TCapitulosPresupuestoDataTableRules.GetTIPO_DETALLEValue: String; function TTiposCapitulosDataTableRules.GetTIPO_DETALLEValue: String;
begin begin
result := DataTable.Fields[idx_CapitulosPresupuestoTIPO_DETALLE].AsString; result := DataTable.Fields[idx_TiposCapitulosTIPO_DETALLE].AsString;
end; end;
procedure TCapitulosPresupuestoDataTableRules.SetTIPO_DETALLEValue(const aValue: String); procedure TTiposCapitulosDataTableRules.SetTIPO_DETALLEValue(const aValue: String);
begin begin
DataTable.Fields[idx_CapitulosPresupuestoTIPO_DETALLE].AsString := aValue; DataTable.Fields[idx_TiposCapitulosTIPO_DETALLE].AsString := aValue;
end; end;
function TCapitulosPresupuestoDataTableRules.GetTIPO_DETALLEIsNull: boolean; function TTiposCapitulosDataTableRules.GetTIPO_DETALLEIsNull: boolean;
begin begin
result := DataTable.Fields[idx_CapitulosPresupuestoTIPO_DETALLE].IsNull; result := DataTable.Fields[idx_TiposCapitulosTIPO_DETALLE].IsNull;
end; end;
procedure TCapitulosPresupuestoDataTableRules.SetTIPO_DETALLEIsNull(const aValue: Boolean); procedure TTiposCapitulosDataTableRules.SetTIPO_DETALLEIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
DataTable.Fields[idx_CapitulosPresupuestoTIPO_DETALLE].AsVariant := Null; DataTable.Fields[idx_TiposCapitulosTIPO_DETALLE].AsVariant := Null;
end; end;
function TCapitulosPresupuestoDataTableRules.GetTIPO_ARTICULOValue: String; function TTiposCapitulosDataTableRules.GetTIPO_ARTICULOValue: String;
begin begin
result := DataTable.Fields[idx_CapitulosPresupuestoTIPO_ARTICULO].AsString; result := DataTable.Fields[idx_TiposCapitulosTIPO_ARTICULO].AsString;
end; end;
procedure TCapitulosPresupuestoDataTableRules.SetTIPO_ARTICULOValue(const aValue: String); procedure TTiposCapitulosDataTableRules.SetTIPO_ARTICULOValue(const aValue: String);
begin begin
DataTable.Fields[idx_CapitulosPresupuestoTIPO_ARTICULO].AsString := aValue; DataTable.Fields[idx_TiposCapitulosTIPO_ARTICULO].AsString := aValue;
end; end;
function TCapitulosPresupuestoDataTableRules.GetTIPO_ARTICULOIsNull: boolean; function TTiposCapitulosDataTableRules.GetTIPO_ARTICULOIsNull: boolean;
begin begin
result := DataTable.Fields[idx_CapitulosPresupuestoTIPO_ARTICULO].IsNull; result := DataTable.Fields[idx_TiposCapitulosTIPO_ARTICULO].IsNull;
end; end;
procedure TCapitulosPresupuestoDataTableRules.SetTIPO_ARTICULOIsNull(const aValue: Boolean); procedure TTiposCapitulosDataTableRules.SetTIPO_ARTICULOIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
DataTable.Fields[idx_CapitulosPresupuestoTIPO_ARTICULO].AsVariant := Null; DataTable.Fields[idx_TiposCapitulosTIPO_ARTICULO].AsVariant := Null;
end; end;
function TCapitulosPresupuestoDataTableRules.GetID_ARTICULOValue: Integer; function TTiposCapitulosDataTableRules.GetID_ARTICULOValue: Integer;
begin begin
result := DataTable.Fields[idx_CapitulosPresupuestoID_ARTICULO].AsInteger; result := DataTable.Fields[idx_TiposCapitulosID_ARTICULO].AsInteger;
end; end;
procedure TCapitulosPresupuestoDataTableRules.SetID_ARTICULOValue(const aValue: Integer); procedure TTiposCapitulosDataTableRules.SetID_ARTICULOValue(const aValue: Integer);
begin begin
DataTable.Fields[idx_CapitulosPresupuestoID_ARTICULO].AsInteger := aValue; DataTable.Fields[idx_TiposCapitulosID_ARTICULO].AsInteger := aValue;
end; end;
function TCapitulosPresupuestoDataTableRules.GetID_ARTICULOIsNull: boolean; function TTiposCapitulosDataTableRules.GetID_ARTICULOIsNull: boolean;
begin begin
result := DataTable.Fields[idx_CapitulosPresupuestoID_ARTICULO].IsNull; result := DataTable.Fields[idx_TiposCapitulosID_ARTICULO].IsNull;
end; end;
procedure TCapitulosPresupuestoDataTableRules.SetID_ARTICULOIsNull(const aValue: Boolean); procedure TTiposCapitulosDataTableRules.SetID_ARTICULOIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
DataTable.Fields[idx_CapitulosPresupuestoID_ARTICULO].AsVariant := Null; DataTable.Fields[idx_TiposCapitulosID_ARTICULO].AsVariant := Null;
end; end;
function TCapitulosPresupuestoDataTableRules.GetCONCEPTOValue: String; function TTiposCapitulosDataTableRules.GetCONCEPTOValue: String;
begin begin
result := DataTable.Fields[idx_CapitulosPresupuestoCONCEPTO].AsString; result := DataTable.Fields[idx_TiposCapitulosCONCEPTO].AsString;
end; end;
procedure TCapitulosPresupuestoDataTableRules.SetCONCEPTOValue(const aValue: String); procedure TTiposCapitulosDataTableRules.SetCONCEPTOValue(const aValue: String);
begin begin
DataTable.Fields[idx_CapitulosPresupuestoCONCEPTO].AsString := aValue; DataTable.Fields[idx_TiposCapitulosCONCEPTO].AsString := aValue;
end; end;
function TCapitulosPresupuestoDataTableRules.GetCONCEPTOIsNull: boolean; function TTiposCapitulosDataTableRules.GetCONCEPTOIsNull: boolean;
begin begin
result := DataTable.Fields[idx_CapitulosPresupuestoCONCEPTO].IsNull; result := DataTable.Fields[idx_TiposCapitulosCONCEPTO].IsNull;
end; end;
procedure TCapitulosPresupuestoDataTableRules.SetCONCEPTOIsNull(const aValue: Boolean); procedure TTiposCapitulosDataTableRules.SetCONCEPTOIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
DataTable.Fields[idx_CapitulosPresupuestoCONCEPTO].AsVariant := Null; DataTable.Fields[idx_TiposCapitulosCONCEPTO].AsVariant := Null;
end; end;
@ -2673,7 +2813,7 @@ initialization
RegisterDataTableRules(RID_Propiedades, TPropiedadesDataTableRules); RegisterDataTableRules(RID_Propiedades, TPropiedadesDataTableRules);
RegisterDataTableRules(RID_ListaAnosContratos, TListaAnosContratosDataTableRules); RegisterDataTableRules(RID_ListaAnosContratos, TListaAnosContratosDataTableRules);
RegisterDataTableRules(RID_ContratosCliente, TContratosClienteDataTableRules); RegisterDataTableRules(RID_ContratosCliente, TContratosClienteDataTableRules);
RegisterDataTableRules(RID_CapitulosPresupuesto, TCapitulosPresupuestoDataTableRules); RegisterDataTableRules(RID_TiposCapitulos, TTiposCapitulosDataTableRules);
RegisterDataTableRules(RID_ContratosCliente_Detalles, TContratosCliente_DetallesDataTableRules); RegisterDataTableRules(RID_ContratosCliente_Detalles, TContratosCliente_DetallesDataTableRules);
end. end.

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

@ -9,17 +9,17 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ValoresDelta = '{25248564-22B0-47BB-86D0-2444C6EA27E9}'; RID_ValoresDelta = '{A9F29618-E25A-4076-9A31-ED37100D8ABE}';
RID_PropiedadesDelta = '{D4DB0BBC-EA97-4F0E-8A48-AA33A949DBF3}'; RID_PropiedadesDelta = '{B42E866C-3C13-49E7-96DB-0C6C971567CB}';
RID_ListaAnosContratosDelta = '{18D72479-5821-401B-B8A5-43F927D23F4D}'; RID_ListaAnosContratosDelta = '{3A22DAAB-ED1B-4604-A896-E9C0A5898288}';
RID_ContratosClienteDelta = '{6AD4B6BE-88CF-47E6-AABC-520CC5BFC3BE}'; RID_ContratosClienteDelta = '{260D24A7-5771-4ACD-AA15-55EE6FD44FE6}';
RID_CapitulosPresupuestoDelta = '{0669B7DF-4A6B-4517-BB0E-2934956BB2B0}'; RID_TiposCapitulosDelta = '{2C1FE27B-5690-4555-B7D2-5C92C9B1EFFA}';
RID_ContratosCliente_DetallesDelta = '{BC3F0D8A-48F1-47D0-86FB-AB210406B3CD}'; RID_ContratosCliente_DetallesDelta = '{EA7927D3-F427-40C6-9394-546BD299BA21}';
type type
{ IValoresDelta } { IValoresDelta }
IValoresDelta = interface(IValores) IValoresDelta = interface(IValores)
['{25248564-22B0-47BB-86D0-2444C6EA27E9}'] ['{A9F29618-E25A-4076-9A31-ED37100D8ABE}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_PROPIEDADValue : Integer; function GetOldID_PROPIEDADValue : Integer;
@ -77,7 +77,7 @@ type
{ IPropiedadesDelta } { IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades) IPropiedadesDelta = interface(IPropiedades)
['{D4DB0BBC-EA97-4F0E-8A48-AA33A949DBF3}'] ['{B42E866C-3C13-49E7-96DB-0C6C971567CB}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -135,7 +135,7 @@ type
{ IListaAnosContratosDelta } { IListaAnosContratosDelta }
IListaAnosContratosDelta = interface(IListaAnosContratos) IListaAnosContratosDelta = interface(IListaAnosContratos)
['{18D72479-5821-401B-B8A5-43F927D23F4D}'] ['{3A22DAAB-ED1B-4604-A896-E9C0A5898288}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -169,19 +169,23 @@ type
{ IContratosClienteDelta } { IContratosClienteDelta }
IContratosClienteDelta = interface(IContratosCliente) IContratosClienteDelta = interface(IContratosCliente)
['{6AD4B6BE-88CF-47E6-AABC-520CC5BFC3BE}'] ['{260D24A7-5771-4ACD-AA15-55EE6FD44FE6}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
function GetOldID_CLIENTEValue : Integer; function GetOldID_CLIENTEValue : Integer;
function GetOldNOMBRE_CLIENTEValue : String; function GetOldNOMBRE_CLIENTEValue : String;
function GetOldREF_CLIENTEValue : String;
function GetOldNOMBRE_COMERCIAL_CLIENTEValue : String; function GetOldNOMBRE_COMERCIAL_CLIENTEValue : String;
function GetOldNIF_CIFValue : String; function GetOldNIF_CIFValue : String;
function GetOldNOMBREValue : String; function GetOldNOMBREValue : String;
function GetOldID_DIRECCIONValue : Integer;
function GetOldCALLEValue : String; function GetOldCALLEValue : String;
function GetOldPOBLACIONValue : String; function GetOldPOBLACIONValue : String;
function GetOldPROVINCIAValue : String; function GetOldPROVINCIAValue : String;
function GetOldCODIGO_POSTALValue : String; function GetOldCODIGO_POSTALValue : String;
function GetOldTELEFONOValue : String;
function GetOldMOVILValue : String;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
function GetOldFECHA_CONTRATOValue : DateTime; function GetOldFECHA_CONTRATOValue : DateTime;
function GetOldSITUACIONValue : String; function GetOldSITUACIONValue : String;
@ -217,13 +221,17 @@ type
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue; property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue; property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
property OldREF_CLIENTE : String read GetOldREF_CLIENTEValue;
property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue; property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue;
property OldNIF_CIF : String read GetOldNIF_CIFValue; property OldNIF_CIF : String read GetOldNIF_CIFValue;
property OldNOMBRE : String read GetOldNOMBREValue; property OldNOMBRE : String read GetOldNOMBREValue;
property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue;
property OldCALLE : String read GetOldCALLEValue; property OldCALLE : String read GetOldCALLEValue;
property OldPOBLACION : String read GetOldPOBLACIONValue; property OldPOBLACION : String read GetOldPOBLACIONValue;
property OldPROVINCIA : String read GetOldPROVINCIAValue; property OldPROVINCIA : String read GetOldPROVINCIAValue;
property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue; property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
property OldTELEFONO : String read GetOldTELEFONOValue;
property OldMOVIL : String read GetOldMOVILValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldFECHA_CONTRATO : DateTime read GetOldFECHA_CONTRATOValue; property OldFECHA_CONTRATO : DateTime read GetOldFECHA_CONTRATOValue;
property OldSITUACION : String read GetOldSITUACIONValue; property OldSITUACION : String read GetOldSITUACIONValue;
@ -292,6 +300,12 @@ type
function GetOldNOMBRE_CLIENTEIsNull: Boolean; virtual; function GetOldNOMBRE_CLIENTEIsNull: Boolean; virtual;
procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual; procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual;
procedure SetNOMBRE_CLIENTEIsNull(const aValue: Boolean); virtual; procedure SetNOMBRE_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetREF_CLIENTEValue: String; virtual;
function GetREF_CLIENTEIsNull: Boolean; virtual;
function GetOldREF_CLIENTEValue: String; virtual;
function GetOldREF_CLIENTEIsNull: Boolean; virtual;
procedure SetREF_CLIENTEValue(const aValue: String); virtual;
procedure SetREF_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetNOMBRE_COMERCIAL_CLIENTEValue: String; virtual; function GetNOMBRE_COMERCIAL_CLIENTEValue: String; virtual;
function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; virtual; function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; virtual;
function GetOldNOMBRE_COMERCIAL_CLIENTEValue: String; virtual; function GetOldNOMBRE_COMERCIAL_CLIENTEValue: String; virtual;
@ -310,6 +324,12 @@ type
function GetOldNOMBREIsNull: Boolean; virtual; function GetOldNOMBREIsNull: Boolean; virtual;
procedure SetNOMBREValue(const aValue: String); virtual; procedure SetNOMBREValue(const aValue: String); virtual;
procedure SetNOMBREIsNull(const aValue: Boolean); virtual; procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
function GetID_DIRECCIONValue: Integer; virtual;
function GetID_DIRECCIONIsNull: Boolean; virtual;
function GetOldID_DIRECCIONValue: Integer; virtual;
function GetOldID_DIRECCIONIsNull: Boolean; virtual;
procedure SetID_DIRECCIONValue(const aValue: Integer); virtual;
procedure SetID_DIRECCIONIsNull(const aValue: Boolean); virtual;
function GetCALLEValue: String; virtual; function GetCALLEValue: String; virtual;
function GetCALLEIsNull: Boolean; virtual; function GetCALLEIsNull: Boolean; virtual;
function GetOldCALLEValue: String; virtual; function GetOldCALLEValue: String; virtual;
@ -334,6 +354,18 @@ type
function GetOldCODIGO_POSTALIsNull: Boolean; virtual; function GetOldCODIGO_POSTALIsNull: Boolean; virtual;
procedure SetCODIGO_POSTALValue(const aValue: String); virtual; procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual; procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual;
function GetTELEFONOValue: String; virtual;
function GetTELEFONOIsNull: Boolean; virtual;
function GetOldTELEFONOValue: String; virtual;
function GetOldTELEFONOIsNull: Boolean; virtual;
procedure SetTELEFONOValue(const aValue: String); virtual;
procedure SetTELEFONOIsNull(const aValue: Boolean); virtual;
function GetMOVILValue: String; virtual;
function GetMOVILIsNull: Boolean; virtual;
function GetOldMOVILValue: String; virtual;
function GetOldMOVILIsNull: Boolean; virtual;
procedure SetMOVILValue(const aValue: String); virtual;
procedure SetMOVILIsNull(const aValue: Boolean); virtual;
function GetREFERENCIAValue: String; virtual; function GetREFERENCIAValue: String; virtual;
function GetREFERENCIAIsNull: Boolean; virtual; function GetREFERENCIAIsNull: Boolean; virtual;
function GetOldREFERENCIAValue: String; virtual; function GetOldREFERENCIAValue: String; virtual;
@ -522,6 +554,10 @@ type
property NOMBRE_CLIENTEIsNull : Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull; property NOMBRE_CLIENTEIsNull : Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue; property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
property OldNOMBRE_CLIENTEIsNull : Boolean read GetOldNOMBRE_CLIENTEIsNull; property OldNOMBRE_CLIENTEIsNull : Boolean read GetOldNOMBRE_CLIENTEIsNull;
property REF_CLIENTE : String read GetREF_CLIENTEValue write SetREF_CLIENTEValue;
property REF_CLIENTEIsNull : Boolean read GetREF_CLIENTEIsNull write SetREF_CLIENTEIsNull;
property OldREF_CLIENTE : String read GetOldREF_CLIENTEValue;
property OldREF_CLIENTEIsNull : Boolean read GetOldREF_CLIENTEIsNull;
property NOMBRE_COMERCIAL_CLIENTE : String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue; property NOMBRE_COMERCIAL_CLIENTE : String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue;
property NOMBRE_COMERCIAL_CLIENTEIsNull : Boolean read GetNOMBRE_COMERCIAL_CLIENTEIsNull write SetNOMBRE_COMERCIAL_CLIENTEIsNull; property NOMBRE_COMERCIAL_CLIENTEIsNull : Boolean read GetNOMBRE_COMERCIAL_CLIENTEIsNull write SetNOMBRE_COMERCIAL_CLIENTEIsNull;
property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue; property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue;
@ -534,6 +570,10 @@ type
property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull; property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property OldNOMBRE : String read GetOldNOMBREValue; property OldNOMBRE : String read GetOldNOMBREValue;
property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull; property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull;
property ID_DIRECCION : Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue;
property ID_DIRECCIONIsNull : Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull;
property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue;
property OldID_DIRECCIONIsNull : Boolean read GetOldID_DIRECCIONIsNull;
property CALLE : String read GetCALLEValue write SetCALLEValue; property CALLE : String read GetCALLEValue write SetCALLEValue;
property CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull; property CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull;
property OldCALLE : String read GetOldCALLEValue; property OldCALLE : String read GetOldCALLEValue;
@ -550,6 +590,14 @@ type
property CODIGO_POSTALIsNull : Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull; property CODIGO_POSTALIsNull : Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue; property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
property OldCODIGO_POSTALIsNull : Boolean read GetOldCODIGO_POSTALIsNull; property OldCODIGO_POSTALIsNull : Boolean read GetOldCODIGO_POSTALIsNull;
property TELEFONO : String read GetTELEFONOValue write SetTELEFONOValue;
property TELEFONOIsNull : Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull;
property OldTELEFONO : String read GetOldTELEFONOValue;
property OldTELEFONOIsNull : Boolean read GetOldTELEFONOIsNull;
property MOVIL : String read GetMOVILValue write SetMOVILValue;
property MOVILIsNull : Boolean read GetMOVILIsNull write SetMOVILIsNull;
property OldMOVIL : String read GetOldMOVILValue;
property OldMOVILIsNull : Boolean read GetOldMOVILIsNull;
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue;
@ -673,9 +721,9 @@ type
end; end;
{ ICapitulosPresupuestoDelta } { ITiposCapitulosDelta }
ICapitulosPresupuestoDelta = interface(ICapitulosPresupuesto) ITiposCapitulosDelta = interface(ITiposCapitulos)
['{0669B7DF-4A6B-4517-BB0E-2934956BB2B0}'] ['{2C1FE27B-5690-4555-B7D2-5C92C9B1EFFA}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer; function GetOldPOSICIONValue : Integer;
@ -693,8 +741,8 @@ type
property OldCONCEPTO : String read GetOldCONCEPTOValue; property OldCONCEPTO : String read GetOldCONCEPTOValue;
end; end;
{ TCapitulosPresupuestoBusinessProcessorRules } { TTiposCapitulosBusinessProcessorRules }
TCapitulosPresupuestoBusinessProcessorRules = class(TDABusinessProcessorRules, ICapitulosPresupuesto, ICapitulosPresupuestoDelta) TTiposCapitulosBusinessProcessorRules = class(TDABusinessProcessorRules, ITiposCapitulos, ITiposCapitulosDelta)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -769,7 +817,7 @@ type
{ IContratosCliente_DetallesDelta } { IContratosCliente_DetallesDelta }
IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles) IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles)
['{BC3F0D8A-48F1-47D0-86FB-AB210406B3CD}'] ['{EA7927D3-F427-40C6-9394-546BD299BA21}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTRATOValue : Integer; function GetOldID_CONTRATOValue : Integer;
@ -1400,6 +1448,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteNOMBRE_CLIENTE] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteNOMBRE_CLIENTE] := Null;
end; end;
function TContratosClienteBusinessProcessorRules.GetREF_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteREF_CLIENTE];
end;
function TContratosClienteBusinessProcessorRules.GetREF_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteREF_CLIENTE]);
end;
function TContratosClienteBusinessProcessorRules.GetOldREF_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteREF_CLIENTE];
end;
function TContratosClienteBusinessProcessorRules.GetOldREF_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteREF_CLIENTE]);
end;
procedure TContratosClienteBusinessProcessorRules.SetREF_CLIENTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteREF_CLIENTE] := aValue;
end;
procedure TContratosClienteBusinessProcessorRules.SetREF_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteREF_CLIENTE] := Null;
end;
function TContratosClienteBusinessProcessorRules.GetNOMBRE_COMERCIAL_CLIENTEValue: String; function TContratosClienteBusinessProcessorRules.GetNOMBRE_COMERCIAL_CLIENTEValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteNOMBRE_COMERCIAL_CLIENTE]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteNOMBRE_COMERCIAL_CLIENTE];
@ -1493,6 +1572,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteNOMBRE] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteNOMBRE] := Null;
end; end;
function TContratosClienteBusinessProcessorRules.GetID_DIRECCIONValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteID_DIRECCION];
end;
function TContratosClienteBusinessProcessorRules.GetID_DIRECCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteID_DIRECCION]);
end;
function TContratosClienteBusinessProcessorRules.GetOldID_DIRECCIONValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteID_DIRECCION];
end;
function TContratosClienteBusinessProcessorRules.GetOldID_DIRECCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteID_DIRECCION]);
end;
procedure TContratosClienteBusinessProcessorRules.SetID_DIRECCIONValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteID_DIRECCION] := aValue;
end;
procedure TContratosClienteBusinessProcessorRules.SetID_DIRECCIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteID_DIRECCION] := Null;
end;
function TContratosClienteBusinessProcessorRules.GetCALLEValue: String; function TContratosClienteBusinessProcessorRules.GetCALLEValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteCALLE]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteCALLE];
@ -1617,6 +1727,68 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteCODIGO_POSTAL] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteCODIGO_POSTAL] := Null;
end; end;
function TContratosClienteBusinessProcessorRules.GetTELEFONOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteTELEFONO];
end;
function TContratosClienteBusinessProcessorRules.GetTELEFONOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteTELEFONO]);
end;
function TContratosClienteBusinessProcessorRules.GetOldTELEFONOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteTELEFONO];
end;
function TContratosClienteBusinessProcessorRules.GetOldTELEFONOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteTELEFONO]);
end;
procedure TContratosClienteBusinessProcessorRules.SetTELEFONOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteTELEFONO] := aValue;
end;
procedure TContratosClienteBusinessProcessorRules.SetTELEFONOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteTELEFONO] := Null;
end;
function TContratosClienteBusinessProcessorRules.GetMOVILValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteMOVIL];
end;
function TContratosClienteBusinessProcessorRules.GetMOVILIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteMOVIL]);
end;
function TContratosClienteBusinessProcessorRules.GetOldMOVILValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteMOVIL];
end;
function TContratosClienteBusinessProcessorRules.GetOldMOVILIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteMOVIL]);
end;
procedure TContratosClienteBusinessProcessorRules.SetMOVILValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteMOVIL] := aValue;
end;
procedure TContratosClienteBusinessProcessorRules.SetMOVILIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteMOVIL] := Null;
end;
function TContratosClienteBusinessProcessorRules.GetREFERENCIAValue: String; function TContratosClienteBusinessProcessorRules.GetREFERENCIAValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteREFERENCIA]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteREFERENCIA];
@ -2505,201 +2677,201 @@ begin
end; end;
{ TCapitulosPresupuestoBusinessProcessorRules } { TTiposCapitulosBusinessProcessorRules }
constructor TCapitulosPresupuestoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TTiposCapitulosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin begin
inherited; inherited;
end; end;
destructor TCapitulosPresupuestoBusinessProcessorRules.Destroy; destructor TTiposCapitulosBusinessProcessorRules.Destroy;
begin begin
inherited; inherited;
end; end;
function TCapitulosPresupuestoBusinessProcessorRules.GetIDValue: Integer; function TTiposCapitulosBusinessProcessorRules.GetIDValue: Integer;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoID]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosID];
end; end;
function TCapitulosPresupuestoBusinessProcessorRules.GetIDIsNull: Boolean; function TTiposCapitulosBusinessProcessorRules.GetIDIsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoID]); result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosID]);
end; end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldIDValue: Integer; function TTiposCapitulosBusinessProcessorRules.GetOldIDValue: Integer;
begin begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoID]; result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiposCapitulosID];
end; end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldIDIsNull: Boolean; function TTiposCapitulosBusinessProcessorRules.GetOldIDIsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoID]); result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_TiposCapitulosID]);
end; end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetIDValue(const aValue: Integer); procedure TTiposCapitulosBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoID] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosID] := aValue;
end; end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); procedure TTiposCapitulosBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoID] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosID] := Null;
end; end;
function TCapitulosPresupuestoBusinessProcessorRules.GetPOSICIONValue: Integer; function TTiposCapitulosBusinessProcessorRules.GetPOSICIONValue: Integer;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoPOSICION]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosPOSICION];
end; end;
function TCapitulosPresupuestoBusinessProcessorRules.GetPOSICIONIsNull: Boolean; function TTiposCapitulosBusinessProcessorRules.GetPOSICIONIsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoPOSICION]); result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosPOSICION]);
end; end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldPOSICIONValue: Integer; function TTiposCapitulosBusinessProcessorRules.GetOldPOSICIONValue: Integer;
begin begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoPOSICION]; result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiposCapitulosPOSICION];
end; end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldPOSICIONIsNull: Boolean; function TTiposCapitulosBusinessProcessorRules.GetOldPOSICIONIsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoPOSICION]); result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_TiposCapitulosPOSICION]);
end; end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetPOSICIONValue(const aValue: Integer); procedure TTiposCapitulosBusinessProcessorRules.SetPOSICIONValue(const aValue: Integer);
begin begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoPOSICION] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosPOSICION] := aValue;
end; end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetPOSICIONIsNull(const aValue: Boolean); procedure TTiposCapitulosBusinessProcessorRules.SetPOSICIONIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoPOSICION] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosPOSICION] := Null;
end; end;
function TCapitulosPresupuestoBusinessProcessorRules.GetTIPO_DETALLEValue: String; function TTiposCapitulosBusinessProcessorRules.GetTIPO_DETALLEValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoTIPO_DETALLE]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosTIPO_DETALLE];
end; end;
function TCapitulosPresupuestoBusinessProcessorRules.GetTIPO_DETALLEIsNull: Boolean; function TTiposCapitulosBusinessProcessorRules.GetTIPO_DETALLEIsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoTIPO_DETALLE]); result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosTIPO_DETALLE]);
end; end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldTIPO_DETALLEValue: String; function TTiposCapitulosBusinessProcessorRules.GetOldTIPO_DETALLEValue: String;
begin begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoTIPO_DETALLE]; result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiposCapitulosTIPO_DETALLE];
end; end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldTIPO_DETALLEIsNull: Boolean; function TTiposCapitulosBusinessProcessorRules.GetOldTIPO_DETALLEIsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoTIPO_DETALLE]); result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_TiposCapitulosTIPO_DETALLE]);
end; end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetTIPO_DETALLEValue(const aValue: String); procedure TTiposCapitulosBusinessProcessorRules.SetTIPO_DETALLEValue(const aValue: String);
begin begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoTIPO_DETALLE] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosTIPO_DETALLE] := aValue;
end; end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetTIPO_DETALLEIsNull(const aValue: Boolean); procedure TTiposCapitulosBusinessProcessorRules.SetTIPO_DETALLEIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoTIPO_DETALLE] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosTIPO_DETALLE] := Null;
end; end;
function TCapitulosPresupuestoBusinessProcessorRules.GetTIPO_ARTICULOValue: String; function TTiposCapitulosBusinessProcessorRules.GetTIPO_ARTICULOValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoTIPO_ARTICULO]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosTIPO_ARTICULO];
end; end;
function TCapitulosPresupuestoBusinessProcessorRules.GetTIPO_ARTICULOIsNull: Boolean; function TTiposCapitulosBusinessProcessorRules.GetTIPO_ARTICULOIsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoTIPO_ARTICULO]); result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosTIPO_ARTICULO]);
end; end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldTIPO_ARTICULOValue: String; function TTiposCapitulosBusinessProcessorRules.GetOldTIPO_ARTICULOValue: String;
begin begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoTIPO_ARTICULO]; result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiposCapitulosTIPO_ARTICULO];
end; end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldTIPO_ARTICULOIsNull: Boolean; function TTiposCapitulosBusinessProcessorRules.GetOldTIPO_ARTICULOIsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoTIPO_ARTICULO]); result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_TiposCapitulosTIPO_ARTICULO]);
end; end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetTIPO_ARTICULOValue(const aValue: String); procedure TTiposCapitulosBusinessProcessorRules.SetTIPO_ARTICULOValue(const aValue: String);
begin begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoTIPO_ARTICULO] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosTIPO_ARTICULO] := aValue;
end; end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetTIPO_ARTICULOIsNull(const aValue: Boolean); procedure TTiposCapitulosBusinessProcessorRules.SetTIPO_ARTICULOIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoTIPO_ARTICULO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosTIPO_ARTICULO] := Null;
end; end;
function TCapitulosPresupuestoBusinessProcessorRules.GetID_ARTICULOValue: Integer; function TTiposCapitulosBusinessProcessorRules.GetID_ARTICULOValue: Integer;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoID_ARTICULO]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosID_ARTICULO];
end; end;
function TCapitulosPresupuestoBusinessProcessorRules.GetID_ARTICULOIsNull: Boolean; function TTiposCapitulosBusinessProcessorRules.GetID_ARTICULOIsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoID_ARTICULO]); result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosID_ARTICULO]);
end; end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldID_ARTICULOValue: Integer; function TTiposCapitulosBusinessProcessorRules.GetOldID_ARTICULOValue: Integer;
begin begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoID_ARTICULO]; result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiposCapitulosID_ARTICULO];
end; end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldID_ARTICULOIsNull: Boolean; function TTiposCapitulosBusinessProcessorRules.GetOldID_ARTICULOIsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoID_ARTICULO]); result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_TiposCapitulosID_ARTICULO]);
end; end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer); procedure TTiposCapitulosBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer);
begin begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoID_ARTICULO] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosID_ARTICULO] := aValue;
end; end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetID_ARTICULOIsNull(const aValue: Boolean); procedure TTiposCapitulosBusinessProcessorRules.SetID_ARTICULOIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoID_ARTICULO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosID_ARTICULO] := Null;
end; end;
function TCapitulosPresupuestoBusinessProcessorRules.GetCONCEPTOValue: String; function TTiposCapitulosBusinessProcessorRules.GetCONCEPTOValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoCONCEPTO]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosCONCEPTO];
end; end;
function TCapitulosPresupuestoBusinessProcessorRules.GetCONCEPTOIsNull: Boolean; function TTiposCapitulosBusinessProcessorRules.GetCONCEPTOIsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoCONCEPTO]); result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosCONCEPTO]);
end; end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldCONCEPTOValue: String; function TTiposCapitulosBusinessProcessorRules.GetOldCONCEPTOValue: String;
begin begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoCONCEPTO]; result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiposCapitulosCONCEPTO];
end; end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldCONCEPTOIsNull: Boolean; function TTiposCapitulosBusinessProcessorRules.GetOldCONCEPTOIsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoCONCEPTO]); result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_TiposCapitulosCONCEPTO]);
end; end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetCONCEPTOValue(const aValue: String); procedure TTiposCapitulosBusinessProcessorRules.SetCONCEPTOValue(const aValue: String);
begin begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoCONCEPTO] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosCONCEPTO] := aValue;
end; end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetCONCEPTOIsNull(const aValue: Boolean); procedure TTiposCapitulosBusinessProcessorRules.SetCONCEPTOIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoCONCEPTO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosCONCEPTO] := Null;
end; end;
@ -3185,7 +3357,7 @@ initialization
RegisterBusinessProcessorRules(RID_PropiedadesDelta, TPropiedadesBusinessProcessorRules); RegisterBusinessProcessorRules(RID_PropiedadesDelta, TPropiedadesBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_ListaAnosContratosDelta, TListaAnosContratosBusinessProcessorRules); RegisterBusinessProcessorRules(RID_ListaAnosContratosDelta, TListaAnosContratosBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_ContratosClienteDelta, TContratosClienteBusinessProcessorRules); RegisterBusinessProcessorRules(RID_ContratosClienteDelta, TContratosClienteBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_CapitulosPresupuestoDelta, TCapitulosPresupuestoBusinessProcessorRules); RegisterBusinessProcessorRules(RID_TiposCapitulosDelta, TTiposCapitulosBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_ContratosCliente_DetallesDelta, TContratosCliente_DetallesBusinessProcessorRules); RegisterBusinessProcessorRules(RID_ContratosCliente_DetallesDelta, TContratosCliente_DetallesBusinessProcessorRules);
end. end.

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

@ -330,6 +330,12 @@ begin
ID_CLIENTE := FCliente.ID; ID_CLIENTE := FCliente.ID;
NOMBRE := FCliente.NOMBRE; NOMBRE := FCliente.NOMBRE;
NIF_CIF := FCliente.NIF_CIF; NIF_CIF := FCliente.NIF_CIF;
CALLE := FCliente.CALLE;
CODIGO_POSTAL := FCliente.CODIGO_POSTAL;
PROVINCIA := FCliente.PROVINCIA;
POBLACION := FCliente.POBLACION;
TELEFONO := FCliente.TELEFONO_1;
MOVIL := FCliente.MOVIL_1;
if FCliente.ID_FORMA_PAGO > 0 then if FCliente.ID_FORMA_PAGO > 0 then
ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO; ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO;

66
Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.dfm
View File

@ -200,9 +200,11 @@ object RptContratosCliente: TRptContratosCliente
' V_CONTRATOS_CLIENTE.NOMBRE,'#10' V_CONTRATOS_CLIENTE.CALLE,'#10' ' + ' V_CONTRATOS_CLIENTE.NOMBRE,'#10' V_CONTRATOS_CLIENTE.CALLE,'#10' ' +
'V_CONTRATOS_CLIENTE.POBLACION,'#10' V_CONTRATOS_CLIENTE.PROVINCIA' + 'V_CONTRATOS_CLIENTE.POBLACION,'#10' V_CONTRATOS_CLIENTE.PROVINCIA' +
','#10' V_CONTRATOS_CLIENTE.CODIGO_POSTAL,'#10' V_CONTRATOS_CLIENTE' + ','#10' V_CONTRATOS_CLIENTE.CODIGO_POSTAL,'#10' V_CONTRATOS_CLIENTE' +
'.IMPORTE_IVA, V_CONTRATOS_CLIENTE.IMPORTE_TOTAL,'#10' V_CONTRATOS' + '.TELEFONO,'#10' V_CONTRATOS_CLIENTE.MOVIL,'#10' V_CONTRATOS_CLIENT' +
'_CLIENTE.PERSONA_CONTACTO,'#10' V_CONTRATOS_CLIENTE.VENDEDOR'#10'FROM' + 'E.IMPORTE_IVA, V_CONTRATOS_CLIENTE.IMPORTE_TOTAL,'#10' V_CONTRATO' +
#10' V_CONTRATOS_CLIENTE'#10'WHERE'#10' V_CONTRATOS_CLIENTE.ID = :ID'#10 'S_CLIENTE.PERSONA_CONTACTO,'#10' V_CONTRATOS_CLIENTE.VENDEDOR'#10'FRO' +
'M'#10' V_CONTRATOS_CLIENTE'#10'WHERE'#10' V_CONTRATOS_CLIENTE.ID = :ID' +
#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -312,6 +314,14 @@ object RptContratosCliente: TRptContratosCliente
item item
DatasetField = 'REF_CLIENTE' DatasetField = 'REF_CLIENTE'
TableField = 'REF_CLIENTE' TableField = 'REF_CLIENTE'
end
item
DatasetField = 'TELEFONO'
TableField = 'TELEFONO'
end
item
DatasetField = 'MOVIL'
TableField = 'MOVIL'
end> end>
end> end>
Name = 'Informe_Cabecera' Name = 'Informe_Cabecera'
@ -416,6 +426,16 @@ object RptContratosCliente: TRptContratosCliente
DataType = datString DataType = datString
Size = 10 Size = 10
end end
item
Name = 'TELEFONO'
DataType = datString
Size = 25
end
item
Name = 'MOVIL'
DataType = datString
Size = 25
end
item item
Name = 'IMPORTE_IVA' Name = 'IMPORTE_IVA'
DataType = datCurrency DataType = datCurrency
@ -885,21 +905,51 @@ object RptContratosCliente: TRptContratosCliente
Name = 'ID_CLIENTE' Name = 'ID_CLIENTE'
DataType = datInteger DataType = datInteger
end end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
end
item item
Name = 'REF_CLIENTE' Name = 'REF_CLIENTE'
DataType = datString DataType = datString
Size = 255 Size = 255
end end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
end
item item
Name = 'NOMBRE' Name = 'NOMBRE'
DataType = datString DataType = datString
Size = 255 Size = 255
end end
item
Name = 'CALLE'
DataType = datString
Size = 255
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
end
item
Name = 'TELEFONO'
DataType = datString
Size = 25
end
item
Name = 'MOVIL'
DataType = datString
Size = 25
end
item item
Name = 'IMPORTE_IVA' Name = 'IMPORTE_IVA'
DataType = datCurrency DataType = datCurrency

1
Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.pas
View File

@ -533,6 +533,7 @@ begin
frxReport.LoadFromFile(AInforme, True); frxReport.LoadFromFile(AInforme, True);
frxReport.AddFunction('function PONERJUSTIFICACIONCOMPLETA(ARTFText : String): String', 'User Function',''); frxReport.AddFunction('function PONERJUSTIFICACIONCOMPLETA(ARTFText : String): String', 'User Function','');
frxReport.ReportOptions.Name := 'Contrato ' + tbl_Cabecera.FieldByName('REFERENCIA').AsString;
frxReport.PrepareReport(False); frxReport.PrepareReport(False);
finally finally
FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"

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

@ -295,6 +295,22 @@ object srvContratosCliente: TsrvContratosCliente
item item
DatasetField = 'PERSONA_CONTACTO' DatasetField = 'PERSONA_CONTACTO'
TableField = 'PERSONA_CONTACTO' TableField = 'PERSONA_CONTACTO'
end
item
DatasetField = 'REF_CLIENTE'
TableField = 'REF_CLIENTE'
end
item
DatasetField = 'TELEFONO'
TableField = 'TELEFONO'
end
item
DatasetField = 'MOVIL'
TableField = 'MOVIL'
end
item
DatasetField = 'ID_DIRECCION'
TableField = 'ID_DIRECCION'
end> end>
end> end>
Name = 'ContratosCliente' Name = 'ContratosCliente'
@ -321,11 +337,19 @@ object srvContratosCliente: TsrvContratosCliente
Name = 'NOMBRE_CLIENTE' Name = 'NOMBRE_CLIENTE'
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'ContratosCliente_NOMBRE_CLIENTE'
end
item
Name = 'REF_CLIENTE'
DataType = datString
Size = 255
DictionaryEntry = 'ContratosCliente_REF_CLIENTE'
end end
item item
Name = 'NOMBRE_COMERCIAL_CLIENTE' Name = 'NOMBRE_COMERCIAL_CLIENTE'
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'ContratosCliente_NOMBRE_COMERCIAL_CLIENTE'
end end
item item
Name = 'NIF_CIF' Name = 'NIF_CIF'
@ -341,25 +365,46 @@ object srvContratosCliente: TsrvContratosCliente
ServerAutoRefresh = True ServerAutoRefresh = True
DictionaryEntry = 'ContratosCliente_NOMBRE' DictionaryEntry = 'ContratosCliente_NOMBRE'
end end
item
Name = 'ID_DIRECCION'
DataType = datInteger
DictionaryEntry = 'ContratosCliente_ID_DIRECCION'
end
item item
Name = 'CALLE' Name = 'CALLE'
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'ContratosCliente_CALLE'
end end
item item
Name = 'POBLACION' Name = 'POBLACION'
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'ContratosCliente_POBLACION'
end end
item item
Name = 'PROVINCIA' Name = 'PROVINCIA'
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'ContratosCliente_PROVINCIA'
end end
item item
Name = 'CODIGO_POSTAL' Name = 'CODIGO_POSTAL'
DataType = datString DataType = datString
Size = 10 Size = 10
DictionaryEntry = 'ContratosCliente_CODIGO_POSTAL'
end
item
Name = 'TELEFONO'
DataType = datString
Size = 25
DictionaryEntry = 'ContratosCliente_TELEFONO'
end
item
Name = 'MOVIL'
DataType = datString
Size = 25
DictionaryEntry = 'ContratosCliente_MOVIL'
end end
item item
Name = 'REFERENCIA' Name = 'REFERENCIA'
@ -370,6 +415,7 @@ object srvContratosCliente: TsrvContratosCliente
item item
Name = 'FECHA_CONTRATO' Name = 'FECHA_CONTRATO'
DataType = datDateTime DataType = datDateTime
DictionaryEntry = 'ContratosCliente_FECHA_CONTRATO'
end end
item item
Name = 'SITUACION' Name = 'SITUACION'
@ -380,10 +426,12 @@ object srvContratosCliente: TsrvContratosCliente
item item
Name = 'FORMA_PAGO' Name = 'FORMA_PAGO'
DataType = datMemo DataType = datMemo
DictionaryEntry = 'ContratosCliente_FORMA_PAGO'
end end
item item
Name = 'PLAZO_ENTREGA' Name = 'PLAZO_ENTREGA'
DataType = datMemo DataType = datMemo
DictionaryEntry = 'ContratosCliente_PLAZO_ENTREGA'
end end
item item
Name = 'OBSERVACIONES' Name = 'OBSERVACIONES'
@ -419,18 +467,22 @@ object srvContratosCliente: TsrvContratosCliente
item item
Name = 'RECARGO_EQUIVALENCIA' Name = 'RECARGO_EQUIVALENCIA'
DataType = datSmallInt DataType = datSmallInt
DictionaryEntry = 'ContratosCliente_RECARGO_EQUIVALENCIA'
end end
item item
Name = 'RE' Name = 'RE'
DataType = datFloat DataType = datFloat
DictionaryEntry = 'ContratosCliente_RE'
end end
item item
Name = 'IMPORTE_RE' Name = 'IMPORTE_RE'
DataType = datCurrency DataType = datCurrency
DictionaryEntry = 'ContratosCliente_IMPORTE_RE'
end end
item item
Name = 'ID_TIPO_IVA' Name = 'ID_TIPO_IVA'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'ContratosCliente_ID_TIPO_IVA'
end end
item item
Name = 'IVA' Name = 'IVA'
@ -455,11 +507,13 @@ object srvContratosCliente: TsrvContratosCliente
item item
Name = 'ID_TIENDA' Name = 'ID_TIENDA'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'ContratosCliente_ID_TIENDA'
end end
item item
Name = 'TIENDA' Name = 'TIENDA'
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'ContratosCliente_TIENDA'
end end
item item
Name = 'BASE_IMPONIBLE' Name = 'BASE_IMPONIBLE'
@ -489,16 +543,19 @@ object srvContratosCliente: TsrvContratosCliente
item item
Name = 'ID_VENDEDOR' Name = 'ID_VENDEDOR'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'ContratosCliente_ID_VENDEDOR'
end end
item item
Name = 'VENDEDOR' Name = 'VENDEDOR'
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'ContratosCliente_VENDEDOR'
end end
item item
Name = 'PERSONA_CONTACTO' Name = 'PERSONA_CONTACTO'
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'ContratosCliente_PERSONA_CONTACTO'
end> end>
end end
item item
@ -537,7 +594,7 @@ object srvContratosCliente: TsrvContratosCliente
TableField = 'CONCEPTO' TableField = 'CONCEPTO'
end> end>
end> end>
Name = 'CapitulosPresupuesto' Name = 'TiposCapitulos'
Description = 'No tocar es la lista de distintos capitulos existentes' Description = 'No tocar es la lista de distintos capitulos existentes'
Fields = < Fields = <
item item
@ -734,8 +791,7 @@ object srvContratosCliente: TsrvContratosCliente
Params = < Params = <
item item
Name = 'ID' Name = 'ID'
DataType = datAutoInc DataType = datInteger
GeneratorName = 'GEN_CONTRATOS_CLI_ID'
Value = '' Value = ''
end end
item item
@ -755,6 +811,11 @@ object srvContratosCliente: TsrvContratosCliente
Size = 255 Size = 255
Value = '' Value = ''
end end
item
Name = 'ID_DIRECCION'
DataType = datInteger
Value = ''
end
item item
Name = 'CALLE' Name = 'CALLE'
DataType = datString DataType = datString
@ -907,6 +968,18 @@ object srvContratosCliente: TsrvContratosCliente
Name = 'RECARGO_EQUIVALENCIA' Name = 'RECARGO_EQUIVALENCIA'
DataType = datSmallInt DataType = datSmallInt
Value = '' Value = ''
end
item
Name = 'TELEFONO'
DataType = datString
Size = 25
Value = ''
end
item
Name = 'MOVIL'
DataType = datString
Size = 25
Value = ''
end> end>
Statements = < Statements = <
item item
@ -915,21 +988,22 @@ object srvContratosCliente: TsrvContratosCliente
TargetTable = 'CONTRATOS_CLIENTE' TargetTable = 'CONTRATOS_CLIENTE'
SQL = SQL =
'INSERT'#10' INTO CONTRATOS_CLIENTE'#10' (ID, ID_CLIENTE, NIF_CIF, NO' + 'INSERT'#10' INTO CONTRATOS_CLIENTE'#10' (ID, ID_CLIENTE, NIF_CIF, NO' +
'MBRE, CALLE, POBLACION, PROVINCIA,'#10' CODIGO_POSTAL, REFERENCI' + 'MBRE, ID_DIRECCION, CALLE, POBLACION, PROVINCIA,'#10' CODIGO_POS' +
'A, FECHA_CONTRATO, SITUACION, FORMA_PAGO,'#10' PLAZO_ENTREGA, OB' + 'TAL, REFERENCIA, FECHA_CONTRATO, SITUACION, FORMA_PAGO,'#10' PLA' +
'SERVACIONES, INCIDENCIAS, INCIDENCIAS_ACTIVAS, FECHA_ALTA,'#10' ' + 'ZO_ENTREGA, OBSERVACIONES, INCIDENCIAS, INCIDENCIAS_ACTIVAS, FEC' +
'USUARIO, IMPORTE_NETO, IMPORTE_PORTE, DESCUENTO, IMPORTE_DESCUEN' + 'HA_ALTA,'#10' USUARIO, IMPORTE_NETO, IMPORTE_PORTE, DESCUENTO, I' +
'TO,'#10' BASE_IMPONIBLE, ID_TIPO_IVA, IVA, IMPORTE_IVA,'#10' IMP' + 'MPORTE_DESCUENTO,'#10' BASE_IMPONIBLE, ID_TIPO_IVA, IVA, IMPORTE' +
'ORTE_TOTAL, ID_FORMA_PAGO, ID_TIENDA, ID_VENDEDOR, PERSONA_CONTA' + '_IVA,'#10' IMPORTE_TOTAL, ID_FORMA_PAGO, ID_TIENDA, ID_VENDEDOR,' +
'CTO,'#10' RE, IMPORTE_RE, RECARGO_EQUIVALENCIA)'#10' VALUES'#10' (:I' + ' PERSONA_CONTACTO,'#10' RE, IMPORTE_RE, RECARGO_EQUIVALENCIA, TE' +
'D, :ID_CLIENTE, :NIF_CIF, :NOMBRE, :CALLE, :POBLACION, :PROVINCI' + 'LEFONO, MOVIL)'#10' VALUES'#10' (:ID, :ID_CLIENTE, :NIF_CIF, :NOMBRE' +
'A,'#10' :CODIGO_POSTAL, :REFERENCIA, :FECHA_CONTRATO, :SITUACION' + ', :ID_DIRECCION, :CALLE, :POBLACION, :PROVINCIA,'#10' :CODIGO_PO' +
', :FORMA_PAGO,'#10' :PLAZO_ENTREGA, :OBSERVACIONES, :INCIDENCIAS' + 'STAL, :REFERENCIA, :FECHA_CONTRATO, :SITUACION, :FORMA_PAGO,'#10' ' +
', :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP,'#10' :USUARIO, :IMPOR' + ' :PLAZO_ENTREGA, :OBSERVACIONES, :INCIDENCIAS, :INCIDENCIAS_ACT' +
'TE_NETO, :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10' :B' + 'IVAS, CURRENT_TIMESTAMP,'#10' :USUARIO, :IMPORTE_NETO, :IMPORTE_' +
'ASE_IMPONIBLE, :ID_TIPO_IVA, :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL,' + 'PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10' :BASE_IMPONIBLE, :ID' +
' :ID_FORMA_PAGO,'#10' :ID_TIENDA, :ID_VENDEDOR, :PERSONA_CONTACT' + '_TIPO_IVA, :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL, :ID_FORMA_PAGO,'#10' ' +
'O, :RE, :IMPORTE_RE, :RECARGO_EQUIVALENCIA)'#10#10 ' :ID_TIENDA, :ID_VENDEDOR, :PERSONA_CONTACTO, :RE, :IMPORTE_R' +
'E, :RECARGO_EQUIVALENCIA,'#10' :TELEFONO, :MOVIL)'#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -977,6 +1051,11 @@ object srvContratosCliente: TsrvContratosCliente
Size = 255 Size = 255
Value = '' Value = ''
end end
item
Name = 'ID_DIRECCION'
DataType = datInteger
Value = ''
end
item item
Name = 'CALLE' Name = 'CALLE'
DataType = datString DataType = datString
@ -1130,6 +1209,18 @@ object srvContratosCliente: TsrvContratosCliente
DataType = datSmallInt DataType = datSmallInt
Value = '' Value = ''
end end
item
Name = 'TELEFONO'
DataType = datString
Size = 25
Value = ''
end
item
Name = 'MOVIL'
DataType = datString
Size = 25
Value = ''
end
item item
Name = 'OLD_ID' Name = 'OLD_ID'
Value = '' Value = ''
@ -1137,27 +1228,27 @@ object srvContratosCliente: TsrvContratosCliente
Statements = < Statements = <
item item
Connection = 'IBX' Connection = 'IBX'
Default = True
TargetTable = 'CONTRATOS_CLIENTE' TargetTable = 'CONTRATOS_CLIENTE'
SQL = SQL =
'UPDATE CONTRATOS_CLIENTE'#10' SET '#10' ID = :ID,'#10' ID_CLIENTE = :' + 'UPDATE CONTRATOS_CLIENTE'#10' SET '#10' ID = :ID,'#10' ID_CLIENTE = :' +
'ID_CLIENTE,'#10' NIF_CIF = :NIF_CIF,'#10' NOMBRE = :NOMBRE,'#10' CA' + 'ID_CLIENTE,'#10' NIF_CIF = :NIF_CIF,'#10' NOMBRE = :NOMBRE,'#10' ID' +
'LLE = :CALLE,'#10' POBLACION = :POBLACION,'#10' PROVINCIA = :PROVI' + '_DIRECCION = :ID_DIRECCION,'#10' CALLE = :CALLE,'#10' POBLACION = ' +
'NCIA,'#10' CODIGO_POSTAL = :CODIGO_POSTAL,'#10' REFERENCIA = :REFE' + ':POBLACION,'#10' PROVINCIA = :PROVINCIA,'#10' CODIGO_POSTAL = :COD' +
'RENCIA,'#10' FECHA_CONTRATO = :FECHA_CONTRATO,'#10' SITUACION = :S' + 'IGO_POSTAL,'#10' REFERENCIA = :REFERENCIA,'#10' FECHA_CONTRATO = :' +
'ITUACION,'#10' FORMA_PAGO = :FORMA_PAGO,'#10' PLAZO_ENTREGA = :PLA' + 'FECHA_CONTRATO,'#10' SITUACION = :SITUACION,'#10' FORMA_PAGO = :FO' +
'ZO_ENTREGA,'#10' OBSERVACIONES = :OBSERVACIONES,'#10' INCIDENCIAS ' + 'RMA_PAGO,'#10' PLAZO_ENTREGA = :PLAZO_ENTREGA,'#10' OBSERVACIONES ' +
'= :INCIDENCIAS,'#10' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS,'#10 + '= :OBSERVACIONES,'#10' INCIDENCIAS = :INCIDENCIAS,'#10' INCIDENCIA' +
' FECHA_MODIFICACION = CURRENT_TIMESTAMP,'#10' USUARIO = :USUAR' + 'S_ACTIVAS = :INCIDENCIAS_ACTIVAS,'#10' FECHA_MODIFICACION = CURRE' +
'IO,'#10' IMPORTE_NETO = :IMPORTE_NETO,'#10' IMPORTE_PORTE = :IMPOR' + 'NT_TIMESTAMP,'#10' USUARIO = :USUARIO,'#10' IMPORTE_NETO = :IMPORT' +
'TE_PORTE,'#10' DESCUENTO = :DESCUENTO,'#10' IMPORTE_DESCUENTO = :I' + 'E_NETO,'#10' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' DESCUENTO = :DES' +
'MPORTE_DESCUENTO,'#10' BASE_IMPONIBLE = :BASE_IMPONIBLE,'#10' ID_T' + 'CUENTO,'#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO,'#10' BASE_IMP' +
'IPO_IVA = :ID_TIPO_IVA,'#10' IVA = :IVA,'#10' IMPORTE_IVA = :IMPOR' + 'ONIBLE = :BASE_IMPONIBLE,'#10' ID_TIPO_IVA = :ID_TIPO_IVA,'#10' IV' +
'TE_IVA,'#10' IMPORTE_TOTAL = :IMPORTE_TOTAL,'#10' ID_FORMA_PAGO = ' + 'A = :IVA,'#10' IMPORTE_IVA = :IMPORTE_IVA,'#10' IMPORTE_TOTAL = :I' +
':ID_FORMA_PAGO,'#10' ID_TIENDA = :ID_TIENDA,'#10' ID_VENDEDOR = :I' + 'MPORTE_TOTAL,'#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' ID_TIENDA ' +
'D_VENDEDOR,'#10' PERSONA_CONTACTO = :PERSONA_CONTACTO,'#10' RE = :' + '= :ID_TIENDA,'#10' ID_VENDEDOR = :ID_VENDEDOR,'#10' PERSONA_CONTAC' +
'RE,'#10' IMPORTE_RE = :IMPORTE_RE,'#10' RECARGO_EQUIVALENCIA = :RE' + 'TO = :PERSONA_CONTACTO,'#10' RE = :RE,'#10' IMPORTE_RE = :IMPORTE_' +
'CARGO_EQUIVALENCIA'#10#10' WHERE'#10' (ID = :OLD_ID)'#10#10 'RE,'#10' RECARGO_EQUIVALENCIA = :RECARGO_EQUIVALENCIA,'#10' TELEFO' +
'NO = :TELEFONO,'#10' MOVIL = :MOVIL'#10' WHERE'#10' (ID = :OLD_ID)'#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1444,13 +1535,10 @@ object srvContratosCliente: TsrvContratosCliente
DataType = datInteger DataType = datInteger
DisplayLabel = 'ID_EMPRESA' DisplayLabel = 'ID_EMPRESA'
end end
item
Name = 'ContratosCliente_FECHA_PRESUPUESTO'
DataType = datDateTime
end
item item
Name = 'ContratosCliente_FECHA_DECISION' Name = 'ContratosCliente_FECHA_DECISION'
DataType = datDateTime DataType = datDateTime
DisplayLabel = 'Fecha decisi'#243'n'
end end
item item
Name = 'ContratosCliente_REFERENCIA' Name = 'ContratosCliente_REFERENCIA'
@ -1473,30 +1561,7 @@ object srvContratosCliente: TsrvContratosCliente
Name = 'ContratosCliente_NIF_CIF' Name = 'ContratosCliente_NIF_CIF'
DataType = datString DataType = datString
Size = 15 Size = 15
end DisplayLabel = 'NIF/CIF'
item
Name = 'ContratosCliente_NOMBRE'
DataType = datString
Size = 255
end
item
Name = 'ContratosCliente_REFERENCIA_CLIENTE'
DataType = datString
Size = 255
DisplayLabel = 'PedidosCliente_REFERENCIA_CLIENTE'
end
item
Name = 'ContratosCliente_CLIENTE_FINAL'
DataType = datString
Size = 255
end
item
Name = 'ContratosCliente_PORTADA'
DataType = datMemo
end
item
Name = 'ContratosCliente_MEMORIA'
DataType = datMemo
end end
item item
Name = 'ContratosCliente_OBSERVACIONES' Name = 'ContratosCliente_OBSERVACIONES'
@ -1618,12 +1683,12 @@ object srvContratosCliente: TsrvContratosCliente
Name = 'ContratosCliente_Detalles_CONCEPTO' Name = 'ContratosCliente_Detalles_CONCEPTO'
DataType = datString DataType = datString
Size = 2000 Size = 2000
DisplayLabel = 'CONCEPTO' DisplayLabel = 'Concepto'
end end
item item
Name = 'ContratosCliente_Detalles_CANTIDAD' Name = 'ContratosCliente_Detalles_CANTIDAD'
DataType = datFloat DataType = datFloat
DisplayLabel = 'CANTIDAD' DisplayLabel = 'Cantidad'
Alignment = taRightJustify Alignment = taRightJustify
end end
item item
@ -1665,17 +1730,129 @@ object srvContratosCliente: TsrvContratosCliente
Name = 'ContratosCliente_Detalles_REFERENCIA' Name = 'ContratosCliente_Detalles_REFERENCIA'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Referencia'
end end
item item
Name = 'ContratosCliente_Detalles_REFERENCIA_PROVEEDOR' Name = 'ContratosCliente_Detalles_REFERENCIA_PROVEEDOR'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Ref. proveedor'
end end
item item
Name = 'ContratosCliente_Detalles_UNIDAD_MEDIDA' Name = 'ContratosCliente_Detalles_UNIDAD_MEDIDA'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Unidad de medida' DisplayLabel = 'Unidad de medida'
end
item
Name = 'ContratosCliente_CALLE'
DataType = datString
Size = 255
DisplayLabel = 'Calle'
end
item
Name = 'ContratosCliente_POBLACION'
DataType = datString
Size = 255
DisplayLabel = 'Poblaci'#243'n'
end
item
Name = 'ContratosCliente_PROVINCIA'
DataType = datString
Size = 255
end
item
Name = 'ContratosCliente_CODIGO_POSTAL'
DataType = datString
Size = 10
DisplayLabel = 'C'#243'd. postal'
end
item
Name = 'ContratosCliente_TELEFONO'
DataType = datString
Size = 25
DisplayLabel = 'Tel'#233'fono'
end
item
Name = 'ContratosCliente_MOVIL'
DataType = datString
Size = 25
DisplayLabel = 'M'#243'vil'
end
item
Name = 'ContratosCliente_FECHA_CONTRATO'
DataType = datDateTime
DisplayLabel = 'Fecha contrato'
end
item
Name = 'ContratosCliente_FORMA_PAGO'
DataType = datMemo
end
item
Name = 'ContratosCliente_RECARGO_EQUIVALENCIA'
DataType = datSmallInt
end
item
Name = 'ContratosCliente_RE'
DataType = datFloat
end
item
Name = 'ContratosCliente_IMPORTE_RE'
DataType = datCurrency
DisplayLabel = 'Importe RE'
end
item
Name = 'ContratosCliente_ID_TIPO_IVA'
DataType = datInteger
end
item
Name = 'ContratosCliente_ID_TIENDA'
DataType = datInteger
end
item
Name = 'ContratosCliente_TIENDA'
DataType = datString
Size = 255
end
item
Name = 'ContratosCliente_ID_VENDEDOR'
DataType = datInteger
end
item
Name = 'ContratosCliente_VENDEDOR'
DataType = datString
Size = 255
DisplayLabel = 'Vendedor'
end
item
Name = 'ContratosCliente_REF_CLIENTE'
DataType = datString
Size = 255
DisplayLabel = 'Ref. Cliente'
end
item
Name = 'ContratosCliente_NOMBRE_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'ContratosCliente_NOMBRE_COMERCIAL_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'ContratosCliente_NOMBRE'
DataType = datString
Size = 255
ServerAutoRefresh = True
end
item
Name = 'ContratosCliente_PLAZO_ENTREGA'
DataType = datMemo
end
item
Name = 'ContratosCliente_ID_DIRECCION'
DataType = datInteger
end> end>
Left = 48 Left = 48
Top = 152 Top = 152

128
Source/Modulos/Contratos de cliente/Views/uViewContratoCliente.dfm
View File

@ -1,23 +1,25 @@
inherited frViewContratoCliente: TfrViewContratoCliente inherited frViewContratoCliente: TfrViewContratoCliente
Width = 1019 Width = 810
Height = 392 Height = 449
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
ExplicitWidth = 1019 ExplicitWidth = 810
ExplicitHeight = 392 ExplicitHeight = 449
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1019 Width = 810
Height = 392 Height = 449
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
ExplicitWidth = 939
ExplicitHeight = 392
DesignSize = ( DesignSize = (
1019 810
392) 449)
object edtFechaContrato: TcxDBDateEdit object edtFechaContrato: TcxDBDateEdit
Left = 104 Left = 104
Top = 55 Top = 55
@ -31,23 +33,19 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Style.Color = clInfoBk Style.Color = clInfoBk
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.Shadow = False Style.Shadow = False
Style.ButtonStyle = bts3D Style.ButtonStyle = bts3D
Style.ButtonTransparency = ebtNone Style.ButtonTransparency = ebtNone
Style.PopupBorderStyle = epbsFrame3D Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 1 TabOrder = 1
Width = 260 Width = 260
end end
object memObservaciones: TcxDBMemo object memObservaciones: TcxDBMemo
Left = 490 Left = 374
Top = 259 Top = 289
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -57,16 +55,12 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 9 TabOrder = 9
Height = 200 Height = 200
Width = 507 Width = 507
@ -85,18 +79,14 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.Color = clMenuBar StyleDisabled.Color = clMenuBar
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 0 TabOrder = 0
Width = 122 Width = 122
end end
@ -119,23 +109,19 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 3 TabOrder = 3
Width = 122 Width = 122
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 328 Left = 212
Top = 109 Top = 109
Width = 132 Width = 132
Height = 21 Height = 21
@ -161,23 +147,19 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 2 TabOrder = 2
Width = 260 Width = 260
end end
inline frViewDatosYSeleccionClienteContrato1: TfrViewDatosYSeleccionClienteContrato inline frViewDatosYSeleccionClienteContrato1: TfrViewDatosYSeleccionClienteContrato
Left = 490 Left = 374
Top = 28 Top = 28
Width = 507 Width = 127
Height = 195 Height = 225
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -11 Font.Height = -11
@ -186,58 +168,52 @@ inherited frViewContratoCliente: TfrViewContratoCliente
ParentFont = False ParentFont = False
TabOrder = 8 TabOrder = 8
ReadOnly = False ReadOnly = False
ExplicitLeft = 490 ExplicitLeft = 374
ExplicitTop = 28 ExplicitTop = 28
ExplicitWidth = 507 ExplicitWidth = 127
ExplicitHeight = 195 ExplicitHeight = 225
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 507 Width = 127
Height = 195 Height = 225
ExplicitWidth = 507 ExplicitWidth = 127
ExplicitHeight = 195 ExplicitHeight = 225
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 224 ExplicitWidth = 224
Width = 224 Width = 224
end end
inherited edtNIFCIF: TcxDBTextEdit inherited edtNIFCIF: TcxDBTextEdit
Left = 394 Left = 301
Style.LookAndFeel.SkinName = '' ExplicitLeft = 301
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 394
end end
inherited Button3: TBitBtn inherited bVerFichaCliente: TBitBtn
Left = 305 Left = 212
ExplicitLeft = 305 ExplicitLeft = 212
end end
inherited edtPersonaContacto: TcxDBTextEdit inherited edtPersonaContacto: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 283 ExplicitWidth = 283
Width = 283 Width = 283
end end
inherited edtDireccion: TcxMemo inherited edtDireccion: TcxMemo
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end
inherited Button4: TButton inherited bElegirDireccion: TButton
Left = 474 Left = 381
ExplicitLeft = 474 ExplicitLeft = 381
end end
inherited Button5: TButton inherited bElegirPersonaContacto: TButton
Left = 474 Left = 381
ExplicitLeft = 474 ExplicitLeft = 381
end
inherited edtTelefonos: TcxTextEdit
Left = 226
ExplicitLeft = 226
ExplicitWidth = 193
Width = 193
end
inherited edtReferencia: TcxDBTextEdit
ExplicitWidth = 103
Width = 103
end end
end end
end end
@ -253,23 +229,19 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 6 TabOrder = 6
Height = 100 Height = 100
Width = 396 Width = 396
end end
object memPlazoEntrega: TcxDBMemo object memPlazoEntrega: TcxDBMemo
Left = 22 Left = 22
Top = 300 Top = 328
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'PLAZO_ENTREGA' DataBinding.DataField = 'PLAZO_ENTREGA'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -279,16 +251,12 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 7 TabOrder = 7
Height = 100 Height = 100
Width = 396 Width = 396
@ -312,18 +280,14 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 5 TabOrder = 5
Width = 27 Width = 27
end end
@ -417,6 +381,8 @@ inherited frViewContratoCliente: TfrViewContratoCliente
end end
end end
object dxLayoutControl1Group3: TdxLayoutGroup object dxLayoutControl1Group3: TdxLayoutGroup
AutoAligns = [aaVertical]
AlignHorz = ahClient
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
ShowBorder = False ShowBorder = False

195
Source/Modulos/Contratos de cliente/Views/uViewDatosYSeleccionClienteContrato.dfm
View File

@ -1,13 +1,13 @@
inherited frViewDatosYSeleccionClienteContrato: TfrViewDatosYSeleccionClienteContrato inherited frViewDatosYSeleccionClienteContrato: TfrViewDatosYSeleccionClienteContrato
Width = 539 Width = 447
Height = 200 Height = 224
ExplicitWidth = 539 ExplicitWidth = 447
ExplicitHeight = 200 ExplicitHeight = 224
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 539 Width = 447
Height = 200 Height = 224
Margins.Left = 0 Margins.Left = 0
Margins.Top = 0 Margins.Top = 0
Margins.Right = 0 Margins.Right = 0
@ -18,16 +18,15 @@ inherited frViewDatosYSeleccionClienteContrato: TfrViewDatosYSeleccionClienteCon
TabStop = False TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
DesignSize = ( DesignSize = (
539 447
200) 224)
object edtlNombre: TcxDBTextEdit object edtlNombre: TcxDBTextEdit
Left = 63 Left = 71
Top = 41 Top = 41
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
AutoSize = False AutoSize = False
DataBinding.DataField = 'NOMBRE' DataBinding.DataField = 'NOMBRE'
DataBinding.DataSource = dsCliente DataBinding.DataSource = dsCliente
Enabled = False
ParentFont = False ParentFont = False
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False Properties.UseLeftAlignmentOnEditing = False
@ -35,26 +34,21 @@ inherited frViewDatosYSeleccionClienteContrato: TfrViewDatosYSeleccionClienteCon
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 2 TabOrder = 2
Height = 21 Height = 21
Width = 224 Width = 224
end end
object edtNIFCIF: TcxDBTextEdit object edtNIFCIF: TcxDBTextEdit
Left = 426 Left = 334
Top = 41 Top = 41
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
AutoSize = False AutoSize = False
DataBinding.DataField = 'NIF_CIF' DataBinding.DataField = 'NIF_CIF'
DataBinding.DataSource = dsCliente DataBinding.DataSource = dsCliente
Enabled = False
ParentFont = False ParentFont = False
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False Properties.UseLeftAlignmentOnEditing = False
@ -62,19 +56,15 @@ inherited frViewDatosYSeleccionClienteContrato: TfrViewDatosYSeleccionClienteCon
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 3 TabOrder = 3
Height = 21 Height = 21
Width = 103 Width = 103
end end
object Button1: TBitBtn object bElegirCliente: TBitBtn
Left = 10 Left = 10
Top = 10 Top = 10
Width = 115 Width = 115
@ -118,7 +108,7 @@ inherited frViewDatosYSeleccionClienteContrato: TfrViewDatosYSeleccionClienteCon
FF00FF00FF00FF00FF00FF00FF00C83EF000808BDF00668BCC007C60C700D116 FF00FF00FF00FF00FF00FF00FF00C83EF000808BDF00668BCC007C60C700D116
E400FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00} E400FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
end end
object Button2: TBitBtn object bNuevoCliente: TBitBtn
Left = 131 Left = 131
Top = 10 Top = 10
Width = 143 Width = 143
@ -162,14 +152,14 @@ inherited frViewDatosYSeleccionClienteContrato: TfrViewDatosYSeleccionClienteCon
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00006000000060000000600000FF00FF00FF00FF00} FF00FF00FF00006000000060000000600000FF00FF00FF00FF00}
end end
object Button3: TBitBtn object bVerFichaCliente: TBitBtn
Left = 337 Left = 245
Top = 158 Top = 185
Width = 192 Width = 192
Height = 25 Height = 25
Action = actVerContacto Action = actVerContacto
Caption = 'Ver ficha completa del cliente...' Caption = 'Ver ficha completa del cliente...'
TabOrder = 8 TabOrder = 10
Glyph.Data = { Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100 36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000000000000000000000000000000000000FF00FF00FF00 2000000000000004000000000000000000000000000000000000FF00FF00FF00
@ -207,8 +197,8 @@ inherited frViewDatosYSeleccionClienteContrato: TfrViewDatosYSeleccionClienteCon
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00} FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
end end
object edtPersonaContacto: TcxDBTextEdit object edtPersonaContacto: TcxDBTextEdit
Left = 63 Left = 71
Top = 129 Top = 156
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
AutoSize = False AutoSize = False
DataBinding.DataField = 'PERSONA_CONTACTO' DataBinding.DataField = 'PERSONA_CONTACTO'
@ -218,56 +208,88 @@ inherited frViewDatosYSeleccionClienteContrato: TfrViewDatosYSeleccionClienteCon
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' TabOrder = 8
TabOrder = 6
Height = 21 Height = 21
Width = 283 Width = 283
end end
object edtDireccion: TcxMemo object edtDireccion: TcxMemo
Left = 63 Left = 71
Top = 95
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 6
Height = 53
Width = 437
end
object bElegirDireccion: TButton
Left = 414
Top = 95
Width = 23
Height = 25
Action = actElegirDireccion
TabOrder = 7
end
object bElegirPersonaContacto: TButton
Left = 414
Top = 154
Width = 23
Height = 25
Action = actElegirPersonaContacto
TabOrder = 9
end
object edtTelefonos: TcxTextEdit
Left = 239
Top = 68 Top = 68
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 4
Height = 53
Width = 437
end
object Button4: TButton
Left = 506
Top = 68
Width = 23
Height = 25
Action = actElegirDireccion
TabOrder = 5 TabOrder = 5
Width = 193
end end
object Button5: TButton object edtReferencia: TcxDBTextEdit
Left = 506 Left = 71
Top = 127 Top = 68
Width = 23 Anchors = [akLeft, akTop, akRight]
Height = 25 AutoSize = False
Action = actElegirPersonaContacto DataBinding.DataField = 'REFERENCIA'
TabOrder = 7 DataBinding.DataSource = dsCliente
ParentFont = False
Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 4
Height = 21
Width = 103
end end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
@ -276,25 +298,25 @@ inherited frViewDatosYSeleccionClienteContrato: TfrViewDatosYSeleccionClienteCon
object dxLayoutControl1Group1: TdxLayoutGroup object dxLayoutControl1Group1: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
object dxLayoutControl1Item7: TdxLayoutItem object dxLayoutControl1Group6: TdxLayoutGroup
Caption = 'Button1'
ShowCaption = False ShowCaption = False
Control = Button1 Hidden = True
ControlOptions.ShowBorder = False LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item7: TdxLayoutItem
Caption = 'Button1'
ShowCaption = False
Control = bElegirCliente
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item8: TdxLayoutItem
Caption = 'Button2'
ShowCaption = False
Control = bNuevoCliente
ControlOptions.ShowBorder = False
end
end end
object dxLayoutControl1Item8: TdxLayoutItem
Caption = 'Button2'
ShowCaption = False
Control = Button2
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Group2: TdxLayoutGroup
ShowCaption = False
Hidden = True
ShowBorder = False
object dxLayoutControl1Group4: TdxLayoutGroup object dxLayoutControl1Group4: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -315,6 +337,31 @@ inherited frViewDatosYSeleccionClienteContrato: TfrViewDatosYSeleccionClienteCon
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
object dxLayoutControl1Group7: TdxLayoutGroup
ShowCaption = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item11: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Referencia:'
Control = edtReferencia
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item10: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Tel'#233'fonos:'
Control = edtTelefonos
ControlOptions.ShowBorder = False
end
end
end
object dxLayoutControl1Group2: TdxLayoutGroup
ShowCaption = False
Hidden = True
ShowBorder = False
object dxLayoutControl1Group3: TdxLayoutGroup object dxLayoutControl1Group3: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -334,7 +381,7 @@ inherited frViewDatosYSeleccionClienteContrato: TfrViewDatosYSeleccionClienteCon
AlignHorz = ahRight AlignHorz = ahRight
Caption = 'Button4' Caption = 'Button4'
ShowCaption = False ShowCaption = False
Control = Button4 Control = bElegirDireccion
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
@ -355,7 +402,7 @@ inherited frViewDatosYSeleccionClienteContrato: TfrViewDatosYSeleccionClienteCon
AutoAligns = [aaVertical] AutoAligns = [aaVertical]
AlignHorz = ahRight AlignHorz = ahRight
ShowCaption = False ShowCaption = False
Control = Button5 Control = bElegirPersonaContacto
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
@ -365,7 +412,7 @@ inherited frViewDatosYSeleccionClienteContrato: TfrViewDatosYSeleccionClienteCon
AlignHorz = ahRight AlignHorz = ahRight
Caption = 'Button3' Caption = 'Button3'
ShowCaption = False ShowCaption = False
Control = Button3 Control = bVerFichaCliente
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end

189
Source/Modulos/Contratos de cliente/Views/uViewDatosYSeleccionClienteContrato.pas
View File

@ -34,11 +34,11 @@ type
write SetOnClienteChanged; write SetOnClienteChanged;
procedure ElegirPersonaContacto; procedure ElegirPersonaContacto;
procedure ElegirDireccionCliente; procedure ElegirDireccionParaContrato;
procedure ElegirCliente; procedure ElegirCliente;
procedure VerFichaCliente; procedure VerFichaCliente;
procedure AnadirNuevoCliente; procedure AnadirNuevoCliente;
procedure RefrescarDireccion; procedure RefrescarDireccion;
end; end;
TfrViewDatosYSeleccionClienteContrato = class(TfrViewBase, IViewDatosYSeleccionClienteContrato) TfrViewDatosYSeleccionClienteContrato = class(TfrViewBase, IViewDatosYSeleccionClienteContrato)
@ -54,11 +54,11 @@ type
edtlNombre: TcxDBTextEdit; edtlNombre: TcxDBTextEdit;
dxLayoutControl1Item2: TdxLayoutItem; dxLayoutControl1Item2: TdxLayoutItem;
edtNIFCIF: TcxDBTextEdit; edtNIFCIF: TcxDBTextEdit;
Button1: TBitBtn; bElegirCliente: TBitBtn;
dxLayoutControl1Item7: TdxLayoutItem; dxLayoutControl1Item7: TdxLayoutItem;
Button2: TBitBtn; bNuevoCliente: TBitBtn;
dxLayoutControl1Item8: TdxLayoutItem; dxLayoutControl1Item8: TdxLayoutItem;
Button3: TBitBtn; bVerFichaCliente: TBitBtn;
dxLayoutControl1Item9: TdxLayoutItem; dxLayoutControl1Item9: TdxLayoutItem;
dxLayoutControl1Group1: TdxLayoutGroup; dxLayoutControl1Group1: TdxLayoutGroup;
dxLayoutControl1Group2: TdxLayoutGroup; dxLayoutControl1Group2: TdxLayoutGroup;
@ -67,15 +67,21 @@ type
actElegirPersonaContacto: TAction; actElegirPersonaContacto: TAction;
dxLayoutControl1Item3: TdxLayoutItem; dxLayoutControl1Item3: TdxLayoutItem;
edtPersonaContacto: TcxDBTextEdit; edtPersonaContacto: TcxDBTextEdit;
dxLayoutControl1Group4: TdxLayoutGroup;
dxLayoutControl1Item4: TdxLayoutItem; dxLayoutControl1Item4: TdxLayoutItem;
edtDireccion: TcxMemo; edtDireccion: TcxMemo;
Button4: TButton; bElegirDireccion: TButton;
dxLayoutControl1Item5: TdxLayoutItem; dxLayoutControl1Item5: TdxLayoutItem;
dxLayoutControl1Group3: TdxLayoutGroup; dxLayoutControl1Group3: TdxLayoutGroup;
dxLayoutControl1Item6: TdxLayoutItem; dxLayoutControl1Item6: TdxLayoutItem;
Button5: TButton; bElegirPersonaContacto: TButton;
dxLayoutControl1Group5: TdxLayoutGroup; dxLayoutControl1Group5: TdxLayoutGroup;
dxLayoutControl1Item10: TdxLayoutItem;
edtTelefonos: TcxTextEdit;
dxLayoutControl1Item11: TdxLayoutItem;
edtReferencia: TcxDBTextEdit;
dxLayoutControl1Group6: TdxLayoutGroup;
dxLayoutControl1Group4: TdxLayoutGroup;
dxLayoutControl1Group7: TdxLayoutGroup;
procedure actElegirContactoExecute(Sender: TObject); procedure actElegirContactoExecute(Sender: TObject);
procedure actAnadirContactoExecute(Sender: TObject); procedure actAnadirContactoExecute(Sender: TObject);
procedure actVerContactoUpdate(Sender: TObject); procedure actVerContactoUpdate(Sender: TObject);
@ -92,12 +98,13 @@ type
private private
FOnClienteChanged : TNotifyEvent; FOnClienteChanged : TNotifyEvent;
FMsgElegirCliente: String; FMsgElegirCliente: String;
procedure EscribirTextoTelefonos;
protected protected
FClientesController : IClientesController; FClientesController : IClientesController;
FDireccionesController : IDireccionesContactoController; FDireccionesController : IDireccionesContactoController;
FContrato : IBizContratoCliente; FContrato : IBizContratoCliente;
FCliente : IBizCliente; FCliente : IBizCliente;
FDireccion : IBizDireccionesContacto;
function GetCliente: IBizCliente; virtual; function GetCliente: IBizCliente; virtual;
procedure SetCliente(Value: IBizCliente); virtual; procedure SetCliente(Value: IBizCliente); virtual;
function GetOnClienteChanged : TNotifyEvent; function GetOnClienteChanged : TNotifyEvent;
@ -112,11 +119,11 @@ type
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
procedure ElegirPersonaContacto; procedure ElegirPersonaContacto;
procedure ElegirDireccionCliente; procedure ElegirDireccionParaContrato;
procedure ElegirCliente; procedure ElegirCliente;
procedure VerFichaCliente; procedure VerFichaCliente;
procedure AnadirNuevoCliente; procedure AnadirNuevoCliente;
procedure RefrescarDireccion; procedure RefrescarDireccion;
property Contrato: IBizContratoCliente read GetContrato write SetContrato; property Contrato: IBizContratoCliente read GetContrato write SetContrato;
property Cliente: IBizCliente read GetCliente write SetCliente; property Cliente: IBizCliente read GetCliente write SetCliente;
property OnClienteChanged : TNotifyEvent read GetOnClienteChanged write SetOnClienteChanged; property OnClienteChanged : TNotifyEvent read GetOnClienteChanged write SetOnClienteChanged;
@ -140,15 +147,17 @@ procedure TfrViewDatosYSeleccionClienteContrato.actElegirDireccionExecute(
Sender: TObject); Sender: TObject);
begin begin
inherited; inherited;
ElegirDireccionCliente; ElegirDireccionParaContrato;
RefrescarDireccion;
end; end;
procedure TfrViewDatosYSeleccionClienteContrato.actElegirDireccionUpdate( procedure TfrViewDatosYSeleccionClienteContrato.actElegirDireccionUpdate(
Sender: TObject); Sender: TObject);
begin begin
inherited; inherited;
(Sender as TAction).Enabled := Assigned(FCliente.Direcciones) and (Sender as TAction).Enabled := Assigned(FCliente) and
(FCliente.Direcciones.Active) and (FCliente.Direcciones.RecordCount > 0); Assigned(FCliente.Direcciones) and (FCliente.Direcciones.Active)
and (FCliente.Direcciones.RecordCount > 0);
end; end;
procedure TfrViewDatosYSeleccionClienteContrato.actElegirPersonaContactoExecute( procedure TfrViewDatosYSeleccionClienteContrato.actElegirPersonaContactoExecute(
@ -156,14 +165,16 @@ procedure TfrViewDatosYSeleccionClienteContrato.actElegirPersonaContactoExecute(
begin begin
inherited; inherited;
ElegirPersonaContacto; ElegirPersonaContacto;
RefrescarDireccion;
end; end;
procedure TfrViewDatosYSeleccionClienteContrato.actElegirPersonaContactoUpdate( procedure TfrViewDatosYSeleccionClienteContrato.actElegirPersonaContactoUpdate(
Sender: TObject); Sender: TObject);
begin begin
inherited; inherited;
(Sender as TAction).Enabled := Assigned(FCliente.Personal) and (Sender as TAction).Enabled := Assigned(FCliente) and
(FCliente.Personal.Active) and (FCliente.Personal.RecordCount > 0); Assigned(FCliente.Personal) and (FCliente.Personal.Active)
and (FCliente.Personal.RecordCount > 0);
end; end;
procedure TfrViewDatosYSeleccionClienteContrato.actAnadirContactoExecute( procedure TfrViewDatosYSeleccionClienteContrato.actAnadirContactoExecute(
@ -198,22 +209,20 @@ end;
constructor TfrViewDatosYSeleccionClienteContrato.Create(AOwner: TComponent); constructor TfrViewDatosYSeleccionClienteContrato.Create(AOwner: TComponent);
begin begin
inherited; inherited;
FMsgElegirCliente := 'Elija el cliente al que se le realizará el Contrato.'; FMsgElegirCliente := 'Elija el cliente al que se le realizará el contrato.';
FClientesController := TClientesController.Create; FClientesController := TClientesController.Create;
FDireccionesController := TDireccionesContactoController.Create; FDireccionesController := TDireccionesContactoController.Create;
FDireccion := FDireccionesController.Nuevo;
edtlNombre.Enabled := False; edtlNombre.Enabled := False;
edtNIFCIF.Enabled := False; edtNIFCIF.Enabled := False;
edtDireccion.Enabled := False; edtDireccion.Enabled := False;
edtPersonaContacto.Enabled := False; edtPersonaContacto.Enabled := False;
edtReferencia.Enabled := False;
Button5.Visible := False; edtTelefonos.Enabled := False;
end; end;
destructor TfrViewDatosYSeleccionClienteContrato.Destroy; destructor TfrViewDatosYSeleccionClienteContrato.Destroy;
begin begin
FDireccion := NIL;
FClientesController := NIL; FClientesController := NIL;
FDireccionesController := NIL; FDireccionesController := NIL;
inherited; inherited;
@ -223,7 +232,7 @@ procedure TfrViewDatosYSeleccionClienteContrato.edtDireccionPropertiesButtonClic
Sender: TObject; AButtonIndex: Integer); Sender: TObject; AButtonIndex: Integer);
begin begin
inherited; inherited;
ElegirDireccionCliente; ElegirDireccionParaContrato;
end; end;
procedure TfrViewDatosYSeleccionClienteContrato.edtPersonaContactoPropertiesButtonClick( procedure TfrViewDatosYSeleccionClienteContrato.edtPersonaContactoPropertiesButtonClick(
@ -246,27 +255,40 @@ begin
ACliente := Nil; ACliente := Nil;
end; end;
procedure TfrViewDatosYSeleccionClienteContrato.ElegirDireccionCliente; procedure TfrViewDatosYSeleccionClienteContrato.ElegirDireccionParaContrato;
var var
ADireccion : IBizDireccionesContacto; ADireccion : IBizDireccionesContacto;
begin begin
inherited; if FCliente.Direcciones.RecordCount > 0 then
ADireccion := FClientesController.ElegirDireccionEntrega(FCliente, 'El cliente dispone de varias direcciones. Seleccione la que quiere utilizar.')
ADireccion := FClientesController.ElegirDireccionEntrega(FCliente, ' '); else begin
ADireccion := FDireccionesController.Nuevo;
FDireccionesController.CopiarDireccionFiscal(FCliente, ADireccion);
end;
if Assigned(ADireccion) then if Assigned(ADireccion) then
begin begin
FDireccion := ADireccion; FContrato.Edit;
EscribirTextoDireccion;
if ADireccion.IDIsNull then // Se ha elegido la dirección de razón social
if FDireccion.IDIsNull then
begin begin
// FContrato.ClearField('ID_DIRECCION'); FContrato.ClearField('ID_DIRECCION');
FContrato.ClearField('IMPORTE_PORTE'); FContrato.ClearField('IMPORTE_PORTE');
end end
else begin else begin
// FContrato.ID_DIRECCION := FDireccion.ID; FContrato.ID_DIRECCION := ADireccion.ID;
FContrato.IMPORTE_PORTE := FDireccion.PORTE; FContrato.IMPORTE_PORTE := ADireccion.PORTE;
end;
with FContrato do
begin
CALLE := ADireccion.CALLE;
POBLACION := ADireccion.POBLACION;
CODIGO_POSTAL := ADireccion.CODIGO_POSTAL;
PROVINCIA := ADireccion.PROVINCIA;
PERSONA_CONTACTO := ADireccion.PERSONA_CONTACTO;
TELEFONO := ADireccion.TELEFONO;
MOVIL := ADireccion.MOVIL;
end; end;
end; end;
end; end;
@ -277,10 +299,14 @@ var
begin begin
inherited; inherited;
APersona := FClientesController.ElegirPersonaContacto(FCliente.Personal, 'El cliente dispone de personas de contacto dadas de alta en su ficha. Seleccione la que quiere utilizar.'); APersona := FClientesController.ElegirPersonaContacto(FCliente.Personal, 'El cliente dispone de personas de contacto dadas de alta en su ficha. Seleccione la que quiere utilizar.');
if Assigned(APersona) then try
begin if Assigned(APersona) then
FContrato.Edit; begin
FContrato.PERSONA_CONTACTO := APersona.NOMBRE; FContrato.Edit;
FContrato.PERSONA_CONTACTO := APersona.NOMBRE;
end;
finally
APersona := NIL;
end; end;
end; end;
@ -290,18 +316,10 @@ var
begin begin
ACadena := ''; ACadena := '';
//Siempre asignaremos la direccion y persona de contacto ya sea de las direcciones del contacto o la ID_Direccion=0 que es la principal de la ficha if Assigned(FContrato) then
FContrato.Edit;
FContrato.CALLE := FDireccion.CALLE;
FContrato.POBLACION := FDireccion.POBLACION;
FContrato.PROVINCIA := FDireccion.PROVINCIA;
FContrato.CODIGO_POSTAL := FDireccion.CODIGO_POSTAL;
FContrato.PERSONA_CONTACTO := FDireccion.PERSONA_CONTACTO;
if Assigned(FDireccion) then
ACadena := Format('%s %s %s %s', ACadena := Format('%s %s %s %s',
[FDireccion.CALLE, FDireccion.POBLACION, [FContrato.CALLE, FContrato.POBLACION,
FDireccion.CODIGO_POSTAL, FDireccion.PROVINCIA]); FContrato.CODIGO_POSTAL, FContrato.PROVINCIA]);
edtDireccion.Text := ACadena; edtDireccion.Text := ACadena;
end; end;
@ -319,8 +337,12 @@ begin
end; end;
procedure TfrViewDatosYSeleccionClienteContrato.SetCliente(Value: IBizCliente); procedure TfrViewDatosYSeleccionClienteContrato.SetCliente(Value: IBizCliente);
var
ADireccion : IBizDireccionesContacto;
begin begin
ADireccion := NIL;
FCliente := Value; FCliente := Value;
if Assigned(FCliente) then if Assigned(FCliente) then
begin begin
dsCliente.DataTable := FCliente.DataTable; dsCliente.DataTable := FCliente.DataTable;
@ -332,17 +354,13 @@ begin
if FCliente.ID > 0 then if FCliente.ID > 0 then
edtPersonaContacto.Enabled := True; edtPersonaContacto.Enabled := True;
if FCliente.Direcciones.RecordCount > 0 then ElegirDireccionParaContrato;
ElegirDireccionCliente EscribirTextoDireccion;
else begin EscribirTextoTelefonos;
FDireccionesController.CopiarDireccionFiscal(FCliente, FDireccion);
EscribirTextoDireccion;
end;
end end
else begin else begin
dsCliente.DataTable := NIL; dsCliente.DataTable := NIL;
FCliente := NIL; FCliente := NIL;
FDireccion := NIL;
edtPersonaContacto.Enabled := False; edtPersonaContacto.Enabled := False;
end; end;
@ -360,41 +378,37 @@ begin
Result := FOnClienteChanged; Result := FOnClienteChanged;
end; end;
procedure TfrViewDatosYSeleccionClienteContrato.RefrescarDireccion;
begin
EscribirTextoDireccion;
EscribirTextoTelefonos;
end;
function TfrViewDatosYSeleccionClienteContrato.GetContrato: IBizContratoCliente; function TfrViewDatosYSeleccionClienteContrato.GetContrato: IBizContratoCliente;
begin begin
Result := FContrato; Result := FContrato;
end; end;
procedure TfrViewDatosYSeleccionClienteContrato.RefrescarDireccion; procedure TfrViewDatosYSeleccionClienteContrato.EscribirTextoTelefonos;
var
ACadena : String;
begin begin
// FDireccion := FDireccionesController.Nuevo; ACadena := '';
// if (not FContrato.ID_DIRECCIONIsNull) and if not FContrato.TELEFONOIsNull then
// (FDireccionesController.Localizar(FCliente.Direcciones, FContrato.ID_DIRECCION)) then ACadena := FContrato.TELEFONO;
// FDireccionesController.CopiarDireccion(FCliente.Direcciones, FDireccion)
// else
// FDireccionesController.CopiarDireccionFiscal(FCliente, FDireccion);
// EscribirTextoDireccion; if not FContrato.MOVILIsNull then
begin
FDireccion.Active := True; if ACadena <> '' then
FDireccion.DataTable.Insert; ACadena := ACadena + ' / ';
try ACadena := ACadena + FContrato.MOVIL;
with FDireccion do
begin
NOMBRE := FContrato.NOMBRE;
CALLE := FContrato.CALLE;
POBLACION := FContrato.POBLACION;
PROVINCIA := FContrato.PROVINCIA;
CODIGO_POSTAL := FContrato.CODIGO_POSTAL;
PERSONA_CONTACTO := FContrato.PERSONA_CONTACTO;
end;
finally
FDireccion.DataTable.Post;
end; end;
EscribirTextoDireccion;
edtTelefonos.Text := ACadena;
end; end;
procedure TfrViewDatosYSeleccionClienteContrato.SetOnClienteChanged( procedure TfrViewDatosYSeleccionClienteContrato.SetOnClienteChanged(
const Value: TNotifyEvent); const Value: TNotifyEvent);
begin begin
@ -415,16 +429,21 @@ begin
if not FCliente.DataTable.Active then if not FCliente.DataTable.Active then
FCliente.DataTable.Active := True; FCliente.DataTable.Active := True;
//Solo podremos establecer persona de contacto si se ha asignado un cliente // ¿Hay cliente en el contrato?
if FCliente.ID > 0 then if FCliente.ID > 0 then
edtPersonaContacto.Enabled := True; begin
edtPersonaContacto.Enabled := True;
RefrescarDireccion; RefrescarDireccion;
end
else begin
edtPersonaContacto.Enabled := False;
edtDireccion.Lines.Clear;
edtTelefonos.Text := '';
end;
end end
else begin else begin
dsContrato.DataTable := NIL; dsContrato.DataTable := NIL;
FCliente := NIL; FCliente := NIL;
FDireccion := NIL;
end; end;
end; end;
@ -442,7 +461,7 @@ end;
procedure TfrViewDatosYSeleccionClienteContrato.VerFichaCliente; procedure TfrViewDatosYSeleccionClienteContrato.VerFichaCliente;
begin begin
if not Assigned(Cliente) then if not Assigned(Cliente) then
ShowErrorMessage('No se ha indicado un cliente', 'El Contrato no tiene ningún cliente asociado a mostrar.') ShowErrorMessage('No se ha indicado un cliente', 'El contrato no tiene ningún cliente asociado a mostrar.')
else begin else begin
FClientesController.Ver(Cliente); FClientesController.Ver(Cliente);
end; end;

2
Source/Modulos/Relaciones/Contratos de cliente - Facturas de cliente/uGenerarFacturasCliUtils.pas
View File

@ -185,9 +185,7 @@ end;
function GenerarFacturaCli(AContrato : IBizContratoCliente; var AFactura: IBizFacturaCliente) : Boolean; overload; function GenerarFacturaCli(AContrato : IBizContratoCliente; var AFactura: IBizFacturaCliente) : Boolean; overload;
var var
ARespuesta : Integer; ARespuesta : Integer;
begin begin
Result := False;
AFactura := NIL; AFactura := NIL;
if not Assigned(AContrato) then if not Assigned(AContrato) then