diff --git a/Source/Base/Base.res b/Source/Base/Base.res
index 1641339f..8b251f31 100644
Binary files a/Source/Base/Base.res and b/Source/Base/Base.res differ
diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc
index 4cc7bab4..73bb0b22 100644
--- a/Source/Cliente/FactuGES.rc
+++ b/Source/Cliente/FactuGES.rc
@@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico"
1 VERSIONINFO
-FILEVERSION 2,4,8,0
-PRODUCTVERSION 2,4,8,0
+FILEVERSION 2,4,9,0
+PRODUCTVERSION 2,4,9,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0"
- VALUE "FileVersion", "2.4.8.0\0"
+ VALUE "FileVersion", "2.4.9.0\0"
VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0"
- VALUE "ProductVersion", "2.4.8.0\0"
+ VALUE "ProductVersion", "2.4.9.0\0"
END
END
BLOCK "VarFileInfo"
diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res
index d4fc0d1a..3de90d26 100644
Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ
diff --git a/Source/Modulos/Articulos/Model/schArticulosClient_Intf.pas b/Source/Modulos/Articulos/Model/schArticulosClient_Intf.pas
index e992c5f5..3b4a514f 100644
--- a/Source/Modulos/Articulos/Model/schArticulosClient_Intf.pas
+++ b/Source/Modulos/Articulos/Model/schArticulosClient_Intf.pas
@@ -3,7 +3,7 @@ unit schArticulosClient_Intf;
interface
uses
- Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
+ Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
@@ -129,7 +129,7 @@ type
end;
{ TExisteImagenDataTableRules }
- TExisteImagenDataTableRules = class(TDADataTableRules, IExisteImagen)
+ TExisteImagenDataTableRules = class(TIntfObjectDADataTableRules, IExisteImagen)
private
protected
{ Property getters and setters }
@@ -277,7 +277,7 @@ type
end;
{ TArticulosDataTableRules }
- TArticulosDataTableRules = class(TDADataTableRules, IArticulos)
+ TArticulosDataTableRules = class(TIntfObjectDADataTableRules, IArticulos)
private
f_IMAGEN: IROStream;
procedure IMAGEN_OnChange(Sender: TObject);
@@ -540,7 +540,7 @@ type
end;
{ TArticulosParaClienteDataTableRules }
- TArticulosParaClienteDataTableRules = class(TDADataTableRules, IArticulosParaCliente)
+ TArticulosParaClienteDataTableRules = class(TIntfObjectDADataTableRules, IArticulosParaCliente)
private
f_IMAGEN: IROStream;
procedure IMAGEN_OnChange(Sender: TObject);
diff --git a/Source/Modulos/Articulos/Views/Articulos_view.RES b/Source/Modulos/Articulos/Views/Articulos_view.RES
index ea6f55be..8b251f31 100644
Binary files a/Source/Modulos/Articulos/Views/Articulos_view.RES and b/Source/Modulos/Articulos/Views/Articulos_view.RES differ
diff --git a/Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.dproj b/Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.dproj
index bff2ff2a..56c0843d 100644
--- a/Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.dproj
+++ b/Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.dproj
@@ -49,49 +49,56 @@
MainSource
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
@@ -149,19 +156,12 @@
TFrame
-
-
-
-
-
-
-