Ticket #79 -> (repaso) Imprimir en el contrato el nº de teléfono del cliente
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@475 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
parent
2d6a376c4f
commit
ba7f4ccf90
@ -1272,12 +1272,13 @@ CREATE TABLE CONTRATOS_CLIENTE (
|
||||
ID_CLIENTE TIPO_ID,
|
||||
NIF_CIF VARCHAR(15),
|
||||
NOMBRE VARCHAR(255),
|
||||
ID_DIRECCION TIPO_ID,
|
||||
CALLE VARCHAR(255),
|
||||
POBLACION VARCHAR(255),
|
||||
PROVINCIA VARCHAR(255),
|
||||
CODIGO_POSTAL VARCHAR(10),
|
||||
TELEFONO VARCHAR(25),
|
||||
MOVIL VARCHAR(25),
|
||||
TELEFONO VARCHAR(25),
|
||||
MOVIL VARCHAR(25),
|
||||
REFERENCIA VARCHAR(255),
|
||||
FECHA_CONTRATO DATE,
|
||||
SITUACION VARCHAR(255),
|
||||
@ -3701,6 +3702,7 @@ CREATE VIEW V_CONTRATOS_CLIENTE(
|
||||
NOMBRE_COMERCIAL_CLIENTE,
|
||||
NIF_CIF,
|
||||
NOMBRE,
|
||||
ID_DIRECCION,
|
||||
CALLE,
|
||||
POBLACION,
|
||||
PROVINCIA,
|
||||
@ -3746,6 +3748,7 @@ SELECT CONTRATOS_CLIENTE.ID,
|
||||
CLIENTES_DATOS.NOMBRE_COMERCIAL,
|
||||
CONTRATOS_CLIENTE.NIF_CIF,
|
||||
CONTRATOS_CLIENTE.NOMBRE,
|
||||
CONTRATOS_CLIENTE.ID_DIRECCION,
|
||||
CONTRATOS_CLIENTE.CALLE,
|
||||
CONTRATOS_CLIENTE.POBLACION,
|
||||
CONTRATOS_CLIENTE.PROVINCIA,
|
||||
|
||||
@ -52,7 +52,7 @@ type
|
||||
procedure Mover(DataTable: TDADataTable; Posicion: Integer; NumPosiciones: Integer);
|
||||
|
||||
//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
|
||||
function CalcularImporteTotalConcepto(DataTable: TDADataTable): Double; virtual;
|
||||
|
||||
File diff suppressed because one or more lines are too long
@ -35,7 +35,6 @@ type
|
||||
procedure VerTodos(AContratos: IBizContratoCliente;
|
||||
const AVerModal : Boolean = False; const AWindowCaption: String = '';
|
||||
const AHeaderText: String = '');
|
||||
procedure VerDireccionEntrega(AContrato : IBizContratoCliente);
|
||||
function Nuevo : IBizContratoCliente;
|
||||
function Anadir(AContrato : IBizContratoCliente) : Boolean;
|
||||
function Eliminar(const ID : Integer): Boolean; overload;
|
||||
@ -49,8 +48,6 @@ type
|
||||
function ExtraerSeleccionados(AContrato: IBizContratoCliente) : IBizContratoCliente;
|
||||
function ElegirContratos(AContrato: IBizContratoCliente; AMensaje: String; AMultiSelect: Boolean): IBizContratoCliente;
|
||||
|
||||
procedure QuitarDireccionEnvio(AContrato: IBizContratoCliente);
|
||||
|
||||
procedure RecalcularImportes(AContrato : IBizContratoCliente);
|
||||
function EsModificable(AContrato : IBizContratoCliente): Boolean;
|
||||
function EsEliminable(AContrato : IBizContratoCliente): Boolean;
|
||||
@ -116,10 +113,8 @@ type
|
||||
procedure VerTodos(AContratos: IBizContratoCliente;
|
||||
const AVerModal : Boolean = False; const AWindowCaption: String = '';
|
||||
const AHeaderText: String = '');
|
||||
procedure VerDireccionEntrega(AContrato : IBizContratoCliente);
|
||||
function Duplicar(AContrato: IBizContratoCliente): IBizContratoCliente;
|
||||
|
||||
procedure QuitarDireccionEnvio(AContrato: IBizContratoCliente);
|
||||
function ExtraerSeleccionados(AContrato: IBizContratoCliente) : IBizContratoCliente;
|
||||
function ElegirContratos(AContrato: IBizContratoCliente; AMensaje: String; AMultiSelect: Boolean): IBizContratoCliente;
|
||||
|
||||
@ -456,29 +451,6 @@ begin
|
||||
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;
|
||||
const AVerModal : Boolean = False; const AWindowCaption: String = '';
|
||||
const AHeaderText: String = '');
|
||||
@ -882,40 +854,6 @@ begin
|
||||
Result := AContrato;
|
||||
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);
|
||||
var
|
||||
AReportController : IContratosClienteReportController;
|
||||
|
||||
@ -59,9 +59,10 @@ end;
|
||||
|
||||
function TContratosClienteReportController.ExportToPDF(const AID: Integer;
|
||||
const AFileName: String): Boolean;
|
||||
var
|
||||
AStream: Binary;
|
||||
{var
|
||||
AStream: Binary;}
|
||||
begin
|
||||
Result := False;
|
||||
{
|
||||
Result := False;
|
||||
if EsCadenaVacia(AFileName) then
|
||||
@ -116,12 +117,12 @@ begin
|
||||
end;
|
||||
|
||||
procedure TContratosClienteReportController.Print(const AListaID : TIntegerList);
|
||||
var
|
||||
{var
|
||||
AStream: Binary;
|
||||
AEditor : IEditorContratosClientePreview;
|
||||
AEditor : IEditorContratosClientePreview;}
|
||||
begin
|
||||
AEditor := NIL;
|
||||
{
|
||||
{ AEditor := NIL;
|
||||
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AStream := FDataModule.GetRptPresupuestos(AListaID);
|
||||
|
||||
@ -24,10 +24,7 @@ type
|
||||
private
|
||||
//Propiedad temporal hasta que exista el controlador independiente de propiedades y capitulos, valores, etc
|
||||
FDetallesPresupuestoCliente: IDetallesPresupuestoClienteController;
|
||||
|
||||
FDataModule : IDataModuleContratosCliente;
|
||||
function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean;
|
||||
|
||||
protected
|
||||
procedure RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); overload; override;
|
||||
procedure RellenarImportes(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); override;
|
||||
@ -130,11 +127,6 @@ begin
|
||||
FDetallesPresupuestoCliente:= TDetallesPresupuestoClienteController.Create;
|
||||
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;
|
||||
begin
|
||||
Result := FDetallesPresupuestoCliente.DarPropiedades;
|
||||
@ -207,7 +199,7 @@ begin
|
||||
while ADataTable.DataTable.Locate(CAMPO_POSICION, AuxPosicion, []) do
|
||||
begin
|
||||
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
|
||||
AuxTipoArticulo := ''
|
||||
else if (ADataTable.DataTable.FieldByName(CAMPO_TIPO).AsString = TIPO_DETALLE_CONCEPTO) then
|
||||
@ -215,7 +207,7 @@ begin
|
||||
begin
|
||||
if not ADataTable.DataTable.Editing then
|
||||
ADataTable.DataTable.Edit;
|
||||
ADataTable.DataTable.FieldByName(fld_CapitulosPresupuestoTIPO_ARTICULO).AsString := AuxTipoArticulo;
|
||||
ADataTable.DataTable.FieldByName(fld_TiposCapitulosTIPO_ARTICULO).AsString := AuxTipoArticulo;
|
||||
ADataTable.DataTable.Post;
|
||||
end;
|
||||
|
||||
|
||||
@ -49,18 +49,18 @@
|
||||
<DelphiCompile Include="ContratosCliente_data.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\adortl.dcp" />
|
||||
<DCCReference Include="..\ContratosCliente_model.dcp" />
|
||||
<DCCReference Include="..\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\dbrtl.dcp" />
|
||||
<DCCReference Include="..\dsnap.dcp" />
|
||||
<DCCReference Include="..\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\rtl.dcp" />
|
||||
<DCCReference Include="..\vcl.dcp" />
|
||||
<DCCReference Include="..\vcldb.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\adortl.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\ContratosCliente_model.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\dbrtl.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\dsnap.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\rtl.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\vcl.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\vcldb.dcp" />
|
||||
<DCCReference Include="uDataModuleContratosCliente.pas" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
|
||||
@ -49,17 +49,28 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
|
||||
Name = 'NOMBRE_CLIENTE'
|
||||
DataType = datString
|
||||
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
|
||||
item
|
||||
Name = 'NOMBRE_COMERCIAL_CLIENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'ContratosCliente_NOMBRE_COMERCIAL_CLIENTE'
|
||||
DictionaryEntry = 'ContratosCliente_NOMBRE_COMERCIAL_CLIENTE'
|
||||
end
|
||||
item
|
||||
Name = 'NIF_CIF'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
DisplayLabel = 'ContratosCliente_NIF_CIF'
|
||||
DisplayLabel = 'NIF/CIF'
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'ContratosCliente_NIF_CIF'
|
||||
end
|
||||
@ -71,25 +82,53 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'ContratosCliente_NOMBRE'
|
||||
end
|
||||
item
|
||||
Name = 'ID_DIRECCION'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'ContratosCliente_ID_DIRECCION'
|
||||
DictionaryEntry = 'ContratosCliente_ID_DIRECCION'
|
||||
end
|
||||
item
|
||||
Name = 'CALLE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Calle'
|
||||
DictionaryEntry = 'ContratosCliente_CALLE'
|
||||
end
|
||||
item
|
||||
Name = 'POBLACION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Poblaci'#243'n'
|
||||
DictionaryEntry = 'ContratosCliente_POBLACION'
|
||||
end
|
||||
item
|
||||
Name = 'PROVINCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'ContratosCliente_PROVINCIA'
|
||||
DictionaryEntry = 'ContratosCliente_PROVINCIA'
|
||||
end
|
||||
item
|
||||
Name = 'CODIGO_POSTAL'
|
||||
DataType = datString
|
||||
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
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
@ -101,6 +140,8 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
|
||||
item
|
||||
Name = 'FECHA_CONTRATO'
|
||||
DataType = datDateTime
|
||||
DisplayLabel = 'Fecha contrato'
|
||||
DictionaryEntry = 'ContratosCliente_FECHA_CONTRATO'
|
||||
end
|
||||
item
|
||||
Name = 'SITUACION'
|
||||
@ -112,10 +153,14 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
|
||||
item
|
||||
Name = 'FORMA_PAGO'
|
||||
DataType = datMemo
|
||||
DisplayLabel = 'ContratosCliente_FORMA_PAGO'
|
||||
DictionaryEntry = 'ContratosCliente_FORMA_PAGO'
|
||||
end
|
||||
item
|
||||
Name = 'PLAZO_ENTREGA'
|
||||
DataType = datMemo
|
||||
DisplayLabel = 'ContratosCliente_PLAZO_ENTREGA'
|
||||
DictionaryEntry = 'ContratosCliente_PLAZO_ENTREGA'
|
||||
end
|
||||
item
|
||||
Name = 'OBSERVACIONES'
|
||||
@ -152,18 +197,26 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
|
||||
item
|
||||
Name = 'RECARGO_EQUIVALENCIA'
|
||||
DataType = datSmallInt
|
||||
DisplayLabel = 'ContratosCliente_RECARGO_EQUIVALENCIA'
|
||||
DictionaryEntry = 'ContratosCliente_RECARGO_EQUIVALENCIA'
|
||||
end
|
||||
item
|
||||
Name = 'RE'
|
||||
DataType = datFloat
|
||||
DisplayLabel = 'ContratosCliente_RE'
|
||||
DictionaryEntry = 'ContratosCliente_RE'
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_RE'
|
||||
DataType = datCurrency
|
||||
DisplayLabel = 'Importe RE'
|
||||
DictionaryEntry = 'ContratosCliente_IMPORTE_RE'
|
||||
end
|
||||
item
|
||||
Name = 'ID_TIPO_IVA'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'ContratosCliente_ID_TIPO_IVA'
|
||||
DictionaryEntry = 'ContratosCliente_ID_TIPO_IVA'
|
||||
end
|
||||
item
|
||||
Name = 'IVA'
|
||||
@ -196,11 +249,15 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
|
||||
item
|
||||
Name = 'ID_TIENDA'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'ContratosCliente_ID_TIENDA'
|
||||
DictionaryEntry = 'ContratosCliente_ID_TIENDA'
|
||||
end
|
||||
item
|
||||
Name = 'TIENDA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'ContratosCliente_TIENDA'
|
||||
DictionaryEntry = 'ContratosCliente_TIENDA'
|
||||
end
|
||||
item
|
||||
Name = 'BASE_IMPONIBLE'
|
||||
@ -239,16 +296,22 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
|
||||
item
|
||||
Name = 'ID_VENDEDOR'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'ContratosCliente_ID_VENDEDOR'
|
||||
DictionaryEntry = 'ContratosCliente_ID_VENDEDOR'
|
||||
end
|
||||
item
|
||||
Name = 'VENDEDOR'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Vendedor'
|
||||
DictionaryEntry = 'ContratosCliente_VENDEDOR'
|
||||
end
|
||||
item
|
||||
Name = 'PERSONA_CONTACTO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Persona de contacto'
|
||||
DictionaryEntry = 'ContratosCliente_PERSONA_CONTACTO'
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
@ -448,7 +511,7 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
|
||||
Left = 544
|
||||
Top = 152
|
||||
end
|
||||
object tbl_CapitulosPresupuesto: TDAMemDataTable
|
||||
object tbl_TiposCapitulos: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
@ -483,14 +546,14 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteDataAdapter = rda_ContratosCliente
|
||||
LogicalName = 'CapitulosPresupuesto'
|
||||
LogicalName = 'TiposCapitulos'
|
||||
IndexDefs = <>
|
||||
Left = 352
|
||||
Top = 312
|
||||
end
|
||||
object ds_CapitulosPresupuesto: TDADataSource
|
||||
DataSet = tbl_CapitulosPresupuesto.Dataset
|
||||
DataTable = tbl_CapitulosPresupuesto
|
||||
object ds_TiposCapitulos: TDADataSource
|
||||
DataSet = tbl_TiposCapitulos.Dataset
|
||||
DataTable = tbl_TiposCapitulos
|
||||
Left = 352
|
||||
Top = 256
|
||||
end
|
||||
|
||||
@ -29,8 +29,8 @@ type
|
||||
ds_Propiedades: TDADataSource;
|
||||
tbl_Valores: TDAMemDataTable;
|
||||
ds_Valores: TDADataSource;
|
||||
tbl_CapitulosPresupuesto: TDAMemDataTable;
|
||||
ds_CapitulosPresupuesto: TDADataSource;
|
||||
tbl_TiposCapitulos: TDAMemDataTable;
|
||||
ds_TiposCapitulos: TDADataSource;
|
||||
procedure DAClientDataModuleCreate(Sender: TObject);
|
||||
|
||||
private
|
||||
@ -220,20 +220,20 @@ end;
|
||||
|
||||
function TDataModuleContratosCliente.GetItems: IBizContratoCliente;
|
||||
var
|
||||
APresupuesto: TDAMemDataTable;
|
||||
AContrato: TDAMemDataTable;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
APresupuesto := CloneDataTable(tbl_ContratosCliente);
|
||||
AsignarClaseNegocio(APresupuesto);
|
||||
AContrato := CloneDataTable(tbl_ContratosCliente);
|
||||
AsignarClaseNegocio(AContrato);
|
||||
|
||||
// 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;
|
||||
|
||||
Result := (APresupuesto as IBizContratoCliente);
|
||||
Result := (AContrato as IBizContratoCliente);
|
||||
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
|
||||
@ -33,13 +33,16 @@ requires
|
||||
adortl,
|
||||
Base,
|
||||
Contactos_model,
|
||||
Contactos_controller;
|
||||
|
||||
Contactos_controller,
|
||||
RemObjects_Core_D11,
|
||||
DataAbstract_Core_D11;
|
||||
|
||||
contains
|
||||
uBizDetallesContratoCliente in 'uBizDetallesContratoCliente.pas',
|
||||
uBizContratosCliente in 'uBizContratosCliente.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.
|
||||
|
||||
@ -43,6 +43,8 @@
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
|
||||
|
||||
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
|
||||
<Excluded_Packages 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>
|
||||
@ -52,28 +54,23 @@
|
||||
<DelphiCompile Include="ContratosCliente_model.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\adortl.dcp" />
|
||||
<DCCReference Include="..\Base.dcp" />
|
||||
<DCCReference Include="..\Contactos_c.dcp" />
|
||||
<DCCReference Include="..\Contactos_co.dcp" />
|
||||
<DCCReference Include="..\Contactos_con.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="adortl.dcp" />
|
||||
<DCCReference Include="Base.dcp" />
|
||||
<DCCReference Include="Contactos_controller.dcp" />
|
||||
<DCCReference Include="Contactos_model.dcp" />
|
||||
<DCCReference Include="DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="Data\uIDataModuleContratosCliente.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="uBizDetallesContratoCliente.pas" />
|
||||
<DCCReference Include="vcl.dcp" />
|
||||
<DCCReference Include="vcldb.dcp" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
|
||||
@ -9,19 +9,19 @@ const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_Valores = '{6425EDD9-EBD4-43FD-8545-FFEF34A8562A}';
|
||||
RID_Propiedades = '{0F975252-35A0-4D39-846F-4A63EE7B4E60}';
|
||||
RID_ListaAnosContratos = '{24E43FF1-C21B-46BB-B88C-17E3A68E3CA3}';
|
||||
RID_ContratosCliente = '{1866BCD5-3262-49D3-804C-401D7D3FCBE0}';
|
||||
RID_CapitulosPresupuesto = '{F8960438-1112-4E2B-8C4F-546552C38E66}';
|
||||
RID_ContratosCliente_Detalles = '{D7437C8C-E8C5-4877-A3BD-BAC0DB86C2DA}';
|
||||
RID_Valores = '{F657CD6D-DF69-43EA-A3E2-A241DCF09084}';
|
||||
RID_Propiedades = '{9906A858-2BEF-45E9-99AD-FA2D7942CD73}';
|
||||
RID_ListaAnosContratos = '{10A0FC78-53FA-448C-B4BB-98D991B18186}';
|
||||
RID_ContratosCliente = '{E1ADD649-C673-4258-A5F9-7C7898C5D92B}';
|
||||
RID_TiposCapitulos = '{D5F98509-6827-480B-85D3-BF0BA0C64998}';
|
||||
RID_ContratosCliente_Detalles = '{008EBBD7-35BC-43B8-8CBA-26F4B279CFD6}';
|
||||
|
||||
{ Data table names }
|
||||
nme_Valores = 'Valores';
|
||||
nme_Propiedades = 'Propiedades';
|
||||
nme_ListaAnosContratos = 'ListaAnosContratos';
|
||||
nme_ContratosCliente = 'ContratosCliente';
|
||||
nme_CapitulosPresupuesto = 'CapitulosPresupuesto';
|
||||
nme_TiposCapitulos = 'TiposCapitulos';
|
||||
nme_ContratosCliente_Detalles = 'ContratosCliente_Detalles';
|
||||
|
||||
{ Valores fields }
|
||||
@ -55,13 +55,17 @@ const
|
||||
fld_ContratosClienteID_EMPRESA = 'ID_EMPRESA';
|
||||
fld_ContratosClienteID_CLIENTE = 'ID_CLIENTE';
|
||||
fld_ContratosClienteNOMBRE_CLIENTE = 'NOMBRE_CLIENTE';
|
||||
fld_ContratosClienteREF_CLIENTE = 'REF_CLIENTE';
|
||||
fld_ContratosClienteNOMBRE_COMERCIAL_CLIENTE = 'NOMBRE_COMERCIAL_CLIENTE';
|
||||
fld_ContratosClienteNIF_CIF = 'NIF_CIF';
|
||||
fld_ContratosClienteNOMBRE = 'NOMBRE';
|
||||
fld_ContratosClienteID_DIRECCION = 'ID_DIRECCION';
|
||||
fld_ContratosClienteCALLE = 'CALLE';
|
||||
fld_ContratosClientePOBLACION = 'POBLACION';
|
||||
fld_ContratosClientePROVINCIA = 'PROVINCIA';
|
||||
fld_ContratosClienteCODIGO_POSTAL = 'CODIGO_POSTAL';
|
||||
fld_ContratosClienteTELEFONO = 'TELEFONO';
|
||||
fld_ContratosClienteMOVIL = 'MOVIL';
|
||||
fld_ContratosClienteREFERENCIA = 'REFERENCIA';
|
||||
fld_ContratosClienteFECHA_CONTRATO = 'FECHA_CONTRATO';
|
||||
fld_ContratosClienteSITUACION = 'SITUACION';
|
||||
@ -97,58 +101,62 @@ const
|
||||
idx_ContratosClienteID_EMPRESA = 1;
|
||||
idx_ContratosClienteID_CLIENTE = 2;
|
||||
idx_ContratosClienteNOMBRE_CLIENTE = 3;
|
||||
idx_ContratosClienteNOMBRE_COMERCIAL_CLIENTE = 4;
|
||||
idx_ContratosClienteNIF_CIF = 5;
|
||||
idx_ContratosClienteNOMBRE = 6;
|
||||
idx_ContratosClienteCALLE = 7;
|
||||
idx_ContratosClientePOBLACION = 8;
|
||||
idx_ContratosClientePROVINCIA = 9;
|
||||
idx_ContratosClienteCODIGO_POSTAL = 10;
|
||||
idx_ContratosClienteREFERENCIA = 11;
|
||||
idx_ContratosClienteFECHA_CONTRATO = 12;
|
||||
idx_ContratosClienteSITUACION = 13;
|
||||
idx_ContratosClienteFORMA_PAGO = 14;
|
||||
idx_ContratosClientePLAZO_ENTREGA = 15;
|
||||
idx_ContratosClienteOBSERVACIONES = 16;
|
||||
idx_ContratosClienteINCIDENCIAS = 17;
|
||||
idx_ContratosClienteINCIDENCIAS_ACTIVAS = 18;
|
||||
idx_ContratosClienteFECHA_ALTA = 19;
|
||||
idx_ContratosClienteFECHA_MODIFICACION = 20;
|
||||
idx_ContratosClienteUSUARIO = 21;
|
||||
idx_ContratosClienteRECARGO_EQUIVALENCIA = 22;
|
||||
idx_ContratosClienteRE = 23;
|
||||
idx_ContratosClienteIMPORTE_RE = 24;
|
||||
idx_ContratosClienteID_TIPO_IVA = 25;
|
||||
idx_ContratosClienteIVA = 26;
|
||||
idx_ContratosClienteIMPORTE_IVA = 27;
|
||||
idx_ContratosClienteIMPORTE_NETO = 28;
|
||||
idx_ContratosClienteIMPORTE_PORTE = 29;
|
||||
idx_ContratosClienteID_TIENDA = 30;
|
||||
idx_ContratosClienteTIENDA = 31;
|
||||
idx_ContratosClienteBASE_IMPONIBLE = 32;
|
||||
idx_ContratosClienteDESCUENTO = 33;
|
||||
idx_ContratosClienteIMPORTE_DESCUENTO = 34;
|
||||
idx_ContratosClienteIMPORTE_TOTAL = 35;
|
||||
idx_ContratosClienteID_FORMA_PAGO = 36;
|
||||
idx_ContratosClienteID_VENDEDOR = 37;
|
||||
idx_ContratosClienteVENDEDOR = 38;
|
||||
idx_ContratosClientePERSONA_CONTACTO = 39;
|
||||
idx_ContratosClienteREF_CLIENTE = 4;
|
||||
idx_ContratosClienteNOMBRE_COMERCIAL_CLIENTE = 5;
|
||||
idx_ContratosClienteNIF_CIF = 6;
|
||||
idx_ContratosClienteNOMBRE = 7;
|
||||
idx_ContratosClienteID_DIRECCION = 8;
|
||||
idx_ContratosClienteCALLE = 9;
|
||||
idx_ContratosClientePOBLACION = 10;
|
||||
idx_ContratosClientePROVINCIA = 11;
|
||||
idx_ContratosClienteCODIGO_POSTAL = 12;
|
||||
idx_ContratosClienteTELEFONO = 13;
|
||||
idx_ContratosClienteMOVIL = 14;
|
||||
idx_ContratosClienteREFERENCIA = 15;
|
||||
idx_ContratosClienteFECHA_CONTRATO = 16;
|
||||
idx_ContratosClienteSITUACION = 17;
|
||||
idx_ContratosClienteFORMA_PAGO = 18;
|
||||
idx_ContratosClientePLAZO_ENTREGA = 19;
|
||||
idx_ContratosClienteOBSERVACIONES = 20;
|
||||
idx_ContratosClienteINCIDENCIAS = 21;
|
||||
idx_ContratosClienteINCIDENCIAS_ACTIVAS = 22;
|
||||
idx_ContratosClienteFECHA_ALTA = 23;
|
||||
idx_ContratosClienteFECHA_MODIFICACION = 24;
|
||||
idx_ContratosClienteUSUARIO = 25;
|
||||
idx_ContratosClienteRECARGO_EQUIVALENCIA = 26;
|
||||
idx_ContratosClienteRE = 27;
|
||||
idx_ContratosClienteIMPORTE_RE = 28;
|
||||
idx_ContratosClienteID_TIPO_IVA = 29;
|
||||
idx_ContratosClienteIVA = 30;
|
||||
idx_ContratosClienteIMPORTE_IVA = 31;
|
||||
idx_ContratosClienteIMPORTE_NETO = 32;
|
||||
idx_ContratosClienteIMPORTE_PORTE = 33;
|
||||
idx_ContratosClienteID_TIENDA = 34;
|
||||
idx_ContratosClienteTIENDA = 35;
|
||||
idx_ContratosClienteBASE_IMPONIBLE = 36;
|
||||
idx_ContratosClienteDESCUENTO = 37;
|
||||
idx_ContratosClienteIMPORTE_DESCUENTO = 38;
|
||||
idx_ContratosClienteIMPORTE_TOTAL = 39;
|
||||
idx_ContratosClienteID_FORMA_PAGO = 40;
|
||||
idx_ContratosClienteID_VENDEDOR = 41;
|
||||
idx_ContratosClienteVENDEDOR = 42;
|
||||
idx_ContratosClientePERSONA_CONTACTO = 43;
|
||||
|
||||
{ CapitulosPresupuesto fields }
|
||||
fld_CapitulosPresupuestoID = 'ID';
|
||||
fld_CapitulosPresupuestoPOSICION = 'POSICION';
|
||||
fld_CapitulosPresupuestoTIPO_DETALLE = 'TIPO_DETALLE';
|
||||
fld_CapitulosPresupuestoTIPO_ARTICULO = 'TIPO_ARTICULO';
|
||||
fld_CapitulosPresupuestoID_ARTICULO = 'ID_ARTICULO';
|
||||
fld_CapitulosPresupuestoCONCEPTO = 'CONCEPTO';
|
||||
{ TiposCapitulos fields }
|
||||
fld_TiposCapitulosID = 'ID';
|
||||
fld_TiposCapitulosPOSICION = 'POSICION';
|
||||
fld_TiposCapitulosTIPO_DETALLE = 'TIPO_DETALLE';
|
||||
fld_TiposCapitulosTIPO_ARTICULO = 'TIPO_ARTICULO';
|
||||
fld_TiposCapitulosID_ARTICULO = 'ID_ARTICULO';
|
||||
fld_TiposCapitulosCONCEPTO = 'CONCEPTO';
|
||||
|
||||
{ CapitulosPresupuesto field indexes }
|
||||
idx_CapitulosPresupuestoID = 0;
|
||||
idx_CapitulosPresupuestoPOSICION = 1;
|
||||
idx_CapitulosPresupuestoTIPO_DETALLE = 2;
|
||||
idx_CapitulosPresupuestoTIPO_ARTICULO = 3;
|
||||
idx_CapitulosPresupuestoID_ARTICULO = 4;
|
||||
idx_CapitulosPresupuestoCONCEPTO = 5;
|
||||
{ TiposCapitulos field indexes }
|
||||
idx_TiposCapitulosID = 0;
|
||||
idx_TiposCapitulosPOSICION = 1;
|
||||
idx_TiposCapitulosTIPO_DETALLE = 2;
|
||||
idx_TiposCapitulosTIPO_ARTICULO = 3;
|
||||
idx_TiposCapitulosID_ARTICULO = 4;
|
||||
idx_TiposCapitulosCONCEPTO = 5;
|
||||
|
||||
{ ContratosCliente_Detalles fields }
|
||||
fld_ContratosCliente_DetallesID = 'ID';
|
||||
@ -187,7 +195,7 @@ const
|
||||
type
|
||||
{ IValores }
|
||||
IValores = interface(IDAStronglyTypedDataTable)
|
||||
['{654B9338-5C3E-46DC-9D3B-FEE5C1362851}']
|
||||
['{A5848FC2-A766-4CF4-8F3D-EBE5A95319D5}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -246,7 +254,7 @@ type
|
||||
|
||||
{ IPropiedades }
|
||||
IPropiedades = interface(IDAStronglyTypedDataTable)
|
||||
['{EE7E48A1-556F-4CCD-A5C0-310C33E76C05}']
|
||||
['{801022BE-B0EE-4FBA-B321-93EA0FEB0A3F}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -305,7 +313,7 @@ type
|
||||
|
||||
{ IListaAnosContratos }
|
||||
IListaAnosContratos = interface(IDAStronglyTypedDataTable)
|
||||
['{BDEFFDA8-85EB-4B16-9E08-C3CD397B2F70}']
|
||||
['{86E1F5A6-C2DF-472D-9F60-FEDBE12CD3D6}']
|
||||
{ Property getters and setters }
|
||||
function GetANOValue: String;
|
||||
procedure SetANOValue(const aValue: String);
|
||||
@ -340,7 +348,7 @@ type
|
||||
|
||||
{ IContratosCliente }
|
||||
IContratosCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{71B11240-6256-418D-82D7-5586D8A10591}']
|
||||
['{A7B4A2D4-BCA1-4C5C-AD2E-20C4F3BC13CA}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -358,6 +366,10 @@ type
|
||||
procedure SetNOMBRE_CLIENTEValue(const aValue: String);
|
||||
function GetNOMBRE_CLIENTEIsNull: 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;
|
||||
procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String);
|
||||
function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean;
|
||||
@ -370,6 +382,10 @@ type
|
||||
procedure SetNOMBREValue(const aValue: String);
|
||||
function GetNOMBREIsNull: 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;
|
||||
procedure SetCALLEValue(const aValue: String);
|
||||
function GetCALLEIsNull: Boolean;
|
||||
@ -386,6 +402,14 @@ type
|
||||
procedure SetCODIGO_POSTALValue(const aValue: String);
|
||||
function GetCODIGO_POSTALIsNull: 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;
|
||||
procedure SetREFERENCIAValue(const aValue: String);
|
||||
function GetREFERENCIAIsNull: Boolean;
|
||||
@ -509,12 +533,16 @@ type
|
||||
property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
|
||||
property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
|
||||
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_CLIENTEIsNull: Boolean read GetNOMBRE_COMERCIAL_CLIENTEIsNull write SetNOMBRE_COMERCIAL_CLIENTEIsNull;
|
||||
property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
|
||||
property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
|
||||
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
|
||||
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 CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull;
|
||||
property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
|
||||
@ -523,6 +551,10 @@ type
|
||||
property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
|
||||
property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
|
||||
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 REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
|
||||
property FECHA_CONTRATO: DateTime read GetFECHA_CONTRATOValue write SetFECHA_CONTRATOValue;
|
||||
@ -612,6 +644,10 @@ type
|
||||
procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual;
|
||||
function GetNOMBRE_CLIENTEIsNull: 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;
|
||||
procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual;
|
||||
function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; virtual;
|
||||
@ -624,6 +660,10 @@ type
|
||||
procedure SetNOMBREValue(const aValue: String); virtual;
|
||||
function GetNOMBREIsNull: 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;
|
||||
procedure SetCALLEValue(const aValue: String); virtual;
|
||||
function GetCALLEIsNull: Boolean; virtual;
|
||||
@ -640,6 +680,14 @@ type
|
||||
procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
|
||||
function GetCODIGO_POSTALIsNull: 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;
|
||||
procedure SetREFERENCIAValue(const aValue: String); virtual;
|
||||
function GetREFERENCIAIsNull: Boolean; virtual;
|
||||
@ -762,12 +810,16 @@ type
|
||||
property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
|
||||
property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
|
||||
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_CLIENTEIsNull: Boolean read GetNOMBRE_COMERCIAL_CLIENTEIsNull write SetNOMBRE_COMERCIAL_CLIENTEIsNull;
|
||||
property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
|
||||
property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
|
||||
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
|
||||
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 CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull;
|
||||
property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
|
||||
@ -776,6 +828,10 @@ type
|
||||
property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
|
||||
property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
|
||||
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 REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
|
||||
property FECHA_CONTRATO: DateTime read GetFECHA_CONTRATOValue write SetFECHA_CONTRATOValue;
|
||||
@ -844,9 +900,9 @@ type
|
||||
{
|
||||
No tocar es la lista de distintos capitulos existentes
|
||||
}
|
||||
{ ICapitulosPresupuesto }
|
||||
ICapitulosPresupuesto = interface(IDAStronglyTypedDataTable)
|
||||
['{2187AEED-477B-45C3-BBBF-270822AF8DF1}']
|
||||
{ ITiposCapitulos }
|
||||
ITiposCapitulos = interface(IDAStronglyTypedDataTable)
|
||||
['{70CCE7F6-9235-4BA4-9F7E-4DAF2B1C6DD9}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -889,8 +945,8 @@ type
|
||||
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
|
||||
end;
|
||||
|
||||
{ TCapitulosPresupuestoDataTableRules }
|
||||
TCapitulosPresupuestoDataTableRules = class(TIntfObjectDADataTableRules, ICapitulosPresupuesto)
|
||||
{ TTiposCapitulosDataTableRules }
|
||||
TTiposCapitulosDataTableRules = class(TIntfObjectDADataTableRules, ITiposCapitulos)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -941,7 +997,7 @@ type
|
||||
|
||||
{ IContratosCliente_Detalles }
|
||||
IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
|
||||
['{AE19F002-20B5-4F2A-9EDE-C17C3DA772EA}']
|
||||
['{BFB8ADB9-FD43-4885-A66C-5CD57A89BE87}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1462,6 +1518,27 @@ begin
|
||||
DataTable.Fields[idx_ContratosClienteNOMBRE_CLIENTE].AsVariant := Null;
|
||||
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;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ContratosClienteNOMBRE_COMERCIAL_CLIENTE].AsString;
|
||||
@ -1525,6 +1602,27 @@ begin
|
||||
DataTable.Fields[idx_ContratosClienteNOMBRE].AsVariant := Null;
|
||||
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;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ContratosClienteCALLE].AsString;
|
||||
@ -1609,6 +1707,48 @@ begin
|
||||
DataTable.Fields[idx_ContratosClienteCODIGO_POSTAL].AsVariant := Null;
|
||||
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;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ContratosClienteREFERENCIA].AsString;
|
||||
@ -2203,141 +2343,141 @@ begin
|
||||
end;
|
||||
|
||||
|
||||
{ TCapitulosPresupuestoDataTableRules }
|
||||
constructor TCapitulosPresupuestoDataTableRules.Create(aDataTable: TDADataTable);
|
||||
{ TTiposCapitulosDataTableRules }
|
||||
constructor TTiposCapitulosDataTableRules.Create(aDataTable: TDADataTable);
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
destructor TCapitulosPresupuestoDataTableRules.Destroy;
|
||||
destructor TTiposCapitulosDataTableRules.Destroy;
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TCapitulosPresupuestoDataTableRules.GetIDValue: Integer;
|
||||
function TTiposCapitulosDataTableRules.GetIDValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_CapitulosPresupuestoID].AsInteger;
|
||||
result := DataTable.Fields[idx_TiposCapitulosID].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TCapitulosPresupuestoDataTableRules.SetIDValue(const aValue: Integer);
|
||||
procedure TTiposCapitulosDataTableRules.SetIDValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_CapitulosPresupuestoID].AsInteger := aValue;
|
||||
DataTable.Fields[idx_TiposCapitulosID].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TCapitulosPresupuestoDataTableRules.GetIDIsNull: boolean;
|
||||
function TTiposCapitulosDataTableRules.GetIDIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_CapitulosPresupuestoID].IsNull;
|
||||
result := DataTable.Fields[idx_TiposCapitulosID].IsNull;
|
||||
end;
|
||||
|
||||
procedure TCapitulosPresupuestoDataTableRules.SetIDIsNull(const aValue: Boolean);
|
||||
procedure TTiposCapitulosDataTableRules.SetIDIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_CapitulosPresupuestoID].AsVariant := Null;
|
||||
DataTable.Fields[idx_TiposCapitulosID].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TCapitulosPresupuestoDataTableRules.GetPOSICIONValue: Integer;
|
||||
function TTiposCapitulosDataTableRules.GetPOSICIONValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_CapitulosPresupuestoPOSICION].AsInteger;
|
||||
result := DataTable.Fields[idx_TiposCapitulosPOSICION].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TCapitulosPresupuestoDataTableRules.SetPOSICIONValue(const aValue: Integer);
|
||||
procedure TTiposCapitulosDataTableRules.SetPOSICIONValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_CapitulosPresupuestoPOSICION].AsInteger := aValue;
|
||||
DataTable.Fields[idx_TiposCapitulosPOSICION].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TCapitulosPresupuestoDataTableRules.GetPOSICIONIsNull: boolean;
|
||||
function TTiposCapitulosDataTableRules.GetPOSICIONIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_CapitulosPresupuestoPOSICION].IsNull;
|
||||
result := DataTable.Fields[idx_TiposCapitulosPOSICION].IsNull;
|
||||
end;
|
||||
|
||||
procedure TCapitulosPresupuestoDataTableRules.SetPOSICIONIsNull(const aValue: Boolean);
|
||||
procedure TTiposCapitulosDataTableRules.SetPOSICIONIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_CapitulosPresupuestoPOSICION].AsVariant := Null;
|
||||
DataTable.Fields[idx_TiposCapitulosPOSICION].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TCapitulosPresupuestoDataTableRules.GetTIPO_DETALLEValue: String;
|
||||
function TTiposCapitulosDataTableRules.GetTIPO_DETALLEValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_CapitulosPresupuestoTIPO_DETALLE].AsString;
|
||||
result := DataTable.Fields[idx_TiposCapitulosTIPO_DETALLE].AsString;
|
||||
end;
|
||||
|
||||
procedure TCapitulosPresupuestoDataTableRules.SetTIPO_DETALLEValue(const aValue: String);
|
||||
procedure TTiposCapitulosDataTableRules.SetTIPO_DETALLEValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_CapitulosPresupuestoTIPO_DETALLE].AsString := aValue;
|
||||
DataTable.Fields[idx_TiposCapitulosTIPO_DETALLE].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TCapitulosPresupuestoDataTableRules.GetTIPO_DETALLEIsNull: boolean;
|
||||
function TTiposCapitulosDataTableRules.GetTIPO_DETALLEIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_CapitulosPresupuestoTIPO_DETALLE].IsNull;
|
||||
result := DataTable.Fields[idx_TiposCapitulosTIPO_DETALLE].IsNull;
|
||||
end;
|
||||
|
||||
procedure TCapitulosPresupuestoDataTableRules.SetTIPO_DETALLEIsNull(const aValue: Boolean);
|
||||
procedure TTiposCapitulosDataTableRules.SetTIPO_DETALLEIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_CapitulosPresupuestoTIPO_DETALLE].AsVariant := Null;
|
||||
DataTable.Fields[idx_TiposCapitulosTIPO_DETALLE].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TCapitulosPresupuestoDataTableRules.GetTIPO_ARTICULOValue: String;
|
||||
function TTiposCapitulosDataTableRules.GetTIPO_ARTICULOValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_CapitulosPresupuestoTIPO_ARTICULO].AsString;
|
||||
result := DataTable.Fields[idx_TiposCapitulosTIPO_ARTICULO].AsString;
|
||||
end;
|
||||
|
||||
procedure TCapitulosPresupuestoDataTableRules.SetTIPO_ARTICULOValue(const aValue: String);
|
||||
procedure TTiposCapitulosDataTableRules.SetTIPO_ARTICULOValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_CapitulosPresupuestoTIPO_ARTICULO].AsString := aValue;
|
||||
DataTable.Fields[idx_TiposCapitulosTIPO_ARTICULO].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TCapitulosPresupuestoDataTableRules.GetTIPO_ARTICULOIsNull: boolean;
|
||||
function TTiposCapitulosDataTableRules.GetTIPO_ARTICULOIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_CapitulosPresupuestoTIPO_ARTICULO].IsNull;
|
||||
result := DataTable.Fields[idx_TiposCapitulosTIPO_ARTICULO].IsNull;
|
||||
end;
|
||||
|
||||
procedure TCapitulosPresupuestoDataTableRules.SetTIPO_ARTICULOIsNull(const aValue: Boolean);
|
||||
procedure TTiposCapitulosDataTableRules.SetTIPO_ARTICULOIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_CapitulosPresupuestoTIPO_ARTICULO].AsVariant := Null;
|
||||
DataTable.Fields[idx_TiposCapitulosTIPO_ARTICULO].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TCapitulosPresupuestoDataTableRules.GetID_ARTICULOValue: Integer;
|
||||
function TTiposCapitulosDataTableRules.GetID_ARTICULOValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_CapitulosPresupuestoID_ARTICULO].AsInteger;
|
||||
result := DataTable.Fields[idx_TiposCapitulosID_ARTICULO].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TCapitulosPresupuestoDataTableRules.SetID_ARTICULOValue(const aValue: Integer);
|
||||
procedure TTiposCapitulosDataTableRules.SetID_ARTICULOValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_CapitulosPresupuestoID_ARTICULO].AsInteger := aValue;
|
||||
DataTable.Fields[idx_TiposCapitulosID_ARTICULO].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TCapitulosPresupuestoDataTableRules.GetID_ARTICULOIsNull: boolean;
|
||||
function TTiposCapitulosDataTableRules.GetID_ARTICULOIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_CapitulosPresupuestoID_ARTICULO].IsNull;
|
||||
result := DataTable.Fields[idx_TiposCapitulosID_ARTICULO].IsNull;
|
||||
end;
|
||||
|
||||
procedure TCapitulosPresupuestoDataTableRules.SetID_ARTICULOIsNull(const aValue: Boolean);
|
||||
procedure TTiposCapitulosDataTableRules.SetID_ARTICULOIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_CapitulosPresupuestoID_ARTICULO].AsVariant := Null;
|
||||
DataTable.Fields[idx_TiposCapitulosID_ARTICULO].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TCapitulosPresupuestoDataTableRules.GetCONCEPTOValue: String;
|
||||
function TTiposCapitulosDataTableRules.GetCONCEPTOValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_CapitulosPresupuestoCONCEPTO].AsString;
|
||||
result := DataTable.Fields[idx_TiposCapitulosCONCEPTO].AsString;
|
||||
end;
|
||||
|
||||
procedure TCapitulosPresupuestoDataTableRules.SetCONCEPTOValue(const aValue: String);
|
||||
procedure TTiposCapitulosDataTableRules.SetCONCEPTOValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_CapitulosPresupuestoCONCEPTO].AsString := aValue;
|
||||
DataTable.Fields[idx_TiposCapitulosCONCEPTO].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TCapitulosPresupuestoDataTableRules.GetCONCEPTOIsNull: boolean;
|
||||
function TTiposCapitulosDataTableRules.GetCONCEPTOIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_CapitulosPresupuestoCONCEPTO].IsNull;
|
||||
result := DataTable.Fields[idx_TiposCapitulosCONCEPTO].IsNull;
|
||||
end;
|
||||
|
||||
procedure TCapitulosPresupuestoDataTableRules.SetCONCEPTOIsNull(const aValue: Boolean);
|
||||
procedure TTiposCapitulosDataTableRules.SetCONCEPTOIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_CapitulosPresupuestoCONCEPTO].AsVariant := Null;
|
||||
DataTable.Fields[idx_TiposCapitulosCONCEPTO].AsVariant := Null;
|
||||
end;
|
||||
|
||||
|
||||
@ -2673,7 +2813,7 @@ initialization
|
||||
RegisterDataTableRules(RID_Propiedades, TPropiedadesDataTableRules);
|
||||
RegisterDataTableRules(RID_ListaAnosContratos, TListaAnosContratosDataTableRules);
|
||||
RegisterDataTableRules(RID_ContratosCliente, TContratosClienteDataTableRules);
|
||||
RegisterDataTableRules(RID_CapitulosPresupuesto, TCapitulosPresupuestoDataTableRules);
|
||||
RegisterDataTableRules(RID_TiposCapitulos, TTiposCapitulosDataTableRules);
|
||||
RegisterDataTableRules(RID_ContratosCliente_Detalles, TContratosCliente_DetallesDataTableRules);
|
||||
|
||||
end.
|
||||
|
||||
@ -9,17 +9,17 @@ const
|
||||
{ Delta rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_ValoresDelta = '{25248564-22B0-47BB-86D0-2444C6EA27E9}';
|
||||
RID_PropiedadesDelta = '{D4DB0BBC-EA97-4F0E-8A48-AA33A949DBF3}';
|
||||
RID_ListaAnosContratosDelta = '{18D72479-5821-401B-B8A5-43F927D23F4D}';
|
||||
RID_ContratosClienteDelta = '{6AD4B6BE-88CF-47E6-AABC-520CC5BFC3BE}';
|
||||
RID_CapitulosPresupuestoDelta = '{0669B7DF-4A6B-4517-BB0E-2934956BB2B0}';
|
||||
RID_ContratosCliente_DetallesDelta = '{BC3F0D8A-48F1-47D0-86FB-AB210406B3CD}';
|
||||
RID_ValoresDelta = '{A9F29618-E25A-4076-9A31-ED37100D8ABE}';
|
||||
RID_PropiedadesDelta = '{B42E866C-3C13-49E7-96DB-0C6C971567CB}';
|
||||
RID_ListaAnosContratosDelta = '{3A22DAAB-ED1B-4604-A896-E9C0A5898288}';
|
||||
RID_ContratosClienteDelta = '{260D24A7-5771-4ACD-AA15-55EE6FD44FE6}';
|
||||
RID_TiposCapitulosDelta = '{2C1FE27B-5690-4555-B7D2-5C92C9B1EFFA}';
|
||||
RID_ContratosCliente_DetallesDelta = '{EA7927D3-F427-40C6-9394-546BD299BA21}';
|
||||
|
||||
type
|
||||
{ IValoresDelta }
|
||||
IValoresDelta = interface(IValores)
|
||||
['{25248564-22B0-47BB-86D0-2444C6EA27E9}']
|
||||
['{A9F29618-E25A-4076-9A31-ED37100D8ABE}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_PROPIEDADValue : Integer;
|
||||
@ -77,7 +77,7 @@ type
|
||||
|
||||
{ IPropiedadesDelta }
|
||||
IPropiedadesDelta = interface(IPropiedades)
|
||||
['{D4DB0BBC-EA97-4F0E-8A48-AA33A949DBF3}']
|
||||
['{B42E866C-3C13-49E7-96DB-0C6C971567CB}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
@ -135,7 +135,7 @@ type
|
||||
|
||||
{ IListaAnosContratosDelta }
|
||||
IListaAnosContratosDelta = interface(IListaAnosContratos)
|
||||
['{18D72479-5821-401B-B8A5-43F927D23F4D}']
|
||||
['{3A22DAAB-ED1B-4604-A896-E9C0A5898288}']
|
||||
{ Property getters and setters }
|
||||
function GetOldANOValue : String;
|
||||
|
||||
@ -169,19 +169,23 @@ type
|
||||
|
||||
{ IContratosClienteDelta }
|
||||
IContratosClienteDelta = interface(IContratosCliente)
|
||||
['{6AD4B6BE-88CF-47E6-AABC-520CC5BFC3BE}']
|
||||
['{260D24A7-5771-4ACD-AA15-55EE6FD44FE6}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
function GetOldID_CLIENTEValue : Integer;
|
||||
function GetOldNOMBRE_CLIENTEValue : String;
|
||||
function GetOldREF_CLIENTEValue : String;
|
||||
function GetOldNOMBRE_COMERCIAL_CLIENTEValue : String;
|
||||
function GetOldNIF_CIFValue : String;
|
||||
function GetOldNOMBREValue : String;
|
||||
function GetOldID_DIRECCIONValue : Integer;
|
||||
function GetOldCALLEValue : String;
|
||||
function GetOldPOBLACIONValue : String;
|
||||
function GetOldPROVINCIAValue : String;
|
||||
function GetOldCODIGO_POSTALValue : String;
|
||||
function GetOldTELEFONOValue : String;
|
||||
function GetOldMOVILValue : String;
|
||||
function GetOldREFERENCIAValue : String;
|
||||
function GetOldFECHA_CONTRATOValue : DateTime;
|
||||
function GetOldSITUACIONValue : String;
|
||||
@ -217,13 +221,17 @@ type
|
||||
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
||||
property OldID_CLIENTE : Integer read GetOldID_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 OldNIF_CIF : String read GetOldNIF_CIFValue;
|
||||
property OldNOMBRE : String read GetOldNOMBREValue;
|
||||
property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue;
|
||||
property OldCALLE : String read GetOldCALLEValue;
|
||||
property OldPOBLACION : String read GetOldPOBLACIONValue;
|
||||
property OldPROVINCIA : String read GetOldPROVINCIAValue;
|
||||
property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
|
||||
property OldTELEFONO : String read GetOldTELEFONOValue;
|
||||
property OldMOVIL : String read GetOldMOVILValue;
|
||||
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
||||
property OldFECHA_CONTRATO : DateTime read GetOldFECHA_CONTRATOValue;
|
||||
property OldSITUACION : String read GetOldSITUACIONValue;
|
||||
@ -292,6 +300,12 @@ type
|
||||
function GetOldNOMBRE_CLIENTEIsNull: Boolean; virtual;
|
||||
procedure SetNOMBRE_CLIENTEValue(const aValue: String); 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_CLIENTEIsNull: Boolean; virtual;
|
||||
function GetOldNOMBRE_COMERCIAL_CLIENTEValue: String; virtual;
|
||||
@ -310,6 +324,12 @@ type
|
||||
function GetOldNOMBREIsNull: Boolean; virtual;
|
||||
procedure SetNOMBREValue(const aValue: String); 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 GetCALLEIsNull: Boolean; virtual;
|
||||
function GetOldCALLEValue: String; virtual;
|
||||
@ -334,6 +354,18 @@ type
|
||||
function GetOldCODIGO_POSTALIsNull: Boolean; virtual;
|
||||
procedure SetCODIGO_POSTALValue(const aValue: String); 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 GetREFERENCIAIsNull: Boolean; virtual;
|
||||
function GetOldREFERENCIAValue: String; virtual;
|
||||
@ -522,6 +554,10 @@ type
|
||||
property NOMBRE_CLIENTEIsNull : Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
|
||||
property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
|
||||
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_CLIENTEIsNull : Boolean read GetNOMBRE_COMERCIAL_CLIENTEIsNull write SetNOMBRE_COMERCIAL_CLIENTEIsNull;
|
||||
property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue;
|
||||
@ -534,6 +570,10 @@ type
|
||||
property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
|
||||
property OldNOMBRE : String read GetOldNOMBREValue;
|
||||
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 CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull;
|
||||
property OldCALLE : String read GetOldCALLEValue;
|
||||
@ -550,6 +590,14 @@ type
|
||||
property CODIGO_POSTALIsNull : Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
|
||||
property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
|
||||
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 REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
|
||||
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
||||
@ -673,9 +721,9 @@ type
|
||||
|
||||
end;
|
||||
|
||||
{ ICapitulosPresupuestoDelta }
|
||||
ICapitulosPresupuestoDelta = interface(ICapitulosPresupuesto)
|
||||
['{0669B7DF-4A6B-4517-BB0E-2934956BB2B0}']
|
||||
{ ITiposCapitulosDelta }
|
||||
ITiposCapitulosDelta = interface(ITiposCapitulos)
|
||||
['{2C1FE27B-5690-4555-B7D2-5C92C9B1EFFA}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldPOSICIONValue : Integer;
|
||||
@ -693,8 +741,8 @@ type
|
||||
property OldCONCEPTO : String read GetOldCONCEPTOValue;
|
||||
end;
|
||||
|
||||
{ TCapitulosPresupuestoBusinessProcessorRules }
|
||||
TCapitulosPresupuestoBusinessProcessorRules = class(TDABusinessProcessorRules, ICapitulosPresupuesto, ICapitulosPresupuestoDelta)
|
||||
{ TTiposCapitulosBusinessProcessorRules }
|
||||
TTiposCapitulosBusinessProcessorRules = class(TDABusinessProcessorRules, ITiposCapitulos, ITiposCapitulosDelta)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -769,7 +817,7 @@ type
|
||||
|
||||
{ IContratosCliente_DetallesDelta }
|
||||
IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles)
|
||||
['{BC3F0D8A-48F1-47D0-86FB-AB210406B3CD}']
|
||||
['{EA7927D3-F427-40C6-9394-546BD299BA21}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CONTRATOValue : Integer;
|
||||
@ -1400,6 +1448,37 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteNOMBRE_CLIENTE] := Null;
|
||||
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;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteNOMBRE_COMERCIAL_CLIENTE];
|
||||
@ -1493,6 +1572,37 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteNOMBRE] := Null;
|
||||
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;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteCALLE];
|
||||
@ -1617,6 +1727,68 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteCODIGO_POSTAL] := Null;
|
||||
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;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteREFERENCIA];
|
||||
@ -2505,201 +2677,201 @@ begin
|
||||
end;
|
||||
|
||||
|
||||
{ TCapitulosPresupuestoBusinessProcessorRules }
|
||||
constructor TCapitulosPresupuestoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||
{ TTiposCapitulosBusinessProcessorRules }
|
||||
constructor TTiposCapitulosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
destructor TCapitulosPresupuestoBusinessProcessorRules.Destroy;
|
||||
destructor TTiposCapitulosBusinessProcessorRules.Destroy;
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TCapitulosPresupuestoBusinessProcessorRules.GetIDValue: Integer;
|
||||
function TTiposCapitulosBusinessProcessorRules.GetIDValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoID];
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosID];
|
||||
end;
|
||||
|
||||
function TCapitulosPresupuestoBusinessProcessorRules.GetIDIsNull: Boolean;
|
||||
function TTiposCapitulosBusinessProcessorRules.GetIDIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoID]);
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosID]);
|
||||
end;
|
||||
|
||||
function TCapitulosPresupuestoBusinessProcessorRules.GetOldIDValue: Integer;
|
||||
function TTiposCapitulosBusinessProcessorRules.GetOldIDValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoID];
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiposCapitulosID];
|
||||
end;
|
||||
|
||||
function TCapitulosPresupuestoBusinessProcessorRules.GetOldIDIsNull: Boolean;
|
||||
function TTiposCapitulosBusinessProcessorRules.GetOldIDIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoID]);
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_TiposCapitulosID]);
|
||||
end;
|
||||
|
||||
procedure TCapitulosPresupuestoBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
||||
procedure TTiposCapitulosBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoID] := aValue;
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosID] := aValue;
|
||||
end;
|
||||
|
||||
procedure TCapitulosPresupuestoBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
|
||||
procedure TTiposCapitulosBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoID] := Null;
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosID] := Null;
|
||||
end;
|
||||
|
||||
function TCapitulosPresupuestoBusinessProcessorRules.GetPOSICIONValue: Integer;
|
||||
function TTiposCapitulosBusinessProcessorRules.GetPOSICIONValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoPOSICION];
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosPOSICION];
|
||||
end;
|
||||
|
||||
function TCapitulosPresupuestoBusinessProcessorRules.GetPOSICIONIsNull: Boolean;
|
||||
function TTiposCapitulosBusinessProcessorRules.GetPOSICIONIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoPOSICION]);
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosPOSICION]);
|
||||
end;
|
||||
|
||||
function TCapitulosPresupuestoBusinessProcessorRules.GetOldPOSICIONValue: Integer;
|
||||
function TTiposCapitulosBusinessProcessorRules.GetOldPOSICIONValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoPOSICION];
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiposCapitulosPOSICION];
|
||||
end;
|
||||
|
||||
function TCapitulosPresupuestoBusinessProcessorRules.GetOldPOSICIONIsNull: Boolean;
|
||||
function TTiposCapitulosBusinessProcessorRules.GetOldPOSICIONIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoPOSICION]);
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_TiposCapitulosPOSICION]);
|
||||
end;
|
||||
|
||||
procedure TCapitulosPresupuestoBusinessProcessorRules.SetPOSICIONValue(const aValue: Integer);
|
||||
procedure TTiposCapitulosBusinessProcessorRules.SetPOSICIONValue(const aValue: Integer);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoPOSICION] := aValue;
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosPOSICION] := aValue;
|
||||
end;
|
||||
|
||||
procedure TCapitulosPresupuestoBusinessProcessorRules.SetPOSICIONIsNull(const aValue: Boolean);
|
||||
procedure TTiposCapitulosBusinessProcessorRules.SetPOSICIONIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoPOSICION] := Null;
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosPOSICION] := Null;
|
||||
end;
|
||||
|
||||
function TCapitulosPresupuestoBusinessProcessorRules.GetTIPO_DETALLEValue: String;
|
||||
function TTiposCapitulosBusinessProcessorRules.GetTIPO_DETALLEValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoTIPO_DETALLE];
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosTIPO_DETALLE];
|
||||
end;
|
||||
|
||||
function TCapitulosPresupuestoBusinessProcessorRules.GetTIPO_DETALLEIsNull: Boolean;
|
||||
function TTiposCapitulosBusinessProcessorRules.GetTIPO_DETALLEIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoTIPO_DETALLE]);
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosTIPO_DETALLE]);
|
||||
end;
|
||||
|
||||
function TCapitulosPresupuestoBusinessProcessorRules.GetOldTIPO_DETALLEValue: String;
|
||||
function TTiposCapitulosBusinessProcessorRules.GetOldTIPO_DETALLEValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoTIPO_DETALLE];
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiposCapitulosTIPO_DETALLE];
|
||||
end;
|
||||
|
||||
function TCapitulosPresupuestoBusinessProcessorRules.GetOldTIPO_DETALLEIsNull: Boolean;
|
||||
function TTiposCapitulosBusinessProcessorRules.GetOldTIPO_DETALLEIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoTIPO_DETALLE]);
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_TiposCapitulosTIPO_DETALLE]);
|
||||
end;
|
||||
|
||||
procedure TCapitulosPresupuestoBusinessProcessorRules.SetTIPO_DETALLEValue(const aValue: String);
|
||||
procedure TTiposCapitulosBusinessProcessorRules.SetTIPO_DETALLEValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoTIPO_DETALLE] := aValue;
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosTIPO_DETALLE] := aValue;
|
||||
end;
|
||||
|
||||
procedure TCapitulosPresupuestoBusinessProcessorRules.SetTIPO_DETALLEIsNull(const aValue: Boolean);
|
||||
procedure TTiposCapitulosBusinessProcessorRules.SetTIPO_DETALLEIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoTIPO_DETALLE] := Null;
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosTIPO_DETALLE] := Null;
|
||||
end;
|
||||
|
||||
function TCapitulosPresupuestoBusinessProcessorRules.GetTIPO_ARTICULOValue: String;
|
||||
function TTiposCapitulosBusinessProcessorRules.GetTIPO_ARTICULOValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoTIPO_ARTICULO];
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosTIPO_ARTICULO];
|
||||
end;
|
||||
|
||||
function TCapitulosPresupuestoBusinessProcessorRules.GetTIPO_ARTICULOIsNull: Boolean;
|
||||
function TTiposCapitulosBusinessProcessorRules.GetTIPO_ARTICULOIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoTIPO_ARTICULO]);
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosTIPO_ARTICULO]);
|
||||
end;
|
||||
|
||||
function TCapitulosPresupuestoBusinessProcessorRules.GetOldTIPO_ARTICULOValue: String;
|
||||
function TTiposCapitulosBusinessProcessorRules.GetOldTIPO_ARTICULOValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoTIPO_ARTICULO];
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiposCapitulosTIPO_ARTICULO];
|
||||
end;
|
||||
|
||||
function TCapitulosPresupuestoBusinessProcessorRules.GetOldTIPO_ARTICULOIsNull: Boolean;
|
||||
function TTiposCapitulosBusinessProcessorRules.GetOldTIPO_ARTICULOIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoTIPO_ARTICULO]);
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_TiposCapitulosTIPO_ARTICULO]);
|
||||
end;
|
||||
|
||||
procedure TCapitulosPresupuestoBusinessProcessorRules.SetTIPO_ARTICULOValue(const aValue: String);
|
||||
procedure TTiposCapitulosBusinessProcessorRules.SetTIPO_ARTICULOValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoTIPO_ARTICULO] := aValue;
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosTIPO_ARTICULO] := aValue;
|
||||
end;
|
||||
|
||||
procedure TCapitulosPresupuestoBusinessProcessorRules.SetTIPO_ARTICULOIsNull(const aValue: Boolean);
|
||||
procedure TTiposCapitulosBusinessProcessorRules.SetTIPO_ARTICULOIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoTIPO_ARTICULO] := Null;
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosTIPO_ARTICULO] := Null;
|
||||
end;
|
||||
|
||||
function TCapitulosPresupuestoBusinessProcessorRules.GetID_ARTICULOValue: Integer;
|
||||
function TTiposCapitulosBusinessProcessorRules.GetID_ARTICULOValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoID_ARTICULO];
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosID_ARTICULO];
|
||||
end;
|
||||
|
||||
function TCapitulosPresupuestoBusinessProcessorRules.GetID_ARTICULOIsNull: Boolean;
|
||||
function TTiposCapitulosBusinessProcessorRules.GetID_ARTICULOIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoID_ARTICULO]);
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosID_ARTICULO]);
|
||||
end;
|
||||
|
||||
function TCapitulosPresupuestoBusinessProcessorRules.GetOldID_ARTICULOValue: Integer;
|
||||
function TTiposCapitulosBusinessProcessorRules.GetOldID_ARTICULOValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoID_ARTICULO];
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiposCapitulosID_ARTICULO];
|
||||
end;
|
||||
|
||||
function TCapitulosPresupuestoBusinessProcessorRules.GetOldID_ARTICULOIsNull: Boolean;
|
||||
function TTiposCapitulosBusinessProcessorRules.GetOldID_ARTICULOIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoID_ARTICULO]);
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_TiposCapitulosID_ARTICULO]);
|
||||
end;
|
||||
|
||||
procedure TCapitulosPresupuestoBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer);
|
||||
procedure TTiposCapitulosBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoID_ARTICULO] := aValue;
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosID_ARTICULO] := aValue;
|
||||
end;
|
||||
|
||||
procedure TCapitulosPresupuestoBusinessProcessorRules.SetID_ARTICULOIsNull(const aValue: Boolean);
|
||||
procedure TTiposCapitulosBusinessProcessorRules.SetID_ARTICULOIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoID_ARTICULO] := Null;
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosID_ARTICULO] := Null;
|
||||
end;
|
||||
|
||||
function TCapitulosPresupuestoBusinessProcessorRules.GetCONCEPTOValue: String;
|
||||
function TTiposCapitulosBusinessProcessorRules.GetCONCEPTOValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoCONCEPTO];
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosCONCEPTO];
|
||||
end;
|
||||
|
||||
function TCapitulosPresupuestoBusinessProcessorRules.GetCONCEPTOIsNull: Boolean;
|
||||
function TTiposCapitulosBusinessProcessorRules.GetCONCEPTOIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoCONCEPTO]);
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosCONCEPTO]);
|
||||
end;
|
||||
|
||||
function TCapitulosPresupuestoBusinessProcessorRules.GetOldCONCEPTOValue: String;
|
||||
function TTiposCapitulosBusinessProcessorRules.GetOldCONCEPTOValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoCONCEPTO];
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiposCapitulosCONCEPTO];
|
||||
end;
|
||||
|
||||
function TCapitulosPresupuestoBusinessProcessorRules.GetOldCONCEPTOIsNull: Boolean;
|
||||
function TTiposCapitulosBusinessProcessorRules.GetOldCONCEPTOIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoCONCEPTO]);
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_TiposCapitulosCONCEPTO]);
|
||||
end;
|
||||
|
||||
procedure TCapitulosPresupuestoBusinessProcessorRules.SetCONCEPTOValue(const aValue: String);
|
||||
procedure TTiposCapitulosBusinessProcessorRules.SetCONCEPTOValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoCONCEPTO] := aValue;
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosCONCEPTO] := aValue;
|
||||
end;
|
||||
|
||||
procedure TCapitulosPresupuestoBusinessProcessorRules.SetCONCEPTOIsNull(const aValue: Boolean);
|
||||
procedure TTiposCapitulosBusinessProcessorRules.SetCONCEPTOIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoCONCEPTO] := Null;
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_TiposCapitulosCONCEPTO] := Null;
|
||||
end;
|
||||
|
||||
|
||||
@ -3185,7 +3357,7 @@ initialization
|
||||
RegisterBusinessProcessorRules(RID_PropiedadesDelta, TPropiedadesBusinessProcessorRules);
|
||||
RegisterBusinessProcessorRules(RID_ListaAnosContratosDelta, TListaAnosContratosBusinessProcessorRules);
|
||||
RegisterBusinessProcessorRules(RID_ContratosClienteDelta, TContratosClienteBusinessProcessorRules);
|
||||
RegisterBusinessProcessorRules(RID_CapitulosPresupuestoDelta, TCapitulosPresupuestoBusinessProcessorRules);
|
||||
RegisterBusinessProcessorRules(RID_TiposCapitulosDelta, TTiposCapitulosBusinessProcessorRules);
|
||||
RegisterBusinessProcessorRules(RID_ContratosCliente_DetallesDelta, TContratosCliente_DetallesBusinessProcessorRules);
|
||||
|
||||
end.
|
||||
|
||||
@ -330,6 +330,12 @@ begin
|
||||
ID_CLIENTE := FCliente.ID;
|
||||
NOMBRE := FCliente.NOMBRE;
|
||||
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
|
||||
ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO;
|
||||
|
||||
@ -200,9 +200,11 @@ object RptContratosCliente: TRptContratosCliente
|
||||
' V_CONTRATOS_CLIENTE.NOMBRE,'#10' V_CONTRATOS_CLIENTE.CALLE,'#10' ' +
|
||||
'V_CONTRATOS_CLIENTE.POBLACION,'#10' V_CONTRATOS_CLIENTE.PROVINCIA' +
|
||||
','#10' V_CONTRATOS_CLIENTE.CODIGO_POSTAL,'#10' V_CONTRATOS_CLIENTE' +
|
||||
'.IMPORTE_IVA, V_CONTRATOS_CLIENTE.IMPORTE_TOTAL,'#10' V_CONTRATOS' +
|
||||
'_CLIENTE.PERSONA_CONTACTO,'#10' V_CONTRATOS_CLIENTE.VENDEDOR'#10'FROM' +
|
||||
#10' V_CONTRATOS_CLIENTE'#10'WHERE'#10' V_CONTRATOS_CLIENTE.ID = :ID'#10
|
||||
'.TELEFONO,'#10' V_CONTRATOS_CLIENTE.MOVIL,'#10' V_CONTRATOS_CLIENT' +
|
||||
'E.IMPORTE_IVA, V_CONTRATOS_CLIENTE.IMPORTE_TOTAL,'#10' V_CONTRATO' +
|
||||
'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
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -312,6 +314,14 @@ object RptContratosCliente: TRptContratosCliente
|
||||
item
|
||||
DatasetField = 'REF_CLIENTE'
|
||||
TableField = 'REF_CLIENTE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'TELEFONO'
|
||||
TableField = 'TELEFONO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'MOVIL'
|
||||
TableField = 'MOVIL'
|
||||
end>
|
||||
end>
|
||||
Name = 'Informe_Cabecera'
|
||||
@ -416,6 +426,16 @@ object RptContratosCliente: TRptContratosCliente
|
||||
DataType = datString
|
||||
Size = 10
|
||||
end
|
||||
item
|
||||
Name = 'TELEFONO'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
end
|
||||
item
|
||||
Name = 'MOVIL'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_IVA'
|
||||
DataType = datCurrency
|
||||
@ -885,21 +905,51 @@ object RptContratosCliente: TRptContratosCliente
|
||||
Name = 'ID_CLIENTE'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'NIF_CIF'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
end
|
||||
item
|
||||
Name = 'REF_CLIENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'NIF_CIF'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
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
|
||||
Name = 'IMPORTE_IVA'
|
||||
DataType = datCurrency
|
||||
|
||||
@ -533,6 +533,7 @@ begin
|
||||
|
||||
frxReport.LoadFromFile(AInforme, True);
|
||||
frxReport.AddFunction('function PONERJUSTIFICACIONCOMPLETA(ARTFText : String): String', 'User Function','');
|
||||
frxReport.ReportOptions.Name := 'Contrato ' + tbl_Cabecera.FieldByName('REFERENCIA').AsString;
|
||||
frxReport.PrepareReport(False);
|
||||
finally
|
||||
FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||
|
||||
@ -295,6 +295,22 @@ object srvContratosCliente: TsrvContratosCliente
|
||||
item
|
||||
DatasetField = '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>
|
||||
Name = 'ContratosCliente'
|
||||
@ -321,11 +337,19 @@ object srvContratosCliente: TsrvContratosCliente
|
||||
Name = 'NOMBRE_CLIENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'ContratosCliente_NOMBRE_CLIENTE'
|
||||
end
|
||||
item
|
||||
Name = 'REF_CLIENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'ContratosCliente_REF_CLIENTE'
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE_COMERCIAL_CLIENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'ContratosCliente_NOMBRE_COMERCIAL_CLIENTE'
|
||||
end
|
||||
item
|
||||
Name = 'NIF_CIF'
|
||||
@ -341,25 +365,46 @@ object srvContratosCliente: TsrvContratosCliente
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'ContratosCliente_NOMBRE'
|
||||
end
|
||||
item
|
||||
Name = 'ID_DIRECCION'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'ContratosCliente_ID_DIRECCION'
|
||||
end
|
||||
item
|
||||
Name = 'CALLE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'ContratosCliente_CALLE'
|
||||
end
|
||||
item
|
||||
Name = 'POBLACION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'ContratosCliente_POBLACION'
|
||||
end
|
||||
item
|
||||
Name = 'PROVINCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'ContratosCliente_PROVINCIA'
|
||||
end
|
||||
item
|
||||
Name = 'CODIGO_POSTAL'
|
||||
DataType = datString
|
||||
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
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
@ -370,6 +415,7 @@ object srvContratosCliente: TsrvContratosCliente
|
||||
item
|
||||
Name = 'FECHA_CONTRATO'
|
||||
DataType = datDateTime
|
||||
DictionaryEntry = 'ContratosCliente_FECHA_CONTRATO'
|
||||
end
|
||||
item
|
||||
Name = 'SITUACION'
|
||||
@ -380,10 +426,12 @@ object srvContratosCliente: TsrvContratosCliente
|
||||
item
|
||||
Name = 'FORMA_PAGO'
|
||||
DataType = datMemo
|
||||
DictionaryEntry = 'ContratosCliente_FORMA_PAGO'
|
||||
end
|
||||
item
|
||||
Name = 'PLAZO_ENTREGA'
|
||||
DataType = datMemo
|
||||
DictionaryEntry = 'ContratosCliente_PLAZO_ENTREGA'
|
||||
end
|
||||
item
|
||||
Name = 'OBSERVACIONES'
|
||||
@ -419,18 +467,22 @@ object srvContratosCliente: TsrvContratosCliente
|
||||
item
|
||||
Name = 'RECARGO_EQUIVALENCIA'
|
||||
DataType = datSmallInt
|
||||
DictionaryEntry = 'ContratosCliente_RECARGO_EQUIVALENCIA'
|
||||
end
|
||||
item
|
||||
Name = 'RE'
|
||||
DataType = datFloat
|
||||
DictionaryEntry = 'ContratosCliente_RE'
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_RE'
|
||||
DataType = datCurrency
|
||||
DictionaryEntry = 'ContratosCliente_IMPORTE_RE'
|
||||
end
|
||||
item
|
||||
Name = 'ID_TIPO_IVA'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'ContratosCliente_ID_TIPO_IVA'
|
||||
end
|
||||
item
|
||||
Name = 'IVA'
|
||||
@ -455,11 +507,13 @@ object srvContratosCliente: TsrvContratosCliente
|
||||
item
|
||||
Name = 'ID_TIENDA'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'ContratosCliente_ID_TIENDA'
|
||||
end
|
||||
item
|
||||
Name = 'TIENDA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'ContratosCliente_TIENDA'
|
||||
end
|
||||
item
|
||||
Name = 'BASE_IMPONIBLE'
|
||||
@ -489,16 +543,19 @@ object srvContratosCliente: TsrvContratosCliente
|
||||
item
|
||||
Name = 'ID_VENDEDOR'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'ContratosCliente_ID_VENDEDOR'
|
||||
end
|
||||
item
|
||||
Name = 'VENDEDOR'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'ContratosCliente_VENDEDOR'
|
||||
end
|
||||
item
|
||||
Name = 'PERSONA_CONTACTO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'ContratosCliente_PERSONA_CONTACTO'
|
||||
end>
|
||||
end
|
||||
item
|
||||
@ -537,7 +594,7 @@ object srvContratosCliente: TsrvContratosCliente
|
||||
TableField = 'CONCEPTO'
|
||||
end>
|
||||
end>
|
||||
Name = 'CapitulosPresupuesto'
|
||||
Name = 'TiposCapitulos'
|
||||
Description = 'No tocar es la lista de distintos capitulos existentes'
|
||||
Fields = <
|
||||
item
|
||||
@ -734,8 +791,7 @@ object srvContratosCliente: TsrvContratosCliente
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_CONTRATOS_CLI_ID'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
@ -755,6 +811,11 @@ object srvContratosCliente: TsrvContratosCliente
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_DIRECCION'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'CALLE'
|
||||
DataType = datString
|
||||
@ -907,6 +968,18 @@ object srvContratosCliente: TsrvContratosCliente
|
||||
Name = 'RECARGO_EQUIVALENCIA'
|
||||
DataType = datSmallInt
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'TELEFONO'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'MOVIL'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
@ -915,21 +988,22 @@ object srvContratosCliente: TsrvContratosCliente
|
||||
TargetTable = 'CONTRATOS_CLIENTE'
|
||||
SQL =
|
||||
'INSERT'#10' INTO CONTRATOS_CLIENTE'#10' (ID, ID_CLIENTE, NIF_CIF, NO' +
|
||||
'MBRE, CALLE, POBLACION, PROVINCIA,'#10' CODIGO_POSTAL, REFERENCI' +
|
||||
'A, FECHA_CONTRATO, SITUACION, FORMA_PAGO,'#10' PLAZO_ENTREGA, OB' +
|
||||
'SERVACIONES, INCIDENCIAS, INCIDENCIAS_ACTIVAS, FECHA_ALTA,'#10' ' +
|
||||
'USUARIO, IMPORTE_NETO, IMPORTE_PORTE, DESCUENTO, IMPORTE_DESCUEN' +
|
||||
'TO,'#10' BASE_IMPONIBLE, ID_TIPO_IVA, IVA, IMPORTE_IVA,'#10' IMP' +
|
||||
'ORTE_TOTAL, ID_FORMA_PAGO, ID_TIENDA, ID_VENDEDOR, PERSONA_CONTA' +
|
||||
'CTO,'#10' RE, IMPORTE_RE, RECARGO_EQUIVALENCIA)'#10' VALUES'#10' (:I' +
|
||||
'D, :ID_CLIENTE, :NIF_CIF, :NOMBRE, :CALLE, :POBLACION, :PROVINCI' +
|
||||
'A,'#10' :CODIGO_POSTAL, :REFERENCIA, :FECHA_CONTRATO, :SITUACION' +
|
||||
', :FORMA_PAGO,'#10' :PLAZO_ENTREGA, :OBSERVACIONES, :INCIDENCIAS' +
|
||||
', :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP,'#10' :USUARIO, :IMPOR' +
|
||||
'TE_NETO, :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10' :B' +
|
||||
'ASE_IMPONIBLE, :ID_TIPO_IVA, :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL,' +
|
||||
' :ID_FORMA_PAGO,'#10' :ID_TIENDA, :ID_VENDEDOR, :PERSONA_CONTACT' +
|
||||
'O, :RE, :IMPORTE_RE, :RECARGO_EQUIVALENCIA)'#10#10
|
||||
'MBRE, ID_DIRECCION, CALLE, POBLACION, PROVINCIA,'#10' CODIGO_POS' +
|
||||
'TAL, REFERENCIA, FECHA_CONTRATO, SITUACION, FORMA_PAGO,'#10' PLA' +
|
||||
'ZO_ENTREGA, OBSERVACIONES, INCIDENCIAS, INCIDENCIAS_ACTIVAS, FEC' +
|
||||
'HA_ALTA,'#10' USUARIO, IMPORTE_NETO, IMPORTE_PORTE, DESCUENTO, I' +
|
||||
'MPORTE_DESCUENTO,'#10' BASE_IMPONIBLE, ID_TIPO_IVA, IVA, IMPORTE' +
|
||||
'_IVA,'#10' IMPORTE_TOTAL, ID_FORMA_PAGO, ID_TIENDA, ID_VENDEDOR,' +
|
||||
' PERSONA_CONTACTO,'#10' RE, IMPORTE_RE, RECARGO_EQUIVALENCIA, TE' +
|
||||
'LEFONO, MOVIL)'#10' VALUES'#10' (:ID, :ID_CLIENTE, :NIF_CIF, :NOMBRE' +
|
||||
', :ID_DIRECCION, :CALLE, :POBLACION, :PROVINCIA,'#10' :CODIGO_PO' +
|
||||
'STAL, :REFERENCIA, :FECHA_CONTRATO, :SITUACION, :FORMA_PAGO,'#10' ' +
|
||||
' :PLAZO_ENTREGA, :OBSERVACIONES, :INCIDENCIAS, :INCIDENCIAS_ACT' +
|
||||
'IVAS, CURRENT_TIMESTAMP,'#10' :USUARIO, :IMPORTE_NETO, :IMPORTE_' +
|
||||
'PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10' :BASE_IMPONIBLE, :ID' +
|
||||
'_TIPO_IVA, :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL, :ID_FORMA_PAGO,'#10' ' +
|
||||
' :ID_TIENDA, :ID_VENDEDOR, :PERSONA_CONTACTO, :RE, :IMPORTE_R' +
|
||||
'E, :RECARGO_EQUIVALENCIA,'#10' :TELEFONO, :MOVIL)'#10#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -977,6 +1051,11 @@ object srvContratosCliente: TsrvContratosCliente
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_DIRECCION'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'CALLE'
|
||||
DataType = datString
|
||||
@ -1130,6 +1209,18 @@ object srvContratosCliente: TsrvContratosCliente
|
||||
DataType = datSmallInt
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'TELEFONO'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'MOVIL'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'OLD_ID'
|
||||
Value = ''
|
||||
@ -1137,27 +1228,27 @@ object srvContratosCliente: TsrvContratosCliente
|
||||
Statements = <
|
||||
item
|
||||
Connection = 'IBX'
|
||||
Default = True
|
||||
TargetTable = 'CONTRATOS_CLIENTE'
|
||||
SQL =
|
||||
'UPDATE CONTRATOS_CLIENTE'#10' SET '#10' ID = :ID,'#10' ID_CLIENTE = :' +
|
||||
'ID_CLIENTE,'#10' NIF_CIF = :NIF_CIF,'#10' NOMBRE = :NOMBRE,'#10' CA' +
|
||||
'LLE = :CALLE,'#10' POBLACION = :POBLACION,'#10' PROVINCIA = :PROVI' +
|
||||
'NCIA,'#10' CODIGO_POSTAL = :CODIGO_POSTAL,'#10' REFERENCIA = :REFE' +
|
||||
'RENCIA,'#10' FECHA_CONTRATO = :FECHA_CONTRATO,'#10' SITUACION = :S' +
|
||||
'ITUACION,'#10' FORMA_PAGO = :FORMA_PAGO,'#10' PLAZO_ENTREGA = :PLA' +
|
||||
'ZO_ENTREGA,'#10' OBSERVACIONES = :OBSERVACIONES,'#10' INCIDENCIAS ' +
|
||||
'= :INCIDENCIAS,'#10' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS,'#10 +
|
||||
' FECHA_MODIFICACION = CURRENT_TIMESTAMP,'#10' USUARIO = :USUAR' +
|
||||
'IO,'#10' IMPORTE_NETO = :IMPORTE_NETO,'#10' IMPORTE_PORTE = :IMPOR' +
|
||||
'TE_PORTE,'#10' DESCUENTO = :DESCUENTO,'#10' IMPORTE_DESCUENTO = :I' +
|
||||
'MPORTE_DESCUENTO,'#10' BASE_IMPONIBLE = :BASE_IMPONIBLE,'#10' ID_T' +
|
||||
'IPO_IVA = :ID_TIPO_IVA,'#10' IVA = :IVA,'#10' IMPORTE_IVA = :IMPOR' +
|
||||
'TE_IVA,'#10' IMPORTE_TOTAL = :IMPORTE_TOTAL,'#10' ID_FORMA_PAGO = ' +
|
||||
':ID_FORMA_PAGO,'#10' ID_TIENDA = :ID_TIENDA,'#10' ID_VENDEDOR = :I' +
|
||||
'D_VENDEDOR,'#10' PERSONA_CONTACTO = :PERSONA_CONTACTO,'#10' RE = :' +
|
||||
'RE,'#10' IMPORTE_RE = :IMPORTE_RE,'#10' RECARGO_EQUIVALENCIA = :RE' +
|
||||
'CARGO_EQUIVALENCIA'#10#10' WHERE'#10' (ID = :OLD_ID)'#10#10
|
||||
'ID_CLIENTE,'#10' NIF_CIF = :NIF_CIF,'#10' NOMBRE = :NOMBRE,'#10' ID' +
|
||||
'_DIRECCION = :ID_DIRECCION,'#10' CALLE = :CALLE,'#10' POBLACION = ' +
|
||||
':POBLACION,'#10' PROVINCIA = :PROVINCIA,'#10' CODIGO_POSTAL = :COD' +
|
||||
'IGO_POSTAL,'#10' REFERENCIA = :REFERENCIA,'#10' FECHA_CONTRATO = :' +
|
||||
'FECHA_CONTRATO,'#10' SITUACION = :SITUACION,'#10' FORMA_PAGO = :FO' +
|
||||
'RMA_PAGO,'#10' PLAZO_ENTREGA = :PLAZO_ENTREGA,'#10' OBSERVACIONES ' +
|
||||
'= :OBSERVACIONES,'#10' INCIDENCIAS = :INCIDENCIAS,'#10' INCIDENCIA' +
|
||||
'S_ACTIVAS = :INCIDENCIAS_ACTIVAS,'#10' FECHA_MODIFICACION = CURRE' +
|
||||
'NT_TIMESTAMP,'#10' USUARIO = :USUARIO,'#10' IMPORTE_NETO = :IMPORT' +
|
||||
'E_NETO,'#10' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' DESCUENTO = :DES' +
|
||||
'CUENTO,'#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO,'#10' BASE_IMP' +
|
||||
'ONIBLE = :BASE_IMPONIBLE,'#10' ID_TIPO_IVA = :ID_TIPO_IVA,'#10' IV' +
|
||||
'A = :IVA,'#10' IMPORTE_IVA = :IMPORTE_IVA,'#10' IMPORTE_TOTAL = :I' +
|
||||
'MPORTE_TOTAL,'#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' ID_TIENDA ' +
|
||||
'= :ID_TIENDA,'#10' ID_VENDEDOR = :ID_VENDEDOR,'#10' PERSONA_CONTAC' +
|
||||
'TO = :PERSONA_CONTACTO,'#10' RE = :RE,'#10' IMPORTE_RE = :IMPORTE_' +
|
||||
'RE,'#10' RECARGO_EQUIVALENCIA = :RECARGO_EQUIVALENCIA,'#10' TELEFO' +
|
||||
'NO = :TELEFONO,'#10' MOVIL = :MOVIL'#10' WHERE'#10' (ID = :OLD_ID)'#10#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -1444,13 +1535,10 @@ object srvContratosCliente: TsrvContratosCliente
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'ID_EMPRESA'
|
||||
end
|
||||
item
|
||||
Name = 'ContratosCliente_FECHA_PRESUPUESTO'
|
||||
DataType = datDateTime
|
||||
end
|
||||
item
|
||||
Name = 'ContratosCliente_FECHA_DECISION'
|
||||
DataType = datDateTime
|
||||
DisplayLabel = 'Fecha decisi'#243'n'
|
||||
end
|
||||
item
|
||||
Name = 'ContratosCliente_REFERENCIA'
|
||||
@ -1473,30 +1561,7 @@ object srvContratosCliente: TsrvContratosCliente
|
||||
Name = 'ContratosCliente_NIF_CIF'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
end
|
||||
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
|
||||
DisplayLabel = 'NIF/CIF'
|
||||
end
|
||||
item
|
||||
Name = 'ContratosCliente_OBSERVACIONES'
|
||||
@ -1618,12 +1683,12 @@ object srvContratosCliente: TsrvContratosCliente
|
||||
Name = 'ContratosCliente_Detalles_CONCEPTO'
|
||||
DataType = datString
|
||||
Size = 2000
|
||||
DisplayLabel = 'CONCEPTO'
|
||||
DisplayLabel = 'Concepto'
|
||||
end
|
||||
item
|
||||
Name = 'ContratosCliente_Detalles_CANTIDAD'
|
||||
DataType = datFloat
|
||||
DisplayLabel = 'CANTIDAD'
|
||||
DisplayLabel = 'Cantidad'
|
||||
Alignment = taRightJustify
|
||||
end
|
||||
item
|
||||
@ -1665,17 +1730,129 @@ object srvContratosCliente: TsrvContratosCliente
|
||||
Name = 'ContratosCliente_Detalles_REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Referencia'
|
||||
end
|
||||
item
|
||||
Name = 'ContratosCliente_Detalles_REFERENCIA_PROVEEDOR'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Ref. proveedor'
|
||||
end
|
||||
item
|
||||
Name = 'ContratosCliente_Detalles_UNIDAD_MEDIDA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
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>
|
||||
Left = 48
|
||||
Top = 152
|
||||
|
||||
@ -1,23 +1,25 @@
|
||||
inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
Width = 1019
|
||||
Height = 392
|
||||
Width = 810
|
||||
Height = 449
|
||||
OnCreate = CustomViewCreate
|
||||
OnDestroy = CustomViewDestroy
|
||||
ExplicitWidth = 1019
|
||||
ExplicitHeight = 392
|
||||
ExplicitWidth = 810
|
||||
ExplicitHeight = 449
|
||||
object dxLayoutControl1: TdxLayoutControl
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1019
|
||||
Height = 392
|
||||
Width = 810
|
||||
Height = 449
|
||||
Align = alClient
|
||||
ParentBackground = True
|
||||
TabOrder = 0
|
||||
TabStop = False
|
||||
AutoContentSizes = [acsWidth, acsHeight]
|
||||
ExplicitWidth = 939
|
||||
ExplicitHeight = 392
|
||||
DesignSize = (
|
||||
1019
|
||||
392)
|
||||
810
|
||||
449)
|
||||
object edtFechaContrato: TcxDBDateEdit
|
||||
Left = 104
|
||||
Top = 55
|
||||
@ -31,23 +33,19 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
Style.Color = clInfoBk
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.Shadow = False
|
||||
Style.ButtonStyle = bts3D
|
||||
Style.ButtonTransparency = ebtNone
|
||||
Style.PopupBorderStyle = epbsFrame3D
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 1
|
||||
Width = 260
|
||||
end
|
||||
object memObservaciones: TcxDBMemo
|
||||
Left = 490
|
||||
Top = 259
|
||||
Left = 374
|
||||
Top = 289
|
||||
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||
DataBinding.DataField = 'OBSERVACIONES'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -57,16 +55,12 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 9
|
||||
Height = 200
|
||||
Width = 507
|
||||
@ -85,18 +79,14 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.Color = clMenuBar
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 0
|
||||
Width = 122
|
||||
end
|
||||
@ -119,23 +109,19 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.ButtonStyle = bts3D
|
||||
Style.PopupBorderStyle = epbsFrame3D
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 3
|
||||
Width = 122
|
||||
end
|
||||
object bFormasPago: TButton
|
||||
Left = 328
|
||||
Left = 212
|
||||
Top = 109
|
||||
Width = 132
|
||||
Height = 21
|
||||
@ -161,23 +147,19 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.ButtonStyle = bts3D
|
||||
Style.PopupBorderStyle = epbsFrame3D
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 2
|
||||
Width = 260
|
||||
end
|
||||
inline frViewDatosYSeleccionClienteContrato1: TfrViewDatosYSeleccionClienteContrato
|
||||
Left = 490
|
||||
Left = 374
|
||||
Top = 28
|
||||
Width = 507
|
||||
Height = 195
|
||||
Width = 127
|
||||
Height = 225
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
@ -186,58 +168,52 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
ParentFont = False
|
||||
TabOrder = 8
|
||||
ReadOnly = False
|
||||
ExplicitLeft = 490
|
||||
ExplicitLeft = 374
|
||||
ExplicitTop = 28
|
||||
ExplicitWidth = 507
|
||||
ExplicitHeight = 195
|
||||
ExplicitWidth = 127
|
||||
ExplicitHeight = 225
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 507
|
||||
Height = 195
|
||||
ExplicitWidth = 507
|
||||
ExplicitHeight = 195
|
||||
Width = 127
|
||||
Height = 225
|
||||
ExplicitWidth = 127
|
||||
ExplicitHeight = 225
|
||||
inherited edtlNombre: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 224
|
||||
Width = 224
|
||||
end
|
||||
inherited edtNIFCIF: TcxDBTextEdit
|
||||
Left = 394
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 394
|
||||
Left = 301
|
||||
ExplicitLeft = 301
|
||||
end
|
||||
inherited Button3: TBitBtn
|
||||
Left = 305
|
||||
ExplicitLeft = 305
|
||||
inherited bVerFichaCliente: TBitBtn
|
||||
Left = 212
|
||||
ExplicitLeft = 212
|
||||
end
|
||||
inherited edtPersonaContacto: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 283
|
||||
Width = 283
|
||||
end
|
||||
inherited edtDireccion: TcxMemo
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
end
|
||||
inherited Button4: TButton
|
||||
Left = 474
|
||||
ExplicitLeft = 474
|
||||
inherited bElegirDireccion: TButton
|
||||
Left = 381
|
||||
ExplicitLeft = 381
|
||||
end
|
||||
inherited Button5: TButton
|
||||
Left = 474
|
||||
ExplicitLeft = 474
|
||||
inherited bElegirPersonaContacto: TButton
|
||||
Left = 381
|
||||
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
|
||||
@ -253,23 +229,19 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 6
|
||||
Height = 100
|
||||
Width = 396
|
||||
end
|
||||
object memPlazoEntrega: TcxDBMemo
|
||||
Left = 22
|
||||
Top = 300
|
||||
Top = 328
|
||||
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||
DataBinding.DataField = 'PLAZO_ENTREGA'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -279,16 +251,12 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 7
|
||||
Height = 100
|
||||
Width = 396
|
||||
@ -312,18 +280,14 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.ButtonStyle = bts3D
|
||||
Style.PopupBorderStyle = epbsFrame3D
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 5
|
||||
Width = 27
|
||||
end
|
||||
@ -417,6 +381,8 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
end
|
||||
end
|
||||
object dxLayoutControl1Group3: TdxLayoutGroup
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
ShowBorder = False
|
||||
|
||||
@ -1,13 +1,13 @@
|
||||
inherited frViewDatosYSeleccionClienteContrato: TfrViewDatosYSeleccionClienteContrato
|
||||
Width = 539
|
||||
Height = 200
|
||||
ExplicitWidth = 539
|
||||
ExplicitHeight = 200
|
||||
Width = 447
|
||||
Height = 224
|
||||
ExplicitWidth = 447
|
||||
ExplicitHeight = 224
|
||||
object dxLayoutControl1: TdxLayoutControl
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 539
|
||||
Height = 200
|
||||
Width = 447
|
||||
Height = 224
|
||||
Margins.Left = 0
|
||||
Margins.Top = 0
|
||||
Margins.Right = 0
|
||||
@ -18,16 +18,15 @@ inherited frViewDatosYSeleccionClienteContrato: TfrViewDatosYSeleccionClienteCon
|
||||
TabStop = False
|
||||
AutoContentSizes = [acsWidth, acsHeight]
|
||||
DesignSize = (
|
||||
539
|
||||
200)
|
||||
447
|
||||
224)
|
||||
object edtlNombre: TcxDBTextEdit
|
||||
Left = 63
|
||||
Left = 71
|
||||
Top = 41
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
AutoSize = False
|
||||
DataBinding.DataField = 'NOMBRE'
|
||||
DataBinding.DataSource = dsCliente
|
||||
Enabled = False
|
||||
ParentFont = False
|
||||
Properties.ReadOnly = True
|
||||
Properties.UseLeftAlignmentOnEditing = False
|
||||
@ -35,26 +34,21 @@ inherited frViewDatosYSeleccionClienteContrato: TfrViewDatosYSeleccionClienteCon
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 2
|
||||
Height = 21
|
||||
Width = 224
|
||||
end
|
||||
object edtNIFCIF: TcxDBTextEdit
|
||||
Left = 426
|
||||
Left = 334
|
||||
Top = 41
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
AutoSize = False
|
||||
DataBinding.DataField = 'NIF_CIF'
|
||||
DataBinding.DataSource = dsCliente
|
||||
Enabled = False
|
||||
ParentFont = False
|
||||
Properties.ReadOnly = True
|
||||
Properties.UseLeftAlignmentOnEditing = False
|
||||
@ -62,19 +56,15 @@ inherited frViewDatosYSeleccionClienteContrato: TfrViewDatosYSeleccionClienteCon
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 3
|
||||
Height = 21
|
||||
Width = 103
|
||||
end
|
||||
object Button1: TBitBtn
|
||||
object bElegirCliente: TBitBtn
|
||||
Left = 10
|
||||
Top = 10
|
||||
Width = 115
|
||||
@ -118,7 +108,7 @@ inherited frViewDatosYSeleccionClienteContrato: TfrViewDatosYSeleccionClienteCon
|
||||
FF00FF00FF00FF00FF00FF00FF00C83EF000808BDF00668BCC007C60C700D116
|
||||
E400FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
|
||||
end
|
||||
object Button2: TBitBtn
|
||||
object bNuevoCliente: TBitBtn
|
||||
Left = 131
|
||||
Top = 10
|
||||
Width = 143
|
||||
@ -162,14 +152,14 @@ inherited frViewDatosYSeleccionClienteContrato: TfrViewDatosYSeleccionClienteCon
|
||||
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||
FF00FF00FF00006000000060000000600000FF00FF00FF00FF00}
|
||||
end
|
||||
object Button3: TBitBtn
|
||||
Left = 337
|
||||
Top = 158
|
||||
object bVerFichaCliente: TBitBtn
|
||||
Left = 245
|
||||
Top = 185
|
||||
Width = 192
|
||||
Height = 25
|
||||
Action = actVerContacto
|
||||
Caption = 'Ver ficha completa del cliente...'
|
||||
TabOrder = 8
|
||||
TabOrder = 10
|
||||
Glyph.Data = {
|
||||
36040000424D3604000000000000360000002800000010000000100000000100
|
||||
2000000000000004000000000000000000000000000000000000FF00FF00FF00
|
||||
@ -207,8 +197,8 @@ inherited frViewDatosYSeleccionClienteContrato: TfrViewDatosYSeleccionClienteCon
|
||||
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
|
||||
end
|
||||
object edtPersonaContacto: TcxDBTextEdit
|
||||
Left = 63
|
||||
Top = 129
|
||||
Left = 71
|
||||
Top = 156
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
AutoSize = False
|
||||
DataBinding.DataField = 'PERSONA_CONTACTO'
|
||||
@ -218,56 +208,88 @@ inherited frViewDatosYSeleccionClienteContrato: TfrViewDatosYSeleccionClienteCon
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 6
|
||||
TabOrder = 8
|
||||
Height = 21
|
||||
Width = 283
|
||||
end
|
||||
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
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
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
|
||||
Width = 193
|
||||
end
|
||||
object Button5: TButton
|
||||
Left = 506
|
||||
Top = 127
|
||||
Width = 23
|
||||
Height = 25
|
||||
Action = actElegirPersonaContacto
|
||||
TabOrder = 7
|
||||
object edtReferencia: TcxDBTextEdit
|
||||
Left = 71
|
||||
Top = 68
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
AutoSize = False
|
||||
DataBinding.DataField = 'REFERENCIA'
|
||||
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
|
||||
object dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
@ -276,25 +298,25 @@ inherited frViewDatosYSeleccionClienteContrato: TfrViewDatosYSeleccionClienteCon
|
||||
object dxLayoutControl1Group1: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
LayoutDirection = ldHorizontal
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Item7: TdxLayoutItem
|
||||
Caption = 'Button1'
|
||||
object dxLayoutControl1Group6: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Control = Button1
|
||||
ControlOptions.ShowBorder = False
|
||||
Hidden = True
|
||||
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
|
||||
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
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
@ -315,6 +337,31 @@ inherited frViewDatosYSeleccionClienteContrato: TfrViewDatosYSeleccionClienteCon
|
||||
ControlOptions.ShowBorder = False
|
||||
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
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
@ -334,7 +381,7 @@ inherited frViewDatosYSeleccionClienteContrato: TfrViewDatosYSeleccionClienteCon
|
||||
AlignHorz = ahRight
|
||||
Caption = 'Button4'
|
||||
ShowCaption = False
|
||||
Control = Button4
|
||||
Control = bElegirDireccion
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
@ -355,7 +402,7 @@ inherited frViewDatosYSeleccionClienteContrato: TfrViewDatosYSeleccionClienteCon
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahRight
|
||||
ShowCaption = False
|
||||
Control = Button5
|
||||
Control = bElegirPersonaContacto
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
@ -365,7 +412,7 @@ inherited frViewDatosYSeleccionClienteContrato: TfrViewDatosYSeleccionClienteCon
|
||||
AlignHorz = ahRight
|
||||
Caption = 'Button3'
|
||||
ShowCaption = False
|
||||
Control = Button3
|
||||
Control = bVerFichaCliente
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
|
||||
@ -34,11 +34,11 @@ type
|
||||
write SetOnClienteChanged;
|
||||
|
||||
procedure ElegirPersonaContacto;
|
||||
procedure ElegirDireccionCliente;
|
||||
procedure ElegirDireccionParaContrato;
|
||||
procedure ElegirCliente;
|
||||
procedure VerFichaCliente;
|
||||
procedure AnadirNuevoCliente;
|
||||
procedure RefrescarDireccion;
|
||||
procedure RefrescarDireccion;
|
||||
end;
|
||||
|
||||
TfrViewDatosYSeleccionClienteContrato = class(TfrViewBase, IViewDatosYSeleccionClienteContrato)
|
||||
@ -54,11 +54,11 @@ type
|
||||
edtlNombre: TcxDBTextEdit;
|
||||
dxLayoutControl1Item2: TdxLayoutItem;
|
||||
edtNIFCIF: TcxDBTextEdit;
|
||||
Button1: TBitBtn;
|
||||
bElegirCliente: TBitBtn;
|
||||
dxLayoutControl1Item7: TdxLayoutItem;
|
||||
Button2: TBitBtn;
|
||||
bNuevoCliente: TBitBtn;
|
||||
dxLayoutControl1Item8: TdxLayoutItem;
|
||||
Button3: TBitBtn;
|
||||
bVerFichaCliente: TBitBtn;
|
||||
dxLayoutControl1Item9: TdxLayoutItem;
|
||||
dxLayoutControl1Group1: TdxLayoutGroup;
|
||||
dxLayoutControl1Group2: TdxLayoutGroup;
|
||||
@ -67,15 +67,21 @@ type
|
||||
actElegirPersonaContacto: TAction;
|
||||
dxLayoutControl1Item3: TdxLayoutItem;
|
||||
edtPersonaContacto: TcxDBTextEdit;
|
||||
dxLayoutControl1Group4: TdxLayoutGroup;
|
||||
dxLayoutControl1Item4: TdxLayoutItem;
|
||||
edtDireccion: TcxMemo;
|
||||
Button4: TButton;
|
||||
bElegirDireccion: TButton;
|
||||
dxLayoutControl1Item5: TdxLayoutItem;
|
||||
dxLayoutControl1Group3: TdxLayoutGroup;
|
||||
dxLayoutControl1Item6: TdxLayoutItem;
|
||||
Button5: TButton;
|
||||
bElegirPersonaContacto: TButton;
|
||||
dxLayoutControl1Group5: TdxLayoutGroup;
|
||||
dxLayoutControl1Item10: TdxLayoutItem;
|
||||
edtTelefonos: TcxTextEdit;
|
||||
dxLayoutControl1Item11: TdxLayoutItem;
|
||||
edtReferencia: TcxDBTextEdit;
|
||||
dxLayoutControl1Group6: TdxLayoutGroup;
|
||||
dxLayoutControl1Group4: TdxLayoutGroup;
|
||||
dxLayoutControl1Group7: TdxLayoutGroup;
|
||||
procedure actElegirContactoExecute(Sender: TObject);
|
||||
procedure actAnadirContactoExecute(Sender: TObject);
|
||||
procedure actVerContactoUpdate(Sender: TObject);
|
||||
@ -92,12 +98,13 @@ type
|
||||
private
|
||||
FOnClienteChanged : TNotifyEvent;
|
||||
FMsgElegirCliente: String;
|
||||
procedure EscribirTextoTelefonos;
|
||||
protected
|
||||
FClientesController : IClientesController;
|
||||
FDireccionesController : IDireccionesContactoController;
|
||||
FContrato : IBizContratoCliente;
|
||||
FCliente : IBizCliente;
|
||||
FDireccion : IBizDireccionesContacto;
|
||||
|
||||
function GetCliente: IBizCliente; virtual;
|
||||
procedure SetCliente(Value: IBizCliente); virtual;
|
||||
function GetOnClienteChanged : TNotifyEvent;
|
||||
@ -112,11 +119,11 @@ type
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
procedure ElegirPersonaContacto;
|
||||
procedure ElegirDireccionCliente;
|
||||
procedure ElegirDireccionParaContrato;
|
||||
procedure ElegirCliente;
|
||||
procedure VerFichaCliente;
|
||||
procedure AnadirNuevoCliente;
|
||||
procedure RefrescarDireccion;
|
||||
procedure RefrescarDireccion;
|
||||
property Contrato: IBizContratoCliente read GetContrato write SetContrato;
|
||||
property Cliente: IBizCliente read GetCliente write SetCliente;
|
||||
property OnClienteChanged : TNotifyEvent read GetOnClienteChanged write SetOnClienteChanged;
|
||||
@ -140,15 +147,17 @@ procedure TfrViewDatosYSeleccionClienteContrato.actElegirDireccionExecute(
|
||||
Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
ElegirDireccionCliente;
|
||||
ElegirDireccionParaContrato;
|
||||
RefrescarDireccion;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClienteContrato.actElegirDireccionUpdate(
|
||||
Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(Sender as TAction).Enabled := Assigned(FCliente.Direcciones) and
|
||||
(FCliente.Direcciones.Active) and (FCliente.Direcciones.RecordCount > 0);
|
||||
(Sender as TAction).Enabled := Assigned(FCliente) and
|
||||
Assigned(FCliente.Direcciones) and (FCliente.Direcciones.Active)
|
||||
and (FCliente.Direcciones.RecordCount > 0);
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClienteContrato.actElegirPersonaContactoExecute(
|
||||
@ -156,14 +165,16 @@ procedure TfrViewDatosYSeleccionClienteContrato.actElegirPersonaContactoExecute(
|
||||
begin
|
||||
inherited;
|
||||
ElegirPersonaContacto;
|
||||
RefrescarDireccion;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClienteContrato.actElegirPersonaContactoUpdate(
|
||||
Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(Sender as TAction).Enabled := Assigned(FCliente.Personal) and
|
||||
(FCliente.Personal.Active) and (FCliente.Personal.RecordCount > 0);
|
||||
(Sender as TAction).Enabled := Assigned(FCliente) and
|
||||
Assigned(FCliente.Personal) and (FCliente.Personal.Active)
|
||||
and (FCliente.Personal.RecordCount > 0);
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClienteContrato.actAnadirContactoExecute(
|
||||
@ -198,22 +209,20 @@ end;
|
||||
constructor TfrViewDatosYSeleccionClienteContrato.Create(AOwner: TComponent);
|
||||
begin
|
||||
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;
|
||||
FDireccionesController := TDireccionesContactoController.Create;
|
||||
FDireccion := FDireccionesController.Nuevo;
|
||||
|
||||
edtlNombre.Enabled := False;
|
||||
edtNIFCIF.Enabled := False;
|
||||
edtDireccion.Enabled := False;
|
||||
edtPersonaContacto.Enabled := False;
|
||||
|
||||
Button5.Visible := False;
|
||||
edtReferencia.Enabled := False;
|
||||
edtTelefonos.Enabled := False;
|
||||
end;
|
||||
|
||||
destructor TfrViewDatosYSeleccionClienteContrato.Destroy;
|
||||
begin
|
||||
FDireccion := NIL;
|
||||
FClientesController := NIL;
|
||||
FDireccionesController := NIL;
|
||||
inherited;
|
||||
@ -223,7 +232,7 @@ procedure TfrViewDatosYSeleccionClienteContrato.edtDireccionPropertiesButtonClic
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
inherited;
|
||||
ElegirDireccionCliente;
|
||||
ElegirDireccionParaContrato;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClienteContrato.edtPersonaContactoPropertiesButtonClick(
|
||||
@ -246,27 +255,40 @@ begin
|
||||
ACliente := Nil;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClienteContrato.ElegirDireccionCliente;
|
||||
procedure TfrViewDatosYSeleccionClienteContrato.ElegirDireccionParaContrato;
|
||||
var
|
||||
ADireccion : IBizDireccionesContacto;
|
||||
begin
|
||||
inherited;
|
||||
|
||||
ADireccion := FClientesController.ElegirDireccionEntrega(FCliente, ' ');
|
||||
if FCliente.Direcciones.RecordCount > 0 then
|
||||
ADireccion := FClientesController.ElegirDireccionEntrega(FCliente, 'El cliente dispone de varias direcciones. Seleccione la que quiere utilizar.')
|
||||
else begin
|
||||
ADireccion := FDireccionesController.Nuevo;
|
||||
FDireccionesController.CopiarDireccionFiscal(FCliente, ADireccion);
|
||||
end;
|
||||
|
||||
if Assigned(ADireccion) then
|
||||
begin
|
||||
FDireccion := ADireccion;
|
||||
EscribirTextoDireccion;
|
||||
|
||||
if FDireccion.IDIsNull then
|
||||
FContrato.Edit;
|
||||
|
||||
if ADireccion.IDIsNull then // Se ha elegido la dirección de razón social
|
||||
begin
|
||||
// FContrato.ClearField('ID_DIRECCION');
|
||||
FContrato.ClearField('ID_DIRECCION');
|
||||
FContrato.ClearField('IMPORTE_PORTE');
|
||||
end
|
||||
else begin
|
||||
// FContrato.ID_DIRECCION := FDireccion.ID;
|
||||
FContrato.IMPORTE_PORTE := FDireccion.PORTE;
|
||||
FContrato.ID_DIRECCION := ADireccion.ID;
|
||||
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;
|
||||
@ -277,10 +299,14 @@ var
|
||||
begin
|
||||
inherited;
|
||||
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
|
||||
begin
|
||||
FContrato.Edit;
|
||||
FContrato.PERSONA_CONTACTO := APersona.NOMBRE;
|
||||
try
|
||||
if Assigned(APersona) then
|
||||
begin
|
||||
FContrato.Edit;
|
||||
FContrato.PERSONA_CONTACTO := APersona.NOMBRE;
|
||||
end;
|
||||
finally
|
||||
APersona := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
@ -290,18 +316,10 @@ var
|
||||
begin
|
||||
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
|
||||
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
|
||||
if Assigned(FContrato) then
|
||||
ACadena := Format('%s %s %s %s',
|
||||
[FDireccion.CALLE, FDireccion.POBLACION,
|
||||
FDireccion.CODIGO_POSTAL, FDireccion.PROVINCIA]);
|
||||
[FContrato.CALLE, FContrato.POBLACION,
|
||||
FContrato.CODIGO_POSTAL, FContrato.PROVINCIA]);
|
||||
|
||||
edtDireccion.Text := ACadena;
|
||||
end;
|
||||
@ -319,8 +337,12 @@ begin
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClienteContrato.SetCliente(Value: IBizCliente);
|
||||
var
|
||||
ADireccion : IBizDireccionesContacto;
|
||||
begin
|
||||
ADireccion := NIL;
|
||||
FCliente := Value;
|
||||
|
||||
if Assigned(FCliente) then
|
||||
begin
|
||||
dsCliente.DataTable := FCliente.DataTable;
|
||||
@ -332,17 +354,13 @@ begin
|
||||
if FCliente.ID > 0 then
|
||||
edtPersonaContacto.Enabled := True;
|
||||
|
||||
if FCliente.Direcciones.RecordCount > 0 then
|
||||
ElegirDireccionCliente
|
||||
else begin
|
||||
FDireccionesController.CopiarDireccionFiscal(FCliente, FDireccion);
|
||||
EscribirTextoDireccion;
|
||||
end;
|
||||
ElegirDireccionParaContrato;
|
||||
EscribirTextoDireccion;
|
||||
EscribirTextoTelefonos;
|
||||
end
|
||||
else begin
|
||||
dsCliente.DataTable := NIL;
|
||||
FCliente := NIL;
|
||||
FDireccion := NIL;
|
||||
edtPersonaContacto.Enabled := False;
|
||||
end;
|
||||
|
||||
@ -360,41 +378,37 @@ begin
|
||||
Result := FOnClienteChanged;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClienteContrato.RefrescarDireccion;
|
||||
begin
|
||||
EscribirTextoDireccion;
|
||||
EscribirTextoTelefonos;
|
||||
end;
|
||||
|
||||
function TfrViewDatosYSeleccionClienteContrato.GetContrato: IBizContratoCliente;
|
||||
begin
|
||||
Result := FContrato;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClienteContrato.RefrescarDireccion;
|
||||
procedure TfrViewDatosYSeleccionClienteContrato.EscribirTextoTelefonos;
|
||||
var
|
||||
ACadena : String;
|
||||
begin
|
||||
// FDireccion := FDireccionesController.Nuevo;
|
||||
ACadena := '';
|
||||
|
||||
// if (not FContrato.ID_DIRECCIONIsNull) and
|
||||
// (FDireccionesController.Localizar(FCliente.Direcciones, FContrato.ID_DIRECCION)) then
|
||||
// FDireccionesController.CopiarDireccion(FCliente.Direcciones, FDireccion)
|
||||
// else
|
||||
// FDireccionesController.CopiarDireccionFiscal(FCliente, FDireccion);
|
||||
if not FContrato.TELEFONOIsNull then
|
||||
ACadena := FContrato.TELEFONO;
|
||||
|
||||
// EscribirTextoDireccion;
|
||||
|
||||
FDireccion.Active := True;
|
||||
FDireccion.DataTable.Insert;
|
||||
try
|
||||
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;
|
||||
if not FContrato.MOVILIsNull then
|
||||
begin
|
||||
if ACadena <> '' then
|
||||
ACadena := ACadena + ' / ';
|
||||
ACadena := ACadena + FContrato.MOVIL;
|
||||
end;
|
||||
EscribirTextoDireccion;
|
||||
|
||||
edtTelefonos.Text := ACadena;
|
||||
end;
|
||||
|
||||
|
||||
procedure TfrViewDatosYSeleccionClienteContrato.SetOnClienteChanged(
|
||||
const Value: TNotifyEvent);
|
||||
begin
|
||||
@ -415,16 +429,21 @@ begin
|
||||
if not FCliente.DataTable.Active then
|
||||
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
|
||||
edtPersonaContacto.Enabled := True;
|
||||
|
||||
RefrescarDireccion;
|
||||
begin
|
||||
edtPersonaContacto.Enabled := True;
|
||||
RefrescarDireccion;
|
||||
end
|
||||
else begin
|
||||
edtPersonaContacto.Enabled := False;
|
||||
edtDireccion.Lines.Clear;
|
||||
edtTelefonos.Text := '';
|
||||
end;
|
||||
end
|
||||
else begin
|
||||
dsContrato.DataTable := NIL;
|
||||
FCliente := NIL;
|
||||
FDireccion := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
@ -442,7 +461,7 @@ end;
|
||||
procedure TfrViewDatosYSeleccionClienteContrato.VerFichaCliente;
|
||||
begin
|
||||
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
|
||||
FClientesController.Ver(Cliente);
|
||||
end;
|
||||
|
||||
@ -185,9 +185,7 @@ end;
|
||||
function GenerarFacturaCli(AContrato : IBizContratoCliente; var AFactura: IBizFacturaCliente) : Boolean; overload;
|
||||
var
|
||||
ARespuesta : Integer;
|
||||
|
||||
begin
|
||||
Result := False;
|
||||
AFactura := NIL;
|
||||
|
||||
if not Assigned(AContrato) then
|
||||
|
||||
Loading…
Reference in New Issue
Block a user