diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql
index 774d227d..ae5a319c 100644
--- a/Database/scripts/factuges.sql
+++ b/Database/scripts/factuges.sql
@@ -3641,7 +3641,8 @@ CREATE VIEW V_PRESUPUESTOS_CLIENTE(
AS
SELECT
PRESUPUESTOS_CLIENTE.ID,
- PRESUPUESTOS_CLIENTE.ID_EMPRESA,
+/* PRESUPUESTOS_CLIENTE.ID_EMPRESA,*/
+ EMPRESAS_CONTACTOS.ID_EMPRESA,
PRESUPUESTOS_CLIENTE.FECHA_PRESUPUESTO,
PRESUPUESTOS_CLIENTE.FECHA_VIGENCIA,
PRESUPUESTOS_CLIENTE.FECHA_DECISION,
@@ -3678,14 +3679,15 @@ SELECT
PRESUPUESTOS_CLIENTE.ID_VENDEDOR,
CONTACTOS2.NOMBRE AS VENDEDOR,
PRESUPUESTOS_CLIENTE.ID_CONTRATO,
- CONTRATOS_CLIENTE.REFERENCIA
+ CONTRATOS_CLIENTE.REFERENCIA
FROM
PRESUPUESTOS_CLIENTE
LEFT OUTER JOIN CONTACTOS ON (PRESUPUESTOS_CLIENTE.ID_CLIENTE = CONTACTOS.ID)
+ LEFT JOIN EMPRESAS_CONTACTOS ON (EMPRESAS_CONTACTOS.ID_CONTACTO = CONTACTOS.ID)
LEFT OUTER JOIN CONTACTOS CONTACTOS2 ON (PRESUPUESTOS_CLIENTE.ID_VENDEDOR = CONTACTOS2.ID)
LEFT OUTER JOIN EMPRESAS_TIENDAS ON (EMPRESAS_TIENDAS.ID = PRESUPUESTOS_CLIENTE.ID_TIENDA)
- LEFT OUTER JOIN CONTRATOS_CLIENTE ON (CONTRATOS_CLIENTE.ID = PRESUPUESTOS_CLIENTE.ID_CONTRATO)
+ LEFT OUTER JOIN CONTRATOS_CLIENTE ON (CONTRATOS_CLIENTE.ID = PRESUPUESTOS_CLIENTE.ID_CONTRATO)
;
/* View: V_CONTRATOS_CLIENTE */
@@ -3694,6 +3696,7 @@ CREATE VIEW V_CONTRATOS_CLIENTE(
ID_EMPRESA,
ID_CLIENTE,
NOMBRE_CLIENTE,
+ REF_CLIENTE,
NOMBRE_COMERCIAL_CLIENTE,
NIF_CIF,
NOMBRE,
@@ -3732,9 +3735,11 @@ CREATE VIEW V_CONTRATOS_CLIENTE(
PERSONA_CONTACTO)
AS
SELECT CONTRATOS_CLIENTE.ID,
- CONTRATOS_CLIENTE.ID_EMPRESA,
+/* CONTRATOS_CLIENTE.ID_EMPRESA,*/
+ EMPRESAS_CONTACTOS.ID_EMPRESA,
CONTRATOS_CLIENTE.ID_CLIENTE,
CONTACTOS.NOMBRE,
+ CONTACTOS.REFERENCIA,
CLIENTES_DATOS.NOMBRE_COMERCIAL,
CONTRATOS_CLIENTE.NIF_CIF,
CONTRATOS_CLIENTE.NOMBRE,
@@ -3774,6 +3779,7 @@ SELECT CONTRATOS_CLIENTE.ID,
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/Usuarios/Data/uDataModuleUsuarios.dfm b/Source/ApplicationBase/Usuarios/Data/uDataModuleUsuarios.dfm
index 56e8c065..2c9ced9f 100644
--- a/Source/ApplicationBase/Usuarios/Data/uDataModuleUsuarios.dfm
+++ b/Source/ApplicationBase/Usuarios/Data/uDataModuleUsuarios.dfm
@@ -264,12 +264,12 @@ inherited DataModuleUsuarios: TDataModuleUsuarios
Top = 16
end
object rda_Usuarios: TDARemoteDataAdapter
+ DataStreamer = Bin2DataStreamer
GetSchemaCall.RemoteService = srvUsuarios
GetDataCall.RemoteService = srvUsuarios
UpdateDataCall.RemoteService = srvUsuarios
GetScriptsCall.RemoteService = srvUsuarios
RemoteService = srvUsuarios
- DataStreamer = Bin2DataStreamer
Left = 176
Top = 16
end
@@ -362,8 +362,6 @@ inherited DataModuleUsuarios: TDataModuleUsuarios
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_Usuarios
- DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
- MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'USUARIOS'
IndexDefs = <>
Left = 176
@@ -410,8 +408,6 @@ inherited DataModuleUsuarios: TDataModuleUsuarios
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_Usuarios
- DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
- MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'PERFILES'
IndexDefs = <>
Left = 272
diff --git a/Source/ApplicationBase/Usuarios/Data/uDataModuleUsuarios.pas b/Source/ApplicationBase/Usuarios/Data/uDataModuleUsuarios.pas
index 77014797..784e39b5 100644
--- a/Source/ApplicationBase/Usuarios/Data/uDataModuleUsuarios.pas
+++ b/Source/ApplicationBase/Usuarios/Data/uDataModuleUsuarios.pas
@@ -38,7 +38,6 @@ type
function GetPerfil (const ID : Integer) : IBizPerfilUsuario;
procedure InicializarUserControl (AUserControl : TUserControl);
- function DarTiendaUsuario(const ID_Usuario: Integer; var AID_Tienda: Integer; var ATienda: String) : Boolean;
function Login(const AUser: String; const APassword: String): Boolean;
procedure Logout;
@@ -79,22 +78,6 @@ begin
Result := GetUsuario(ID_NULO)
end;
-{procedure TDataModuleUsuarios.DarIDTiendaVendedorUsuario(const ID_USUARIO: Integer; var AIdTienda: Integer; var ATienda: String);
-begin
- //Nos devuelve el id de la tienda a la que pertenece el vendedor que tiene asignado
- //el usuario con el que ha accedido a la aplicación.
- //Esto funciona mientras la relación sea 1 a 1, cuando sea 1 a n (un usuario pertenece a varios vendedores deja de funcionar)
- (srvUsuarios as IsrvUsuarios).darIDTiendaVendedorUsuario(ID_USUARIO, AIdTienda, ATienda);
-end;}
-
-function TDataModuleUsuarios.DarTiendaUsuario(const ID_Usuario: Integer; var AID_Tienda: Integer; var ATienda: String) : Boolean;
-begin
- // Nos devuelve el id de la tienda a la que pertenece el vendedor que tiene asignado
- // el usuario con el que ha accedido a la aplicación.
- // Esto funciona mientras la relación sea 1 a 1, cuando sea 1 a n (un usuario pertenece a varios vendedores deja de funcionar)
-end;
-
-
procedure TDataModuleUsuarios.DataModuleCreate(Sender: TObject);
begin
inherited;
diff --git a/Source/ApplicationBase/Usuarios/Model/Data/uIDataModuleUsuarios.pas b/Source/ApplicationBase/Usuarios/Model/Data/uIDataModuleUsuarios.pas
index 73c8286c..e0ab7ccb 100644
--- a/Source/ApplicationBase/Usuarios/Model/Data/uIDataModuleUsuarios.pas
+++ b/Source/ApplicationBase/Usuarios/Model/Data/uIDataModuleUsuarios.pas
@@ -18,8 +18,6 @@ type
function GetPerfiles : IBizPerfilUsuario;
function GetPerfil(const ID : Integer) : IBizPerfilUsuario;
- function DarTiendaUsuario(const ID_Usuario: Integer; var AID_Tienda: Integer; var ATienda: String) : Boolean;
-
function Login(const AUser: String; const APassword: String): Boolean;
procedure Logout;
end;
diff --git a/Source/ApplicationBase/Usuarios/Servidor/srvUsuarios_Impl.dfm b/Source/ApplicationBase/Usuarios/Servidor/srvUsuarios_Impl.dfm
index f3fd9c02..aba8d5dd 100644
--- a/Source/ApplicationBase/Usuarios/Servidor/srvUsuarios_Impl.dfm
+++ b/Source/ApplicationBase/Usuarios/Servidor/srvUsuarios_Impl.dfm
@@ -117,53 +117,6 @@ object srvUsuarios: TsrvUsuarios
DataDictionary = DataDictionary
Diagrams = Diagrams
Datasets = <
- item
- IsPublic = False
- Params = <
- item
- Name = 'ID_USUARIO'
- DataType = datInteger
- Value = '6'
- end
- item
- Name = 'ID_EMPRESA'
- DataType = datInteger
- Value = '1'
- end>
- Statements = <
- item
- Connection = 'IBX'
- ConnectionType = 'Interbase'
- Default = True
- TargetTable = 'V_VENDEDORES'
- Name = 'IBX'
- SQL =
- 'select ID_TIENDA, TIENDA'#10' from V_VENDEDORES'#10' where V_VENDEDORES' +
- '.ID = :ID_USUARIO and'#10' V_VENDEDORES.ID_EMPRESA = :ID_EMPRE' +
- 'SA'#10
- StatementType = stSQL
- ColumnMappings = <
- item
- DatasetField = 'ID_TIENDA'
- TableField = 'ID_TIENDA'
- end
- item
- DatasetField = 'TIENDA'
- TableField = 'TIENDA'
- end>
- end>
- Name = 'DarTiendaUsuario'
- Fields = <
- item
- Name = 'ID_TIENDA'
- DataType = datInteger
- end
- item
- Name = 'TIENDA'
- DataType = datString
- Size = 255
- end>
- end
item
Params = <>
Statements = <
diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj
index b36f21a8..51cf8874 100644
--- a/Source/Base/Base.dproj
+++ b/Source/Base/Base.dproj
@@ -44,6 +44,13 @@
Package
FalseTrueFalseLibreria base de FactuGESFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0
+
+
+
+
+
+
+
VCL for the Web Design Package for CodeGear RAD Studio
CodeGear WebSnap Components
CodeGear SOAP Components
@@ -58,52 +65,52 @@
MainSource
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
TForm
diff --git a/Source/Base/Base.res b/Source/Base/Base.res
index 8b251f31..1641339f 100644
Binary files a/Source/Base/Base.res and b/Source/Base/Base.res differ
diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj
index ed03ab24..aa2ba778 100644
--- a/Source/Cliente/FactuGES.dproj
+++ b/Source/Cliente/FactuGES.dproj
@@ -53,7 +53,7 @@
Delphi.Personality
VCLApplication
-FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2350FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.3.5.0FactuGESFactuGES2.3.5.0FactuGES.dprFalse
+FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2360FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.3.6.0FactuGESFactuGES2.3.6.0FactuGES.dprFalse
diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res
index 152ca943..70853d71 100644
Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ
diff --git a/Source/GUIBase/uViewIncidencias.dfm b/Source/GUIBase/uViewIncidencias.dfm
index 2b600617..7405a4b1 100644
--- a/Source/GUIBase/uViewIncidencias.dfm
+++ b/Source/GUIBase/uViewIncidencias.dfm
@@ -1,9 +1,9 @@
inherited frViewIncidencias: TfrViewIncidencias
Width = 451
- Height = 370
+ Height = 461
Align = alBottom
ExplicitWidth = 451
- ExplicitHeight = 370
+ ExplicitHeight = 461
object pnlSup: TPanel
Left = 0
Top = 0
@@ -37,19 +37,17 @@ inherited frViewIncidencias: TfrViewIncidencias
Left = 0
Top = 28
Width = 451
- Height = 342
+ Height = 433
Align = alClient
Caption = 'Incidencias'
TabOrder = 1
- DesignSize = (
- 451
- 342)
object eIncidencias: TcxDBMemo
- Left = 10
- Top = 22
- Anchors = [akLeft, akTop, akRight, akBottom]
+ Left = 2
+ Top = 15
+ Align = alClient
DataBinding.DataField = 'INCIDENCIAS'
DataBinding.DataSource = DADataSource
+ Properties.ScrollBars = ssVertical
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
@@ -59,8 +57,8 @@ inherited frViewIncidencias: TfrViewIncidencias
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 0
- Height = 305
- Width = 420
+ Height = 416
+ Width = 447
end
end
object DADataSource: TDADataSource
diff --git a/Source/Informes/2/InfAlbaranCliente.fr3 b/Source/Informes/2/InfAlbaranCliente.fr3
index 1035a702..2f79a140 100644
--- a/Source/Informes/2/InfAlbaranCliente.fr3
+++ b/Source/Informes/2/InfAlbaranCliente.fr3
@@ -1,8 +1,8 @@
-
+
-
+
@@ -30,7 +30,7 @@
-
+
@@ -38,7 +38,7 @@
-
+
@@ -48,10 +48,10 @@
-
-
+
+
-
+
diff --git a/Source/Informes/2/InfContratoCliente.fr3 b/Source/Informes/2/InfContratoCliente.fr3
new file mode 100644
index 00000000..6e25b58a
--- /dev/null
+++ b/Source/Informes/2/InfContratoCliente.fr3
@@ -0,0 +1,102 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/Informes/2/InfFacturaCliente.fr3 b/Source/Informes/2/InfFacturaCliente.fr3
index 4824bf4d..86315f66 100644
--- a/Source/Informes/2/InfFacturaCliente.fr3
+++ b/Source/Informes/2/InfFacturaCliente.fr3
@@ -1,8 +1,8 @@
-
+
-
+
@@ -30,10 +30,10 @@
-
+
-
+
@@ -41,7 +41,7 @@
-
+
@@ -65,8 +65,8 @@
-
-
+
+
diff --git a/Source/Informes/2/InfPresupuestoCliente.fr3 b/Source/Informes/2/InfPresupuestoCliente.fr3
new file mode 100644
index 00000000..31cc7dfa
--- /dev/null
+++ b/Source/Informes/2/InfPresupuestoCliente.fr3
@@ -0,0 +1,79 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/Informes/2/InfReciboCliente.fr3 b/Source/Informes/2/InfReciboCliente.fr3
index 877586a1..2f3da484 100644
--- a/Source/Informes/2/InfReciboCliente.fr3
+++ b/Source/Informes/2/InfReciboCliente.fr3
@@ -1,8 +1,8 @@
-
+
-
+
@@ -58,9 +58,9 @@
-
-
-
+
+
+
diff --git a/Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.drc b/Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.drc
index 88edf5f1..9deabffc 100644
--- a/Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.drc
+++ b/Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.drc
@@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Controller\ContratosCliente_controller.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf872.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfAA1.tmp */
diff --git a/Source/Modulos/Contratos de cliente/Data/ContratosCliente_data.drc b/Source/Modulos/Contratos de cliente/Data/ContratosCliente_data.drc
index 93e477fa..5cbb5b9f 100644
--- a/Source/Modulos/Contratos de cliente/Data/ContratosCliente_data.drc
+++ b/Source/Modulos/Contratos de cliente/Data/ContratosCliente_data.drc
@@ -14,4 +14,4 @@ END
/* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Data\uDataModuleContratosCliente.dfm */
/* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Data\ContratosCliente_data.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf870.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfA9F.tmp */
diff --git a/Source/Modulos/Contratos de cliente/Model/ContratosCliente_model.drc b/Source/Modulos/Contratos de cliente/Model/ContratosCliente_model.drc
index a8aed73d..722ac2e1 100644
--- a/Source/Modulos/Contratos de cliente/Model/ContratosCliente_model.drc
+++ b/Source/Modulos/Contratos de cliente/Model/ContratosCliente_model.drc
@@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Model\ContratosCliente_model.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf86E.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfA9D.tmp */
diff --git a/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas b/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas
index 660e3053..9e461469 100644
--- a/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas
+++ b/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas
@@ -3,18 +3,18 @@ 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 = '{569C4BBD-F143-44AB-AE2F-AA6733F37581}';
- RID_Propiedades = '{958FDBFC-7C67-4A1F-80CF-899030163CDB}';
- RID_ListaAnosContratos = '{2AFBD9FE-E31D-4A9E-AD0F-D3F4AE910BEB}';
- RID_ContratosCliente = '{9A186154-0F7C-42B4-AF72-5E9E0801EAC8}';
- RID_CapitulosPresupuesto = '{466F929F-F004-4E04-A043-DBB3B667ECCE}';
- RID_ContratosCliente_Detalles = '{30342CD1-2EE8-4497-9A6A-25BF9E0CCDD6}';
+ RID_Valores = '{6425EDD9-EBD4-43FD-8545-FFEF34A8562A}';
+ RID_Propiedades = '{0F975252-35A0-4D39-846F-4A63EE7B4E60}';
+ RID_ListaAnosContratos = '{24E43FF1-C21B-46BB-B88C-17E3A68E3CA3}';
+ RID_ContratosCliente = '{1866BCD5-3262-49D3-804C-401D7D3FCBE0}';
+ RID_CapitulosPresupuesto = '{F8960438-1112-4E2B-8C4F-546552C38E66}';
+ RID_ContratosCliente_Detalles = '{D7437C8C-E8C5-4877-A3BD-BAC0DB86C2DA}';
{ Data table names }
nme_Valores = 'Valores';
@@ -187,7 +187,7 @@ const
type
{ IValores }
IValores = interface(IDAStronglyTypedDataTable)
- ['{5D15741A-15A6-4598-B8B7-EBFCE2D802A2}']
+ ['{654B9338-5C3E-46DC-9D3B-FEE5C1362851}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -213,7 +213,7 @@ type
end;
{ TValoresDataTableRules }
- TValoresDataTableRules = class(TIntfObjectDADataTableRules, IValores)
+ TValoresDataTableRules = class(TDADataTableRules, IValores)
private
protected
{ Property getters and setters }
@@ -246,7 +246,7 @@ type
{ IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable)
- ['{090CE60B-4D24-4472-A2F4-C95C4813FEC9}']
+ ['{EE7E48A1-556F-4CCD-A5C0-310C33E76C05}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -272,7 +272,7 @@ type
end;
{ TPropiedadesDataTableRules }
- TPropiedadesDataTableRules = class(TIntfObjectDADataTableRules, IPropiedades)
+ TPropiedadesDataTableRules = class(TDADataTableRules, IPropiedades)
private
protected
{ Property getters and setters }
@@ -305,7 +305,7 @@ type
{ IListaAnosContratos }
IListaAnosContratos = interface(IDAStronglyTypedDataTable)
- ['{25612533-A52A-45BA-BE4D-04D500D6FB1C}']
+ ['{BDEFFDA8-85EB-4B16-9E08-C3CD397B2F70}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@@ -319,7 +319,7 @@ type
end;
{ TListaAnosContratosDataTableRules }
- TListaAnosContratosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosContratos)
+ TListaAnosContratosDataTableRules = class(TDADataTableRules, IListaAnosContratos)
private
protected
{ Property getters and setters }
@@ -340,7 +340,7 @@ type
{ IContratosCliente }
IContratosCliente = interface(IDAStronglyTypedDataTable)
- ['{F7D66B35-0712-4250-AAE0-F8F70AFA04A3}']
+ ['{71B11240-6256-418D-82D7-5586D8A10591}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -584,7 +584,7 @@ type
end;
{ TContratosClienteDataTableRules }
- TContratosClienteDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente)
+ TContratosClienteDataTableRules = class(TDADataTableRules, IContratosCliente)
private
f_FORMA_PAGO: IROStrings;
f_PLAZO_ENTREGA: IROStrings;
@@ -846,7 +846,7 @@ type
}
{ ICapitulosPresupuesto }
ICapitulosPresupuesto = interface(IDAStronglyTypedDataTable)
- ['{DE2E4BAE-DF41-4426-8F90-1D338AFF63BA}']
+ ['{2187AEED-477B-45C3-BBBF-270822AF8DF1}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -890,7 +890,7 @@ type
end;
{ TCapitulosPresupuestoDataTableRules }
- TCapitulosPresupuestoDataTableRules = class(TIntfObjectDADataTableRules, ICapitulosPresupuesto)
+ TCapitulosPresupuestoDataTableRules = class(TDADataTableRules, ICapitulosPresupuesto)
private
protected
{ Property getters and setters }
@@ -941,7 +941,7 @@ type
{ IContratosCliente_Detalles }
IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
- ['{84FBE3E1-B0CA-408A-A962-B85C85430FE5}']
+ ['{AE19F002-20B5-4F2A-9EDE-C17C3DA772EA}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -1039,7 +1039,7 @@ type
end;
{ TContratosCliente_DetallesDataTableRules }
- TContratosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente_Detalles)
+ TContratosCliente_DetallesDataTableRules = class(TDADataTableRules, IContratosCliente_Detalles)
private
protected
{ Property getters and setters }
diff --git a/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas b/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas
index 0f907d2a..8b73b264 100644
--- a/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas
+++ b/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_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 = '{88181682-ABCC-4E1B-8FFA-1FF5479DEA02}';
- RID_PropiedadesDelta = '{110FEF80-D7C3-4C2B-A2B5-68086C2F0DB5}';
- RID_ListaAnosContratosDelta = '{7C956C53-A91A-45AB-8BC0-F48969046ADF}';
- RID_ContratosClienteDelta = '{63BBD338-95C0-4E98-890E-688C4F411831}';
- RID_CapitulosPresupuestoDelta = '{31D84112-02F8-4DA5-BBE1-93A957BC18C2}';
- RID_ContratosCliente_DetallesDelta = '{6335F584-A85A-463D-A204-AAEFAE0B13E8}';
+ RID_ValoresDelta = '{25248564-22B0-47BB-86D0-2444C6EA27E9}';
+ RID_PropiedadesDelta = '{D4DB0BBC-EA97-4F0E-8A48-AA33A949DBF3}';
+ RID_ListaAnosContratosDelta = '{18D72479-5821-401B-B8A5-43F927D23F4D}';
+ RID_ContratosClienteDelta = '{6AD4B6BE-88CF-47E6-AABC-520CC5BFC3BE}';
+ RID_CapitulosPresupuestoDelta = '{0669B7DF-4A6B-4517-BB0E-2934956BB2B0}';
+ RID_ContratosCliente_DetallesDelta = '{BC3F0D8A-48F1-47D0-86FB-AB210406B3CD}';
type
{ IValoresDelta }
IValoresDelta = interface(IValores)
- ['{88181682-ABCC-4E1B-8FFA-1FF5479DEA02}']
+ ['{25248564-22B0-47BB-86D0-2444C6EA27E9}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PROPIEDADValue : Integer;
@@ -77,7 +77,7 @@ type
{ IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades)
- ['{110FEF80-D7C3-4C2B-A2B5-68086C2F0DB5}']
+ ['{D4DB0BBC-EA97-4F0E-8A48-AA33A949DBF3}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@@ -135,7 +135,7 @@ type
{ IListaAnosContratosDelta }
IListaAnosContratosDelta = interface(IListaAnosContratos)
- ['{7C956C53-A91A-45AB-8BC0-F48969046ADF}']
+ ['{18D72479-5821-401B-B8A5-43F927D23F4D}']
{ Property getters and setters }
function GetOldANOValue : String;
@@ -169,7 +169,7 @@ type
{ IContratosClienteDelta }
IContratosClienteDelta = interface(IContratosCliente)
- ['{63BBD338-95C0-4E98-890E-688C4F411831}']
+ ['{6AD4B6BE-88CF-47E6-AABC-520CC5BFC3BE}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -675,7 +675,7 @@ type
{ ICapitulosPresupuestoDelta }
ICapitulosPresupuestoDelta = interface(ICapitulosPresupuesto)
- ['{31D84112-02F8-4DA5-BBE1-93A957BC18C2}']
+ ['{0669B7DF-4A6B-4517-BB0E-2934956BB2B0}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer;
@@ -769,7 +769,7 @@ type
{ IContratosCliente_DetallesDelta }
IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles)
- ['{6335F584-A85A-463D-A204-AAEFAE0B13E8}']
+ ['{BC3F0D8A-48F1-47D0-86FB-AB210406B3CD}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTRATOValue : Integer;
diff --git a/Source/Modulos/Contratos de cliente/Model/uBizContratosCliente.pas b/Source/Modulos/Contratos de cliente/Model/uBizContratosCliente.pas
index a9122b15..b29b8415 100644
--- a/Source/Modulos/Contratos de cliente/Model/uBizContratosCliente.pas
+++ b/Source/Modulos/Contratos de cliente/Model/uBizContratosCliente.pas
@@ -257,6 +257,9 @@ begin
ID_TIENDA := AppFactuGES.TiendaActiva.ID;
TIENDA := AppFactuGES.TiendaActiva.NOMBRE;
+ VENDEDOR := AppFactuGES.UsuarioActivo.USERNAME;
+
+
Self.DataTable.FieldByName(fld_ContratosClienteFORMA_PAGO).AsString := AppFactuGES.FormaPagoDocumentos;
Self.DataTable.FieldByName(fld_ContratosClienteOBSERVACIONES).AsString := AppFactuGES.ObservacionesDocumentos;
end;
diff --git a/Source/Modulos/Contratos de cliente/Model/uBizContratosClienteServer.pas b/Source/Modulos/Contratos de cliente/Model/uBizContratosClienteServer.pas
index c0853910..c1239d3d 100644
--- a/Source/Modulos/Contratos de cliente/Model/uBizContratosClienteServer.pas
+++ b/Source/Modulos/Contratos de cliente/Model/uBizContratosClienteServer.pas
@@ -84,7 +84,7 @@ begin
GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
AReferenciasService := Intf as IsrvReferencias;
- Result := AReferenciasService.DarNuevaReferencia(ACodigoReferencia, ID_EMPRESA, ID_TIENDA)
+ Result := AReferenciasService.DarNuevaReferencia(ACodigoReferencia, -1, ID_TIENDA)
end;
function TBizContratosClienteServer.IncrementarReferencia: Boolean;
@@ -99,7 +99,7 @@ begin
GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
AReferenciasService := Intf as IsrvReferencias;
- Result := AReferenciasService.IncrementarValorReferencia(ACodigoReferencia, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA)
+ Result := AReferenciasService.IncrementarValorReferencia(ACodigoReferencia, Self.REFERENCIA, -1, ID_TIENDA)
end;
initialization
diff --git a/Source/Modulos/Contratos de cliente/Plugin/ContratosCliente_plugin.drc b/Source/Modulos/Contratos de cliente/Plugin/ContratosCliente_plugin.drc
index 733f42db..e48d6543 100644
--- a/Source/Modulos/Contratos de cliente/Plugin/ContratosCliente_plugin.drc
+++ b/Source/Modulos/Contratos de cliente/Plugin/ContratosCliente_plugin.drc
@@ -14,4 +14,4 @@ END
/* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Plugin\uPluginContratosCliente.dfm */
/* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Plugin\ContratosCliente_plugin.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf8BA.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfAE9.tmp */
diff --git a/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm b/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm
index 67c880f3..4c31c66f 100644
--- a/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm
+++ b/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm
@@ -738,11 +738,6 @@ object srvContratosCliente: TsrvContratosCliente
GeneratorName = 'GEN_CONTRATOS_CLI_ID'
Value = ''
end
- item
- Name = 'ID_EMPRESA'
- DataType = datInteger
- Value = ''
- end
item
Name = 'ID_CLIENTE'
DataType = datInteger
@@ -919,23 +914,22 @@ object srvContratosCliente: TsrvContratosCliente
Default = True
TargetTable = 'CONTRATOS_CLIENTE'
SQL =
- 'INSERT'#10' INTO CONTRATOS_CLIENTE'#10' (ID, ID_EMPRESA, ID_CLIENTE,' +
- ' NIF_CIF, NOMBRE, CALLE, POBLACION, PROVINCIA,'#10' CODIGO_POSTA' +
- 'L, REFERENCIA, FECHA_CONTRATO, SITUACION, FORMA_PAGO,'#10' PLAZO' +
- '_ENTREGA, OBSERVACIONES, INCIDENCIAS, INCIDENCIAS_ACTIVAS, FECHA' +
- '_ALTA,'#10' USUARIO, IMPORTE_NETO, IMPORTE_PORTE, DESCUENTO, IMP' +
- 'ORTE_DESCUENTO,'#10' BASE_IMPONIBLE, ID_TIPO_IVA, IVA, IMPORTE_I' +
- 'VA,'#10' IMPORTE_TOTAL, ID_FORMA_PAGO, ID_TIENDA, ID_VENDEDOR, P' +
- 'ERSONA_CONTACTO,'#10' RE, IMPORTE_RE, RECARGO_EQUIVALENCIA)'#10' VA' +
- 'LUES'#10' (:ID, :ID_EMPRESA, :ID_CLIENTE, :NIF_CIF, :NOMBRE, :CAL' +
- 'LE, :POBLACION, :PROVINCIA,'#10' :CODIGO_POSTAL, :REFERENCIA, :F' +
- 'ECHA_CONTRATO, :SITUACION, :FORMA_PAGO,'#10' :PLAZO_ENTREGA, :OB' +
- 'SERVACIONES, :INCIDENCIAS, :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTA' +
- 'MP,'#10' :USUARIO, :IMPORTE_NETO, :IMPORTE_PORTE, :DESCUENTO, :I' +
- 'MPORTE_DESCUENTO,'#10' :BASE_IMPONIBLE, :ID_TIPO_IVA, :IVA, :IMP' +
- 'ORTE_IVA, :IMPORTE_TOTAL, :ID_FORMA_PAGO,'#10' :ID_TIENDA, :ID_V' +
- 'ENDEDOR, :PERSONA_CONTACTO, :RE, :IMPORTE_RE, :RECARGO_EQUIVALEN' +
- 'CIA)'#10#10
+ 'INSERT'#10' INTO CONTRATOS_CLIENTE'#10' (ID, ID_CLIENTE, NIF_CIF, NO' +
+ 'MBRE, CALLE, POBLACION, PROVINCIA,'#10' CODIGO_POSTAL, REFERENCI' +
+ 'A, FECHA_CONTRATO, SITUACION, FORMA_PAGO,'#10' PLAZO_ENTREGA, OB' +
+ 'SERVACIONES, INCIDENCIAS, INCIDENCIAS_ACTIVAS, FECHA_ALTA,'#10' ' +
+ 'USUARIO, IMPORTE_NETO, IMPORTE_PORTE, DESCUENTO, IMPORTE_DESCUEN' +
+ 'TO,'#10' BASE_IMPONIBLE, ID_TIPO_IVA, IVA, IMPORTE_IVA,'#10' IMP' +
+ 'ORTE_TOTAL, ID_FORMA_PAGO, ID_TIENDA, ID_VENDEDOR, PERSONA_CONTA' +
+ 'CTO,'#10' RE, IMPORTE_RE, RECARGO_EQUIVALENCIA)'#10' VALUES'#10' (:I' +
+ 'D, :ID_CLIENTE, :NIF_CIF, :NOMBRE, :CALLE, :POBLACION, :PROVINCI' +
+ 'A,'#10' :CODIGO_POSTAL, :REFERENCIA, :FECHA_CONTRATO, :SITUACION' +
+ ', :FORMA_PAGO,'#10' :PLAZO_ENTREGA, :OBSERVACIONES, :INCIDENCIAS' +
+ ', :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP,'#10' :USUARIO, :IMPOR' +
+ 'TE_NETO, :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10' :B' +
+ 'ASE_IMPONIBLE, :ID_TIPO_IVA, :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL,' +
+ ' :ID_FORMA_PAGO,'#10' :ID_TIENDA, :ID_VENDEDOR, :PERSONA_CONTACT' +
+ 'O, :RE, :IMPORTE_RE, :RECARGO_EQUIVALENCIA)'#10#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -966,11 +960,6 @@ object srvContratosCliente: TsrvContratosCliente
DataType = datInteger
Value = ''
end
- item
- Name = 'ID_EMPRESA'
- DataType = datInteger
- Value = ''
- end
item
Name = 'ID_CLIENTE'
DataType = datInteger
@@ -1151,25 +1140,24 @@ object srvContratosCliente: TsrvContratosCliente
Default = True
TargetTable = 'CONTRATOS_CLIENTE'
SQL =
- 'UPDATE CONTRATOS_CLIENTE'#10' SET '#10' ID = :ID,'#10' ID_EMPRESA = :' +
- 'ID_EMPRESA, '#10' ID_CLIENTE = :ID_CLIENTE,'#10' NIF_CIF = :NIF_CI' +
- 'F,'#10' NOMBRE = :NOMBRE,'#10' CALLE = :CALLE,'#10' POBLACION = :PO' +
- 'BLACION,'#10' PROVINCIA = :PROVINCIA,'#10' CODIGO_POSTAL = :CODIGO' +
- '_POSTAL,'#10' REFERENCIA = :REFERENCIA,'#10' FECHA_CONTRATO = :FEC' +
- 'HA_CONTRATO,'#10' SITUACION = :SITUACION,'#10' FORMA_PAGO = :FORMA' +
- '_PAGO,'#10' PLAZO_ENTREGA = :PLAZO_ENTREGA,'#10' OBSERVACIONES = :' +
- 'OBSERVACIONES,'#10' INCIDENCIAS = :INCIDENCIAS,'#10' INCIDENCIAS_A' +
- 'CTIVAS = :INCIDENCIAS_ACTIVAS,'#10' FECHA_MODIFICACION = CURRENT_' +
- 'TIMESTAMP,'#10' USUARIO = :USUARIO,'#10' IMPORTE_NETO = :IMPORTE_N' +
- 'ETO,'#10' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' DESCUENTO = :DESCUE' +
- 'NTO,'#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO,'#10' BASE_IMPONI' +
- 'BLE = :BASE_IMPONIBLE,'#10' ID_TIPO_IVA = :ID_TIPO_IVA,'#10' IVA =' +
- ' :IVA,'#10' IMPORTE_IVA = :IMPORTE_IVA,'#10' IMPORTE_TOTAL = :IMPO' +
- 'RTE_TOTAL,'#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' ID_TIENDA = :' +
- 'ID_TIENDA,'#10' ID_VENDEDOR = :ID_VENDEDOR,'#10' PERSONA_CONTACTO ' +
- '= :PERSONA_CONTACTO,'#10' RE = :RE,'#10' IMPORTE_RE = :IMPORTE_RE,' +
- #10' RECARGO_EQUIVALENCIA = :RECARGO_EQUIVALENCIA'#10#10' WHERE'#10' (' +
- 'ID = :OLD_ID)'#10#10
+ 'UPDATE CONTRATOS_CLIENTE'#10' SET '#10' ID = :ID,'#10' ID_CLIENTE = :' +
+ 'ID_CLIENTE,'#10' NIF_CIF = :NIF_CIF,'#10' NOMBRE = :NOMBRE,'#10' CA' +
+ 'LLE = :CALLE,'#10' POBLACION = :POBLACION,'#10' PROVINCIA = :PROVI' +
+ 'NCIA,'#10' CODIGO_POSTAL = :CODIGO_POSTAL,'#10' REFERENCIA = :REFE' +
+ 'RENCIA,'#10' FECHA_CONTRATO = :FECHA_CONTRATO,'#10' SITUACION = :S' +
+ 'ITUACION,'#10' FORMA_PAGO = :FORMA_PAGO,'#10' PLAZO_ENTREGA = :PLA' +
+ 'ZO_ENTREGA,'#10' OBSERVACIONES = :OBSERVACIONES,'#10' INCIDENCIAS ' +
+ '= :INCIDENCIAS,'#10' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS,'#10 +
+ ' FECHA_MODIFICACION = CURRENT_TIMESTAMP,'#10' USUARIO = :USUAR' +
+ 'IO,'#10' IMPORTE_NETO = :IMPORTE_NETO,'#10' IMPORTE_PORTE = :IMPOR' +
+ 'TE_PORTE,'#10' DESCUENTO = :DESCUENTO,'#10' IMPORTE_DESCUENTO = :I' +
+ 'MPORTE_DESCUENTO,'#10' BASE_IMPONIBLE = :BASE_IMPONIBLE,'#10' ID_T' +
+ 'IPO_IVA = :ID_TIPO_IVA,'#10' IVA = :IVA,'#10' IMPORTE_IVA = :IMPOR' +
+ 'TE_IVA,'#10' IMPORTE_TOTAL = :IMPORTE_TOTAL,'#10' ID_FORMA_PAGO = ' +
+ ':ID_FORMA_PAGO,'#10' ID_TIENDA = :ID_TIENDA,'#10' ID_VENDEDOR = :I' +
+ 'D_VENDEDOR,'#10' PERSONA_CONTACTO = :PERSONA_CONTACTO,'#10' RE = :' +
+ 'RE,'#10' IMPORTE_RE = :IMPORTE_RE,'#10' RECARGO_EQUIVALENCIA = :RE' +
+ 'CARGO_EQUIVALENCIA'#10#10' WHERE'#10' (ID = :OLD_ID)'#10#10
StatementType = stSQL
ColumnMappings = <>
end>
diff --git a/Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.drc b/Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.drc
index 1fab9cd1..2eca2d26 100644
--- a/Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.drc
+++ b/Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.drc
@@ -25,4 +25,4 @@ END
/* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Views\uEditorElegirArticulosContratoCliente.dfm */
/* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Views\uEditorContratosClienteReport.dfm */
/* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Views\ContratosCliente_view.res */
-/* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Views\ContratosCliente_view.drf */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfAE7.tmp */
diff --git a/Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.dfm b/Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.dfm
index 5b4924d2..e6444c5d 100644
--- a/Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.dfm
+++ b/Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.dfm
@@ -2,19 +2,19 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Left = 332
Top = 147
Caption = 'Nuevo contrato de cliente'
- ClientHeight = 676
- ClientWidth = 848
+ ClientHeight = 595
+ ClientWidth = 845
OnClose = CustomEditorClose
- ExplicitWidth = 856
- ExplicitHeight = 710
+ ExplicitWidth = 853
+ ExplicitHeight = 629
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
- Width = 848
+ Width = 845
Caption = 'Nuevo contrato de cliente'
ExplicitWidth = 848
inherited Image1: TImage
- Left = 821
+ Left = 818
Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
0000180806000000E0773DF80000000970485973000017120000171201679FD2
@@ -126,7 +126,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
end
end
inherited TBXDock: TTBXDock
- Width = 848
+ Width = 845
ExplicitWidth = 848
inherited tbxMain: TTBXToolbar
ExplicitWidth = 488
@@ -147,7 +147,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
end
end
inherited tbxMenu: TTBXToolbar
- ExplicitWidth = 848
+ ExplicitWidth = 845
object TBXSubmenuItem2: TTBXSubmenuItem [4]
Caption = 'A&cciones'
object TBXItem34: TTBXItem
@@ -162,8 +162,8 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
end
end
inherited StatusBar: TJvStatusBar
- Top = 657
- Width = 848
+ Top = 576
+ Width = 845
Panels = <
item
Width = 200
@@ -172,8 +172,9 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
ExplicitWidth = 848
end
inherited pgPaginas: TPageControl
- Width = 842
- Height = 351
+ Width = 839
+ Height = 270
+ ActivePage = pagInicidencias
TabOrder = 1
OnChanging = pgPaginasChanging
ExplicitTop = 109
@@ -188,11 +189,13 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
object pagContenido: TTabSheet
Caption = 'Contenido'
ImageIndex = 1
+ ExplicitWidth = 834
+ ExplicitHeight = 323
inline frViewDetallesContratoCliente1: TfrViewDetallesContratoCliente
Left = 0
Top = 0
- Width = 834
- Height = 323
+ Width = 831
+ Height = 242
Align = alClient
BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET
@@ -207,7 +210,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
ExplicitWidth = 834
ExplicitHeight = 323
inherited ToolBar1: TToolBar
- Width = 834
+ Width = 831
Height = 24
ExplicitWidth = 834
ExplicitHeight = 24
@@ -223,10 +226,10 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
inherited FontSize: TEdit
Left = 513
Top = 0
- Width = 58
+ Width = 74
ExplicitLeft = 513
ExplicitTop = 0
- ExplicitWidth = 58
+ ExplicitWidth = 74
end
inherited UpDown1: TUpDown
Left = 587
@@ -285,19 +288,19 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
end
inherited cxGrid: TcxGrid
Top = 50
- Width = 834
- Height = 273
+ Width = 831
+ Height = 192
ExplicitTop = 50
ExplicitWidth = 834
ExplicitHeight = 273
end
inherited TBXDock1: TTBXDock
Top = 24
- Width = 834
+ Width = 831
ExplicitTop = 24
ExplicitWidth = 834
inherited TBXToolbar1: TTBXToolbar
- ExplicitWidth = 614
+ ExplicitWidth = 564
end
end
inherited cxLookupComboBox1: TcxLookupComboBox
@@ -311,11 +314,13 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
object pagInicidencias: TTabSheet
Caption = 'Incidencias'
ImageIndex = 2
+ ExplicitWidth = 834
+ ExplicitHeight = 323
inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0
Top = 0
- Width = 834
- Height = 323
+ Width = 831
+ Height = 242
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@@ -328,22 +333,19 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
ExplicitWidth = 834
ExplicitHeight = 323
inherited pnlSup: TPanel
- Width = 834
+ Width = 831
ExplicitWidth = 834
- inherited eIncidenciaActiva: TcxDBCheckBox
- ExplicitHeight = 21
- end
end
inherited GroupBox1: TGroupBox
- Width = 834
- Height = 295
+ Width = 831
+ Height = 214
ExplicitWidth = 834
ExplicitHeight = 295
inherited eIncidencias: TcxDBMemo
ExplicitWidth = 811
ExplicitHeight = 292
- Height = 292
- Width = 811
+ Height = 211
+ Width = 808
end
end
end
@@ -351,11 +353,13 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
object pagDocumentos: TTabSheet
Caption = 'Documentos'
ImageIndex = 5
+ ExplicitWidth = 834
+ ExplicitHeight = 323
inline frViewDocumentosContratoCliente1: TfrViewDocumentosContratoCliente
Left = 0
Top = 0
- Width = 834
- Height = 323
+ Width = 831
+ Height = 242
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@@ -368,12 +372,12 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
ExplicitWidth = 834
ExplicitHeight = 323
inherited TBXDock: TTBXDock
- Width = 834
+ Width = 831
ExplicitWidth = 834
end
inherited ListView1: TListView
- Width = 834
- Height = 300
+ Width = 831
+ Height = 219
ExplicitWidth = 834
ExplicitHeight = 300
end
@@ -385,17 +389,17 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
end
end
inherited PnlComentario: TPanel
- Width = 848
+ Width = 845
ExplicitWidth = 848
inherited lbComentario: TLabel
- Width = 838
+ Width = 835
Height = 25
end
end
inline frViewTotales1: TfrViewTotales [5]
Left = 0
- Top = 463
- Width = 848
+ Top = 382
+ Width = 845
Height = 194
Align = alBottom
Font.Charset = DEFAULT_CHARSET
@@ -410,18 +414,18 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
ExplicitWidth = 848
ExplicitHeight = 194
inherited dxLayoutControl1: TdxLayoutControl
- Width = 848
+ Width = 845
ExplicitWidth = 848
inherited Bevel3: TBevel
- Left = 417
+ Left = 416
Height = 122
- ExplicitLeft = 417
+ ExplicitLeft = 416
ExplicitHeight = 122
end
inherited Bevel4: TBevel
- Left = 529
+ Left = 528
Width = 210
- ExplicitLeft = 529
+ ExplicitLeft = 528
ExplicitWidth = 210
end
inherited ImporteDto: TcxDBCurrencyEdit
@@ -434,24 +438,24 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Width = 93
end
inherited ImporteIVA: TcxDBCurrencyEdit
- Left = 600
+ Left = 599
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 600
+ ExplicitLeft = 599
ExplicitWidth = 137
Width = 137
end
inherited ImporteTotal: TcxDBCurrencyEdit
- Left = 530
+ Left = 529
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 530
+ ExplicitLeft = 529
ExplicitWidth = 137
Width = 137
end
@@ -463,42 +467,42 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
StyleHot.LookAndFeel.SkinName = ''
end
inherited edtIVA: TcxDBSpinEdit
- Left = 529
+ Left = 528
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 529
+ ExplicitLeft = 528
end
inherited ImporteBase: TcxDBCurrencyEdit
- Left = 529
+ Left = 528
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 529
+ ExplicitLeft = 528
ExplicitWidth = 92
Width = 92
end
inherited edtRE: TcxDBSpinEdit
- Left = 529
+ Left = 528
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 529
+ ExplicitLeft = 528
end
inherited ImporteRE: TcxDBCurrencyEdit
- Left = 600
+ Left = 599
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 600
+ ExplicitLeft = 599
ExplicitWidth = 56
Width = 56
end
@@ -531,9 +535,9 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Width = 81
end
inherited bTiposIVA: TButton
- Left = 269
+ Left = 268
OnClick = frViewTotales1bTiposIVAClick
- ExplicitLeft = 269
+ ExplicitLeft = 268
end
inherited cbRecargoEquivalencia: TcxDBCheckBox
Style.LookAndFeel.SkinName = ''
diff --git a/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.dfm b/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.dfm
index e9a70042..01e32bd1 100644
--- a/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.dfm
+++ b/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.dfm
@@ -91,12 +91,6 @@ inherited frViewContratosCliente: TfrViewContratosCliente
DataBinding.FieldName = 'NOMBRE'
Width = 161
end
- object cxGridViewCLIENTE_FINAL: TcxGridDBColumn
- Caption = 'Cliente final'
- DataBinding.FieldName = 'CLIENTE_FINAL'
- BestFitMaxWidth = 80
- Width = 140
- end
object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn
Caption = 'Importe total'
DataBinding.FieldName = 'IMPORTE_TOTAL'
diff --git a/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.pas b/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.pas
index 12a493f1..13ce10b6 100644
--- a/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.pas
+++ b/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.pas
@@ -23,13 +23,11 @@ type
end;
TfrViewContratosCliente = class(TfrViewGrid, IViewContratosCliente)
- cxGridDBTableView1: TcxGridDBTableView;
cxGridViewREFERENCIA: TcxGridDBColumn;
cxGridViewINCIDENCIASACTIVAS: TcxGridDBColumn;
cxGridViewNOMBRE: TcxGridDBColumn;
cxGridViewSITUACION: TcxGridDBColumn;
cxGridViewFECHA_CONTRATO: TcxGridDBColumn;
- cxGridViewCLIENTE_FINAL: TcxGridDBColumn;
cxGridViewFACTURA: TcxGridDBColumn;
cxGridViewIMPORTE_TOTAL: TcxGridDBColumn;
cxGridLevelPendientes: TcxGridLevel;
diff --git a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas
index bc0228c4..a140ce0d 100644
--- a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas
+++ b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas
@@ -3,18 +3,18 @@ unit schPresupuestosClienteClient_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 = '{360865F6-D61C-4F56-81B3-80940311084F}';
- RID_Propiedades = '{578A1925-5462-48CD-88F8-00151C73B996}';
- RID_ListaAnosPresupuestos = '{44749161-C1BE-4754-8CE5-6A09AF383611}';
- RID_PresupuestosCliente = '{8145DD24-FBBA-4F26-A6F1-8EE2C84AD837}';
- RID_CapitulosPresupuesto = '{249810AA-086E-4490-940F-A0AF43A71A5A}';
- RID_PresupuestosCliente_Detalles = '{854200B0-5648-479E-9BC9-6DE111FF31E6}';
+ RID_Valores = '{8F678C89-C84C-491D-88A8-3FA8AA200B7B}';
+ RID_Propiedades = '{CB86B7AA-E200-4D33-9831-736BBCCD1145}';
+ RID_ListaAnosPresupuestos = '{953D58F9-E500-46FB-A447-9E4FDB1653E5}';
+ RID_PresupuestosCliente = '{CAB2C1BC-02C2-4740-BC0E-C80FC7CA0D43}';
+ RID_CapitulosPresupuesto = '{7BF1E379-4B80-487C-AD64-9DC12F8E4293}';
+ RID_PresupuestosCliente_Detalles = '{51C04670-8D87-4DFA-8D34-2E8CC96C11AA}';
{ Data table names }
nme_Valores = 'Valores';
@@ -185,7 +185,7 @@ const
type
{ IValores }
IValores = interface(IDAStronglyTypedDataTable)
- ['{DD6974D3-A0C4-4E21-A334-E50E81583DA9}']
+ ['{97D666A4-0354-4F3D-8A26-AE1C181A52D0}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -211,7 +211,7 @@ type
end;
{ TValoresDataTableRules }
- TValoresDataTableRules = class(TIntfObjectDADataTableRules, IValores)
+ TValoresDataTableRules = class(TDADataTableRules, IValores)
private
protected
{ Property getters and setters }
@@ -244,7 +244,7 @@ type
{ IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable)
- ['{6512B700-7A3B-45A4-80AC-B6D48193D4CB}']
+ ['{3238E30E-57F0-4C9C-8951-66CCCC70EB77}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -270,7 +270,7 @@ type
end;
{ TPropiedadesDataTableRules }
- TPropiedadesDataTableRules = class(TIntfObjectDADataTableRules, IPropiedades)
+ TPropiedadesDataTableRules = class(TDADataTableRules, IPropiedades)
private
protected
{ Property getters and setters }
@@ -303,7 +303,7 @@ type
{ IListaAnosPresupuestos }
IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable)
- ['{EED87562-4E5D-4164-8D9E-AE13BEB8A806}']
+ ['{6AFE2837-CEC0-4DBC-B594-53220DD34736}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@@ -317,7 +317,7 @@ type
end;
{ TListaAnosPresupuestosDataTableRules }
- TListaAnosPresupuestosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosPresupuestos)
+ TListaAnosPresupuestosDataTableRules = class(TDADataTableRules, IListaAnosPresupuestos)
private
protected
{ Property getters and setters }
@@ -338,7 +338,7 @@ type
{ IPresupuestosCliente }
IPresupuestosCliente = interface(IDAStronglyTypedDataTable)
- ['{CB9CB465-7592-4B43-9E99-7A6E743BBFD2}']
+ ['{6A36C4B0-590E-4B26-8142-7699225805F6}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -576,7 +576,7 @@ type
end;
{ TPresupuestosClienteDataTableRules }
- TPresupuestosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPresupuestosCliente)
+ TPresupuestosClienteDataTableRules = class(TDADataTableRules, IPresupuestosCliente)
private
f_FORMA_PAGO: IROStrings;
f_PLAZO_ENTREGA: IROStrings;
@@ -829,7 +829,7 @@ type
{ ICapitulosPresupuesto }
ICapitulosPresupuesto = interface(IDAStronglyTypedDataTable)
- ['{96561128-301B-4707-91F2-6428F82033FE}']
+ ['{27538BB0-5AAB-4F43-B48F-7B2E90A73045}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -873,7 +873,7 @@ type
end;
{ TCapitulosPresupuestoDataTableRules }
- TCapitulosPresupuestoDataTableRules = class(TIntfObjectDADataTableRules, ICapitulosPresupuesto)
+ TCapitulosPresupuestoDataTableRules = class(TDADataTableRules, ICapitulosPresupuesto)
private
protected
{ Property getters and setters }
@@ -924,7 +924,7 @@ type
{ IPresupuestosCliente_Detalles }
IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable)
- ['{006D2E37-2AEC-43DD-B5A4-3BB45956BABC}']
+ ['{A5BF3AF5-328E-4F20-8716-0B3844EF7FB5}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -1022,7 +1022,7 @@ type
end;
{ TPresupuestosCliente_DetallesDataTableRules }
- TPresupuestosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IPresupuestosCliente_Detalles)
+ TPresupuestosCliente_DetallesDataTableRules = class(TDADataTableRules, IPresupuestosCliente_Detalles)
private
protected
{ Property getters and setters }
diff --git a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas
index 696cc49b..94a7f91e 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 = '{A31ECE4B-F45F-4FFA-B8D2-E4C30437FC6C}';
- RID_PropiedadesDelta = '{17913405-B1A3-414E-B9CC-8668063D831C}';
- RID_ListaAnosPresupuestosDelta = '{28DC5CF0-35FD-4430-997C-CE68FAFA4B91}';
- RID_PresupuestosClienteDelta = '{AD87C5AB-4E58-404D-997A-A099D3BE6A93}';
- RID_CapitulosPresupuestoDelta = '{F88C93D2-E737-4E68-8C96-6F328113A033}';
- RID_PresupuestosCliente_DetallesDelta = '{98D1A78A-661D-41D6-9920-E0105FFE38FD}';
+ RID_ValoresDelta = '{3304418B-9CEC-4A8E-B46C-B11D0D8F7FB2}';
+ RID_PropiedadesDelta = '{48FC4878-0972-4697-A1C1-41764D19B4AF}';
+ RID_ListaAnosPresupuestosDelta = '{F5D7132D-0FCF-47CE-867B-8BA530302FAC}';
+ RID_PresupuestosClienteDelta = '{7D8F5258-4284-4AA6-BFE7-C03DF174BCC8}';
+ RID_CapitulosPresupuestoDelta = '{9EA18AF5-5763-4D4D-A195-9152C1058813}';
+ RID_PresupuestosCliente_DetallesDelta = '{639409C3-40C2-4E80-B232-CC22EBA51DDE}';
type
{ IValoresDelta }
IValoresDelta = interface(IValores)
- ['{A31ECE4B-F45F-4FFA-B8D2-E4C30437FC6C}']
+ ['{3304418B-9CEC-4A8E-B46C-B11D0D8F7FB2}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PROPIEDADValue : Integer;
@@ -77,7 +77,7 @@ type
{ IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades)
- ['{17913405-B1A3-414E-B9CC-8668063D831C}']
+ ['{48FC4878-0972-4697-A1C1-41764D19B4AF}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@@ -135,7 +135,7 @@ type
{ IListaAnosPresupuestosDelta }
IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos)
- ['{28DC5CF0-35FD-4430-997C-CE68FAFA4B91}']
+ ['{F5D7132D-0FCF-47CE-867B-8BA530302FAC}']
{ Property getters and setters }
function GetOldANOValue : String;
@@ -169,7 +169,7 @@ type
{ IPresupuestosClienteDelta }
IPresupuestosClienteDelta = interface(IPresupuestosCliente)
- ['{AD87C5AB-4E58-404D-997A-A099D3BE6A93}']
+ ['{7D8F5258-4284-4AA6-BFE7-C03DF174BCC8}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -663,7 +663,7 @@ type
{ ICapitulosPresupuestoDelta }
ICapitulosPresupuestoDelta = interface(ICapitulosPresupuesto)
- ['{F88C93D2-E737-4E68-8C96-6F328113A033}']
+ ['{9EA18AF5-5763-4D4D-A195-9152C1058813}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer;
@@ -757,7 +757,7 @@ type
{ IPresupuestosCliente_DetallesDelta }
IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles)
- ['{98D1A78A-661D-41D6-9920-E0105FFE38FD}']
+ ['{639409C3-40C2-4E80-B232-CC22EBA51DDE}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PRESUPUESTOValue : Integer;
diff --git a/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosClienteServer.pas b/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosClienteServer.pas
index 256ca259..c22a8390 100644
--- a/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosClienteServer.pas
+++ b/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosClienteServer.pas
@@ -84,7 +84,7 @@ begin
GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
AReferenciasService := Intf as IsrvReferencias;
- Result := AReferenciasService.DarNuevaReferencia(ACodigoReferencia, ID_EMPRESA, ID_TIENDA)
+ Result := AReferenciasService.DarNuevaReferencia(ACodigoReferencia, -1, ID_TIENDA)
end;
function TBizPresupuestosClienteServer.IncrementarReferencia: Boolean;
@@ -99,7 +99,7 @@ begin
GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
AReferenciasService := Intf as IsrvReferencias;
- Result := AReferenciasService.IncrementarValorReferencia(ACodigoReferencia, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA)
+ Result := AReferenciasService.IncrementarValorReferencia(ACodigoReferencia, Self.REFERENCIA, -1, ID_TIENDA)
end;
initialization
diff --git a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm b/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm
index a8b674ba..f1aa63f9 100644
--- a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm
+++ b/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm
@@ -726,11 +726,6 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
GeneratorName = 'GEN_PRESUPUESTOS_CLI_ID'
Value = ''
end
- item
- Name = 'ID_EMPRESA'
- DataType = datInteger
- Value = ''
- end
item
Name = 'FECHA_PRESUPUESTO'
DataType = datDateTime
@@ -891,23 +886,23 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Default = True
TargetTable = 'PRESUPUESTOS_CLIENTE'
SQL =
- 'INSERT'#10' INTO PRESUPUESTOS_CLIENTE'#10' (ID, ID_EMPRESA, FECHA_PR' +
- 'ESUPUESTO, FECHA_VIGENCIA, FECHA_DECISION, REFERENCIA,'#10' SITU' +
- 'ACION, ID_CLIENTE, ID_DIRECCION, PERSONA_CONTACTO,'#10' FORMA_PA' +
- 'GO, PLAZO_ENTREGA, OBSERVACIONES, INCIDENCIAS,'#10' INCIDENCIAS_' +
- '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, IMPORTE_' +
- 'TOTAL, ID_FORMA_PAGO, ID_TIENDA, ID_VENDEDOR,'#10' ID_CONTRATO)'#10 +
- ' VALUES'#10' (:ID, :ID_EMPRESA, :FECHA_PRESUPUESTO, :FECHA_VIGEN' +
- 'CIA, :FECHA_DECISION, :REFERENCIA,'#10' :SITUACION, :ID_CLIENTE,' +
- ' :ID_DIRECCION, :PERSONA_CONTACTO,'#10' :FORMA_PAGO, :PLAZO_ENTR' +
- 'EGA, :OBSERVACIONES, :INCIDENCIAS,'#10' :INCIDENCIAS_ACTIVAS, CU' +
- 'RRENT_TIMESTAMP, :USUARIO, :IMPORTE_NETO, :IMPORTE_PORTE,'#10' :' +
- 'DESCUENTO, :IMPORTE_DESCUENTO, :BASE_IMPONIBLE, :ID_TIPO_IVA, :I' +
- 'VA, :IMPORTE_IVA,'#10' :RE, :IMPORTE_RE, :RECARGO_EQUIVALENCIA, ' +
- ':IMPORTE_TOTAL, :ID_FORMA_PAGO, :ID_TIENDA, :ID_VENDEDOR,'#10' :' +
- 'ID_CONTRATO)'#10' '#10#10#10#10#10
+ 'INSERT'#10' INTO PRESUPUESTOS_CLIENTE'#10' (ID,'#10' FECHA_PRESUPUES' +
+ 'TO, FECHA_VIGENCIA, FECHA_DECISION, REFERENCIA,'#10' SITUACION, ' +
+ 'ID_CLIENTE, ID_DIRECCION, PERSONA_CONTACTO,'#10' FORMA_PAGO, PLA' +
+ 'ZO_ENTREGA, OBSERVACIONES, INCIDENCIAS,'#10' INCIDENCIAS_ACTIVAS' +
+ ', FECHA_ALTA, USUARIO, IMPORTE_NETO, IMPORTE_PORTE,'#10' DESCUEN' +
+ 'TO, IMPORTE_DESCUENTO, BASE_IMPONIBLE, ID_TIPO_IVA, IVA, IMPORTE' +
+ '_IVA,'#10' RE, IMPORTE_RE, RECARGO_EQUIVALENCIA, IMPORTE_TOTAL, ' +
+ 'ID_FORMA_PAGO, ID_TIENDA, ID_VENDEDOR,'#10' ID_CONTRATO)'#10' VALUE' +
+ 'S'#10' (:ID,'#10' :FECHA_PRESUPUESTO, :FECHA_VIGENCIA, :FECHA_DEC' +
+ 'ISION, :REFERENCIA,'#10' :SITUACION, :ID_CLIENTE, :ID_DIRECCION,' +
+ ' :PERSONA_CONTACTO,'#10' :FORMA_PAGO, :PLAZO_ENTREGA, :OBSERVACI' +
+ 'ONES, :INCIDENCIAS,'#10' :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP' +
+ ', :USUARIO, :IMPORTE_NETO, :IMPORTE_PORTE,'#10' :DESCUENTO, :IMP' +
+ 'ORTE_DESCUENTO, :BASE_IMPONIBLE, :ID_TIPO_IVA, :IVA, :IMPORTE_IV' +
+ 'A,'#10' :RE, :IMPORTE_RE, :RECARGO_EQUIVALENCIA, :IMPORTE_TOTAL,' +
+ ' :ID_FORMA_PAGO, :ID_TIENDA, :ID_VENDEDOR,'#10' :ID_CONTRATO)'#10' ' +
+ ' '#10#10#10#10#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -940,11 +935,6 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
DataType = datInteger
Value = ''
end
- item
- Name = 'ID_EMPRESA'
- DataType = datInteger
- Value = ''
- end
item
Name = 'FECHA_PRESUPUESTO'
DataType = datDateTime
@@ -1094,23 +1084,23 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Default = True
TargetTable = 'PRESUPUESTOS_CLIENTE'
SQL =
- 'UPDATE PRESUPUESTOS_CLIENTE'#10' SET '#10' ID = :ID,'#10' ID_EMPRESA ' +
- '= :ID_EMPRESA, '#10' FECHA_PRESUPUESTO = :FECHA_PRESUPUESTO, '#10' ' +
- ' FECHA_VIGENCIA = :FECHA_VIGENCIA,'#10' FECHA_DECISION = :FECHA_D' +
- 'ECISION, '#10' REFERENCIA = :REFERENCIA, '#10' SITUACION = :SITUAC' +
- 'ION,'#10' ID_CLIENTE = :ID_CLIENTE, '#10' ID_DIRECCION = :ID_DIREC' +
- 'CION,'#10' PERSONA_CONTACTO = :PERSONA_CONTACTO,'#10' FORMA_PAGO =' +
- ' :FORMA_PAGO,'#10' PLAZO_ENTREGA = :PLAZO_ENTREGA,'#10' OBSERVACIO' +
- 'NES = :OBSERVACIONES, '#10' INCIDENCIAS = :INCIDENCIAS, '#10' INCI' +
- 'DENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS, '#10' FECHA_MODIFICACION ' +
- '= CURRENT_TIMESTAMP,'#10' USUARIO = :USUARIO, '#10' IMPORTE_NETO =' +
- ' :IMPORTE_NETO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE, '#10' DESCUE' +
- 'NTO = :DESCUENTO, '#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO, '#10 +
- ' BASE_IMPONIBLE = :BASE_IMPONIBLE, '#10' ID_TIPO_IVA = :ID_TIP' +
- 'O_IVA,'#10' IVA = :IVA, '#10' IMPORTE_IVA = :IMPORTE_IVA, '#10' IMP' +
- 'ORTE_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' WHERE'#10' (ID = :OLD_ID)'#10#10
+ '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' ID_TIPO_IVA = :ID_TIPO_IVA,'#10' IVA = :IVA, '#10' IMPO' +
+ 'RTE_IVA = :IMPORTE_IVA, '#10' IMPORTE_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' W' +
+ 'HERE'#10' (ID = :OLD_ID)'#10#10
StatementType = stSQL
ColumnMappings = <>
end>
diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index 0e76cb81..2b13373b 100644
Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ
diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr
index 19a22d4d..68963de6 100644
--- a/Source/Servidor/FactuGES_Server.dpr
+++ b/Source/Servidor/FactuGES_Server.dpr
@@ -131,12 +131,12 @@ uses
srvContratosCliente_Impl in '..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas' {srvContratosCliente: TDataAbstractService},
uBizContratosClienteServer in '..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas',
uRptContratosCliente_Server in '..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas' {RptContratosCliente},
+ schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
+ schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
- schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas',
- schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
- schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_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 95f0f0aa..02a8c9e1 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -1,295 +1,297 @@
-
+
-
- {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
-
-
- FalseTrueFalseTrueFalse2350FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.3.5.0FactuGES (Servidor)2.3.5.0miércoles, 26 de agosto de 2009 12:14
- FastQueryBuilder 1.03
- JVCL Unified Interbase Components
- FactuGES_Server.dpr
-
-
-
-
- MainSource
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDARemoteService
-
-
-
- TRORemoteDataModule
-
-
-
-
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDARemoteService
-
-
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDARemoteService
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
- TFrame
-
-
-
- TFrame
-
-
-
- TForm
-
-
-
- TFrame
-
-
-
- TDARemoteService
-
-
-
-
-
-
- TDataModule
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+ {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}
+ FactuGES_Server.dpr
+ Debug
+ AnyCPU
+ DCC32
+ ..\..\Output\Debug\Servidor\FactuGES_Server.exe
+
+
+ 7.0
+ False
+ False
+ 0
+ 3
+ ..\..\Output\Release\Servidor
+ RELEASE
+
+
+ 7.0
+ 3
+ ..\..\Output\Debug\Servidor
+ DEBUG;
+ True
+
+
+ Delphi.Personality
+
+
+FalseTrueFalseTrueFalse2360FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.3.6.0FactuGES (Servidor)2.3.6.0martes, 22 de septiembre de 2009 18:55
+
+
+ FastQueryBuilder 1.03
+ JVCL Unified Interbase Components
+ FactuGES_Server.dpr
+
+
+
+
+ MainSource
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDARemoteService
+
+
+
+ TRORemoteDataModule
+
+
+
+
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+ TFrame
+
+
+
+ TFrame
+
+
+
+ TForm
+
+
+
+ TFrame
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+ TDataModule
+
+
+
+
+
+
+
+
+
+
+
+
+