diff --git a/Build/Build.fbl6 b/Build/Build.fbl6
index 6afb77f..82945d1 100644
Binary files a/Build/Build.fbl6 and b/Build/Build.fbl6 differ
diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql
index bbf5c3d..36fc6da 100644
--- a/Database/scripts/factuges.sql
+++ b/Database/scripts/factuges.sql
@@ -1268,7 +1268,8 @@ CREATE TABLE PRESUPUESTOS_CLIENTE (
IMPORTE_RE TIPO_IMPORTE,
ID_CONTRATO TIPO_ID,
NO_VALORADO TIPO_BOOLEANO,
- TIPO_PRESUPUESTO VARCHAR(255)
+ TIPO_PRESUPUESTO VARCHAR(255),
+ REFERENCIA_CLIENTE VARCHAR(255) COLLATE ES_ES
);
CREATE TABLE PRESUPUESTOS_CLIENTE_DETALLES (
@@ -1330,7 +1331,8 @@ CREATE TABLE CONTRATOS_CLIENTE (
RECARGO_EQUIVALENCIA TIPO_BOOLEANO,
RE TIPO_PORCENTAJE,
IMPORTE_RE TIPO_IMPORTE,
- TIPO_CONTRATO VARCHAR(255)
+ TIPO_CONTRATO VARCHAR(255),
+ REFERENCIA_CLIENTE VARCHAR(255) COLLATE ES_ES
);
CREATE TABLE CONTRATOS_CLIENTE_DETALLES (
@@ -3659,6 +3661,7 @@ CREATE VIEW V_PRESUPUESTOS_CLIENTE(
FECHA_VIGENCIA,
FECHA_DECISION,
REFERENCIA,
+ REFERENCIA_CLIENTE,
SITUACION,
ID_CLIENTE,
ID_DIRECCION,
@@ -3702,6 +3705,7 @@ SELECT
PRESUPUESTOS_CLIENTE.FECHA_VIGENCIA,
PRESUPUESTOS_CLIENTE.FECHA_DECISION,
PRESUPUESTOS_CLIENTE.REFERENCIA,
+ PRESUPUESTOS_CLIENTE.REFERENCIA_CLIENTE,
PRESUPUESTOS_CLIENTE.SITUACION,
PRESUPUESTOS_CLIENTE.ID_CLIENTE,
PRESUPUESTOS_CLIENTE.ID_DIRECCION,
@@ -3756,7 +3760,7 @@ CREATE VIEW V_CONTRATOS_CLIENTE(
NOMBRE_COMERCIAL_CLIENTE,
NIF_CIF,
NOMBRE,
- ID_DIRECCION,
+ ID_DIRECCION,
CALLE,
POBLACION,
PROVINCIA,
@@ -3792,11 +3796,11 @@ CREATE VIEW V_CONTRATOS_CLIENTE(
ID_VENDEDOR,
VENDEDOR,
PERSONA_CONTACTO,
- TIPO_CONTRATO)
+ TIPO_CONTRATO,
+ REFERENCIA_CLIENTE)
AS
SELECT CONTRATOS_CLIENTE.ID,
-/* CONTRATOS_CLIENTE.ID_EMPRESA,*/
- EMPRESAS_CONTACTOS.ID_EMPRESA,
+ CONTRATOS_CLIENTE.ID_EMPRESA,
CONTRATOS_CLIENTE.ID_CLIENTE,
CONTACTOS.NOMBRE,
CONTACTOS.REFERENCIA,
@@ -3839,10 +3843,10 @@ SELECT CONTRATOS_CLIENTE.ID,
CONTRATOS_CLIENTE.ID_VENDEDOR,
CONTACTOS2.NOMBRE AS VENDEDOR,
CONTRATOS_CLIENTE.PERSONA_CONTACTO,
- CONTRATOS_CLIENTE.TIPO_CONTRATO
+ CONTRATOS_CLIENTE.TIPO_CONTRATO,
+ CONTRATOS_CLIENTE.REFERENCIA_CLIENTE
FROM CONTRATOS_CLIENTE
LEFT OUTER JOIN CONTACTOS ON (CONTACTOS.ID = CONTRATOS_CLIENTE.ID_CLIENTE)
- LEFT JOIN EMPRESAS_CONTACTOS ON (EMPRESAS_CONTACTOS.ID_CONTACTO = CONTACTOS.ID)
LEFT OUTER JOIN CONTACTOS CONTACTOS2 ON (CONTRATOS_CLIENTE.ID_VENDEDOR = CONTACTOS2.ID)
INNER JOIN CLIENTES_DATOS ON (CLIENTES_DATOS.ID_CLIENTE = CONTRATOS_CLIENTE.ID_CLIENTE)
LEFT JOIN EMPRESAS_TIENDAS ON (EMPRESAS_TIENDAS.ID = CONTRATOS_CLIENTE.ID_TIENDA)
diff --git a/Source/ApplicationBase/Empresas/Model/uBizEmpresas.pas b/Source/ApplicationBase/Empresas/Model/uBizEmpresas.pas
index 948745c..7cba642 100644
--- a/Source/ApplicationBase/Empresas/Model/uBizEmpresas.pas
+++ b/Source/ApplicationBase/Empresas/Model/uBizEmpresas.pas
@@ -8,6 +8,10 @@ uses
const
BIZ_CLIENT_EMPRESA = 'Client.Empresa';
+ CTE_EMPRESAS_CONTACTOS_COMUNES = 'EMPRESAS_CONTACTOS_COMUNES';
+ CTE_EMPRESAS_PRESUPUESTOS_COMUNES = 'EMPRESAS_PRESUPUESTOS_COMUNES';
+ CTE_EMPRESAS_CONTRATOS_COMUNES = 'EMPRESAS_CONTRATOS_COMUNES';
+
type
IBizEmpresa = interface (IEmpresas)
@@ -23,6 +27,9 @@ type
function GetEmpresasPresupuestosComunes : TStringList;
property EmpresasPresupuestosComunes: TStringList read GetEmpresasPresupuestosComunes;
+ function GetEmpresasContratosComunes : TStringList;
+ property EmpresasContratosComunes: TStringList read GetEmpresasContratosComunes;
+
function EsNuevo : Boolean;
end;
@@ -32,7 +39,8 @@ type
FDatosBancariosLink : TDADataSource;
FTiendas : IBizEmpresaTienda;
FTiendasLink : TDADataSource;
- FEmpresasPresupuestosComunes : TStringList;
+ FEmpresasPresupuestosComunes : TStringList;
+ FEmpresasContratosComunes : TStringList;
procedure OnNewRecord(Sender: TDADataTable); override;
@@ -41,6 +49,7 @@ type
procedure SetTiendas(AValue : IBizEmpresaTienda);
function GetTiendas : IBizEmpresaTienda;
function GetEmpresasPresupuestosComunes : TStringList;
+ function GetEmpresasContratosComunes : TStringList;
public
function EsNuevo : Boolean;
@@ -52,6 +61,7 @@ type
property DatosBancarios : IBizEmpresasDatosBancarios read GetDatosBancarios write SetDatosBancarios;
property Tiendas : IBizEmpresaTienda read GetTiendas write SetTiendas;
property EmpresasPresupuestosComunes: TStringList read GetEmpresasPresupuestosComunes;
+ property EmpresasContratosComunes: TStringList read GetEmpresasContratosComunes;
end;
@@ -74,6 +84,7 @@ begin
FTiendasLink.DataTable := aDataTable;
FEmpresasPresupuestosComunes := TStringList.Create;
+ FEmpresasContratosComunes := TStringList.Create;
end;
destructor TBizEmpresa.Destroy;
@@ -83,6 +94,7 @@ begin
FTiendas := NIL;
FTiendasLink.Free;
FreeANDNIL(FEmpresasPresupuestosComunes);
+ FreeANDNIL(FEmpresasContratosComunes);
inherited;
end;
@@ -96,10 +108,18 @@ begin
Result := FDatosBancarios;
end;
+function TBizEmpresa.GetEmpresasContratosComunes: TStringList;
+begin
+ if (FEmpresasContratosComunes.Count = 0) then
+ FEmpresasContratosComunes.CommaText := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_EMPRESAS_CONTRATOS_COMUNES, AppFactuGES.EmpresaActiva.ID);
+
+ Result := FEmpresasContratosComunes;
+end;
+
function TBizEmpresa.GetEmpresasPresupuestosComunes: TStringList;
begin
if (FEmpresasPresupuestosComunes.Count = 0) then
- FEmpresasPresupuestosComunes.CommaText := AppFactuGES.Configuracion.GetSettingAsString(teBD,'EMPRESAS_PRESUPUESTOS_COMUNES', AppFactuGES.EmpresaActiva.ID);
+ FEmpresasPresupuestosComunes.CommaText := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_EMPRESAS_PRESUPUESTOS_COMUNES, AppFactuGES.EmpresaActiva.ID);
Result := FEmpresasPresupuestosComunes;
end;
diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj
index 9938269..426db58 100644
--- a/Source/Base/Base.dproj
+++ b/Source/Base/Base.dproj
@@ -58,55 +58,55 @@
MainSource
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
TForm
diff --git a/Source/Base/Base.res b/Source/Base/Base.res
index 8b251f3..1641339 100644
Binary files a/Source/Base/Base.res and b/Source/Base/Base.res differ
diff --git a/Source/GUIBase/GUIBase.dproj b/Source/GUIBase/GUIBase.dproj
index 49bbcfb..b044e14 100644
--- a/Source/GUIBase/GUIBase.dproj
+++ b/Source/GUIBase/GUIBase.dproj
@@ -58,34 +58,34 @@
MainSource
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/GUIBase/GUIBase.res b/Source/GUIBase/GUIBase.res
index 8b251f3..1641339 100644
Binary files a/Source/GUIBase/GUIBase.res and b/Source/GUIBase/GUIBase.res differ
diff --git a/Source/Informes/1/InfAlbaranCliente.fr3 b/Source/Informes/1/InfAlbaranCliente.fr3
index 873ea84..ae04e45 100644
--- a/Source/Informes/1/InfAlbaranCliente.fr3
+++ b/Source/Informes/1/InfAlbaranCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -7,9 +7,9 @@
-
+
-
+
@@ -30,14 +30,14 @@
-
+
-
+
diff --git a/Source/Informes/1/InfContratoCliente.fr3 b/Source/Informes/1/InfContratoCliente.fr3
new file mode 100644
index 0000000..a54d916
--- /dev/null
+++ b/Source/Informes/1/InfContratoCliente.fr3
@@ -0,0 +1,73 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/Informes/1/InfPresupuestoCliente.fr3 b/Source/Informes/1/InfPresupuestoCliente.fr3
new file mode 100644
index 0000000..98ee709
--- /dev/null
+++ b/Source/Informes/1/InfPresupuestoCliente.fr3
@@ -0,0 +1,73 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/Informes/2/InfAlbaranCliente.fr3 b/Source/Informes/2/InfAlbaranCliente.fr3
index fb91a3d..0a48704 100644
--- a/Source/Informes/2/InfAlbaranCliente.fr3
+++ b/Source/Informes/2/InfAlbaranCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -9,14 +9,14 @@
-
+
-
+
@@ -32,14 +32,14 @@
-
+
-
+
diff --git a/Source/Informes/InfContratoCliente.fr3 b/Source/Informes/2/InfContratoCliente.fr3
similarity index 99%
rename from Source/Informes/InfContratoCliente.fr3
rename to Source/Informes/2/InfContratoCliente.fr3
index 7c949c5..ff0846a 100644
--- a/Source/Informes/InfContratoCliente.fr3
+++ b/Source/Informes/2/InfContratoCliente.fr3
@@ -1,19 +1,19 @@
-
+
-
+
-
+
@@ -64,7 +64,7 @@
-
+
diff --git a/Source/Informes/InfPresupuestoCliente.fr3 b/Source/Informes/2/InfPresupuestoCliente.fr3
similarity index 99%
rename from Source/Informes/InfPresupuestoCliente.fr3
rename to Source/Informes/2/InfPresupuestoCliente.fr3
index 29e89b3..eb54b34 100644
--- a/Source/Informes/InfPresupuestoCliente.fr3
+++ b/Source/Informes/2/InfPresupuestoCliente.fr3
@@ -1,19 +1,19 @@
-
+
-
+
-
+
@@ -66,7 +66,7 @@
-
+
diff --git a/Source/Informes/3/InfAlbaranCliente.fr3 b/Source/Informes/3/InfAlbaranCliente.fr3
index 1662f88..279aa4c 100644
--- a/Source/Informes/3/InfAlbaranCliente.fr3
+++ b/Source/Informes/3/InfAlbaranCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -10,27 +10,27 @@
-
+
-
+
-
-
-
-
-
+
+
+
+
+
-
+
@@ -46,7 +46,7 @@
-
+
diff --git a/Source/Informes/3/InfContratoCliente.fr3 b/Source/Informes/3/InfContratoCliente.fr3
new file mode 100644
index 0000000..ff0846a
--- /dev/null
+++ b/Source/Informes/3/InfContratoCliente.fr3
@@ -0,0 +1,75 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/Informes/3/InfPresupuestoCliente.fr3 b/Source/Informes/3/InfPresupuestoCliente.fr3
new file mode 100644
index 0000000..eb54b34
--- /dev/null
+++ b/Source/Informes/3/InfPresupuestoCliente.fr3
@@ -0,0 +1,75 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/Informes/4/InfAlbaranCliente.fr3 b/Source/Informes/4/InfAlbaranCliente.fr3
index 1662f88..b6610fc 100644
--- a/Source/Informes/4/InfAlbaranCliente.fr3
+++ b/Source/Informes/4/InfAlbaranCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -8,29 +8,27 @@
-
-
-
-
-
+
+
+
-
+
-
-
-
-
-
+
+
+
+
+
-
+
@@ -46,7 +44,7 @@
-
+
diff --git a/Source/Informes/4/InfContratoCliente.fr3 b/Source/Informes/4/InfContratoCliente.fr3
new file mode 100644
index 0000000..a54d916
--- /dev/null
+++ b/Source/Informes/4/InfContratoCliente.fr3
@@ -0,0 +1,73 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/Informes/4/InfPresupuestoCliente.fr3 b/Source/Informes/4/InfPresupuestoCliente.fr3
new file mode 100644
index 0000000..a3618c4
--- /dev/null
+++ b/Source/Informes/4/InfPresupuestoCliente.fr3
@@ -0,0 +1,73 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm
index 19f9921..f79b93d 100644
--- a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm
+++ b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm
@@ -39,6 +39,11 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
DataType = datString
Size = 255
end
+ item
+ Name = 'REF_CLIENTE'
+ DataType = datString
+ Size = 255
+ end
item
Name = 'REFERENCIA_CLIENTE'
DataType = datString
@@ -300,31 +305,31 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
SQL =
'SELECT'#10' ALBARANES_CLIENTE.ID,'#10' ALBARANES_CLIENTE.ID_EMPRESA,'#10' ' +
' ALBARANES_CLIENTE.ID_TIENDA,'#10' ALBARANES_CLIENTE.ID_CLIENTE,'#10' ' +
- 'CONTACTOS.NOMBRE,'#10' CONTACTOS.REFERENCIA as REFERENCIA_CLIENTE,'#10 +
- ' CONTACTOS.NIF_CIF,'#10' ALBARANES_CLIENTE.FECHA_ALBARAN,'#10' ALBARA' +
- 'NES_CLIENTE.REFERENCIA,'#10' COALESCE(CONTACTOS_DIRECCIONES.CALLE, ' +
- 'CONTACTOS.CALLE) AS CALLE,'#10' COALESCE(CONTACTOS_DIRECCIONES.POBL' +
- 'ACION, CONTACTOS.POBLACION) AS POBLACION,'#10' COALESCE(CONTACTOS_D' +
- 'IRECCIONES.PROVINCIA, CONTACTOS.PROVINCIA) AS PROVINCIA,'#10' COALE' +
- 'SCE(CONTACTOS_DIRECCIONES.CODIGO_POSTAL, CONTACTOS.CODIGO_POSTAL' +
- ') AS CODIGO_POSTAL,'#10' COALESCE(CONTACTOS_DIRECCIONES.TELEFONO, C' +
- 'ONTACTOS.TELEFONO_1) AS TELEFONO,'#10' COALESCE(CONTACTOS_DIRECCION' +
- 'ES.MOVIL, CONTACTOS.MOVIL_1) AS MOVIL,'#10' ALBARANES_CLIENTE.PERSO' +
- 'NA_CONTACTO,'#10' ALBARANES_CLIENTE.OBSERVACIONES,'#10' ALBARANES_CLIE' +
- 'NTE.IMPORTE_TOTAL,'#10' ALBARANES_CLIENTE.FECHA_PREVISTA_ENVIO,'#10' E' +
- 'MPRESAS.NIF_CIF AS NIF_CIF_EMPRESA,'#10' EMPRESAS.NOMBRE AS NOMBRE_' +
- 'EMPRESA,'#10' EMPRESAS.RAZON_SOCIAL AS RAZON_SOCIAL_EMPRESA,'#10' EMPR' +
- 'ESAS.CALLE AS CALLE_EMPRESA,'#10' EMPRESAS.CODIGO_POSTAL AS CODIGO_' +
- 'POSTAL_EMPRESA,'#10' EMPRESAS.POBLACION AS POBLACION_EMPRESA,'#10' EMP' +
- 'RESAS.PROVINCIA AS PROVINCIA_EMPRESA,'#10' EMPRESAS.TELEFONO_1 AS T' +
- 'ELEFONO_1_EMPRESA,'#10' EMPRESAS.FAX AS FAX_EMPRESA,'#10' EMPRESAS.MOV' +
- 'IL_1 AS MOVIL_1_EMPRESA,'#10' EMPRESAS.EMAIL_1 AS EMAIL_1_EMPRESA,'#10 +
- ' EMPRESAS.PAGINA_WEB AS PAGINA_WEB_EMPRESA'#10'FROM'#10' ALBARANES_CLI' +
- 'ENTE'#10' INNER JOIN EMPRESAS ON (EMPRESAS.ID = ALBARANES_CLIENTE.I' +
- 'D_EMPRESA)'#10' INNER JOIN CONTACTOS ON (CONTACTOS.ID = ALBARANES_C' +
- 'LIENTE.ID_CLIENTE)'#10' LEFT OUTER JOIN CONTACTOS_DIRECCIONES ON (C' +
- 'ONTACTOS_DIRECCIONES.ID = ALBARANES_CLIENTE.ID_DIRECCION)'#10'WHERE ' +
- 'ALBARANES_CLIENTE.ID = :ID'#10
+ 'CONTACTOS.NOMBRE,'#10' CONTACTOS.REFERENCIA as REF_CLIENTE,'#10' ALBAR' +
+ 'ANES_CLIENTE.REFERENCIA_CLIENTE,'#10' CONTACTOS.NIF_CIF,'#10' ALBARANE' +
+ 'S_CLIENTE.FECHA_ALBARAN,'#10' ALBARANES_CLIENTE.REFERENCIA,'#10' COALE' +
+ 'SCE(CONTACTOS_DIRECCIONES.CALLE, CONTACTOS.CALLE) AS CALLE,'#10' CO' +
+ 'ALESCE(CONTACTOS_DIRECCIONES.POBLACION, CONTACTOS.POBLACION) AS ' +
+ 'POBLACION,'#10' COALESCE(CONTACTOS_DIRECCIONES.PROVINCIA, CONTACTOS' +
+ '.PROVINCIA) AS PROVINCIA,'#10' COALESCE(CONTACTOS_DIRECCIONES.CODIG' +
+ 'O_POSTAL, CONTACTOS.CODIGO_POSTAL) AS CODIGO_POSTAL,'#10' COALESCE(' +
+ 'CONTACTOS_DIRECCIONES.TELEFONO, CONTACTOS.TELEFONO_1) AS TELEFON' +
+ 'O,'#10' COALESCE(CONTACTOS_DIRECCIONES.MOVIL, CONTACTOS.MOVIL_1) AS' +
+ ' MOVIL,'#10' ALBARANES_CLIENTE.PERSONA_CONTACTO,'#10' ALBARANES_CLIENT' +
+ 'E.OBSERVACIONES,'#10' ALBARANES_CLIENTE.IMPORTE_TOTAL,'#10' ALBARANES_' +
+ 'CLIENTE.FECHA_PREVISTA_ENVIO,'#10' EMPRESAS.NIF_CIF AS NIF_CIF_EMPR' +
+ 'ESA,'#10' EMPRESAS.NOMBRE AS NOMBRE_EMPRESA,'#10' EMPRESAS.RAZON_SOCIA' +
+ 'L AS RAZON_SOCIAL_EMPRESA,'#10' EMPRESAS.CALLE AS CALLE_EMPRESA,'#10' ' +
+ 'EMPRESAS.CODIGO_POSTAL AS CODIGO_POSTAL_EMPRESA,'#10' EMPRESAS.POBL' +
+ 'ACION AS POBLACION_EMPRESA,'#10' EMPRESAS.PROVINCIA AS PROVINCIA_EM' +
+ 'PRESA,'#10' EMPRESAS.TELEFONO_1 AS TELEFONO_1_EMPRESA,'#10' EMPRESAS.F' +
+ 'AX AS FAX_EMPRESA,'#10' EMPRESAS.MOVIL_1 AS MOVIL_1_EMPRESA,'#10' EMPR' +
+ 'ESAS.EMAIL_1 AS EMAIL_1_EMPRESA,'#10' EMPRESAS.PAGINA_WEB AS PAGINA' +
+ '_WEB_EMPRESA'#10'FROM'#10' ALBARANES_CLIENTE'#10' INNER JOIN EMPRESAS ON (' +
+ 'EMPRESAS.ID = ALBARANES_CLIENTE.ID_EMPRESA)'#10' INNER JOIN CONTACT' +
+ 'OS ON (CONTACTOS.ID = ALBARANES_CLIENTE.ID_CLIENTE)'#10' LEFT OUTER' +
+ ' JOIN CONTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID = ALBAR' +
+ 'ANES_CLIENTE.ID_DIRECCION)'#10'WHERE ALBARANES_CLIENTE.ID = :ID'#10
StatementType = stSQL
ColumnMappings = <
item
@@ -452,6 +457,11 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
DatasetField = 'MOVIL'
TableField = ''
SQLOrigin = 'MOVIL'
+ end
+ item
+ DatasetField = 'REF_CLIENTE'
+ TableField = ''
+ SQLOrigin = 'REF_CLIENTE'
end>
end>
Name = 'Informe_Cabecera'
@@ -477,6 +487,11 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
DataType = datString
Size = 255
end
+ item
+ Name = 'REF_CLIENTE'
+ DataType = datString
+ Size = 255
+ end
item
Name = 'REFERENCIA_CLIENTE'
DataType = datString
diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm
index b7c8cf5..90c5697 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm
+++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm
@@ -6,12 +6,13 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
ClientWidth = 787
OnClose = CustomEditorClose
ExplicitWidth = 795
- ExplicitHeight = 662
+ ExplicitHeight = 666
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 787
Caption = 'Nuevo albar'#225'n de cliente'
+ ExplicitTop = 52
ExplicitWidth = 787
inherited Image1: TImage
Left = 760
@@ -129,7 +130,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Width = 787
ExplicitWidth = 787
inherited tbxMain: TTBXToolbar
- ExplicitWidth = 488
+ ExplicitWidth = 551
inherited TBXItem2: TTBXItem
Visible = False
end
@@ -156,16 +157,17 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
end
inherited pgPaginas: TPageControl
Width = 781
- Height = 424
+ Height = 333
TabOrder = 1
OnChanging = pgPaginasChanging
+ ExplicitTop = 112
ExplicitWidth = 781
- ExplicitHeight = 424
+ ExplicitHeight = 333
inherited pagGeneral: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
ExplicitWidth = 773
- ExplicitHeight = 396
+ ExplicitHeight = 305
end
object pagContenido: TTabSheet
Caption = 'Contenido'
@@ -174,7 +176,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Left = 0
Top = 0
Width = 773
- Height = 396
+ Height = 305
Align = alClient
BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET
@@ -187,22 +189,22 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
TabOrder = 0
ReadOnly = False
ExplicitWidth = 773
- ExplicitHeight = 396
+ ExplicitHeight = 305
inherited ToolBar1: TToolBar
Width = 773
ExplicitWidth = 773
end
inherited cxGrid: TcxGrid
Width = 773
- Height = 324
+ Height = 233
ExplicitWidth = 773
- ExplicitHeight = 300
+ ExplicitHeight = 321
end
inherited TBXDock1: TTBXDock
Width = 773
ExplicitWidth = 773
inherited TBXToolbar1: TTBXToolbar
- ExplicitWidth = 548
+ ExplicitWidth = 622
end
end
end
@@ -214,7 +216,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Left = 0
Top = 0
Width = 773
- Height = 396
+ Height = 305
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@@ -225,7 +227,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
TabOrder = 0
ReadOnly = False
ExplicitWidth = 773
- ExplicitHeight = 396
+ ExplicitHeight = 305
inherited pnlSup: TPanel
Width = 773
ExplicitWidth = 773
@@ -235,13 +237,13 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
end
inherited GroupBox1: TGroupBox
Width = 773
- Height = 368
+ Height = 277
ExplicitWidth = 773
- ExplicitHeight = 368
+ ExplicitHeight = 277
inherited eIncidencias: TcxDBMemo
ExplicitWidth = 769
- ExplicitHeight = 351
- Height = 351
+ ExplicitHeight = 260
+ Height = 260
Width = 769
end
end
@@ -250,9 +252,9 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
end
inline frViewTotales1: TfrViewTotales [4]
Left = 0
- Top = 536
+ Top = 448
Width = 787
- Height = 73
+ Height = 161
Align = alBottom
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@@ -262,31 +264,31 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
ParentFont = False
TabOrder = 5
ReadOnly = False
- ExplicitTop = 536
+ ExplicitTop = 448
ExplicitWidth = 787
- ExplicitHeight = 73
+ ExplicitHeight = 161
inherited dxLayoutControl1: TdxLayoutControl
Width = 787
- Height = 73
+ Height = 161
Align = alClient
LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 787
- ExplicitHeight = 73
+ ExplicitHeight = 161
inherited Bevel3: TBevel
- Left = 378
+ Left = 377
Top = 11
Width = 7
Height = 54
- ExplicitLeft = 378
+ ExplicitLeft = 377
ExplicitTop = 11
ExplicitWidth = 7
ExplicitHeight = 54
end
inherited Bevel4: TBevel
- Left = 494
+ Left = 493
Top = 53
Width = 210
- ExplicitLeft = 494
+ ExplicitLeft = 493
ExplicitTop = 53
ExplicitWidth = 210
end
@@ -300,20 +302,20 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Width = 188
end
inherited ImporteIVA: TcxDBCurrencyEdit
- Left = 565
+ Left = 564
Top = 88
DataBinding.DataField = ''
Style.IsFontAssigned = True
- ExplicitLeft = 565
+ ExplicitLeft = 564
ExplicitTop = 88
ExplicitWidth = 182
Width = 182
end
inherited ImporteTotal: TcxDBCurrencyEdit
- Left = 495
+ Left = 494
Top = 169
Style.IsFontAssigned = True
- ExplicitLeft = 495
+ ExplicitLeft = 494
ExplicitTop = 169
ExplicitWidth = 252
Width = 252
@@ -326,52 +328,52 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
ExplicitTop = 38
end
inherited edtIVA: TcxDBSpinEdit
- Left = 494
+ Left = 493
Top = 88
DataBinding.DataField = ''
Style.IsFontAssigned = True
- ExplicitLeft = 494
+ ExplicitLeft = 493
ExplicitTop = 88
end
inherited ImporteBase: TcxDBCurrencyEdit
- Left = 494
+ Left = 493
Top = 11
Style.IsFontAssigned = True
- ExplicitLeft = 494
+ ExplicitLeft = 493
ExplicitTop = 11
ExplicitWidth = 253
Width = 253
end
inherited edtRE: TcxDBSpinEdit
- Left = 494
+ Left = 493
Top = 142
DataBinding.DataField = ''
Style.IsFontAssigned = True
- ExplicitLeft = 494
+ ExplicitLeft = 493
ExplicitTop = 142
end
inherited edtIRPF: TcxDBSpinEdit
- Left = 494
+ Left = 493
Top = 115
Style.IsFontAssigned = True
- ExplicitLeft = 494
+ ExplicitLeft = 493
ExplicitTop = 115
end
inherited ImporteRE: TcxDBCurrencyEdit
- Left = 565
+ Left = 564
Top = 142
DataBinding.DataField = ''
Style.IsFontAssigned = True
- ExplicitLeft = 565
+ ExplicitLeft = 564
ExplicitTop = 142
ExplicitWidth = 182
Width = 182
end
inherited ImporteIRPF: TcxDBCurrencyEdit
- Left = 565
+ Left = 564
Top = 115
Style.IsFontAssigned = True
- ExplicitLeft = 565
+ ExplicitLeft = 564
ExplicitTop = 115
ExplicitWidth = 56
Width = 56
@@ -406,9 +408,9 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Width = 121
end
inherited bTiposIVA: TButton
- Left = 230
+ Left = 229
Top = 92
- ExplicitLeft = 230
+ ExplicitLeft = 229
ExplicitTop = 92
end
inherited cbRecargoEquivalencia: TcxDBCheckBox
@@ -431,12 +433,6 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Visible = False
end
end
- inherited dxLayoutControl1Group6: TdxLayoutGroup
- Visible = False
- end
- inherited dxLayoutControl1Item16: TdxLayoutItem
- Visible = False
- end
end
inherited dxLayoutControl1Group5: TdxLayoutGroup
inherited dxLayoutControl1Group3: TdxLayoutGroup
@@ -445,15 +441,6 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Visible = False
end
end
- inherited dxLayoutControl1Group9: TdxLayoutGroup
- Visible = False
- end
- inherited dxLayoutControl1Group8: TdxLayoutGroup
- Visible = False
- end
- inherited dxLayoutControl1Item3: TdxLayoutItem
- Visible = False
- end
end
end
end
@@ -462,6 +449,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
end
inherited PnlComentario: TPanel [5]
Width = 787
+ ExplicitTop = 79
ExplicitWidth = 787
inherited lbComentario: TLabel
Width = 777
diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm
index 71422af..3247703 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm
+++ b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm
@@ -1,25 +1,26 @@
inherited frViewAlbaranCliente: TfrViewAlbaranCliente
- Width = 825
+ Width = 851
Height = 512
OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy
- ExplicitWidth = 825
+ ExplicitWidth = 851
ExplicitHeight = 512
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
- Width = 825
+ Width = 851
Height = 512
Align = alClient
ParentBackground = True
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
+ ExplicitWidth = 825
DesignSize = (
- 825
+ 851
512)
object Label1: TLabel
- Left = 344
+ Left = 353
Top = 622
Width = 299
Height = 26
@@ -81,7 +82,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 284
end
inline frViewClienteAlbaran: TfrViewDatosYSeleccionClienteAlbaran
- Left = 344
+ Left = 353
Top = 28
Width = 442
Height = 221
@@ -93,7 +94,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
ParentFont = False
TabOrder = 10
ReadOnly = False
- ExplicitLeft = 344
+ ExplicitLeft = 353
ExplicitTop = 28
ExplicitWidth = 442
ExplicitHeight = 221
@@ -111,24 +112,24 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 103
end
inherited bVerFichaCliente: TBitBtn
- Left = 240
- ExplicitLeft = 240
+ Left = 255
+ ExplicitLeft = 255
end
inherited edtDireccion: TcxMemo
ExplicitWidth = 437
Width = 437
end
inherited bElegirDireccion: TButton
- Left = 409
- ExplicitLeft = 409
+ Left = 424
+ ExplicitLeft = 424
end
inherited edtTelefonos: TcxTextEdit
ExplicitWidth = 193
Width = 193
end
inherited edtReferencia: TcxDBTextEdit
- Left = 282
- ExplicitLeft = 282
+ Left = 289
+ ExplicitLeft = 289
ExplicitWidth = 103
Width = 103
end
@@ -141,7 +142,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end
end
object eCalle: TcxDBTextEdit
- Left = 438
+ Left = 447
Top = 396
DataBinding.DataField = 'CALLE'
DataBinding.DataSource = DADataSource
@@ -160,7 +161,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 284
end
object ePoblacion: TcxDBTextEdit
- Left = 438
+ Left = 447
Top = 423
DataBinding.DataField = 'POBLACION'
DataBinding.DataSource = DADataSource
@@ -179,7 +180,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 61
end
object eCodigoPostal: TcxDBTextEdit
- Left = 721
+ Left = 745
Top = 423
DataBinding.DataField = 'CODIGO_POSTAL'
DataBinding.DataSource = DADataSource
@@ -198,7 +199,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 65
end
object eProvincia: TcxDBTextEdit
- Left = 438
+ Left = 447
Top = 450
DataBinding.DataField = 'PROVINCIA'
DataBinding.DataSource = DADataSource
@@ -217,7 +218,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 406
end
object ePersonaContacto: TcxDBTextEdit
- Left = 438
+ Left = 447
Top = 477
DataBinding.DataField = 'PERSONA_CONTACTO'
DataBinding.DataSource = DADataSource
@@ -237,7 +238,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 284
end
object eTlfTrabajo: TcxDBTextEdit
- Left = 438
+ Left = 447
Top = 504
DataBinding.DataField = 'TELEFONO'
DataBinding.DataSource = DADataSource
@@ -256,7 +257,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 284
end
object bElegirDireccion: TBitBtn
- Left = 614
+ Left = 638
Top = 531
Width = 172
Height = 23
@@ -265,7 +266,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
TabOrder = 20
end
object Button1: TButton
- Left = 182
+ Left = 191
Top = 138
Width = 132
Height = 23
@@ -327,7 +328,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 146
end
object bFormasPago: TButton
- Left = 182
+ Left = 191
Top = 109
Width = 132
Height = 23
@@ -336,7 +337,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
OnClick = bFormasPagoClick
end
object eFechaRecepcion: TcxDBDateEdit
- Left = 478
+ Left = 487
Top = 339
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_RECEPCION'
@@ -361,7 +362,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 239
end
object cbConAlmacen: TCheckBox
- Left = 354
+ Left = 363
Top = 590
Width = 179
Height = 21
@@ -370,7 +371,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
OnClick = cbConAlmacenClick
end
object cbAlmacen: TcxDBLookupComboBox
- Left = 539
+ Left = 548
Top = 590
DataBinding.DataField = 'ID_ALMACEN'
DataBinding.DataSource = DADataSource
@@ -426,7 +427,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 284
end
object eFechaPrevista: TcxDBDateEdit
- Left = 478
+ Left = 487
Top = 285
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_PREVISTA_ENVIO'
@@ -458,12 +459,10 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA_CLIENTE'
DataBinding.DataSource = DADataSource
- Enabled = False
- Properties.ReadOnly = False
Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
- Style.Color = clInfoBk
+ Style.Color = clWindow
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
@@ -479,7 +478,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 284
end
object eFechaEnvio: TcxDBDateEdit
- Left = 478
+ Left = 487
Top = 312
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_ENVIO'
@@ -574,8 +573,6 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end
object dxLayoutControl1Item23: TdxLayoutItem
Caption = 'Ref. cliente:'
- Enabled = False
- Visible = False
Control = eRefCliente
ControlOptions.ShowBorder = False
end
diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm
index 9d851db..e7d51fe 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm
+++ b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm
@@ -71,6 +71,10 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
BestFitMaxWidth = 45
Width = 57
end
+ object cxGridViewREFERENCIA_CLIENTE: TcxGridDBColumn
+ Caption = 'Ref. Cliente'
+ DataBinding.FieldName = 'REFERENCIA_CLIENTE'
+ end
object cxGridViewSITUACION: TcxGridDBColumn
DataBinding.FieldName = 'SITUACION'
BestFitMaxWidth = 45
diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas
index bb90a0d..3e029de 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas
+++ b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas
@@ -59,6 +59,7 @@ type
cxGridViewFECHA_PREVISTA_ENVIO: TcxGridDBColumn;
cxStyleRETRASADOS: TcxStyle;
cxGridViewTIENDA: TcxGridDBColumn;
+ cxGridViewREFERENCIA_CLIENTE: TcxGridDBColumn;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
TcxGridLevel);
procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView;
diff --git a/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas b/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas
index dc896d2..ba41be2 100644
--- a/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas
+++ b/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas
@@ -874,17 +874,25 @@ end;
procedure TContratosClienteController.FiltrarEmpresa(AContrato: IBizContratoCliente);
var
- Condicion: TDAWhereExpression;
+ i: Integer;
+ Condicion, Condicion2: TDAWhereExpression;
begin
if AContrato.DataTable.Active then
AContrato.DataTable.Active := False;
- // Filtrar los contratos actuales por empresa
+ // Filtrar los presupuestos actuales por empresa
with AContrato.DataTable.DynamicWhere do
begin
// (ID_EMPRESA >= ID)
Condicion := NewBinaryExpression(NewField('', fld_ContratosClienteID_EMPRESA), NewConstant(AppFactuGES.EmpresaActiva.ID, datInteger), dboEqual);
+ for i:= 0 to AppFactuGES.EmpresaActiva.EmpresasContratosComunes.Count - 1 do
+ begin
+ // (ID_EMPRESA >= ID)
+ Condicion2 := NewBinaryExpression(NewField('', fld_ContratosClienteID_EMPRESA), NewConstant(AppFactuGES.EmpresaActiva.EmpresasContratosComunes.Strings[i], datString), dboEqual);
+ Condicion := NewBinaryExpression(Condicion, Condicion2, dboOR);
+ end;
+
if IsEmpty then
Expression := Condicion
else
diff --git a/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm b/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm
index db48107..2e86867 100644
--- a/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm
+++ b/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm
@@ -320,6 +320,11 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
Size = 255
DisplayLabel = 'Tipo'
DictionaryEntry = 'ContratosCliente_TIPO_CONTRATO'
+ end
+ item
+ Name = 'REFERENCIA_CLIENTE'
+ DataType = datString
+ Size = 255
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
diff --git a/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas b/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas
index 8b8c938..dcd1be9 100644
--- a/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas
+++ b/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas
@@ -3,19 +3,19 @@ unit schContratosClienteClient_Intf;
interface
uses
- Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
+ Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
- RID_Valores = '{1DBD72A0-582B-4F32-8455-A45B6191054E}';
- RID_Propiedades = '{8AAD78E4-F1A6-4878-B140-73DDC81C2BE0}';
- RID_ListaAnosContratos = '{FB083C00-73FE-4B12-A941-B572555FF37E}';
- RID_ContratosClienteBeneficios = '{E24213CE-E549-4596-96B0-7E30EA157262}';
- RID_ContratosCliente = '{ECF02D70-7B0A-412D-93F8-E3E58A79B5D3}';
- RID_TiposCapitulos = '{71A4C5A8-136B-419C-8766-73E324C003E6}';
- RID_ContratosCliente_Detalles = '{60F97EEA-78E8-47C1-BB87-6962689FBE44}';
+ RID_Valores = '{48C5F21C-CB4D-4CFF-8F94-A1689B8A6F6A}';
+ RID_Propiedades = '{785C1D59-7EA3-4BFD-8C1F-301A25C59E51}';
+ RID_ListaAnosContratos = '{DD97448A-A305-401E-B6E0-856207BC471F}';
+ RID_ContratosClienteBeneficios = '{670B05E3-9404-46E0-AB6C-9DE0712013DD}';
+ RID_ContratosCliente = '{84D4574F-587F-4D70-A242-18B327F199D8}';
+ RID_TiposCapitulos = '{09B06749-719A-4B58-96B5-0B0AB2848D61}';
+ RID_ContratosCliente_Detalles = '{8CDC36E9-9F1D-4CA1-8414-19CAB69BE649}';
{ Data table names }
nme_Valores = 'Valores';
@@ -130,6 +130,7 @@ const
fld_ContratosClienteVENDEDOR = 'VENDEDOR';
fld_ContratosClientePERSONA_CONTACTO = 'PERSONA_CONTACTO';
fld_ContratosClienteTIPO_CONTRATO = 'TIPO_CONTRATO';
+ fld_ContratosClienteREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE';
{ ContratosCliente field indexes }
idx_ContratosClienteID = 0;
@@ -177,6 +178,7 @@ const
idx_ContratosClienteVENDEDOR = 42;
idx_ContratosClientePERSONA_CONTACTO = 43;
idx_ContratosClienteTIPO_CONTRATO = 44;
+ idx_ContratosClienteREFERENCIA_CLIENTE = 45;
{ TiposCapitulos fields }
fld_TiposCapitulosID = 'ID';
@@ -233,7 +235,7 @@ const
type
{ IValores }
IValores = interface(IDAStronglyTypedDataTable)
- ['{D86FAABE-B20B-48BE-B160-8767CEA84C3C}']
+ ['{01FF5BDE-97A6-44F3-8450-05A5C0C110FA}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -259,7 +261,7 @@ type
end;
{ TValoresDataTableRules }
- TValoresDataTableRules = class(TIntfObjectDADataTableRules, IValores)
+ TValoresDataTableRules = class(TDADataTableRules, IValores)
private
protected
{ Property getters and setters }
@@ -292,7 +294,7 @@ type
{ IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable)
- ['{5AAF3E21-FEBD-4211-AD79-08B1438EF95D}']
+ ['{3523B802-0EB2-46D4-A045-082CE868881C}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -318,7 +320,7 @@ type
end;
{ TPropiedadesDataTableRules }
- TPropiedadesDataTableRules = class(TIntfObjectDADataTableRules, IPropiedades)
+ TPropiedadesDataTableRules = class(TDADataTableRules, IPropiedades)
private
protected
{ Property getters and setters }
@@ -351,7 +353,7 @@ type
{ IListaAnosContratos }
IListaAnosContratos = interface(IDAStronglyTypedDataTable)
- ['{397A8CFD-9592-49B7-997B-A206E9159B76}']
+ ['{65EAAFC7-0128-4505-A7E6-2479CB33B7B4}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@@ -365,7 +367,7 @@ type
end;
{ TListaAnosContratosDataTableRules }
- TListaAnosContratosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosContratos)
+ TListaAnosContratosDataTableRules = class(TDADataTableRules, IListaAnosContratos)
private
protected
{ Property getters and setters }
@@ -386,7 +388,7 @@ type
{ IContratosClienteBeneficios }
IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable)
- ['{B7C19066-8DBC-473F-A005-CA6CECB8244A}']
+ ['{43C1EDD7-AAC2-4DA4-9AF4-E8CCCADD7F1D}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -478,7 +480,7 @@ type
end;
{ TContratosClienteBeneficiosDataTableRules }
- TContratosClienteBeneficiosDataTableRules = class(TIntfObjectDADataTableRules, IContratosClienteBeneficios)
+ TContratosClienteBeneficiosDataTableRules = class(TDADataTableRules, IContratosClienteBeneficios)
private
protected
{ Property getters and setters }
@@ -577,7 +579,7 @@ type
{ IContratosCliente }
IContratosCliente = interface(IDAStronglyTypedDataTable)
- ['{F9EC2443-6943-4368-85E3-CA5C57103A1A}']
+ ['{F2CA3305-5D91-4993-B9C0-294615C6EBF0}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -755,6 +757,10 @@ type
procedure SetTIPO_CONTRATOValue(const aValue: String);
function GetTIPO_CONTRATOIsNull: Boolean;
procedure SetTIPO_CONTRATOIsNull(const aValue: Boolean);
+ function GetREFERENCIA_CLIENTEValue: String;
+ procedure SetREFERENCIA_CLIENTEValue(const aValue: String);
+ function GetREFERENCIA_CLIENTEIsNull: Boolean;
+ procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean);
{ Properties }
@@ -848,10 +854,12 @@ type
property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
property TIPO_CONTRATO: String read GetTIPO_CONTRATOValue write SetTIPO_CONTRATOValue;
property TIPO_CONTRATOIsNull: Boolean read GetTIPO_CONTRATOIsNull write SetTIPO_CONTRATOIsNull;
+ property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
+ property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
end;
{ TContratosClienteDataTableRules }
- TContratosClienteDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente)
+ TContratosClienteDataTableRules = class(TDADataTableRules, IContratosCliente)
private
f_FORMA_PAGO: IROStrings;
f_PLAZO_ENTREGA: IROStrings;
@@ -1039,6 +1047,10 @@ type
procedure SetTIPO_CONTRATOValue(const aValue: String); virtual;
function GetTIPO_CONTRATOIsNull: Boolean; virtual;
procedure SetTIPO_CONTRATOIsNull(const aValue: Boolean); virtual;
+ function GetREFERENCIA_CLIENTEValue: String; virtual;
+ procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual;
+ function GetREFERENCIA_CLIENTEIsNull: Boolean; virtual;
+ procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@@ -1131,6 +1143,8 @@ type
property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
property TIPO_CONTRATO: String read GetTIPO_CONTRATOValue write SetTIPO_CONTRATOValue;
property TIPO_CONTRATOIsNull: Boolean read GetTIPO_CONTRATOIsNull write SetTIPO_CONTRATOIsNull;
+ property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
+ property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@@ -1143,7 +1157,7 @@ type
}
{ ITiposCapitulos }
ITiposCapitulos = interface(IDAStronglyTypedDataTable)
- ['{81A688E8-AA17-41EE-A1D6-81479918BBF1}']
+ ['{DFC9723A-23C2-4736-A3FE-E2F8F2CF1E92}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -1187,7 +1201,7 @@ type
end;
{ TTiposCapitulosDataTableRules }
- TTiposCapitulosDataTableRules = class(TIntfObjectDADataTableRules, ITiposCapitulos)
+ TTiposCapitulosDataTableRules = class(TDADataTableRules, ITiposCapitulos)
private
protected
{ Property getters and setters }
@@ -1238,7 +1252,7 @@ type
{ IContratosCliente_Detalles }
IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
- ['{898E740D-B47B-4359-A144-870FF2217808}']
+ ['{0764F573-7ABD-416B-BD7F-1DF9BA0059AE}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -1342,7 +1356,7 @@ type
end;
{ TContratosCliente_DetallesDataTableRules }
- TContratosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente_Detalles)
+ TContratosCliente_DetallesDataTableRules = class(TDADataTableRules, IContratosCliente_Detalles)
private
protected
{ Property getters and setters }
@@ -2922,6 +2936,27 @@ begin
DataTable.Fields[idx_ContratosClienteTIPO_CONTRATO].AsVariant := Null;
end;
+function TContratosClienteDataTableRules.GetREFERENCIA_CLIENTEValue: String;
+begin
+ result := DataTable.Fields[idx_ContratosClienteREFERENCIA_CLIENTE].AsString;
+end;
+
+procedure TContratosClienteDataTableRules.SetREFERENCIA_CLIENTEValue(const aValue: String);
+begin
+ DataTable.Fields[idx_ContratosClienteREFERENCIA_CLIENTE].AsString := aValue;
+end;
+
+function TContratosClienteDataTableRules.GetREFERENCIA_CLIENTEIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ContratosClienteREFERENCIA_CLIENTE].IsNull;
+end;
+
+procedure TContratosClienteDataTableRules.SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ContratosClienteREFERENCIA_CLIENTE].AsVariant := Null;
+end;
+
{ TTiposCapitulosDataTableRules }
constructor TTiposCapitulosDataTableRules.Create(aDataTable: TDADataTable);
diff --git a/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas b/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas
index cbaa5e7..44a222e 100644
--- a/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas
+++ b/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas
@@ -9,18 +9,18 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
- RID_ValoresDelta = '{9CE22F1E-3F2B-4AD5-843D-F5128DD7C5F1}';
- RID_PropiedadesDelta = '{0F51AF81-3A0A-4867-8ABB-D63B99BBF522}';
- RID_ListaAnosContratosDelta = '{F03E531D-9A34-49BC-910B-EBFA48C93D8B}';
- RID_ContratosClienteBeneficiosDelta = '{2926FE0C-6BF7-4326-87A6-70303D69EB58}';
- RID_ContratosClienteDelta = '{1C1605F5-61F9-41A2-BDB3-B29C6B035DB0}';
- RID_TiposCapitulosDelta = '{97A487E0-3FD8-4B85-818B-55EA15B54CA3}';
- RID_ContratosCliente_DetallesDelta = '{8C9149BF-C3E8-47F8-A26F-A45942CA736B}';
+ RID_ValoresDelta = '{D7B7A752-F645-440A-89BD-638862C7819A}';
+ RID_PropiedadesDelta = '{CF729826-631C-4E85-9467-924596E8706B}';
+ RID_ListaAnosContratosDelta = '{8DBE8D17-4504-4F6A-81CC-3A9BBB221DBA}';
+ RID_ContratosClienteBeneficiosDelta = '{00DC7FCA-CE1A-41C2-ACB2-DA5ED5EBFA14}';
+ RID_ContratosClienteDelta = '{28AAF6A0-991C-4D31-950A-9BD8168FB4C5}';
+ RID_TiposCapitulosDelta = '{5000E4FA-010F-4828-A493-3E642B69A10A}';
+ RID_ContratosCliente_DetallesDelta = '{318EAB4A-8BBB-4BCF-92FD-8CB1B40E1956}';
type
{ IValoresDelta }
IValoresDelta = interface(IValores)
- ['{9CE22F1E-3F2B-4AD5-843D-F5128DD7C5F1}']
+ ['{D7B7A752-F645-440A-89BD-638862C7819A}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PROPIEDADValue : Integer;
@@ -78,7 +78,7 @@ type
{ IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades)
- ['{0F51AF81-3A0A-4867-8ABB-D63B99BBF522}']
+ ['{CF729826-631C-4E85-9467-924596E8706B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@@ -136,7 +136,7 @@ type
{ IListaAnosContratosDelta }
IListaAnosContratosDelta = interface(IListaAnosContratos)
- ['{F03E531D-9A34-49BC-910B-EBFA48C93D8B}']
+ ['{8DBE8D17-4504-4F6A-81CC-3A9BBB221DBA}']
{ Property getters and setters }
function GetOldANOValue : String;
@@ -170,7 +170,7 @@ type
{ IContratosClienteBeneficiosDelta }
IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios)
- ['{2926FE0C-6BF7-4326-87A6-70303D69EB58}']
+ ['{00DC7FCA-CE1A-41C2-ACB2-DA5ED5EBFA14}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldREFERENCIAValue : String;
@@ -360,7 +360,7 @@ type
{ IContratosClienteDelta }
IContratosClienteDelta = interface(IContratosCliente)
- ['{1C1605F5-61F9-41A2-BDB3-B29C6B035DB0}']
+ ['{28AAF6A0-991C-4D31-950A-9BD8168FB4C5}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -407,6 +407,7 @@ type
function GetOldVENDEDORValue : String;
function GetOldPERSONA_CONTACTOValue : String;
function GetOldTIPO_CONTRATOValue : String;
+ function GetOldREFERENCIA_CLIENTEValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
@@ -454,6 +455,7 @@ type
property OldVENDEDOR : String read GetOldVENDEDORValue;
property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
property OldTIPO_CONTRATO : String read GetOldTIPO_CONTRATOValue;
+ property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
end;
{ TContratosClienteBusinessProcessorRules }
@@ -735,6 +737,12 @@ type
function GetOldTIPO_CONTRATOIsNull: Boolean; virtual;
procedure SetTIPO_CONTRATOValue(const aValue: String); virtual;
procedure SetTIPO_CONTRATOIsNull(const aValue: Boolean); virtual;
+ function GetREFERENCIA_CLIENTEValue: String; virtual;
+ function GetREFERENCIA_CLIENTEIsNull: Boolean; virtual;
+ function GetOldREFERENCIA_CLIENTEValue: String; virtual;
+ function GetOldREFERENCIA_CLIENTEIsNull: Boolean; virtual;
+ procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual;
+ procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@@ -917,6 +925,10 @@ type
property TIPO_CONTRATOIsNull : Boolean read GetTIPO_CONTRATOIsNull write SetTIPO_CONTRATOIsNull;
property OldTIPO_CONTRATO : String read GetOldTIPO_CONTRATOValue;
property OldTIPO_CONTRATOIsNull : Boolean read GetOldTIPO_CONTRATOIsNull;
+ property REFERENCIA_CLIENTE : String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
+ property REFERENCIA_CLIENTEIsNull : Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
+ property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
+ property OldREFERENCIA_CLIENTEIsNull : Boolean read GetOldREFERENCIA_CLIENTEIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -926,7 +938,7 @@ type
{ ITiposCapitulosDelta }
ITiposCapitulosDelta = interface(ITiposCapitulos)
- ['{97A487E0-3FD8-4B85-818B-55EA15B54CA3}']
+ ['{5000E4FA-010F-4828-A493-3E642B69A10A}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer;
@@ -1020,7 +1032,7 @@ type
{ IContratosCliente_DetallesDelta }
IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles)
- ['{8C9149BF-C3E8-47F8-A26F-A45942CA736B}']
+ ['{318EAB4A-8BBB-4BCF-92FD-8CB1B40E1956}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTRATOValue : Integer;
@@ -3368,6 +3380,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteTIPO_CONTRATO] := Null;
end;
+function TContratosClienteBusinessProcessorRules.GetREFERENCIA_CLIENTEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteREFERENCIA_CLIENTE];
+end;
+
+function TContratosClienteBusinessProcessorRules.GetREFERENCIA_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteREFERENCIA_CLIENTE]);
+end;
+
+function TContratosClienteBusinessProcessorRules.GetOldREFERENCIA_CLIENTEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteREFERENCIA_CLIENTE];
+end;
+
+function TContratosClienteBusinessProcessorRules.GetOldREFERENCIA_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteREFERENCIA_CLIENTE]);
+end;
+
+procedure TContratosClienteBusinessProcessorRules.SetREFERENCIA_CLIENTEValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteREFERENCIA_CLIENTE] := aValue;
+end;
+
+procedure TContratosClienteBusinessProcessorRules.SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteREFERENCIA_CLIENTE] := Null;
+end;
+
{ TTiposCapitulosBusinessProcessorRules }
constructor TTiposCapitulosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
diff --git a/Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.dfm b/Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.dfm
index 33ad321..3a2ce5d 100644
--- a/Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.dfm
+++ b/Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.dfm
@@ -214,22 +214,22 @@ object RptContratosCliente: TRptContratosCliente
SQL =
'SELECT'#10' V_CONTRATOS_CLIENTE.ID, V_CONTRATOS_CLIENTE.ID_EMPRES' +
'A,'#10' V_CONTRATOS_CLIENTE.FECHA_CONTRATO,'#10' V_CONTRATOS_CLIEN' +
- 'TE.REFERENCIA,'#10#10' V_CONTRATOS_CLIENTE.FORMA_PAGO,'#10' V_CONTRA' +
- 'TOS_CLIENTE.PLAZO_ENTREGA,'#10' V_CONTRATOS_CLIENTE.OBSERVACIONES' +
- ','#10#10' V_CONTRATOS_CLIENTE.IMPORTE_NETO, V_CONTRATOS_CLIENTE.IMP' +
- 'ORTE_PORTE,'#10' V_CONTRATOS_CLIENTE.DESCUENTO, V_CONTRATOS_CLIEN' +
- 'TE.IMPORTE_DESCUENTO,'#10' V_CONTRATOS_CLIENTE.BASE_IMPONIBLE, V_' +
- 'CONTRATOS_CLIENTE.IVA,'#10' V_CONTRATOS_CLIENTE.RE, V_CONTRATOS_C' +
- 'LIENTE.IMPORTE_RE,'#10' V_CONTRATOS_CLIENTE.ID_CLIENTE,'#10' V_CON' +
- 'TRATOS_CLIENTE.REF_CLIENTE,'#10' V_CONTRATOS_CLIENTE.NIF_CIF,'#10' ' +
- ' 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' +
- '.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
+ 'TE.REFERENCIA,'#10' V_CONTRATOS_CLIENTE.REFERENCIA_CLIENTE,'#10' '#10 +
+ ' V_CONTRATOS_CLIENTE.FORMA_PAGO,'#10' V_CONTRATOS_CLIENTE.PLAZ' +
+ 'O_ENTREGA,'#10' V_CONTRATOS_CLIENTE.OBSERVACIONES,'#10#10' V_CONTRAT' +
+ 'OS_CLIENTE.IMPORTE_NETO, V_CONTRATOS_CLIENTE.IMPORTE_PORTE,'#10' ' +
+ 'V_CONTRATOS_CLIENTE.DESCUENTO, V_CONTRATOS_CLIENTE.IMPORTE_DESCU' +
+ 'ENTO,'#10' V_CONTRATOS_CLIENTE.BASE_IMPONIBLE, V_CONTRATOS_CLIENT' +
+ 'E.IVA,'#10' V_CONTRATOS_CLIENTE.RE, V_CONTRATOS_CLIENTE.IMPORTE_R' +
+ 'E,'#10' V_CONTRATOS_CLIENTE.ID_CLIENTE,'#10' V_CONTRATOS_CLIENTE.R' +
+ 'EF_CLIENTE,'#10' V_CONTRATOS_CLIENTE.NIF_CIF,'#10' V_CONTRATOS_CLI' +
+ 'ENTE.NOMBRE,'#10' V_CONTRATOS_CLIENTE.CALLE,'#10' V_CONTRATOS_CLIE' +
+ 'NTE.POBLACION,'#10' V_CONTRATOS_CLIENTE.PROVINCIA,'#10' V_CONTRATO' +
+ 'S_CLIENTE.CODIGO_POSTAL,'#10' V_CONTRATOS_CLIENTE.TELEFONO,'#10' V' +
+ '_CONTRATOS_CLIENTE.MOVIL,'#10' V_CONTRATOS_CLIENTE.IMPORTE_IVA, V' +
+ '_CONTRATOS_CLIENTE.IMPORTE_TOTAL,'#10' V_CONTRATOS_CLIENTE.PERSON' +
+ 'A_CONTACTO,'#10' V_CONTRATOS_CLIENTE.VENDEDOR'#10'FROM'#10' V_CONTRATO' +
+ 'S_CLIENTE'#10'WHERE'#10' V_CONTRATOS_CLIENTE.ID = :ID'#10
StatementType = stSQL
ColumnMappings = <
item
@@ -347,6 +347,10 @@ object RptContratosCliente: TRptContratosCliente
item
DatasetField = 'MOVIL'
TableField = 'MOVIL'
+ end
+ item
+ DatasetField = 'REFERENCIA_CLIENTE'
+ TableField = 'REFERENCIA_CLIENTE'
end>
end>
Name = 'Informe_Cabecera'
@@ -368,6 +372,11 @@ object RptContratosCliente: TRptContratosCliente
DataType = datString
Size = 255
end
+ item
+ Name = 'REFERENCIA_CLIENTE'
+ DataType = datString
+ Size = 255
+ end
item
Name = 'FORMA_PAGO'
DataType = datMemo
@@ -837,7 +846,7 @@ object RptContratosCliente: TRptContratosCliente
PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 39065.872423495400000000
- ReportOptions.LastChange = 40925.778794479160000000
+ ReportOptions.LastChange = 41411.575288125000000000
ScriptLanguage = 'PascalScript'
ShowProgress = False
StoreInDFM = False
@@ -882,6 +891,11 @@ object RptContratosCliente: TRptContratosCliente
DataType = datString
Size = 255
end
+ item
+ Name = 'REFERENCIA_CLIENTE'
+ DataType = datString
+ Size = 255
+ end
item
Name = 'FORMA_PAGO'
DataType = datMemo
diff --git a/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm b/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm
index d56d735..3026a61 100644
--- a/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm
+++ b/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm
@@ -451,6 +451,10 @@ object srvContratosCliente: TsrvContratosCliente
item
DatasetField = 'TIPO_CONTRATO'
TableField = 'TIPO_CONTRATO'
+ end
+ item
+ DatasetField = 'REFERENCIA_CLIENTE'
+ TableField = 'REFERENCIA_CLIENTE'
end>
end>
Name = 'ContratosCliente'
@@ -703,6 +707,11 @@ object srvContratosCliente: TsrvContratosCliente
DataType = datString
Size = 255
DictionaryEntry = 'ContratosCliente_TIPO_CONTRATO'
+ end
+ item
+ Name = 'REFERENCIA_CLIENTE'
+ DataType = datString
+ Size = 255
end>
end
item
@@ -945,18 +954,17 @@ object srvContratosCliente: TsrvContratosCliente
Commands = <
item
Params = <
- item
- Name = 'TIPO_CONTRATO'
- DataType = datString
- Size = 255
- Value = ''
- end
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_CONTRATOS_CLI_ID'
Value = ''
end
+ item
+ Name = 'ID_EMPRESA'
+ DataType = datInteger
+ Value = ''
+ end
item
Name = 'ID_CLIENTE'
DataType = datInteger
@@ -1143,6 +1151,18 @@ object srvContratosCliente: TsrvContratosCliente
DataType = datString
Size = 25
Value = ''
+ end
+ item
+ Name = 'TIPO_CONTRATO'
+ DataType = datString
+ Size = 255
+ Value = ''
+ end
+ item
+ Name = 'REFERENCIA_CLIENTE'
+ DataType = datString
+ Size = 255
+ Value = ''
end>
Statements = <
item
@@ -1150,24 +1170,25 @@ object srvContratosCliente: TsrvContratosCliente
Default = True
TargetTable = 'CONTRATOS_CLIENTE'
SQL =
- 'INSERT'#10' INTO CONTRATOS_CLIENTE'#10' (ID, ID_CLIENTE, NIF_CIF, NO' +
- '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, TIPO_CONTRATO)'#10' VALUES'#10' (:ID, :ID_CLIENTE, :N' +
- 'IF_CIF, :NOMBRE, :ID_DIRECCION, :CALLE, :POBLACION, :PROVINCIA,'#10 +
- ' :CODIGO_POSTAL, :REFERENCIA, :FECHA_CONTRATO, :SITUACION, :' +
- 'FORMA_PAGO,'#10' :PLAZO_ENTREGA, :OBSERVACIONES, :INCIDENCIAS, :' +
- 'INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP,'#10' :USUARIO, :IMPORTE_' +
- 'NETO, :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10' :BASE' +
- '_IMPONIBLE, :ID_TIPO_IVA, :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL, :I' +
- 'D_FORMA_PAGO,'#10' :ID_TIENDA, :ID_VENDEDOR, :PERSONA_CONTACTO, ' +
- ':RE, :IMPORTE_RE, :RECARGO_EQUIVALENCIA,'#10' :TELEFONO, :MOVIL,' +
- ' :TIPO_CONTRATO)'#10#10
+ 'INSERT'#10' INTO CONTRATOS_CLIENTE'#10' (ID, ID_EMPRESA, ID_CLIENTE,' +
+ ' NIF_CIF, NOMBRE, ID_DIRECCION, CALLE, POBLACION, PROVINCIA,'#10' ' +
+ ' CODIGO_POSTAL, REFERENCIA, FECHA_CONTRATO, SITUACION, FORMA_PA' +
+ 'GO,'#10' PLAZO_ENTREGA, OBSERVACIONES, INCIDENCIAS, INCIDENCIAS_' +
+ 'ACTIVAS, FECHA_ALTA,'#10' USUARIO, IMPORTE_NETO, IMPORTE_PORTE, ' +
+ 'DESCUENTO, IMPORTE_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_EQUI' +
+ 'VALENCIA, TELEFONO, MOVIL, TIPO_CONTRATO,'#10' REFERENCIA_CLIENT' +
+ 'E)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :ID_CLIENTE, :NIF_CIF, :NOMBR' +
+ 'E, :ID_DIRECCION, :CALLE, :POBLACION, :PROVINCIA,'#10' :CODIGO_P' +
+ 'OSTAL, :REFERENCIA, :FECHA_CONTRATO, :SITUACION, :FORMA_PAGO,'#10' ' +
+ ' :PLAZO_ENTREGA, :OBSERVACIONES, :INCIDENCIAS, :INCIDENCIAS_AC' +
+ 'TIVAS, CURRENT_TIMESTAMP,'#10' :USUARIO, :IMPORTE_NETO, :IMPORTE' +
+ '_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10' :BASE_IMPONIBLE, :I' +
+ 'D_TIPO_IVA, :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL, :ID_FORMA_PAGO,'#10 +
+ ' :ID_TIENDA, :ID_VENDEDOR, :PERSONA_CONTACTO, :RE, :IMPORTE_' +
+ 'RE, :RECARGO_EQUIVALENCIA,'#10' :TELEFONO, :MOVIL, :TIPO_CONTRAT' +
+ 'O, :REFERENCIA_CLIENTE)'#10#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -1194,13 +1215,12 @@ object srvContratosCliente: TsrvContratosCliente
item
Params = <
item
- Name = 'TIPO_CONTRATO'
- DataType = datString
- Size = 255
+ Name = 'ID'
+ DataType = datInteger
Value = ''
end
item
- Name = 'ID'
+ Name = 'ID_EMPRESA'
DataType = datInteger
Value = ''
end
@@ -1391,6 +1411,18 @@ object srvContratosCliente: TsrvContratosCliente
Size = 25
Value = ''
end
+ item
+ Name = 'TIPO_CONTRATO'
+ DataType = datString
+ Size = 255
+ Value = ''
+ end
+ item
+ Name = 'REFERENCIA_CLIENTE'
+ DataType = datString
+ Size = 255
+ Value = ''
+ end
item
Name = 'OLD_ID'
Value = ''
@@ -1400,26 +1432,27 @@ object srvContratosCliente: TsrvContratosCliente
Connection = 'IBX'
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' 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' TIPO_CONTRATO = :TIPO_CO' +
- 'NTRATO'#10' WHERE'#10' (ID = :OLD_ID)'#10#10
+ 'UPDATE CONTRATOS_CLIENTE'#10' SET '#10' ID = :ID,'#10' ID_EMPRESA = :' +
+ 'ID_EMPRESA,'#10' ID_CLIENTE = :ID_CLIENTE,'#10' NIF_CIF = :NIF_CIF' +
+ ','#10' NOMBRE = :NOMBRE,'#10' ID_DIRECCION = :ID_DIRECCION,'#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' TELEFONO = :TELEFONO,'#10' MOVIL = :MOVIL' +
+ ','#10' TIPO_CONTRATO = :TIPO_CONTRATO,'#10' REFERENCIA_CLIENTE = :' +
+ 'REFERENCIA_CLIENTE'#10' WHERE'#10' (ID = :OLD_ID)'#10#10
StatementType = stSQL
ColumnMappings = <>
end>
diff --git a/Source/Modulos/Contratos de cliente/Views/uViewContratoCliente.dfm b/Source/Modulos/Contratos de cliente/Views/uViewContratoCliente.dfm
index 289df76..1e456a0 100644
--- a/Source/Modulos/Contratos de cliente/Views/uViewContratoCliente.dfm
+++ b/Source/Modulos/Contratos de cliente/Views/uViewContratoCliente.dfm
@@ -19,8 +19,8 @@ inherited frViewContratoCliente: TfrViewContratoCliente
810
449)
object edtFechaContrato: TcxDBDateEdit
- Left = 104
- Top = 55
+ Left = 117
+ Top = 82
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_CONTRATO'
DataBinding.DataSource = DADataSource
@@ -38,11 +38,11 @@ inherited frViewContratoCliente: TfrViewContratoCliente
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
- TabOrder = 1
+ TabOrder = 2
Width = 129
end
object memObservaciones: TcxDBMemo
- Left = 377
+ Left = 389
Top = 289
Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'OBSERVACIONES'
@@ -59,12 +59,12 @@ inherited frViewContratoCliente: TfrViewContratoCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
- TabOrder = 10
+ TabOrder = 11
Height = 200
Width = 507
end
object eReferencia: TcxDBTextEdit
- Left = 104
+ Left = 117
Top = 28
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA'
@@ -89,8 +89,8 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Width = 122
end
object cbFormaPago: TcxDBLookupComboBox
- Left = 104
- Top = 166
+ Left = 117
+ Top = 193
DataBinding.DataField = 'ID_FORMA_PAGO'
DataBinding.DataSource = DADataSource
Properties.ImmediatePost = True
@@ -117,21 +117,21 @@ inherited frViewContratoCliente: TfrViewContratoCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
- TabOrder = 5
+ TabOrder = 6
Width = 122
end
object bFormasPago: TButton
- Left = 215
- Top = 166
+ Left = 227
+ Top = 193
Width = 132
Height = 21
Caption = 'Ver las formas de pago...'
- TabOrder = 6
+ TabOrder = 7
OnClick = bFormasPagoClick
end
object cbSituacion: TcxDBImageComboBox
- Left = 104
- Top = 82
+ Left = 117
+ Top = 109
DataBinding.DataField = 'SITUACION'
DataBinding.DataSource = DADataSource
Properties.Items = <
@@ -152,11 +152,11 @@ inherited frViewContratoCliente: TfrViewContratoCliente
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
- TabOrder = 3
+ TabOrder = 4
Width = 260
end
inline frViewDatosYSeleccionClienteContrato1: TfrViewDatosYSeleccionClienteContrato
- Left = 377
+ Left = 389
Top = 28
Width = 127
Height = 225
@@ -166,9 +166,9 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
- TabOrder = 9
+ TabOrder = 10
ReadOnly = False
- ExplicitLeft = 377
+ ExplicitLeft = 389
ExplicitTop = 28
ExplicitWidth = 127
ExplicitHeight = 225
@@ -186,24 +186,24 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Width = 103
end
inherited bVerFichaCliente: TBitBtn
- Left = 209
- ExplicitLeft = 209
+ Left = 197
+ ExplicitLeft = 197
end
inherited edtDireccion: TcxMemo
ExplicitWidth = 121
Width = 121
end
inherited bElegirDireccion: TButton
- Left = 378
- ExplicitLeft = 378
+ Left = 366
+ ExplicitLeft = 366
end
inherited edtTelefonos: TcxTextEdit
ExplicitWidth = 193
Width = 193
end
inherited edtReferencia: TcxDBTextEdit
- Left = 267
- ExplicitLeft = 267
+ Left = 261
+ ExplicitLeft = 261
ExplicitWidth = 103
Width = 103
end
@@ -211,7 +211,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
end
object memFormaPago: TcxDBMemo
Left = 22
- Top = 193
+ Top = 220
Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'FORMA_PAGO'
DataBinding.DataSource = DADataSource
@@ -227,35 +227,35 @@ inherited frViewContratoCliente: TfrViewContratoCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
- TabOrder = 7
- Height = 100
- Width = 396
- end
- object memPlazoEntrega: TcxDBMemo
- Left = 22
- Top = 328
- Anchors = [akLeft, akTop, akRight, akBottom]
- DataBinding.DataField = 'PLAZO_ENTREGA'
- DataBinding.DataSource = DADataSource
- Properties.ScrollBars = ssVertical
- 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
- StyleFocused.LookAndFeel.Kind = lfStandard
- StyleFocused.LookAndFeel.NativeStyle = True
- StyleHot.LookAndFeel.Kind = lfStandard
- StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 8
Height = 100
Width = 396
end
+ object memPlazoEntrega: TcxDBMemo
+ Left = 22
+ Top = 340
+ Anchors = [akLeft, akTop, akRight, akBottom]
+ DataBinding.DataField = 'PLAZO_ENTREGA'
+ DataBinding.DataSource = DADataSource
+ Properties.ScrollBars = ssVertical
+ 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
+ StyleFocused.LookAndFeel.Kind = lfStandard
+ StyleFocused.LookAndFeel.NativeStyle = True
+ StyleHot.LookAndFeel.Kind = lfStandard
+ StyleHot.LookAndFeel.NativeStyle = True
+ TabOrder = 9
+ Height = 100
+ Width = 396
+ end
object cbVendedor: TcxDBLookupComboBox
- Left = 104
- Top = 109
+ Left = 117
+ Top = 136
DataBinding.DataField = 'ID_VENDEDOR'
DataBinding.DataSource = DADataSource
Properties.KeyFieldNames = 'ID'
@@ -280,12 +280,12 @@ inherited frViewContratoCliente: TfrViewContratoCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
- TabOrder = 4
+ TabOrder = 5
Width = 27
end
object cbTipoContrato: TcxDBComboBox
- Left = 271
- Top = 55
+ Left = 282
+ Top = 82
DataBinding.DataField = 'TIPO_CONTRATO'
DataBinding.DataSource = DADataSource
Properties.ImmediatePost = True
@@ -305,9 +305,30 @@ inherited frViewContratoCliente: TfrViewContratoCliente
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
- TabOrder = 2
+ TabOrder = 3
Width = 113
end
+ object edtlReferenciaCliente: TcxDBTextEdit
+ Left = 117
+ Top = 55
+ Anchors = [akLeft, akTop, akRight]
+ AutoSize = False
+ DataBinding.DataField = 'REFERENCIA_CLIENTE'
+ DataBinding.DataSource = DADataSource
+ ParentFont = False
+ 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 = 1
+ Height = 21
+ Width = 335
+ end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
Hidden = True
@@ -330,6 +351,11 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Control = eReferencia
ControlOptions.ShowBorder = False
end
+ object dxLayoutControl1Item12: TdxLayoutItem
+ Caption = 'Referencia cliente:'
+ Control = edtlReferenciaCliente
+ ControlOptions.ShowBorder = False
+ end
object dxLayoutControl1Group11: TdxLayoutGroup
ShowCaption = False
Hidden = True
diff --git a/Source/Modulos/Contratos de cliente/Views/uViewContratoCliente.pas b/Source/Modulos/Contratos de cliente/Views/uViewContratoCliente.pas
index 547c631..3f83a0f 100644
--- a/Source/Modulos/Contratos de cliente/Views/uViewContratoCliente.pas
+++ b/Source/Modulos/Contratos de cliente/Views/uViewContratoCliente.pas
@@ -63,6 +63,8 @@ type
dxLayoutControl1Item7: TdxLayoutItem;
cbTipoContrato: TcxDBComboBox;
dxLayoutControl1Group11: TdxLayoutGroup;
+ dxLayoutControl1Item12: TdxLayoutItem;
+ edtlReferenciaCliente: TcxDBTextEdit;
procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
procedure bFormasPagoClick(Sender: TObject);
diff --git a/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.dfm b/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.dfm
index 026ea45..77266ec 100644
--- a/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.dfm
+++ b/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.dfm
@@ -68,6 +68,10 @@ inherited frViewContratosCliente: TfrViewContratosCliente
SortOrder = soDescending
Width = 58
end
+ object cxGridViewREFERENCIA_CLIENTE: TcxGridDBColumn
+ Caption = 'Ref. Cliente'
+ DataBinding.FieldName = 'REFERENCIA_CLIENTE'
+ end
object cxGridViewTIPO_CONTRATO: TcxGridDBColumn
DataBinding.FieldName = 'TIPO_CONTRATO'
BestFitMaxWidth = 25
@@ -126,15 +130,27 @@ inherited frViewContratosCliente: TfrViewContratosCliente
Width = 903
ExplicitWidth = 903
inherited txtFiltroTodo: TcxTextEdit
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 806
Width = 806
end
inherited edtFechaIniFiltro: TcxDateEdit
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 285
Width = 285
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 389
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 389
ExplicitWidth = 504
Width = 504
diff --git a/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.pas b/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.pas
index 8de58ac..ae93cd8 100644
--- a/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.pas
+++ b/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.pas
@@ -40,6 +40,7 @@ type
cxGridViewINCIDENCIAS: TcxGridDBColumn;
cxStyleRECHAZADO: TcxStyle;
cxGridViewTIPO_CONTRATO: TcxGridDBColumn;
+ cxGridViewREFERENCIA_CLIENTE: TcxGridDBColumn;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
TcxGridLevel);
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
diff --git a/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm b/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm
index d9b7aed..07f60d9 100644
--- a/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm
+++ b/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm
@@ -63,6 +63,11 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
DisplayLabel = 'Referencia'
DictionaryEntry = 'PresupuestosCliente_REFERENCIA'
end
+ item
+ Name = 'REFERENCIA_CLIENTE'
+ DataType = datString
+ Size = 255
+ end
item
Name = 'SITUACION'
DataType = datString
diff --git a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas
index 574a6b9..ec6be63 100644
--- a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas
+++ b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas
@@ -9,12 +9,12 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
- RID_Valores = '{E7928204-C39F-4E07-9A3D-B32F3BB49D85}';
- RID_Propiedades = '{D1BE6EB5-260D-4A6B-ADEF-3FC1FB9CF572}';
- RID_ListaAnosPresupuestos = '{95229127-6332-428F-848D-966BCF5A39F6}';
- RID_PresupuestosCliente = '{E4555932-F890-4E53-8666-6E4A2B74D518}';
- RID_CapitulosPresupuesto = '{DBAF21E8-DB51-4BAD-94FF-4A20A2876FF2}';
- RID_PresupuestosCliente_Detalles = '{B7A19F6E-DAA5-4E16-9622-4D99F50E21CE}';
+ RID_Valores = '{E16B10D1-C266-4C34-B6B3-F1989F42A69D}';
+ RID_Propiedades = '{32C1DC73-81A3-4292-9235-BED9E72241DD}';
+ RID_ListaAnosPresupuestos = '{34090E28-8CDD-4F94-8CFE-C253CAC9406C}';
+ RID_PresupuestosCliente = '{50970F54-A011-4019-9A0B-83FBD7822F82}';
+ RID_CapitulosPresupuesto = '{0CAADB7F-FAA0-444A-AA5A-D2596E74F088}';
+ RID_PresupuestosCliente_Detalles = '{51062533-EB77-4CF6-ACC4-1FA88E21C0D0}';
{ Data table names }
nme_Valores = 'Valores';
@@ -61,6 +61,7 @@ const
fld_PresupuestosClienteFECHA_VIGENCIA = 'FECHA_VIGENCIA';
fld_PresupuestosClienteFECHA_DECISION = 'FECHA_DECISION';
fld_PresupuestosClienteREFERENCIA = 'REFERENCIA';
+ fld_PresupuestosClienteREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE';
fld_PresupuestosClienteSITUACION = 'SITUACION';
fld_PresupuestosClienteID_CLIENTE = 'ID_CLIENTE';
fld_PresupuestosClienteID_DIRECCION = 'ID_DIRECCION';
@@ -104,41 +105,42 @@ const
idx_PresupuestosClienteFECHA_VIGENCIA = 3;
idx_PresupuestosClienteFECHA_DECISION = 4;
idx_PresupuestosClienteREFERENCIA = 5;
- idx_PresupuestosClienteSITUACION = 6;
- idx_PresupuestosClienteID_CLIENTE = 7;
- idx_PresupuestosClienteID_DIRECCION = 8;
- idx_PresupuestosClienteNIF_CIF = 9;
- idx_PresupuestosClienteNOMBRE = 10;
- idx_PresupuestosClientePERSONA_CONTACTO = 11;
- idx_PresupuestosClienteFORMA_PAGO = 12;
- idx_PresupuestosClientePLAZO_ENTREGA = 13;
- idx_PresupuestosClienteOBSERVACIONES = 14;
- idx_PresupuestosClienteINCIDENCIAS = 15;
- idx_PresupuestosClienteINCIDENCIAS_ACTIVAS = 16;
- idx_PresupuestosClienteFECHA_ALTA = 17;
- idx_PresupuestosClienteFECHA_MODIFICACION = 18;
- idx_PresupuestosClienteUSUARIO = 19;
- idx_PresupuestosClienteIMPORTE_NETO = 20;
- idx_PresupuestosClienteIMPORTE_PORTE = 21;
- idx_PresupuestosClienteDESCUENTO = 22;
- idx_PresupuestosClienteIMPORTE_DESCUENTO = 23;
- idx_PresupuestosClienteBASE_IMPONIBLE = 24;
- idx_PresupuestosClienteID_TIPO_IVA = 25;
- idx_PresupuestosClienteIVA = 26;
- idx_PresupuestosClienteIMPORTE_IVA = 27;
- idx_PresupuestosClienteRE = 28;
- idx_PresupuestosClienteIMPORTE_RE = 29;
- idx_PresupuestosClienteRECARGO_EQUIVALENCIA = 30;
- idx_PresupuestosClienteIMPORTE_TOTAL = 31;
- idx_PresupuestosClienteID_FORMA_PAGO = 32;
- idx_PresupuestosClienteID_TIENDA = 33;
- idx_PresupuestosClienteTIENDA = 34;
- idx_PresupuestosClienteID_VENDEDOR = 35;
- idx_PresupuestosClienteVENDEDOR = 36;
- idx_PresupuestosClienteID_CONTRATO = 37;
- idx_PresupuestosClienteREF_CONTRATO = 38;
- idx_PresupuestosClienteNO_VALORADO = 39;
- idx_PresupuestosClienteTIPO_PRESUPUESTO = 40;
+ idx_PresupuestosClienteREFERENCIA_CLIENTE = 6;
+ idx_PresupuestosClienteSITUACION = 7;
+ idx_PresupuestosClienteID_CLIENTE = 8;
+ idx_PresupuestosClienteID_DIRECCION = 9;
+ idx_PresupuestosClienteNIF_CIF = 10;
+ idx_PresupuestosClienteNOMBRE = 11;
+ idx_PresupuestosClientePERSONA_CONTACTO = 12;
+ idx_PresupuestosClienteFORMA_PAGO = 13;
+ idx_PresupuestosClientePLAZO_ENTREGA = 14;
+ idx_PresupuestosClienteOBSERVACIONES = 15;
+ idx_PresupuestosClienteINCIDENCIAS = 16;
+ idx_PresupuestosClienteINCIDENCIAS_ACTIVAS = 17;
+ idx_PresupuestosClienteFECHA_ALTA = 18;
+ idx_PresupuestosClienteFECHA_MODIFICACION = 19;
+ idx_PresupuestosClienteUSUARIO = 20;
+ idx_PresupuestosClienteIMPORTE_NETO = 21;
+ idx_PresupuestosClienteIMPORTE_PORTE = 22;
+ idx_PresupuestosClienteDESCUENTO = 23;
+ idx_PresupuestosClienteIMPORTE_DESCUENTO = 24;
+ idx_PresupuestosClienteBASE_IMPONIBLE = 25;
+ idx_PresupuestosClienteID_TIPO_IVA = 26;
+ idx_PresupuestosClienteIVA = 27;
+ idx_PresupuestosClienteIMPORTE_IVA = 28;
+ idx_PresupuestosClienteRE = 29;
+ idx_PresupuestosClienteIMPORTE_RE = 30;
+ idx_PresupuestosClienteRECARGO_EQUIVALENCIA = 31;
+ idx_PresupuestosClienteIMPORTE_TOTAL = 32;
+ idx_PresupuestosClienteID_FORMA_PAGO = 33;
+ idx_PresupuestosClienteID_TIENDA = 34;
+ idx_PresupuestosClienteTIENDA = 35;
+ idx_PresupuestosClienteID_VENDEDOR = 36;
+ idx_PresupuestosClienteVENDEDOR = 37;
+ idx_PresupuestosClienteID_CONTRATO = 38;
+ idx_PresupuestosClienteREF_CONTRATO = 39;
+ idx_PresupuestosClienteNO_VALORADO = 40;
+ idx_PresupuestosClienteTIPO_PRESUPUESTO = 41;
{ CapitulosPresupuesto fields }
fld_CapitulosPresupuestoID = 'ID';
@@ -205,7 +207,7 @@ const
type
{ IValores }
IValores = interface(IDAStronglyTypedDataTable)
- ['{93D9A956-9F9E-4D63-A10B-A172C285C94E}']
+ ['{D5CB76A1-9B62-4056-9F89-730A4F31838D}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -300,7 +302,7 @@ type
{ IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable)
- ['{59EB780A-FC81-43F6-9D5D-57B76B94C000}']
+ ['{A512708D-39DE-45D9-A514-EFD79C6FD584}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -347,7 +349,7 @@ type
{ IListaAnosPresupuestos }
IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable)
- ['{EBF28BF5-BC89-4C6F-AE66-B6D895A58A86}']
+ ['{18B6359D-D371-4068-8A84-3DE897B7E7B8}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@@ -382,7 +384,7 @@ type
{ IPresupuestosCliente }
IPresupuestosCliente = interface(IDAStronglyTypedDataTable)
- ['{BC002141-E0CE-41CB-9AAA-85B093181284}']
+ ['{1F9AD51F-1911-49A2-82BE-37DF2D4B2A11}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -408,6 +410,10 @@ type
procedure SetREFERENCIAValue(const aValue: String);
function GetREFERENCIAIsNull: Boolean;
procedure SetREFERENCIAIsNull(const aValue: Boolean);
+ function GetREFERENCIA_CLIENTEValue: String;
+ procedure SetREFERENCIA_CLIENTEValue(const aValue: String);
+ function GetREFERENCIA_CLIENTEIsNull: Boolean;
+ procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean);
function GetSITUACIONValue: String;
procedure SetSITUACIONValue(const aValue: String);
function GetSITUACIONIsNull: Boolean;
@@ -559,6 +565,8 @@ type
property FECHA_DECISIONIsNull: Boolean read GetFECHA_DECISIONIsNull write SetFECHA_DECISIONIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
+ property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
+ property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
@@ -668,6 +676,10 @@ type
procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
+ function GetREFERENCIA_CLIENTEValue: String; virtual;
+ procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual;
+ function GetREFERENCIA_CLIENTEIsNull: Boolean; virtual;
+ procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetSITUACIONValue: String; virtual;
procedure SetSITUACIONValue(const aValue: String); virtual;
function GetSITUACIONIsNull: Boolean; virtual;
@@ -818,6 +830,8 @@ type
property FECHA_DECISIONIsNull: Boolean read GetFECHA_DECISIONIsNull write SetFECHA_DECISIONIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
+ property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
+ property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
@@ -897,7 +911,7 @@ type
{ ICapitulosPresupuesto }
ICapitulosPresupuesto = interface(IDAStronglyTypedDataTable)
- ['{A0E7A826-2872-426E-AD39-8FA97AAA61FE}']
+ ['{0D499AEC-C74B-495F-84F1-3FBADEC47C7E}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -1052,7 +1066,7 @@ type
{ IPresupuestosCliente_Detalles }
IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable)
- ['{81779950-8754-42C2-A214-1147561D7D56}']
+ ['{AF58312B-DFCD-4038-8B41-696C909BD857}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -1669,6 +1683,27 @@ begin
DataTable.Fields[idx_PresupuestosClienteREFERENCIA].AsVariant := Null;
end;
+function TPresupuestosClienteDataTableRules.GetREFERENCIA_CLIENTEValue: String;
+begin
+ result := DataTable.Fields[idx_PresupuestosClienteREFERENCIA_CLIENTE].AsString;
+end;
+
+procedure TPresupuestosClienteDataTableRules.SetREFERENCIA_CLIENTEValue(const aValue: String);
+begin
+ DataTable.Fields[idx_PresupuestosClienteREFERENCIA_CLIENTE].AsString := aValue;
+end;
+
+function TPresupuestosClienteDataTableRules.GetREFERENCIA_CLIENTEIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_PresupuestosClienteREFERENCIA_CLIENTE].IsNull;
+end;
+
+procedure TPresupuestosClienteDataTableRules.SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_PresupuestosClienteREFERENCIA_CLIENTE].AsVariant := Null;
+end;
+
function TPresupuestosClienteDataTableRules.GetSITUACIONValue: String;
begin
result := DataTable.Fields[idx_PresupuestosClienteSITUACION].AsString;
diff --git a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas
index 08963fa..972bd7d 100644
--- a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas
+++ b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas
@@ -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 = '{13FFF203-FA71-4ED9-AC0A-643A9FE5CAD2}';
- RID_PropiedadesDelta = '{6B42D145-11AB-46D7-88D3-65F1BE9C982F}';
- RID_ListaAnosPresupuestosDelta = '{ABE39CA0-27B3-4D80-AED4-FE540C66D871}';
- RID_PresupuestosClienteDelta = '{717C84FB-EC16-47E3-BD56-A26B1170EF2E}';
- RID_CapitulosPresupuestoDelta = '{F39487EB-F059-40C3-ABB1-8B6B4B0E271E}';
- RID_PresupuestosCliente_DetallesDelta = '{FE4CE80E-1435-4867-91AC-081602D5BAA4}';
+ RID_ValoresDelta = '{C002A600-D743-41AD-AB05-509A3CFA752B}';
+ RID_PropiedadesDelta = '{F6E80F06-3BE5-4098-929E-88D75164E91E}';
+ RID_ListaAnosPresupuestosDelta = '{B32D0ECD-A7F9-44BC-8F71-68F699493E80}';
+ RID_PresupuestosClienteDelta = '{4589E19A-FBF6-40BF-8EDC-CDC6CF01A657}';
+ RID_CapitulosPresupuestoDelta = '{CD65BC24-6D66-463B-8A39-2E83D02E7025}';
+ RID_PresupuestosCliente_DetallesDelta = '{99470627-E8C7-466D-B7C9-2AB76DD558FC}';
type
{ IValoresDelta }
IValoresDelta = interface(IValores)
- ['{13FFF203-FA71-4ED9-AC0A-643A9FE5CAD2}']
+ ['{C002A600-D743-41AD-AB05-509A3CFA752B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -113,7 +113,7 @@ type
{ IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades)
- ['{6B42D145-11AB-46D7-88D3-65F1BE9C982F}']
+ ['{F6E80F06-3BE5-4098-929E-88D75164E91E}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@@ -159,7 +159,7 @@ type
{ IListaAnosPresupuestosDelta }
IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos)
- ['{ABE39CA0-27B3-4D80-AED4-FE540C66D871}']
+ ['{B32D0ECD-A7F9-44BC-8F71-68F699493E80}']
{ Property getters and setters }
function GetOldANOValue : String;
@@ -193,7 +193,7 @@ type
{ IPresupuestosClienteDelta }
IPresupuestosClienteDelta = interface(IPresupuestosCliente)
- ['{717C84FB-EC16-47E3-BD56-A26B1170EF2E}']
+ ['{4589E19A-FBF6-40BF-8EDC-CDC6CF01A657}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -201,6 +201,7 @@ type
function GetOldFECHA_VIGENCIAValue : DateTime;
function GetOldFECHA_DECISIONValue : DateTime;
function GetOldREFERENCIAValue : String;
+ function GetOldREFERENCIA_CLIENTEValue : String;
function GetOldSITUACIONValue : String;
function GetOldID_CLIENTEValue : Integer;
function GetOldID_DIRECCIONValue : Integer;
@@ -244,6 +245,7 @@ type
property OldFECHA_VIGENCIA : DateTime read GetOldFECHA_VIGENCIAValue;
property OldFECHA_DECISION : DateTime read GetOldFECHA_DECISIONValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
+ property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
property OldSITUACION : String read GetOldSITUACIONValue;
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue;
@@ -330,6 +332,12 @@ type
function GetOldREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
+ function GetREFERENCIA_CLIENTEValue: String; virtual;
+ function GetREFERENCIA_CLIENTEIsNull: Boolean; virtual;
+ function GetOldREFERENCIA_CLIENTEValue: String; virtual;
+ function GetOldREFERENCIA_CLIENTEIsNull: Boolean; virtual;
+ procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual;
+ procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetSITUACIONValue: String; virtual;
function GetSITUACIONIsNull: Boolean; virtual;
function GetOldSITUACIONValue: String; virtual;
@@ -562,6 +570,10 @@ type
property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
+ property REFERENCIA_CLIENTE : String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
+ property REFERENCIA_CLIENTEIsNull : Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
+ property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
+ property OldREFERENCIA_CLIENTEIsNull : Boolean read GetOldREFERENCIA_CLIENTEIsNull;
property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue;
property SITUACIONIsNull : Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
property OldSITUACION : String read GetOldSITUACIONValue;
@@ -711,7 +723,7 @@ type
{ ICapitulosPresupuestoDelta }
ICapitulosPresupuestoDelta = interface(ICapitulosPresupuesto)
- ['{F39487EB-F059-40C3-ABB1-8B6B4B0E271E}']
+ ['{CD65BC24-6D66-463B-8A39-2E83D02E7025}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer;
@@ -865,7 +877,7 @@ type
{ IPresupuestosCliente_DetallesDelta }
IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles)
- ['{FE4CE80E-1435-4867-91AC-081602D5BAA4}']
+ ['{99470627-E8C7-466D-B7C9-2AB76DD558FC}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PRESUPUESTOValue : Integer;
@@ -1632,6 +1644,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteREFERENCIA] := Null;
end;
+function TPresupuestosClienteBusinessProcessorRules.GetREFERENCIA_CLIENTEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteREFERENCIA_CLIENTE];
+end;
+
+function TPresupuestosClienteBusinessProcessorRules.GetREFERENCIA_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteREFERENCIA_CLIENTE]);
+end;
+
+function TPresupuestosClienteBusinessProcessorRules.GetOldREFERENCIA_CLIENTEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteREFERENCIA_CLIENTE];
+end;
+
+function TPresupuestosClienteBusinessProcessorRules.GetOldREFERENCIA_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteREFERENCIA_CLIENTE]);
+end;
+
+procedure TPresupuestosClienteBusinessProcessorRules.SetREFERENCIA_CLIENTEValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteREFERENCIA_CLIENTE] := aValue;
+end;
+
+procedure TPresupuestosClienteBusinessProcessorRules.SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteREFERENCIA_CLIENTE] := Null;
+end;
+
function TPresupuestosClienteBusinessProcessorRules.GetSITUACIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteSITUACION];
diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm b/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm
index a4269b4..2b4d81b 100644
--- a/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm
+++ b/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm
@@ -208,31 +208,31 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
'SELECT'#10' V_PRESUPUESTOS_CLIENTE.ID, V_PRESUPUESTOS_CLIENTE.ID_' +
'EMPRESA,'#10' V_PRESUPUESTOS_CLIENTE.FECHA_PRESUPUESTO, V_PRESUPU' +
'ESTOS_CLIENTE.FECHA_VIGENCIA,'#10' V_PRESUPUESTOS_CLIENTE.FECHA_D' +
- 'ECISION,'#10' V_PRESUPUESTOS_CLIENTE.REFERENCIA,'#10#10' V_PRESUPUES' +
- 'TOS_CLIENTE.FORMA_PAGO,'#10' V_PRESUPUESTOS_CLIENTE.PLAZO_ENTREGA' +
- ','#10' V_PRESUPUESTOS_CLIENTE.OBSERVACIONES,'#10#10' V_PRESUPUESTOS_' +
- 'CLIENTE.IMPORTE_NETO, V_PRESUPUESTOS_CLIENTE.IMPORTE_PORTE,'#10' ' +
- 'V_PRESUPUESTOS_CLIENTE.DESCUENTO, V_PRESUPUESTOS_CLIENTE.IMPORTE' +
- '_DESCUENTO,'#10' V_PRESUPUESTOS_CLIENTE.BASE_IMPONIBLE, V_PRESUPU' +
- 'ESTOS_CLIENTE.IVA,'#10' V_PRESUPUESTOS_CLIENTE.RE, V_PRESUPUESTOS' +
- '_CLIENTE.IMPORTE_RE,'#10' V_PRESUPUESTOS_CLIENTE.ID_CLIENTE,'#10' ' +
- 'V_PRESUPUESTOS_CLIENTE.NIF_CIF, CONTACTOS.REFERENCIA as REF_CLIE' +
- 'NTE,'#10' V_PRESUPUESTOS_CLIENTE.NOMBRE,'#10' V_PRESUPUESTOS_CLIEN' +
- 'TE.IMPORTE_IVA, V_PRESUPUESTOS_CLIENTE.IMPORTE_TOTAL,'#10' COALES' +
- 'CE(CONTACTOS_DIRECCIONES.CALLE, CONTACTOS.CALLE) AS CALLE,'#10' C' +
- 'OALESCE(CONTACTOS_DIRECCIONES.POBLACION, CONTACTOS.POBLACION) AS' +
- ' POBLACION,'#10' COALESCE(CONTACTOS_DIRECCIONES.PROVINCIA, CONTAC' +
- 'TOS.PROVINCIA) AS PROVINCIA,'#10' COALESCE(CONTACTOS_DIRECCIONES.' +
- 'CODIGO_POSTAL, CONTACTOS.CODIGO_POSTAL) AS CODIGO_POSTAL,'#10' CO' +
- 'ALESCE(CONTACTOS_DIRECCIONES.TELEFONO, CONTACTOS.TELEFONO_1) AS ' +
- 'TELEFONO,'#10' COALESCE(CONTACTOS_DIRECCIONES.MOVIL, CONTACTOS.MO' +
- 'VIL_1) AS MOVIL,'#10' V_PRESUPUESTOS_CLIENTE.PERSONA_CONTACTO,'#10' ' +
- ' V_PRESUPUESTOS_CLIENTE.VENDEDOR, V_PRESUPUESTOS_CLIENTE.NO_VAL' +
- 'ORADO'#10'FROM'#10' V_PRESUPUESTOS_CLIENTE'#10' INNER JOIN CONTACTOS O' +
- 'N (CONTACTOS.ID = V_PRESUPUESTOS_CLIENTE.ID_CLIENTE)'#10' LEFT OU' +
- 'TER JOIN CONTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID = V_' +
- 'PRESUPUESTOS_CLIENTE.ID_DIRECCION)'#10'WHERE'#10' V_PRESUPUESTOS_CLIE' +
- 'NTE.ID = :ID'#10
+ 'ECISION,'#10' V_PRESUPUESTOS_CLIENTE.REFERENCIA,'#10' V_PRESUPUEST' +
+ 'OS_CLIENTE.REFERENCIA_CLIENTE,'#10#10' V_PRESUPUESTOS_CLIENTE.FORMA' +
+ '_PAGO,'#10' V_PRESUPUESTOS_CLIENTE.PLAZO_ENTREGA,'#10' V_PRESUPUES' +
+ 'TOS_CLIENTE.OBSERVACIONES,'#10#10' V_PRESUPUESTOS_CLIENTE.IMPORTE_N' +
+ 'ETO, V_PRESUPUESTOS_CLIENTE.IMPORTE_PORTE,'#10' V_PRESUPUESTOS_CL' +
+ 'IENTE.DESCUENTO, V_PRESUPUESTOS_CLIENTE.IMPORTE_DESCUENTO,'#10' V' +
+ '_PRESUPUESTOS_CLIENTE.BASE_IMPONIBLE, V_PRESUPUESTOS_CLIENTE.IVA' +
+ ','#10' V_PRESUPUESTOS_CLIENTE.RE, V_PRESUPUESTOS_CLIENTE.IMPORTE_' +
+ 'RE,'#10' V_PRESUPUESTOS_CLIENTE.ID_CLIENTE,'#10' V_PRESUPUESTOS_CL' +
+ 'IENTE.NIF_CIF, CONTACTOS.REFERENCIA as REF_CLIENTE,'#10' V_PRESUP' +
+ 'UESTOS_CLIENTE.NOMBRE,'#10' V_PRESUPUESTOS_CLIENTE.IMPORTE_IVA, V' +
+ '_PRESUPUESTOS_CLIENTE.IMPORTE_TOTAL,'#10' COALESCE(CONTACTOS_DIRE' +
+ 'CCIONES.CALLE, CONTACTOS.CALLE) AS CALLE,'#10' COALESCE(CONTACTOS' +
+ '_DIRECCIONES.POBLACION, CONTACTOS.POBLACION) AS POBLACION,'#10' C' +
+ 'OALESCE(CONTACTOS_DIRECCIONES.PROVINCIA, CONTACTOS.PROVINCIA) AS' +
+ ' PROVINCIA,'#10' COALESCE(CONTACTOS_DIRECCIONES.CODIGO_POSTAL, CO' +
+ 'NTACTOS.CODIGO_POSTAL) AS CODIGO_POSTAL,'#10' COALESCE(CONTACTOS_' +
+ 'DIRECCIONES.TELEFONO, CONTACTOS.TELEFONO_1) AS TELEFONO,'#10' COA' +
+ 'LESCE(CONTACTOS_DIRECCIONES.MOVIL, CONTACTOS.MOVIL_1) AS MOVIL,'#10 +
+ ' V_PRESUPUESTOS_CLIENTE.PERSONA_CONTACTO,'#10' V_PRESUPUESTOS_' +
+ 'CLIENTE.VENDEDOR, V_PRESUPUESTOS_CLIENTE.NO_VALORADO'#10'FROM'#10' V_' +
+ 'PRESUPUESTOS_CLIENTE'#10' INNER JOIN CONTACTOS ON (CONTACTOS.ID =' +
+ ' V_PRESUPUESTOS_CLIENTE.ID_CLIENTE)'#10' LEFT OUTER JOIN CONTACTO' +
+ 'S_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID = V_PRESUPUESTOS_CLIE' +
+ 'NTE.ID_DIRECCION)'#10'WHERE'#10' V_PRESUPUESTOS_CLIENTE.ID = :ID'#10
StatementType = stSQL
ColumnMappings = <
item
@@ -362,6 +362,10 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
item
DatasetField = 'MOVIL'
TableField = 'MOVIL'
+ end
+ item
+ DatasetField = 'REFERENCIA_CLIENTE'
+ TableField = 'REFERENCIA_CLIENTE'
end>
end>
Name = 'Informe_Cabecera'
@@ -393,6 +397,11 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
DataType = datString
Size = 255
end
+ item
+ Name = 'REFERENCIA_CLIENTE'
+ DataType = datString
+ Size = 255
+ end
item
Name = 'FORMA_PAGO'
DataType = datMemo
@@ -868,7 +877,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 39065.872423495400000000
- ReportOptions.LastChange = 40869.748848321760000000
+ ReportOptions.LastChange = 41411.456087094910000000
ScriptLanguage = 'PascalScript'
ShowProgress = False
StoreInDFM = False
@@ -923,6 +932,11 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
DataType = datString
Size = 255
end
+ item
+ Name = 'REFERENCIA_CLIENTE'
+ DataType = datString
+ Size = 255
+ end
item
Name = 'FORMA_PAGO'
DataType = datMemo
diff --git a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm b/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm
index 5459630..3918d79 100644
--- a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm
+++ b/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm
@@ -316,6 +316,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
item
DatasetField = 'TIPO_PRESUPUESTO'
TableField = 'TIPO_PRESUPUESTO'
+ end
+ item
+ DatasetField = 'REFERENCIA_CLIENTE'
+ TableField = 'REFERENCIA_CLIENTE'
end>
end>
Name = 'PresupuestosCliente'
@@ -353,6 +357,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Size = 255
DictionaryEntry = 'PresupuestosCliente_REFERENCIA'
end
+ item
+ Name = 'REFERENCIA_CLIENTE'
+ DataType = datString
+ Size = 255
+ end
item
Name = 'SITUACION'
DataType = datString
@@ -859,6 +868,12 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Size = 255
Value = ''
end
+ item
+ Name = 'REFERENCIA_CLIENTE'
+ DataType = datString
+ Size = 255
+ Value = ''
+ end
item
Name = 'SITUACION'
DataType = datString
@@ -1010,23 +1025,24 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
TargetTable = 'PRESUPUESTOS_CLIENTE'
SQL =
'INSERT'#10' INTO PRESUPUESTOS_CLIENTE'#10' (ID, ID_EMPRESA,'#10' FEC' +
- 'HA_PRESUPUESTO, FECHA_VIGENCIA, FECHA_DECISION, REFERENCIA,'#10' ' +
- ' SITUACION, ID_CLIENTE, ID_DIRECCION, PERSONA_CONTACTO,'#10' FOR' +
- 'MA_PAGO, PLAZO_ENTREGA, OBSERVACIONES, INCIDENCIAS,'#10' INCIDEN' +
- 'CIAS_ACTIVAS, FECHA_ALTA, USUARIO, IMPORTE_NETO, IMPORTE_PORTE,'#10 +
- ' DESCUENTO, IMPORTE_DESCUENTO, BASE_IMPONIBLE, ID_TIPO_IVA, ' +
- 'IVA, IMPORTE_IVA,'#10' RE, IMPORTE_RE, RECARGO_EQUIVALENCIA, IMP' +
- 'ORTE_TOTAL, ID_FORMA_PAGO, ID_TIENDA, ID_VENDEDOR,'#10' ID_CONTR' +
- 'ATO, NO_VALORADO, TIPO_PRESUPUESTO)'#10' VALUES'#10' (:ID, :ID_EMPRE' +
- 'SA,'#10' :FECHA_PRESUPUESTO, :FECHA_VIGENCIA, :FECHA_DECISION, :' +
- 'REFERENCIA,'#10' :SITUACION, :ID_CLIENTE, :ID_DIRECCION, :PERSON' +
- 'A_CONTACTO,'#10' :FORMA_PAGO, :PLAZO_ENTREGA, :OBSERVACIONES, :I' +
- 'NCIDENCIAS,'#10' :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP, :USUAR' +
- 'IO, :IMPORTE_NETO, :IMPORTE_PORTE,'#10' :DESCUENTO, :IMPORTE_DES' +
- 'CUENTO, :BASE_IMPONIBLE, :ID_TIPO_IVA, :IVA, :IMPORTE_IVA,'#10' ' +
- ':RE, :IMPORTE_RE, :RECARGO_EQUIVALENCIA, :IMPORTE_TOTAL, :ID_FOR' +
- 'MA_PAGO, :ID_TIENDA, :ID_VENDEDOR,'#10' :ID_CONTRATO, :NO_VALORA' +
- 'DO, :TIPO_PRESUPUESTO)'#10' '#10#10#10#10#10
+ 'HA_PRESUPUESTO, FECHA_VIGENCIA, FECHA_DECISION, REFERENCIA, REFE' +
+ 'RENCIA_CLIENTE,'#10' SITUACION, ID_CLIENTE, ID_DIRECCION, PERSON' +
+ 'A_CONTACTO,'#10' FORMA_PAGO, PLAZO_ENTREGA, OBSERVACIONES, INCID' +
+ 'ENCIAS,'#10' INCIDENCIAS_ACTIVAS, FECHA_ALTA, USUARIO, IMPORTE_N' +
+ 'ETO, IMPORTE_PORTE,'#10' DESCUENTO, IMPORTE_DESCUENTO, BASE_IMPO' +
+ 'NIBLE, ID_TIPO_IVA, IVA, IMPORTE_IVA,'#10' RE, IMPORTE_RE, RECAR' +
+ 'GO_EQUIVALENCIA, IMPORTE_TOTAL, ID_FORMA_PAGO, ID_TIENDA, ID_VEN' +
+ 'DEDOR,'#10' ID_CONTRATO, NO_VALORADO, TIPO_PRESUPUESTO)'#10' VALUES' +
+ #10' (:ID, :ID_EMPRESA,'#10' :FECHA_PRESUPUESTO, :FECHA_VIGENCIA' +
+ ', :FECHA_DECISION, :REFERENCIA, :REFERENCIA_CLIENTE,'#10' :SITUA' +
+ 'CION, :ID_CLIENTE, :ID_DIRECCION, :PERSONA_CONTACTO,'#10' :FORMA' +
+ '_PAGO, :PLAZO_ENTREGA, :OBSERVACIONES, :INCIDENCIAS,'#10' :INCID' +
+ 'ENCIAS_ACTIVAS, CURRENT_TIMESTAMP, :USUARIO, :IMPORTE_NETO, :IMP' +
+ 'ORTE_PORTE,'#10' :DESCUENTO, :IMPORTE_DESCUENTO, :BASE_IMPONIBLE' +
+ ', :ID_TIPO_IVA, :IVA, :IMPORTE_IVA,'#10' :RE, :IMPORTE_RE, :RECA' +
+ 'RGO_EQUIVALENCIA, :IMPORTE_TOTAL, :ID_FORMA_PAGO, :ID_TIENDA, :I' +
+ 'D_VENDEDOR,'#10' :ID_CONTRATO, :NO_VALORADO, :TIPO_PRESUPUESTO)'#10 +
+ ' '#10#10#10#10#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -1054,12 +1070,6 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
end
item
Params = <
- item
- Name = 'TIPO_PRESUPUESTO'
- DataType = datString
- Size = 255
- Value = ''
- end
item
Name = 'ID'
DataType = datInteger
@@ -1086,6 +1096,12 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Size = 255
Value = ''
end
+ item
+ Name = 'REFERENCIA_CLIENTE'
+ DataType = datString
+ Size = 255
+ Value = ''
+ end
item
Name = 'SITUACION'
DataType = datString
@@ -1224,6 +1240,12 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
DataType = datSmallInt
Value = ''
end
+ item
+ Name = 'TIPO_PRESUPUESTO'
+ DataType = datString
+ Size = 255
+ Value = ''
+ end
item
Name = 'OLD_ID'
Value = ''
@@ -1237,23 +1259,23 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
'UPDATE PRESUPUESTOS_CLIENTE'#10' SET '#10' ID = :ID,'#10' FECHA_PRESU' +
'PUESTO = :FECHA_PRESUPUESTO,'#10' FECHA_VIGENCIA = :FECHA_VIGENCI' +
'A,'#10' FECHA_DECISION = :FECHA_DECISION, '#10' REFERENCIA = :REFE' +
- 'RENCIA, '#10' SITUACION = :SITUACION,'#10' ID_CLIENTE = :ID_CLIENT' +
- 'E, '#10' ID_DIRECCION = :ID_DIRECCION,'#10' PERSONA_CONTACTO = :PE' +
- 'RSONA_CONTACTO,'#10' FORMA_PAGO = :FORMA_PAGO,'#10' PLAZO_ENTREGA ' +
- '= :PLAZO_ENTREGA,'#10' OBSERVACIONES = :OBSERVACIONES, '#10' INCID' +
- 'ENCIAS = :INCIDENCIAS, '#10' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_A' +
- 'CTIVAS, '#10' FECHA_MODIFICACION = CURRENT_TIMESTAMP,'#10' USUARIO' +
- ' = :USUARIO, '#10' IMPORTE_NETO = :IMPORTE_NETO, '#10' IMPORTE_POR' +
- 'TE = :IMPORTE_PORTE, '#10' DESCUENTO = :DESCUENTO, '#10' IMPORTE_D' +
- 'ESCUENTO = :IMPORTE_DESCUENTO, '#10' BASE_IMPONIBLE = :BASE_IMPON' +
- 'IBLE, '#10' RECARGO_EQUIVALENCIA = :RECARGO_EQUIVALENCIA,'#10' RE ' +
- '= :RE,'#10' IMPORTE_RE = :IMPORTE_RE,'#10' ID_TIPO_IVA = :ID_TIPO_' +
- 'IVA,'#10' IVA = :IVA, '#10' IMPORTE_IVA = :IMPORTE_IVA, '#10' IMPOR' +
- 'TE_TOTAL = :IMPORTE_TOTAL, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10 +
- ' ID_TIENDA = :ID_TIENDA,'#10' ID_VENDEDOR = :ID_VENDEDOR,'#10' ' +
- 'ID_CONTRATO = :ID_CONTRATO,'#10' NO_VALORADO = :NO_VALORADO,'#10' ' +
- 'TIPO_PRESUPUESTO = :TIPO_PRESUPUESTO'#10' WHERE'#10' (ID = :OLD_ID)'#10 +
- #10
+ 'RENCIA, '#10' REFERENCIA_CLIENTE = :REFERENCIA_CLIENTE,'#10' SITUA' +
+ 'CION = :SITUACION,'#10' ID_CLIENTE = :ID_CLIENTE, '#10' ID_DIRECCI' +
+ 'ON = :ID_DIRECCION,'#10' PERSONA_CONTACTO = :PERSONA_CONTACTO,'#10' ' +
+ ' FORMA_PAGO = :FORMA_PAGO,'#10' PLAZO_ENTREGA = :PLAZO_ENTREGA,'#10 +
+ ' OBSERVACIONES = :OBSERVACIONES, '#10' INCIDENCIAS = :INCIDENC' +
+ 'IAS, '#10' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS, '#10' FECHA' +
+ '_MODIFICACION = CURRENT_TIMESTAMP,'#10' USUARIO = :USUARIO, '#10' ' +
+ 'IMPORTE_NETO = :IMPORTE_NETO, '#10' IMPORTE_PORTE = :IMPORTE_PORT' +
+ 'E, '#10' DESCUENTO = :DESCUENTO, '#10' IMPORTE_DESCUENTO = :IMPORT' +
+ 'E_DESCUENTO, '#10' BASE_IMPONIBLE = :BASE_IMPONIBLE, '#10' RECARGO' +
+ '_EQUIVALENCIA = :RECARGO_EQUIVALENCIA,'#10' RE = :RE,'#10' IMPORTE' +
+ '_RE = :IMPORTE_RE,'#10' ID_TIPO_IVA = :ID_TIPO_IVA,'#10' IVA = :IV' +
+ 'A, '#10' IMPORTE_IVA = :IMPORTE_IVA, '#10' IMPORTE_TOTAL = :IMPORT' +
+ 'E_TOTAL, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' ID_TIENDA = :I' +
+ 'D_TIENDA,'#10' ID_VENDEDOR = :ID_VENDEDOR,'#10' ID_CONTRATO = :ID_' +
+ 'CONTRATO,'#10' NO_VALORADO = :NO_VALORADO,'#10' TIPO_PRESUPUESTO =' +
+ ' :TIPO_PRESUPUESTO'#10' WHERE'#10' (ID = :OLD_ID)'#10#10
StatementType = stSQL
ColumnMappings = <>
end>
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm
index d308a8e..f804950 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm
+++ b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm
@@ -19,8 +19,8 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
895
555)
object edtFechaPresupuesto: TcxDBDateEdit
- Left = 103
- Top = 55
+ Left = 117
+ Top = 82
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_PRESUPUESTO'
DataBinding.DataSource = DADataSource
@@ -38,11 +38,11 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
- TabOrder = 1
+ TabOrder = 2
Width = 187
end
object memObservaciones: TcxDBMemo
- Left = 432
+ Left = 436
Top = 288
Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'OBSERVACIONES'
@@ -59,12 +59,12 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
- TabOrder = 12
+ TabOrder = 13
Height = 245
Width = 793
end
object eReferencia: TcxDBTextEdit
- Left = 103
+ Left = 117
Top = 28
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA'
@@ -89,8 +89,8 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
Width = 122
end
object cbFormaPago: TcxDBLookupComboBox
- Left = 103
- Top = 193
+ Left = 117
+ Top = 220
DataBinding.DataField = 'ID_FORMA_PAGO'
DataBinding.DataSource = DADataSource
Properties.ImmediatePost = True
@@ -117,21 +117,21 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
- TabOrder = 7
+ TabOrder = 8
Width = 122
end
object bFormasPago: TButton
- Left = 270
- Top = 193
+ Left = 274
+ Top = 220
Width = 132
Height = 21
Caption = 'Ver las formas de pago...'
- TabOrder = 8
+ TabOrder = 9
OnClick = bFormasPagoClick
end
object edtFechaDecision: TcxDBDateEdit
- Left = 295
- Top = 82
+ Left = 300
+ Top = 109
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_DECISION'
DataBinding.DataSource = DADataSource
@@ -148,12 +148,12 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
- TabOrder = 4
+ TabOrder = 5
Width = 260
end
object edtFechaVigencia: TcxDBDateEdit
- Left = 103
- Top = 82
+ Left = 117
+ Top = 109
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_VIGENCIA'
DataBinding.DataSource = DADataSource
@@ -174,12 +174,12 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
- TabOrder = 3
+ TabOrder = 4
Width = 260
end
object cbSituacion: TcxDBImageComboBox
- Left = 103
- Top = 109
+ Left = 117
+ Top = 136
DataBinding.DataField = 'SITUACION'
DataBinding.DataSource = DADataSource
Properties.ImmediatePost = True
@@ -205,11 +205,11 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
- TabOrder = 5
+ TabOrder = 6
Width = 260
end
inline frViewDatosYSeleccionClientePresupuesto1: TfrViewDatosYSeleccionClientePresupuesto
- Left = 432
+ Left = 436
Top = 28
Width = 320
Height = 224
@@ -219,9 +219,9 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
- TabOrder = 11
+ TabOrder = 12
ReadOnly = False
- ExplicitLeft = 432
+ ExplicitLeft = 436
ExplicitTop = 28
ExplicitWidth = 320
ExplicitHeight = 224
@@ -230,31 +230,43 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
Height = 224
ExplicitWidth = 320
ExplicitHeight = 224
+ inherited edtlNombre: TcxDBTextEdit
+ ExplicitWidth = 224
+ Width = 224
+ end
inherited edtNIFCIF: TcxDBTextEdit
- Left = 328
- ExplicitLeft = 328
+ Left = 324
+ ExplicitLeft = 324
end
inherited Button3: TBitBtn
- Left = 239
- ExplicitLeft = 239
+ Left = 235
+ ExplicitLeft = 235
+ end
+ inherited edtPersonaContacto: TcxDBTextEdit
+ ExplicitWidth = 283
+ Width = 283
end
inherited edtDireccion: TcxMemo
ExplicitWidth = 121
Width = 121
end
inherited Button4: TButton
- Left = 408
- ExplicitLeft = 408
+ Left = 404
+ ExplicitLeft = 404
end
inherited Button5: TButton
- Left = 408
- ExplicitLeft = 408
+ Left = 404
+ ExplicitLeft = 404
+ end
+ inherited edtTelefonos: TcxTextEdit
+ ExplicitWidth = 363
+ Width = 363
end
end
end
object memFormaPago: TcxDBMemo
Left = 22
- Top = 220
+ Top = 247
Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'FORMA_PAGO'
DataBinding.DataSource = DADataSource
@@ -270,13 +282,13 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
- TabOrder = 9
+ TabOrder = 10
Height = 44
Width = 475
end
object memPlazoEntrega: TcxDBMemo
Left = 22
- Top = 358
+ Top = 373
Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'PLAZO_ENTREGA'
DataBinding.DataSource = DADataSource
@@ -292,13 +304,13 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
- TabOrder = 10
+ TabOrder = 11
Height = 100
Width = 396
end
object cbVendedor: TcxDBLookupComboBox
- Left = 103
- Top = 136
+ Left = 117
+ Top = 163
DataBinding.DataField = 'ID_VENDEDOR'
DataBinding.DataSource = DADataSource
Properties.KeyFieldNames = 'ID'
@@ -323,12 +335,12 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
- TabOrder = 6
+ TabOrder = 7
Width = 27
end
object cbTipoPresupuesto: TcxDBComboBox
- Left = 289
- Top = 55
+ Left = 296
+ Top = 82
DataBinding.DataField = 'TIPO_PRESUPUESTO'
DataBinding.DataSource = DADataSource
Properties.DropDownListStyle = lsFixedList
@@ -343,9 +355,30 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
- TabOrder = 2
+ TabOrder = 3
Width = 186
end
+ object edtlReferenciaCliente: TcxDBTextEdit
+ Left = 117
+ Top = 55
+ Anchors = [akLeft, akTop, akRight]
+ AutoSize = False
+ DataBinding.DataField = 'REFERENCIA_CLIENTE'
+ DataBinding.DataSource = DADataSource
+ ParentFont = False
+ 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 = 1
+ Height = 21
+ Width = 204
+ end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
Hidden = True
@@ -368,6 +401,11 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
Control = eReferencia
ControlOptions.ShowBorder = False
end
+ object dxLayoutControl1Item13: TdxLayoutItem
+ Caption = 'Referencia cliente:'
+ Control = edtlReferenciaCliente
+ ControlOptions.ShowBorder = False
+ end
object dxLayoutControl1Group11: TdxLayoutGroup
ShowCaption = False
Hidden = True
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas
index a38e557..8dcd27c 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas
+++ b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas
@@ -68,6 +68,8 @@ type
dxLayoutControl1Item12: TdxLayoutItem;
cbTipoPresupuesto: TcxDBComboBox;
dxLayoutControl1Group11: TdxLayoutGroup;
+ dxLayoutControl1Item13: TdxLayoutItem;
+ edtlReferenciaCliente: TcxDBTextEdit;
procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
procedure bFormasPagoClick(Sender: TObject);
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm
index 5a61469..ace94b8 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm
+++ b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm
@@ -70,6 +70,10 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
BestFitMaxWidth = 25
Width = 65
end
+ object cxGridViewREFERENCIA_CLIENTE: TcxGridDBColumn
+ Caption = 'Ref. Cliente'
+ DataBinding.FieldName = 'REFERENCIA_CLIENTE'
+ end
object cxGridViewTIPO: TcxGridDBColumn
DataBinding.FieldName = 'TIPO_PRESUPUESTO'
BestFitMaxWidth = 25
@@ -143,15 +147,27 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
Width = 903
ExplicitWidth = 903
inherited txtFiltroTodo: TcxTextEdit
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 806
Width = 806
end
inherited edtFechaIniFiltro: TcxDateEdit
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 285
Width = 285
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 389
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 389
ExplicitWidth = 504
Width = 504
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas
index 0096e02..d30741b 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas
+++ b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas
@@ -46,6 +46,7 @@ type
cxGridViewINCIDENCIAS: TcxGridDBColumn;
cxStyleRECHAZADO: TcxStyle;
cxGridViewTIPO: TcxGridDBColumn;
+ cxGridViewREFERENCIA_CLIENTE: TcxGridDBColumn;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
TcxGridLevel);
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
diff --git a/Source/Modulos/Relaciones/Contratos de cliente - Albaranes de cliente/uGenerarAlbaranesCliUtils.pas b/Source/Modulos/Relaciones/Contratos de cliente - Albaranes de cliente/uGenerarAlbaranesCliUtils.pas
index 54b05ba..2a766f1 100644
--- a/Source/Modulos/Relaciones/Contratos de cliente - Albaranes de cliente/uGenerarAlbaranesCliUtils.pas
+++ b/Source/Modulos/Relaciones/Contratos de cliente - Albaranes de cliente/uGenerarAlbaranesCliUtils.pas
@@ -66,6 +66,7 @@ begin
AAlbaran.IMPORTE_TOTAL := AContrato.IMPORTE_TOTAL;
AAlbaran.DataTable.FieldByName(fld_AlbaranesClienteOBSERVACIONES).AsVariant := AContrato.DataTable.FieldByName(fld_ContratosClienteOBSERVACIONES).AsVariant;
AAlbaran.ID_FORMA_PAGO := AContrato.ID_FORMA_PAGO;
+ AAlbaran.REFERENCIA_CLIENTE = AContrato.REFERENCIA_CLIENTE;
end;
procedure CopiarDetallesAAlbaran(
diff --git a/Source/Modulos/Relaciones/Presupuestos de cliente - Contratos de cliente/uGenerarContratosCliUtils.pas b/Source/Modulos/Relaciones/Presupuestos de cliente - Contratos de cliente/uGenerarContratosCliUtils.pas
index 788d998..0ae2de8 100644
--- a/Source/Modulos/Relaciones/Presupuestos de cliente - Contratos de cliente/uGenerarContratosCliUtils.pas
+++ b/Source/Modulos/Relaciones/Presupuestos de cliente - Contratos de cliente/uGenerarContratosCliUtils.pas
@@ -123,6 +123,7 @@ begin
AContrato.RE := APresupuesto.RE;
AContrato.IMPORTE_RE := APresupuesto.IMPORTE_RE;
AContrato.TIPO_CONTRATO := APresupuesto.TIPO_PRESUPUESTO;
+ AContrato.REFERENCIA_CLIENTE := APresupuesto.REFERENCIA_CLIENTE;
end;
procedure CopiarDetallesAContrato(
diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr
index 0dc6ee7..98dbf9a 100644
--- a/Source/Servidor/FactuGES_Server.dpr
+++ b/Source/Servidor/FactuGES_Server.dpr
@@ -129,8 +129,6 @@ uses
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
- schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
- schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas',
schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
srvSubfamilias_Impl in '..\Modulos\Subfamilias\Servidor\srvSubfamilias_Impl.pas' {srvSubfamilias: TDataAbstractService},
@@ -139,7 +137,9 @@ uses
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
- schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas';
+ schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
+ schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
+ schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}
diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj
index b0dc1a6..3cc54fe 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -1,300 +1,301 @@
-
+
-
- {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}
- FactuGES_Server.dpr
- Debug
- AnyCPU
- DCC32
- ..\..\Output\Debug\Servidor\FactuGES_Server.exe
-
-
- 7.0
- False
- False
- 0
- 3
- ..\..\Output\Release\Servidor
- RELEASE
-
-
- 7.0
- 3
- ..\..\Output\Debug\Servidor
- DEBUG;
- True
-
-
- Delphi.Personality
-
-
- FalseTrueFalseTrueFalse2570FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.5.7.0FactuGES (Servidor)2.5.7.0lunes, 29 de abril de 2013 18:48
- File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found
- FactuGES_Server.dpr
-
-
-
-
- MainSource
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDARemoteService
-
-
-
- TRORemoteDataModule
-
-
-
-
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDARemoteService
-
-
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDARemoteService
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
- TFrame
-
-
-
- TFrame
-
-
-
- TForm
-
-
-
- TFrame
-
-
-
- TDARemoteService
-
-
-
-
-
-
- TDataModule
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+ {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}
+ FactuGES_Server.dpr
+ Debug
+ AnyCPU
+ DCC32
+ ..\..\Output\Debug\Servidor\FactuGES_Server.exe
+
+
+ 7.0
+ False
+ False
+ 0
+ 3
+ ..\..\Output\Release\Servidor
+ RELEASE
+
+
+ 7.0
+ 3
+ ..\..\Output\Debug\Servidor
+ DEBUG;
+ True
+
+
+ Delphi.Personality
+
+
+FalseTrueFalseTrueFalse2570FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.5.7.0FactuGES (Servidor)2.5.7.0lunes, 29 de abril de 2013 18:48
+
+ File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found
+ FactuGES_Server.dpr
+
+
+
+
+ MainSource
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDARemoteService
+
+
+
+ TRORemoteDataModule
+
+
+
+
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+ TFrame
+
+
+
+ TFrame
+
+
+
+ TForm
+
+
+
+ TFrame
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+ TDataModule
+
+
+
+
+
+
+
+
+
+
+
+
+