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

Controladores -> repaso general en la herencia de los controladores por problemas de liberación de memoria.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@323 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2008-11-11 12:25:58 +00:00
parent 451bbf0861
commit 4f6fbbb472
15 changed files with 27 additions and 103 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

89
Build/Build.fbp5
View File

@ -18924,95 +18924,6 @@ Comments=
</Object>
</Object>
</Object>
<Object Class="TGroupAction" XMLID="{B6FF24D6-FAF7-4A2C-A3DD-82476DA27DD2}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Comprimir ejecutables]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property MultiValue="1" name="Description" type="string"><![CDATA[Comprimir ejecutables]]>
</Property>
<Property name="Enabled" type="WordBool">False</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
<Object Class="TFBScriptBasedAction" XMLID="{3954C05B-1763-404E-8EE5-5A12E36C5594}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Comprimir servidor]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string">{A78530B0-8E25-4ACF-BCD0-410E385473A0}</Property>
<Property MultiValue="1" name="CustomActionName" type="string"><![CDATA[ASPack Compress Executable]]>
</Property>
<Property MultiValue="1" name="Description" type="string"><![CDATA[Comprimir servidor]]>
</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="EnableTimeout" type="Boolean">False</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
<Property name="TerminateOnTimeout" type="Boolean">True</Property>
<Property name="TimeoutLength" type="Cardinal">2</Property>
<CustomProperty MultiValue="0" name="Executable" type="ptString">%output_path%\Debug\Servidor\FactuGES_Server.exe</CustomProperty>
<CustomProperty MultiValue="0" name="OutputFile" type="ptString"></CustomProperty>
<CustomProperty name="CompressResources" type="ptBoolean">True</CustomProperty>
<CustomProperty name="MakeBackup" type="ptBoolean">True</CustomProperty>
<CustomProperty name="PreserveExtraData" type="ptBoolean">False</CustomProperty>
<CustomProperty name="UseWindowsDLLLoader" type="ptBoolean">True</CustomProperty>
<CustomProperty name="Quiet" type="ptBoolean">True</CustomProperty>
<CustomProperty name="MaxCompression" type="ptBoolean">True</CustomProperty>
<CustomProperty name="Recurse" type="ptBoolean">False</CustomProperty>
<CustomProperty name="CompressExport" type="ptBoolean">False</CustomProperty>
<CustomProperty name="useOutputFile" type="ptBoolean">False</CustomProperty>
</Object>
<Object Class="TFBScriptBasedAction" XMLID="{B26171C9-990D-46D9-AFE2-53DE6B43730E}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Comprimir cliente]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string">{A78530B0-8E25-4ACF-BCD0-410E385473A0}</Property>
<Property MultiValue="1" name="CustomActionName" type="string"><![CDATA[ASPack Compress Executable]]>
</Property>
<Property MultiValue="1" name="Description" type="string"><![CDATA[Comprimir cliente]]>
</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="EnableTimeout" type="Boolean">False</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
<Property name="TerminateOnTimeout" type="Boolean">True</Property>
<Property name="TimeoutLength" type="Cardinal">2</Property>
<CustomProperty MultiValue="0" name="Executable" type="ptString">%output_path%\Debug\Cliente\FactuGES.exe</CustomProperty>
<CustomProperty MultiValue="0" name="OutputFile" type="ptString"></CustomProperty>
<CustomProperty name="CompressResources" type="ptBoolean">True</CustomProperty>
<CustomProperty name="MakeBackup" type="ptBoolean">True</CustomProperty>
<CustomProperty name="PreserveExtraData" type="ptBoolean">False</CustomProperty>
<CustomProperty name="UseWindowsDLLLoader" type="ptBoolean">True</CustomProperty>
<CustomProperty name="Quiet" type="ptBoolean">True</CustomProperty>
<CustomProperty name="MaxCompression" type="ptBoolean">True</CustomProperty>
<CustomProperty name="Recurse" type="ptBoolean">False</CustomProperty>
<CustomProperty name="CompressExport" type="ptBoolean">False</CustomProperty>
<CustomProperty name="useOutputFile" type="ptBoolean">False</CustomProperty>
</Object>
</Object>
<Object Class="TGroupAction" XMLID="{27621115-749D-4B57-AE1E-1D94E6557259}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Copiar los informes al directorio de salida]]>
</Property>

3
Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas
View File

@ -23,7 +23,7 @@ type
function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
public
constructor Create;
constructor Create; override;
destructor Destroy; override;
procedure Preview(const AListaID : TIntegerList);
@ -45,6 +45,7 @@ uses
constructor TAlbaranesClienteReportController.Create;
begin
inherited;
FDataModule := TDataModuleAlbaranesCliente.Create(Nil);
end;

3
Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorReportController.pas
View File

@ -19,7 +19,7 @@ type
FDataModule : IDataModuleAlbaranesProveedorReport;
function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
public
constructor Create;
constructor Create; override;
destructor Destroy; override;
procedure Preview(const AID : String);
@ -37,6 +37,7 @@ uses
constructor TAlbaranesProveedorReportController.Create;
begin
inherited;
FDataModule := TDataModuleAlbaranesProveedor.Create(Nil);
end;

3
Source/Modulos/Comisiones/Controller/uComisionesReportController.pas
View File

@ -19,7 +19,7 @@ type
FDataModule : IDataModuleComisionesReport;
function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
public
constructor Create;
constructor Create; override;
destructor Destroy; override;
procedure Preview(const AComisionID : String);
@ -37,6 +37,7 @@ uses
constructor TComisionesReportController.Create;
begin
inherited;
FDataModule := TDataModuleComisiones.Create(Nil);
end;

3
Source/Modulos/Contactos/Controller/uContactosController.pas
View File

@ -40,7 +40,7 @@ type
function _Vacio : IBizContacto; virtual;
function ValidarContacto(AContacto : IBizContacto): Boolean; virtual;
public
constructor Create; virtual;
constructor Create; override;
destructor Destroy; override;
procedure Eliminar(const ID : Integer); overload; virtual;
@ -105,6 +105,7 @@ end;
constructor TContactosController.Create;
begin
inherited;
FDataModule := NIL;
end;

2
Source/Modulos/Contactos/Controller/uDireccionesContactoController.pas
View File

@ -22,7 +22,7 @@ type
procedure CopiarDireccionFiscal(AContacto: IBizContacto; ADireccion: IBizDireccionesContacto; AAnadir : Boolean = True);
procedure Ver(ADireccion : IBizDireccionesContacto);
function Localizar(ADirecciones: IBizDireccionesContacto; const ID : Integer): Boolean;
constructor Create; virtual;
constructor Create; override;
destructor Destroy; override;
end;

3
Source/Modulos/Contactos/Controller/uEtiquetasContactosReportController.pas
View File

@ -18,7 +18,7 @@ type
FDataModule : IDataModuleEtiquetasContactosReport;
function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
public
constructor Create;
constructor Create; override;
destructor Destroy; override;
procedure Preview(const AContactosID : String);
@ -36,6 +36,7 @@ uses
constructor TEtiquetasContactosReportController.Create;
begin
inherited;
FDataModule := TDataModuleContactos.Create(Nil);
end;

3
Source/Modulos/Facturas de cliente/Controller/uFacturasClienteReportController.pas
View File

@ -19,7 +19,7 @@ type
FDataModule : IDataModuleFacturasClienteReport;
function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
public
constructor Create;
constructor Create; override;
destructor Destroy; override;
procedure Preview(const AFacturaID : String);
@ -37,6 +37,7 @@ uses
constructor TFacturasClienteReportController.Create;
begin
inherited;
FDataModule := TDataModuleFacturasCliente.Create(Nil);
end;

3
Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorReportController.pas
View File

@ -18,7 +18,7 @@ type
FDataModule : IDataModuleFacturasProveedorReport;
function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
public
constructor Create;
constructor Create; override;
destructor Destroy; override;
procedure Preview(const AFacturaID : String);
@ -36,6 +36,7 @@ uses
constructor TFacturasProveedorReportController.Create;
begin
inherited;
FDataModule := TDataModuleFacturasProveedor.Create(Nil);
end;

3
Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorReportController.pas
View File

@ -19,7 +19,7 @@ type
FDataModule : IDataModulePedidosProveedorReport;
function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
public
constructor Create;
constructor Create; override;
destructor Destroy; override;
procedure Preview(const AID : String);
@ -37,6 +37,7 @@ uses
constructor TPedidosProveedorReportController.Create;
begin
inherited;
FDataModule := TDataModulePedidosProveedor.Create(Nil);
end;

3
Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteReportController.pas
View File

@ -20,7 +20,7 @@ type
FDataModule : IDataModulePresupuestosClienteReport;
function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
public
constructor Create;
constructor Create; override;
destructor Destroy; override;
procedure Preview(const AListaID : TIntegerList);
@ -40,6 +40,7 @@ uses
constructor TPresupuestosClienteReportController.Create;
begin
inherited;
FDataModule := TDataModulePresupuestosCliente.Create(Nil);
end;

3
Source/Modulos/Recibos de cliente/Controller/uRecibosClienteReportController.pas
View File

@ -18,7 +18,7 @@ type
FDataModule : IDataModuleRecibosClienteReport;
function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
public
constructor Create;
constructor Create; override;
destructor Destroy; override;
procedure Preview(const ID : String);
@ -36,6 +36,7 @@ uses
constructor TRecibosClienteReportController.Create;
begin
inherited;
FDataModule := TDataModuleRecibosCliente.Create(Nil);
end;

3
Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorReportController.pas
View File

@ -18,7 +18,7 @@ type
FDataModule : IDataModuleRecibosProveedorReport;
function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
public
constructor Create;
constructor Create; override;
destructor Destroy; override;
procedure Preview(const ID : integer);
@ -36,6 +36,7 @@ uses
constructor TRecibosProveedorReportController.Create;
begin
inherited;
FDataModule := TDataModuleRecibosProveedor.Create(Nil);
end;

3
Source/Modulos/Remesas de cliente/Controller/uRemesasClienteReportController.pas
View File

@ -18,7 +18,7 @@ type
FDataModule : IDataModuleRemesasClienteReport;
function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
public
constructor Create;
constructor Create; override;
destructor Destroy; override;
procedure Preview(const ID : String);
@ -36,6 +36,7 @@ uses
constructor TRemesasClienteReportController.Create;
begin
inherited;
FDataModule := TDataModuleRemesasCliente.Create(Nil);
end;

3
Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorReportController.pas
View File

@ -18,7 +18,7 @@ type
FDataModule : IDataModuleRemesasProveedorReport;
function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
public
constructor Create;
constructor Create; override;
destructor Destroy; override;
procedure Preview(const ID : String);
@ -36,6 +36,7 @@ uses
constructor TRemesasProveedorReportController.Create;
begin
inherited;
FDataModule := TDataModuleRemesasProveedor.Create(Nil);
end;