Arreglo de articulos para que puedan meter fabricante, y puedan duplicar, se habilitan tambien los informes
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@284 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
parent
1e78ba4931
commit
b999fe34f5
@ -1271,6 +1271,7 @@ CREATE VIEW V_ARTICULOS(
|
||||
ID_EMPRESA,
|
||||
REFERENCIA,
|
||||
DESCRIPCION,
|
||||
UNIDAD_MEDIDA,
|
||||
FAMILIA,
|
||||
IMAGEN,
|
||||
COMISIONABLE,
|
||||
@ -1285,10 +1286,12 @@ CREATE VIEW V_ARTICULOS(
|
||||
INVENTARIABLE,
|
||||
ID_PROVEEDOR,
|
||||
NOMBRE_PROVEEDOR,
|
||||
ELIMINADO)
|
||||
ELIMINADO,
|
||||
FABRICANTE)
|
||||
AS
|
||||
SELECT ARTICULOS.ID, ARTICULOS.ID_EMPRESA, ARTICULOS.REFERENCIA, ARTICULOS.DESCRIPCION,
|
||||
ARTICULOS.FAMILIA, ARTICULOS.IMAGEN, ARTICULOS.COMISIONABLE, ARTICULOS.FECHA_ALTA,
|
||||
ARTICULOS.UNIDAD_MEDIDA, ARTICULOS.FAMILIA, ARTICULOS.IMAGEN,
|
||||
ARTICULOS.COMISIONABLE, ARTICULOS.FECHA_ALTA,
|
||||
ARTICULOS.FECHA_MODIFICACION, ARTICULOS.USUARIO,
|
||||
ARTICULOS.REFERENCIA_PROV,
|
||||
ARTICULOS.PRECIO_COSTE,
|
||||
@ -1298,7 +1301,8 @@ SELECT ARTICULOS.ID, ARTICULOS.ID_EMPRESA, ARTICULOS.REFERENCIA, ARTICULOS.DESCR
|
||||
ARTICULOS.INVENTARIABLE,
|
||||
ARTICULOS.ID_PROVEEDOR,
|
||||
CONTACTOS.NOMBRE AS NOMBRE_PROVEEDOR,
|
||||
ARTICULOS.ELIMINADO
|
||||
ARTICULOS.ELIMINADO,
|
||||
ARTICULOS.FABRICANTE
|
||||
FROM ARTICULOS
|
||||
LEFT OUTER JOIN CONTACTOS ON (CONTACTOS.ID = ARTICULOS.ID_PROVEEDOR)
|
||||
WHERE (ARTICULOS.ELIMINADO = 0)
|
||||
|
||||
@ -24,6 +24,7 @@ begin
|
||||
LoadModule('FormasPago_plugin.bpl');
|
||||
LoadModule('TiposIVA_plugin.bpl');
|
||||
LoadModule('Familias_plugin.bpl');
|
||||
LoadModule('Fabricantes_plugin.bpl');
|
||||
LoadModule('UnidadesMedida_plugin.bpl');
|
||||
|
||||
LoadModule('Contactos_plugin.bpl');
|
||||
|
||||
@ -8,6 +8,7 @@
|
||||
<Projects Include="..\..\Base\Base.dproj" />
|
||||
<Projects Include="..\..\Cliente\FactuGES.dproj" />
|
||||
<Projects Include="..\..\GUIBase\GUIBase.dproj" />
|
||||
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
|
||||
<Projects Include="..\Contactos\Views\Contactos_view.dproj" />
|
||||
<Projects Include="Controller\Articulos_controller.dproj" />
|
||||
<Projects Include="Data\Articulos_data.dproj" />
|
||||
@ -111,14 +112,23 @@
|
||||
<Target Name="FactuGES:Make">
|
||||
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="FactuGES_Server">
|
||||
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="FactuGES_Server:Clean">
|
||||
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="FactuGES_Server:Make">
|
||||
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Build">
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_model;Articulos_data;Articulos_controller;Articulos_view;Articulos_plugin;FactuGES" />
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_model;Articulos_data;Articulos_controller;Articulos_view;Articulos_plugin;FactuGES;FactuGES_Server" />
|
||||
</Target>
|
||||
<Target Name="Clean">
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_model:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;Articulos_plugin:Clean;FactuGES:Clean" />
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_model:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;Articulos_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean" />
|
||||
</Target>
|
||||
<Target Name="Make">
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_model:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;Articulos_plugin:Make;FactuGES:Make" />
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_model:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;Articulos_plugin:Make;FactuGES:Make;FactuGES_Server:Make" />
|
||||
</Target>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
@ -144,6 +144,11 @@ inherited DataModuleArticulos: TDataModuleArticulos
|
||||
Name = 'ELIMINADO'
|
||||
DataType = datSmallInt
|
||||
DisplayLabel = 'Eliminado'
|
||||
end
|
||||
item
|
||||
Name = 'FABRICANTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
|
||||
@ -3,14 +3,14 @@ unit schArticulosClient_Intf;
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
|
||||
Classes, DB, SysUtils, uROClasses, 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_Articulos = '{6930163F-C204-4661-9B8E-E5EB08652E93}';
|
||||
RID_ArticulosParaCliente = '{02961EF0-4BAA-4C29-B66E-E1FCD09DBC15}';
|
||||
RID_Articulos = '{042A5C28-35B0-4779-B864-11D70E7E1BD5}';
|
||||
RID_ArticulosParaCliente = '{03F3C87A-2A4B-4405-8327-F442AB029B42}';
|
||||
|
||||
{ Data table names }
|
||||
nme_Articulos = 'Articulos';
|
||||
@ -37,6 +37,7 @@ const
|
||||
fld_ArticulosID_PROVEEDOR = 'ID_PROVEEDOR';
|
||||
fld_ArticulosNOMBRE_PROVEEDOR = 'NOMBRE_PROVEEDOR';
|
||||
fld_ArticulosELIMINADO = 'ELIMINADO';
|
||||
fld_ArticulosFABRICANTE = 'FABRICANTE';
|
||||
|
||||
{ Articulos field indexes }
|
||||
idx_ArticulosID = 0;
|
||||
@ -59,12 +60,14 @@ const
|
||||
idx_ArticulosID_PROVEEDOR = 17;
|
||||
idx_ArticulosNOMBRE_PROVEEDOR = 18;
|
||||
idx_ArticulosELIMINADO = 19;
|
||||
idx_ArticulosFABRICANTE = 20;
|
||||
|
||||
{ ArticulosParaCliente fields }
|
||||
fld_ArticulosParaClienteID = 'ID';
|
||||
fld_ArticulosParaClienteID_EMPRESA = 'ID_EMPRESA';
|
||||
fld_ArticulosParaClienteREFERENCIA = 'REFERENCIA';
|
||||
fld_ArticulosParaClienteDESCRIPCION = 'DESCRIPCION';
|
||||
fld_ArticulosParaClienteFABRICANTE = 'FABRICANTE';
|
||||
fld_ArticulosParaClienteUNIDAD_MEDIDA = 'UNIDAD_MEDIDA';
|
||||
fld_ArticulosParaClienteFAMILIA = 'FAMILIA';
|
||||
fld_ArticulosParaClienteIMAGEN = 'IMAGEN';
|
||||
@ -87,27 +90,28 @@ const
|
||||
idx_ArticulosParaClienteID_EMPRESA = 1;
|
||||
idx_ArticulosParaClienteREFERENCIA = 2;
|
||||
idx_ArticulosParaClienteDESCRIPCION = 3;
|
||||
idx_ArticulosParaClienteUNIDAD_MEDIDA = 4;
|
||||
idx_ArticulosParaClienteFAMILIA = 5;
|
||||
idx_ArticulosParaClienteIMAGEN = 6;
|
||||
idx_ArticulosParaClienteCOMISIONABLE = 7;
|
||||
idx_ArticulosParaClienteFECHA_ALTA = 8;
|
||||
idx_ArticulosParaClienteFECHA_MODIFICACION = 9;
|
||||
idx_ArticulosParaClienteUSUARIO = 10;
|
||||
idx_ArticulosParaClienteREFERENCIA_PROV = 11;
|
||||
idx_ArticulosParaClientePRECIO_COSTE = 12;
|
||||
idx_ArticulosParaClientePRECIO_PORTE = 13;
|
||||
idx_ArticulosParaClienteDESCUENTO = 14;
|
||||
idx_ArticulosParaClientePRECIO_NETO = 15;
|
||||
idx_ArticulosParaClienteINVENTARIABLE = 16;
|
||||
idx_ArticulosParaClienteID_PROVEEDOR = 17;
|
||||
idx_ArticulosParaClienteNOMBRE_PROVEEDOR = 18;
|
||||
idx_ArticulosParaClienteELIMINADO = 19;
|
||||
idx_ArticulosParaClienteFABRICANTE = 4;
|
||||
idx_ArticulosParaClienteUNIDAD_MEDIDA = 5;
|
||||
idx_ArticulosParaClienteFAMILIA = 6;
|
||||
idx_ArticulosParaClienteIMAGEN = 7;
|
||||
idx_ArticulosParaClienteCOMISIONABLE = 8;
|
||||
idx_ArticulosParaClienteFECHA_ALTA = 9;
|
||||
idx_ArticulosParaClienteFECHA_MODIFICACION = 10;
|
||||
idx_ArticulosParaClienteUSUARIO = 11;
|
||||
idx_ArticulosParaClienteREFERENCIA_PROV = 12;
|
||||
idx_ArticulosParaClientePRECIO_COSTE = 13;
|
||||
idx_ArticulosParaClientePRECIO_PORTE = 14;
|
||||
idx_ArticulosParaClienteDESCUENTO = 15;
|
||||
idx_ArticulosParaClientePRECIO_NETO = 16;
|
||||
idx_ArticulosParaClienteINVENTARIABLE = 17;
|
||||
idx_ArticulosParaClienteID_PROVEEDOR = 18;
|
||||
idx_ArticulosParaClienteNOMBRE_PROVEEDOR = 19;
|
||||
idx_ArticulosParaClienteELIMINADO = 20;
|
||||
|
||||
type
|
||||
{ IArticulos }
|
||||
IArticulos = interface(IDAStronglyTypedDataTable)
|
||||
['{0E1C6D96-6382-45DF-8992-448C25CF4CED}']
|
||||
['{F1DCC683-41C3-4835-A07F-DD9F276298F0}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -188,6 +192,10 @@ type
|
||||
procedure SetELIMINADOValue(const aValue: SmallInt);
|
||||
function GetELIMINADOIsNull: Boolean;
|
||||
procedure SetELIMINADOIsNull(const aValue: Boolean);
|
||||
function GetFABRICANTEValue: String;
|
||||
procedure SetFABRICANTEValue(const aValue: String);
|
||||
function GetFABRICANTEIsNull: Boolean;
|
||||
procedure SetFABRICANTEIsNull(const aValue: Boolean);
|
||||
|
||||
|
||||
{ Properties }
|
||||
@ -231,10 +239,12 @@ type
|
||||
property NOMBRE_PROVEEDORIsNull: Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull;
|
||||
property ELIMINADO: SmallInt read GetELIMINADOValue write SetELIMINADOValue;
|
||||
property ELIMINADOIsNull: Boolean read GetELIMINADOIsNull write SetELIMINADOIsNull;
|
||||
property FABRICANTE: String read GetFABRICANTEValue write SetFABRICANTEValue;
|
||||
property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
|
||||
end;
|
||||
|
||||
{ TArticulosDataTableRules }
|
||||
TArticulosDataTableRules = class(TIntfObjectDADataTableRules, IArticulos)
|
||||
TArticulosDataTableRules = class(TDADataTableRules, IArticulos)
|
||||
private
|
||||
f_IMAGEN: IROStream;
|
||||
procedure IMAGEN_OnChange(Sender: TObject);
|
||||
@ -319,6 +329,10 @@ type
|
||||
procedure SetELIMINADOValue(const aValue: SmallInt); virtual;
|
||||
function GetELIMINADOIsNull: Boolean; virtual;
|
||||
procedure SetELIMINADOIsNull(const aValue: Boolean); virtual;
|
||||
function GetFABRICANTEValue: String; virtual;
|
||||
procedure SetFABRICANTEValue(const aValue: String); virtual;
|
||||
function GetFABRICANTEIsNull: Boolean; virtual;
|
||||
procedure SetFABRICANTEIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
@ -361,6 +375,8 @@ type
|
||||
property NOMBRE_PROVEEDORIsNull: Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull;
|
||||
property ELIMINADO: SmallInt read GetELIMINADOValue write SetELIMINADOValue;
|
||||
property ELIMINADOIsNull: Boolean read GetELIMINADOIsNull write SetELIMINADOIsNull;
|
||||
property FABRICANTE: String read GetFABRICANTEValue write SetFABRICANTEValue;
|
||||
property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
@ -370,7 +386,7 @@ type
|
||||
|
||||
{ IArticulosParaCliente }
|
||||
IArticulosParaCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{82CAF5F9-F5A9-4A0D-9FBB-6229D32300DA}']
|
||||
['{5615D828-ACE3-4839-B434-1E1EFC9454E5}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -388,6 +404,10 @@ type
|
||||
procedure SetDESCRIPCIONValue(const aValue: String);
|
||||
function GetDESCRIPCIONIsNull: Boolean;
|
||||
procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
|
||||
function GetFABRICANTEValue: String;
|
||||
procedure SetFABRICANTEValue(const aValue: String);
|
||||
function GetFABRICANTEIsNull: Boolean;
|
||||
procedure SetFABRICANTEIsNull(const aValue: Boolean);
|
||||
function GetUNIDAD_MEDIDAValue: String;
|
||||
procedure SetUNIDAD_MEDIDAValue(const aValue: String);
|
||||
function GetUNIDAD_MEDIDAIsNull: Boolean;
|
||||
@ -462,6 +482,8 @@ type
|
||||
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
|
||||
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
||||
property FABRICANTE: String read GetFABRICANTEValue write SetFABRICANTEValue;
|
||||
property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
|
||||
property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
|
||||
property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
|
||||
property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
|
||||
@ -497,7 +519,7 @@ type
|
||||
end;
|
||||
|
||||
{ TArticulosParaClienteDataTableRules }
|
||||
TArticulosParaClienteDataTableRules = class(TIntfObjectDADataTableRules, IArticulosParaCliente)
|
||||
TArticulosParaClienteDataTableRules = class(TDADataTableRules, IArticulosParaCliente)
|
||||
private
|
||||
f_IMAGEN: IROStream;
|
||||
procedure IMAGEN_OnChange(Sender: TObject);
|
||||
@ -519,6 +541,10 @@ type
|
||||
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
|
||||
function GetDESCRIPCIONIsNull: Boolean; virtual;
|
||||
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
|
||||
function GetFABRICANTEValue: String; virtual;
|
||||
procedure SetFABRICANTEValue(const aValue: String); virtual;
|
||||
function GetFABRICANTEIsNull: Boolean; virtual;
|
||||
procedure SetFABRICANTEIsNull(const aValue: Boolean); virtual;
|
||||
function GetUNIDAD_MEDIDAValue: String; virtual;
|
||||
procedure SetUNIDAD_MEDIDAValue(const aValue: String); virtual;
|
||||
function GetUNIDAD_MEDIDAIsNull: Boolean; virtual;
|
||||
@ -592,6 +618,8 @@ type
|
||||
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
|
||||
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
||||
property FABRICANTE: String read GetFABRICANTEValue write SetFABRICANTEValue;
|
||||
property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
|
||||
property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
|
||||
property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
|
||||
property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
|
||||
@ -1077,6 +1105,27 @@ begin
|
||||
DataTable.Fields[idx_ArticulosELIMINADO].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TArticulosDataTableRules.GetFABRICANTEValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ArticulosFABRICANTE].AsString;
|
||||
end;
|
||||
|
||||
procedure TArticulosDataTableRules.SetFABRICANTEValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_ArticulosFABRICANTE].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TArticulosDataTableRules.GetFABRICANTEIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ArticulosFABRICANTE].IsNull;
|
||||
end;
|
||||
|
||||
procedure TArticulosDataTableRules.SetFABRICANTEIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_ArticulosFABRICANTE].AsVariant := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TArticulosParaClienteDataTableRules }
|
||||
constructor TArticulosParaClienteDataTableRules.Create(aDataTable: TDADataTable);
|
||||
@ -1184,6 +1233,27 @@ begin
|
||||
DataTable.Fields[idx_ArticulosParaClienteDESCRIPCION].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TArticulosParaClienteDataTableRules.GetFABRICANTEValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ArticulosParaClienteFABRICANTE].AsString;
|
||||
end;
|
||||
|
||||
procedure TArticulosParaClienteDataTableRules.SetFABRICANTEValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_ArticulosParaClienteFABRICANTE].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TArticulosParaClienteDataTableRules.GetFABRICANTEIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ArticulosParaClienteFABRICANTE].IsNull;
|
||||
end;
|
||||
|
||||
procedure TArticulosParaClienteDataTableRules.SetFABRICANTEIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_ArticulosParaClienteFABRICANTE].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TArticulosParaClienteDataTableRules.GetUNIDAD_MEDIDAValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ArticulosParaClienteUNIDAD_MEDIDA].AsString;
|
||||
|
||||
@ -9,13 +9,13 @@ 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_ArticulosDelta = '{A56987C7-0587-447A-80F8-44F882CC1326}';
|
||||
RID_ArticulosParaClienteDelta = '{4BF57D32-A849-47E2-9AC3-81691DC7B0CA}';
|
||||
RID_ArticulosDelta = '{4E74F5A8-5A74-41F9-B8A9-7DF2C8AA2A5A}';
|
||||
RID_ArticulosParaClienteDelta = '{AD7097E1-071E-4496-8F43-216E98BC8F47}';
|
||||
|
||||
type
|
||||
{ IArticulosDelta }
|
||||
IArticulosDelta = interface(IArticulos)
|
||||
['{A56987C7-0587-447A-80F8-44F882CC1326}']
|
||||
['{4E74F5A8-5A74-41F9-B8A9-7DF2C8AA2A5A}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
@ -37,6 +37,7 @@ type
|
||||
function GetOldID_PROVEEDORValue : Integer;
|
||||
function GetOldNOMBRE_PROVEEDORValue : String;
|
||||
function GetOldELIMINADOValue : SmallInt;
|
||||
function GetOldFABRICANTEValue : String;
|
||||
|
||||
{ Properties }
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
@ -59,6 +60,7 @@ type
|
||||
property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
|
||||
property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
|
||||
property OldELIMINADO : SmallInt read GetOldELIMINADOValue;
|
||||
property OldFABRICANTE : String read GetOldFABRICANTEValue;
|
||||
end;
|
||||
|
||||
{ TArticulosBusinessProcessorRules }
|
||||
@ -187,6 +189,12 @@ type
|
||||
function GetOldELIMINADOIsNull: Boolean; virtual;
|
||||
procedure SetELIMINADOValue(const aValue: SmallInt); virtual;
|
||||
procedure SetELIMINADOIsNull(const aValue: Boolean); virtual;
|
||||
function GetFABRICANTEValue: String; virtual;
|
||||
function GetFABRICANTEIsNull: Boolean; virtual;
|
||||
function GetOldFABRICANTEValue: String; virtual;
|
||||
function GetOldFABRICANTEIsNull: Boolean; virtual;
|
||||
procedure SetFABRICANTEValue(const aValue: String); virtual;
|
||||
procedure SetFABRICANTEIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID : Integer read GetIDValue write SetIDValue;
|
||||
@ -269,6 +277,10 @@ type
|
||||
property ELIMINADOIsNull : Boolean read GetELIMINADOIsNull write SetELIMINADOIsNull;
|
||||
property OldELIMINADO : SmallInt read GetOldELIMINADOValue;
|
||||
property OldELIMINADOIsNull : Boolean read GetOldELIMINADOIsNull;
|
||||
property FABRICANTE : String read GetFABRICANTEValue write SetFABRICANTEValue;
|
||||
property FABRICANTEIsNull : Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
|
||||
property OldFABRICANTE : String read GetOldFABRICANTEValue;
|
||||
property OldFABRICANTEIsNull : Boolean read GetOldFABRICANTEIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||
@ -278,12 +290,13 @@ type
|
||||
|
||||
{ IArticulosParaClienteDelta }
|
||||
IArticulosParaClienteDelta = interface(IArticulosParaCliente)
|
||||
['{4BF57D32-A849-47E2-9AC3-81691DC7B0CA}']
|
||||
['{AD7097E1-071E-4496-8F43-216E98BC8F47}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
function GetOldREFERENCIAValue : String;
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
function GetOldFABRICANTEValue : String;
|
||||
function GetOldUNIDAD_MEDIDAValue : String;
|
||||
function GetOldFAMILIAValue : String;
|
||||
function GetOldIMAGENValue : IROStream;
|
||||
@ -306,6 +319,7 @@ type
|
||||
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
||||
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
||||
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
||||
property OldFABRICANTE : String read GetOldFABRICANTEValue;
|
||||
property OldUNIDAD_MEDIDA : String read GetOldUNIDAD_MEDIDAValue;
|
||||
property OldFAMILIA : String read GetOldFAMILIAValue;
|
||||
property OldIMAGEN : IROStream read GetOldIMAGENValue;
|
||||
@ -355,6 +369,12 @@ type
|
||||
function GetOldDESCRIPCIONIsNull: Boolean; virtual;
|
||||
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
|
||||
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
|
||||
function GetFABRICANTEValue: String; virtual;
|
||||
function GetFABRICANTEIsNull: Boolean; virtual;
|
||||
function GetOldFABRICANTEValue: String; virtual;
|
||||
function GetOldFABRICANTEIsNull: Boolean; virtual;
|
||||
procedure SetFABRICANTEValue(const aValue: String); virtual;
|
||||
procedure SetFABRICANTEIsNull(const aValue: Boolean); virtual;
|
||||
function GetUNIDAD_MEDIDAValue: String; virtual;
|
||||
function GetUNIDAD_MEDIDAIsNull: Boolean; virtual;
|
||||
function GetOldUNIDAD_MEDIDAValue: String; virtual;
|
||||
@ -468,6 +488,10 @@ type
|
||||
property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
||||
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
||||
property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
|
||||
property FABRICANTE : String read GetFABRICANTEValue write SetFABRICANTEValue;
|
||||
property FABRICANTEIsNull : Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
|
||||
property OldFABRICANTE : String read GetOldFABRICANTEValue;
|
||||
property OldFABRICANTEIsNull : Boolean read GetOldFABRICANTEIsNull;
|
||||
property UNIDAD_MEDIDA : String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
|
||||
property UNIDAD_MEDIDAIsNull : Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
|
||||
property OldUNIDAD_MEDIDA : String read GetOldUNIDAD_MEDIDAValue;
|
||||
@ -1187,6 +1211,37 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosELIMINADO] := Null;
|
||||
end;
|
||||
|
||||
function TArticulosBusinessProcessorRules.GetFABRICANTEValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFABRICANTE];
|
||||
end;
|
||||
|
||||
function TArticulosBusinessProcessorRules.GetFABRICANTEIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFABRICANTE]);
|
||||
end;
|
||||
|
||||
function TArticulosBusinessProcessorRules.GetOldFABRICANTEValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosFABRICANTE];
|
||||
end;
|
||||
|
||||
function TArticulosBusinessProcessorRules.GetOldFABRICANTEIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosFABRICANTE]);
|
||||
end;
|
||||
|
||||
procedure TArticulosBusinessProcessorRules.SetFABRICANTEValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFABRICANTE] := aValue;
|
||||
end;
|
||||
|
||||
procedure TArticulosBusinessProcessorRules.SetFABRICANTEIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFABRICANTE] := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TArticulosParaClienteBusinessProcessorRules }
|
||||
constructor TArticulosParaClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||
@ -1334,6 +1389,37 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteDESCRIPCION] := Null;
|
||||
end;
|
||||
|
||||
function TArticulosParaClienteBusinessProcessorRules.GetFABRICANTEValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteFABRICANTE];
|
||||
end;
|
||||
|
||||
function TArticulosParaClienteBusinessProcessorRules.GetFABRICANTEIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteFABRICANTE]);
|
||||
end;
|
||||
|
||||
function TArticulosParaClienteBusinessProcessorRules.GetOldFABRICANTEValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteFABRICANTE];
|
||||
end;
|
||||
|
||||
function TArticulosParaClienteBusinessProcessorRules.GetOldFABRICANTEIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteFABRICANTE]);
|
||||
end;
|
||||
|
||||
procedure TArticulosParaClienteBusinessProcessorRules.SetFABRICANTEValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteFABRICANTE] := aValue;
|
||||
end;
|
||||
|
||||
procedure TArticulosParaClienteBusinessProcessorRules.SetFABRICANTEIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteFABRICANTE] := Null;
|
||||
end;
|
||||
|
||||
function TArticulosParaClienteBusinessProcessorRules.GetUNIDAD_MEDIDAValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteUNIDAD_MEDIDA];
|
||||
|
||||
@ -209,6 +209,10 @@ object srvArticulos: TsrvArticulos
|
||||
item
|
||||
DatasetField = 'UNIDAD_MEDIDA'
|
||||
TableField = 'UNIDAD_MEDIDA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'FABRICANTE'
|
||||
TableField = 'FABRICANTE'
|
||||
end>
|
||||
end>
|
||||
Name = 'Articulos'
|
||||
@ -320,6 +324,11 @@ object srvArticulos: TsrvArticulos
|
||||
Name = 'ELIMINADO'
|
||||
DataType = datSmallInt
|
||||
DisplayLabel = 'Eliminado'
|
||||
end
|
||||
item
|
||||
Name = 'FABRICANTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end>
|
||||
end
|
||||
item
|
||||
@ -335,18 +344,19 @@ object srvArticulos: TsrvArticulos
|
||||
TargetTable = 'ARTICULOS'
|
||||
SQL =
|
||||
'SELECT V_ARTICULOS.ID, V_ARTICULOS.ID_EMPRESA, V_ARTICULOS.REFER' +
|
||||
'ENCIA, V_ARTICULOS.DESCRIPCION,'#10' V_ARTICULOS.UNIDAD_MEDIDA' +
|
||||
','#10' V_ARTICULOS.FAMILIA, V_ARTICULOS.IMAGEN, V_ARTICULOS.CO' +
|
||||
'MISIONABLE, V_ARTICULOS.FECHA_ALTA,'#10' V_ARTICULOS.FECHA_MOD' +
|
||||
'IFICACION, V_ARTICULOS.USUARIO,'#10' V_ARTICULOS.REFERENCIA_PR' +
|
||||
'OV,'#10' V_ARTICULOS.PRECIO_COSTE,'#10' V_ARTICULOS.PRECIO_P' +
|
||||
'ORTE,'#10' CLIENTES_DTOS_PROVEEDORES.DESCUENTO,'#10' V_ARTIC' +
|
||||
'ULOS.PRECIO_NETO,'#10' V_ARTICULOS.INVENTARIABLE,'#10' V_ART' +
|
||||
'ICULOS.ID_PROVEEDOR,'#10' V_ARTICULOS.NOMBRE_PROVEEDOR,'#10' ' +
|
||||
' V_ARTICULOS.ELIMINADO'#10'FROM V_ARTICULOS'#10'LEFT OUTER JOIN CLIENTES' +
|
||||
'_DTOS_PROVEEDORES'#10'ON ((CLIENTES_DTOS_PROVEEDORES.ID_PROVEEDOR = ' +
|
||||
'V_ARTICULOS.ID_PROVEEDOR)'#10'AND (CLIENTES_DTOS_PROVEEDORES.ID_CLIE' +
|
||||
'NTE = :ID_CLIENTE))'#10'where {where}'#10
|
||||
'ENCIA, V_ARTICULOS.DESCRIPCION,'#10' V_ARTICULOS.FABRICANTE,'#10' ' +
|
||||
' V_ARTICULOS.UNIDAD_MEDIDA,'#10' V_ARTICULOS.FAMILIA, V_A' +
|
||||
'RTICULOS.IMAGEN, V_ARTICULOS.COMISIONABLE, V_ARTICULOS.FECHA_ALT' +
|
||||
'A,'#10' V_ARTICULOS.FECHA_MODIFICACION, V_ARTICULOS.USUARIO,'#10' ' +
|
||||
' V_ARTICULOS.REFERENCIA_PROV,'#10' V_ARTICULOS.PRECIO_COS' +
|
||||
'TE,'#10' V_ARTICULOS.PRECIO_PORTE,'#10' CLIENTES_DTOS_PROVEE' +
|
||||
'DORES.DESCUENTO,'#10' V_ARTICULOS.PRECIO_NETO,'#10' V_ARTICU' +
|
||||
'LOS.INVENTARIABLE,'#10' V_ARTICULOS.ID_PROVEEDOR,'#10' V_ART' +
|
||||
'ICULOS.NOMBRE_PROVEEDOR,'#10' V_ARTICULOS.ELIMINADO'#10'FROM V_ART' +
|
||||
'ICULOS'#10'LEFT OUTER JOIN CLIENTES_DTOS_PROVEEDORES'#10'ON ((CLIENTES_D' +
|
||||
'TOS_PROVEEDORES.ID_PROVEEDOR = V_ARTICULOS.ID_PROVEEDOR)'#10'AND (CL' +
|
||||
'IENTES_DTOS_PROVEEDORES.ID_CLIENTE = :ID_CLIENTE))'#10'where {where}' +
|
||||
#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -429,6 +439,10 @@ object srvArticulos: TsrvArticulos
|
||||
item
|
||||
DatasetField = 'UNIDAD_MEDIDA'
|
||||
TableField = 'UNIDAD_MEDIDA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'FABRICANTE'
|
||||
TableField = 'FABRICANTE'
|
||||
end>
|
||||
end>
|
||||
Name = 'ArticulosParaCliente'
|
||||
@ -452,6 +466,11 @@ object srvArticulos: TsrvArticulos
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'FABRICANTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'UNIDAD_MEDIDA'
|
||||
DataType = datString
|
||||
@ -605,6 +624,10 @@ object srvArticulos: TsrvArticulos
|
||||
item
|
||||
Name = 'ELIMINADO'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'FABRICANTE'
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
@ -615,11 +638,12 @@ object srvArticulos: TsrvArticulos
|
||||
'CION, UNIDAD_MEDIDA, FAMILIA, IMAGEN,'#10' COMISIONABLE, FECHA_A' +
|
||||
'LTA, FECHA_MODIFICACION, USUARIO, '#10' PRECIO_COSTE, PRECIO_POR' +
|
||||
'TE, DESCUENTO, ID_PROVEEDOR, '#10' PRECIO_NETO, REFERENCIA_PROV,' +
|
||||
' INVENTARIABLE, ELIMINADO)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :REFE' +
|
||||
'RENCIA, :DESCRIPCION, :UNIDAD_MEDIDA, :FAMILIA,'#10' :IMAGEN, :C' +
|
||||
'OMISIONABLE, :FECHA_ALTA, :FECHA_MODIFICACION, '#10' :USUARIO, :' +
|
||||
'PRECIO_COSTE, :PRECIO_PORTE, :DESCUENTO, '#10' :ID_PROVEEDOR, :P' +
|
||||
'RECIO_NETO, :REFERENCIA_PROV,'#10' :INVENTARIABLE, :ELIMINADO)'#10
|
||||
' INVENTARIABLE, ELIMINADO, FABRICANTE)'#10' VALUES'#10' (:ID, :ID_EM' +
|
||||
'PRESA, :REFERENCIA, :DESCRIPCION, :UNIDAD_MEDIDA, :FAMILIA,'#10' ' +
|
||||
' :IMAGEN, :COMISIONABLE, :FECHA_ALTA, :FECHA_MODIFICACION, '#10' ' +
|
||||
' :USUARIO, :PRECIO_COSTE, :PRECIO_PORTE, :DESCUENTO, '#10' :ID_P' +
|
||||
'ROVEEDOR, :PRECIO_NETO, :REFERENCIA_PROV,'#10' :INVENTARIABLE, :' +
|
||||
'ELIMINADO, :FABRICANTE)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -717,6 +741,10 @@ object srvArticulos: TsrvArticulos
|
||||
Name = 'ELIMINADO'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'FABRICANTE'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'OLD_ID'
|
||||
Value = ''
|
||||
@ -735,7 +763,8 @@ object srvArticulos: TsrvArticulos
|
||||
'O_PORTE = :PRECIO_PORTE, '#10' DESCUENTO = :DESCUENTO, '#10' ID_PR' +
|
||||
'OVEEDOR = :ID_PROVEEDOR, '#10' PRECIO_NETO = :PRECIO_NETO,'#10' IN' +
|
||||
'VENTARIABLE = :INVENTARIABLE,'#10' REFERENCIA_PROV = :REFERENCIA_' +
|
||||
'PROV,'#10' ELIMINADO = :ELIMINADO'#10' WHERE'#10' (ID = :OLD_ID)'#10
|
||||
'PROV,'#10' ELIMINADO = :ELIMINADO,'#10' FABRICANTE = :FABRICANTE'#10' ' +
|
||||
' WHERE'#10' (ID = :OLD_ID)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
|
||||
@ -30,7 +30,8 @@ requires
|
||||
Articulos_controller,
|
||||
Familias_controller,
|
||||
UnidadesMedida_controller,
|
||||
Contactos_view;
|
||||
Contactos_view,
|
||||
Fabricantes_controller;
|
||||
|
||||
contains
|
||||
uViewArticulos in 'uViewArticulos.pas' {frViewArticulos: TFrame},
|
||||
|
||||
@ -54,12 +54,13 @@
|
||||
<DelphiCompile Include="Articulos_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\Contactos\Model\Articulos_controller.dcp" />
|
||||
<DCCReference Include="..\..\Contactos\Model\Articulos_model.dcp" />
|
||||
<DCCReference Include="..\..\Contactos\Model\Contactos_view.dcp" />
|
||||
<DCCReference Include="..\..\Contactos\Model\Familias_controller.dcp" />
|
||||
<DCCReference Include="..\..\Contactos\Model\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Contactos\Model\UnidadesMedida_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Articulos_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Articulos_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Contactos_view.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Fabricantes_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Familias_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Lib\UnidadesMedida_controller.dcp" />
|
||||
<DCCReference Include="uArticulosViewRegister.pas" />
|
||||
<DCCReference Include="uEditorArticulo.pas">
|
||||
<Form>fEditorArticulo</Form>
|
||||
|
||||
Binary file not shown.
@ -85,10 +85,7 @@ end;
|
||||
|
||||
procedure TfEditorArticulos.ImprimirInterno;
|
||||
begin
|
||||
AppFactuGES.ShowCapado;
|
||||
{
|
||||
inherited;
|
||||
}
|
||||
end;
|
||||
|
||||
procedure TfEditorArticulos.ModificarInterno;
|
||||
@ -114,10 +111,7 @@ end;
|
||||
|
||||
procedure TfEditorArticulos.PrevisualizarInterno;
|
||||
begin
|
||||
AppFactuGES.ShowCapado;
|
||||
{
|
||||
inherited;
|
||||
}
|
||||
end;
|
||||
|
||||
procedure TfEditorArticulos.SetArticulos(const Value: IBizArticulo);
|
||||
@ -144,8 +138,6 @@ procedure TfEditorArticulos.DuplicarInterno;
|
||||
var
|
||||
AArticulo : IBizArticulo;
|
||||
begin
|
||||
AppFactuGES.ShowCapado;
|
||||
{
|
||||
inherited;
|
||||
AArticulo := FController.Duplicar(Articulos);
|
||||
try
|
||||
@ -153,7 +145,6 @@ begin
|
||||
finally
|
||||
actRefrescar.Execute;
|
||||
end;
|
||||
}
|
||||
end;
|
||||
|
||||
procedure TfEditorArticulos.EliminarInterno;
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
inherited frViewArticulo: TfrViewArticulo
|
||||
Width = 451
|
||||
Height = 304
|
||||
Width = 649
|
||||
Height = 426
|
||||
Align = alClient
|
||||
OnCreate = CustomViewCreate
|
||||
OnDestroy = CustomViewDestroy
|
||||
@ -10,17 +10,18 @@ inherited frViewArticulo: TfrViewArticulo
|
||||
object dxLayoutControlArticulo: TdxLayoutControl
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 451
|
||||
Width = 649
|
||||
Height = 393
|
||||
Align = alTop
|
||||
ParentBackground = True
|
||||
TabOrder = 0
|
||||
AutoContentSizes = [acsWidth]
|
||||
ExplicitWidth = 451
|
||||
DesignSize = (
|
||||
451
|
||||
649
|
||||
393)
|
||||
object PngSpeedButton2: TPngSpeedButton
|
||||
Left = 546
|
||||
Left = 588
|
||||
Top = 28
|
||||
Width = 23
|
||||
Height = 22
|
||||
@ -47,7 +48,7 @@ inherited frViewArticulo: TfrViewArticulo
|
||||
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
|
||||
end
|
||||
object PngSpeedButton1: TPngSpeedButton
|
||||
Left = 546
|
||||
Left = 588
|
||||
Top = 56
|
||||
Width = 23
|
||||
Height = 22
|
||||
@ -97,7 +98,7 @@ inherited frViewArticulo: TfrViewArticulo
|
||||
end
|
||||
object eNoComisionable: TcxDBCheckBox
|
||||
Left = 103
|
||||
Top = 109
|
||||
Top = 136
|
||||
Caption = 'Art'#237'culo no comisionable'
|
||||
DataBinding.DataField = 'COMISIONABLE'
|
||||
DataBinding.DataSource = dsViewArticulo
|
||||
@ -116,11 +117,11 @@ inherited frViewArticulo: TfrViewArticulo
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 4
|
||||
TabOrder = 5
|
||||
Width = 144
|
||||
end
|
||||
object eImagen: TcxImage
|
||||
Left = 437
|
||||
Left = 468
|
||||
Top = 28
|
||||
Properties.GraphicClassName = 'TJPEGImage'
|
||||
Properties.ImmediatePost = True
|
||||
@ -137,7 +138,7 @@ inherited frViewArticulo: TfrViewArticulo
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 6
|
||||
TabOrder = 7
|
||||
Height = 100
|
||||
Width = 140
|
||||
end
|
||||
@ -166,8 +167,8 @@ inherited frViewArticulo: TfrViewArticulo
|
||||
Width = 162
|
||||
end
|
||||
inline frViewDatosYSeleccionProveedor1: TfrViewDatosYSeleccionProveedor
|
||||
Left = 219
|
||||
Top = 166
|
||||
Left = 261
|
||||
Top = 193
|
||||
Width = 350
|
||||
Height = 202
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -176,10 +177,10 @@ inherited frViewArticulo: TfrViewArticulo
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 12
|
||||
TabOrder = 13
|
||||
ReadOnly = False
|
||||
ExplicitLeft = 219
|
||||
ExplicitTop = 166
|
||||
ExplicitLeft = 261
|
||||
ExplicitTop = 193
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
inherited edtNIFCIF: TcxDBTextEdit
|
||||
ExplicitWidth = 562
|
||||
@ -201,7 +202,7 @@ inherited frViewArticulo: TfrViewArticulo
|
||||
end
|
||||
object eReferenciaProv: TcxDBTextEdit
|
||||
Left = 103
|
||||
Top = 166
|
||||
Top = 193
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'REFERENCIA_PROV'
|
||||
DataBinding.DataSource = dsViewArticulo
|
||||
@ -213,12 +214,12 @@ inherited frViewArticulo: TfrViewArticulo
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 7
|
||||
TabOrder = 8
|
||||
Width = 86
|
||||
end
|
||||
object ePrecioCoste: TcxDBCurrencyEdit
|
||||
Left = 103
|
||||
Top = 193
|
||||
Top = 220
|
||||
DataBinding.DataField = 'PRECIO_COSTE'
|
||||
DataBinding.DataSource = dsViewArticulo
|
||||
Properties.Alignment.Horz = taRightJustify
|
||||
@ -233,12 +234,12 @@ inherited frViewArticulo: TfrViewArticulo
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 8
|
||||
TabOrder = 9
|
||||
Width = 86
|
||||
end
|
||||
object eDescuento: TcxDBSpinEdit
|
||||
Left = 103
|
||||
Top = 220
|
||||
Top = 247
|
||||
DataBinding.DataField = 'DESCUENTO'
|
||||
DataBinding.DataSource = dsViewArticulo
|
||||
Properties.Alignment.Horz = taRightJustify
|
||||
@ -256,12 +257,12 @@ inherited frViewArticulo: TfrViewArticulo
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 9
|
||||
TabOrder = 10
|
||||
Width = 86
|
||||
end
|
||||
object ePrecioNeto: TcxDBCurrencyEdit
|
||||
Left = 103
|
||||
Top = 247
|
||||
Top = 274
|
||||
DataBinding.DataField = 'PRECIO_NETO'
|
||||
DataBinding.DataSource = dsViewArticulo
|
||||
Enabled = False
|
||||
@ -281,12 +282,12 @@ inherited frViewArticulo: TfrViewArticulo
|
||||
StyleFocused.TextColor = clWindowText
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 10
|
||||
TabOrder = 11
|
||||
Width = 86
|
||||
end
|
||||
object ePrecioPorte: TcxDBCurrencyEdit
|
||||
Left = 103
|
||||
Top = 274
|
||||
Top = 301
|
||||
DataBinding.DataField = 'PRECIO_PORTE'
|
||||
DataBinding.DataSource = dsViewArticulo
|
||||
Properties.Alignment.Horz = taRightJustify
|
||||
@ -301,11 +302,11 @@ inherited frViewArticulo: TfrViewArticulo
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 11
|
||||
TabOrder = 12
|
||||
Width = 86
|
||||
end
|
||||
object cbNoInventariable: TcxDBCheckBox
|
||||
Left = 259
|
||||
Left = 253
|
||||
Top = 109
|
||||
Caption = 'Art'#237'culo no inventariable'
|
||||
DataBinding.DataField = 'INVENTARIABLE'
|
||||
@ -325,11 +326,11 @@ inherited frViewArticulo: TfrViewArticulo
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 5
|
||||
TabOrder = 6
|
||||
Width = 144
|
||||
end
|
||||
object cbUnidadMedida: TcxDBComboBox
|
||||
Left = 292
|
||||
Left = 307
|
||||
Top = 82
|
||||
DataBinding.DataField = 'UNIDAD_MEDIDA'
|
||||
DataBinding.DataSource = dsViewArticulo
|
||||
@ -352,6 +353,30 @@ inherited frViewArticulo: TfrViewArticulo
|
||||
TabOrder = 3
|
||||
Width = 164
|
||||
end
|
||||
object cbFabricante: TcxDBComboBox
|
||||
Left = 103
|
||||
Top = 109
|
||||
DataBinding.DataField = 'FABRICANTE'
|
||||
DataBinding.DataSource = dsViewArticulo
|
||||
Properties.DropDownRows = 16
|
||||
Properties.ImmediatePost = True
|
||||
Properties.OnInitPopup = cbFabricantePropertiesInitPopup
|
||||
Properties.OnValidate = cbFabricantePropertiesValidate
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.ButtonStyle = bts3D
|
||||
Style.PopupBorderStyle = epbsFrame3D
|
||||
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 = 4
|
||||
Width = 127
|
||||
end
|
||||
object dxLayoutControlArticuloGroup_Root: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
@ -413,12 +438,23 @@ inherited frViewArticulo: TfrViewArticulo
|
||||
Hidden = True
|
||||
LayoutDirection = ldHorizontal
|
||||
ShowBorder = False
|
||||
object dxLayoutControlArticuloItem1: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
Caption = ' '
|
||||
Control = eNoComisionable
|
||||
ControlOptions.ShowBorder = False
|
||||
object dxLayoutControlArticuloGroup10: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
ShowBorder = False
|
||||
object dxLayoutControlArticuloItem10: TdxLayoutItem
|
||||
Caption = 'Fabricante:'
|
||||
Control = cbFabricante
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControlArticuloItem1: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
Caption = ' '
|
||||
Visible = False
|
||||
Control = eNoComisionable
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
object dxLayoutControlArticuloItem7: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
|
||||
@ -10,7 +10,7 @@ uses
|
||||
cxDBEdit, dxLayoutControl, cxCheckBox, PngSpeedButton, cxImage, ActnList,
|
||||
ImgList, PngImageList, cxGraphics, cxMaskEdit, cxDropDownEdit,
|
||||
uFamiliasController, uViewDatosYSeleccionProveedor, cxSpinEdit, cxCurrencyEdit,
|
||||
uArticulosController, uUnidadesMedidaController, uDAInterfaces;
|
||||
uArticulosController, uUnidadesMedidaController, uFabricantesController, uDAInterfaces;
|
||||
|
||||
type
|
||||
IViewArticulo = interface(IViewBase)
|
||||
@ -74,6 +74,9 @@ type
|
||||
dxLayoutControlArticuloItem9: TdxLayoutItem;
|
||||
cbUnidadMedida: TcxDBComboBox;
|
||||
dxLayoutControlArticuloGroup9: TdxLayoutGroup;
|
||||
dxLayoutControlArticuloItem10: TdxLayoutItem;
|
||||
cbFabricante: TcxDBComboBox;
|
||||
dxLayoutControlArticuloGroup10: TdxLayoutGroup;
|
||||
procedure actEliminarExecute(Sender: TObject);
|
||||
procedure actAnadirExecute(Sender: TObject);
|
||||
procedure cbFamiliaPropertiesInitPopup(Sender: TObject);
|
||||
@ -86,12 +89,16 @@ type
|
||||
procedure cbUnidadMedidaPropertiesInitPopup(Sender: TObject);
|
||||
procedure cbUnidadMedidaPropertiesValidate(Sender: TObject;
|
||||
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
|
||||
procedure cbFabricantePropertiesInitPopup(Sender: TObject);
|
||||
procedure cbFabricantePropertiesValidate(Sender: TObject;
|
||||
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
|
||||
private
|
||||
procedure CargarImagen;
|
||||
procedure SalvarImagen;
|
||||
protected
|
||||
FFamiliasController: IFamiliasController;
|
||||
FUnidadesController: IUnidadesMedidaController;
|
||||
FFabricantesController: IFabricantesController;
|
||||
FController: IArticulosController;
|
||||
FArticulo: IBizArticulo;
|
||||
function GetArticulo: IBizArticulo;
|
||||
@ -108,7 +115,7 @@ implementation
|
||||
|
||||
uses
|
||||
uDataModuleArticulos, uSistemaFunc, uBizFamilias, uBizContactos,
|
||||
uBizUnidadesMedida;
|
||||
uBizUnidadesMedida, uBizFabricantes;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
@ -156,6 +163,55 @@ begin
|
||||
end;}
|
||||
end;
|
||||
|
||||
procedure TfrViewArticulo.cbFabricantePropertiesInitPopup(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
with cbFabricante.Properties.Items do
|
||||
begin
|
||||
if (Count = 0) then
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
BeginUpdate;
|
||||
try
|
||||
Clear;
|
||||
AddStrings(FFabricantesController.DarListaFabricantes);
|
||||
finally
|
||||
EndUpdate;
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewArticulo.cbFabricantePropertiesValidate(Sender: TObject;
|
||||
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
|
||||
var
|
||||
AFabricantes : IBizFabricante;
|
||||
begin
|
||||
inherited;
|
||||
with (Sender as TcxDBComboBox) do
|
||||
begin
|
||||
if (Length(DisplayValue) > 0) and (DisplayValue <> FArticulo.FAMILIA) then
|
||||
if Properties.LookupItems.IndexOf(DisplayValue) < 0 then
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
Properties.LookupItems.BeginUpdate;
|
||||
AFabricantes := FFabricantesController.BuscarTodos;
|
||||
AFabricantes.DataTable.Active := True;
|
||||
try
|
||||
FFabricantesController.Anadir(AFabricantes);
|
||||
AFabricantes.DESCRIPCION := DisplayValue;
|
||||
FFabricantesController.Guardar(AFabricantes);
|
||||
Properties.LookupItems.Add(DisplayValue);
|
||||
finally
|
||||
Properties.LookupItems.EndUpdate;
|
||||
HideHourglassCursor;
|
||||
AFabricantes := NIL;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewArticulo.cbFamiliaPropertiesInitPopup(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
@ -259,12 +315,14 @@ begin
|
||||
inherited;
|
||||
FFamiliasController := TFamiliasController.Create;
|
||||
FUnidadesController := TUnidadesMedidaController.Create;
|
||||
FFabricantesController := TFabricantesController.Create;
|
||||
end;
|
||||
|
||||
procedure TfrViewArticulo.CustomViewDestroy(Sender: TObject);
|
||||
begin
|
||||
FFamiliasController := Nil;
|
||||
FUnidadesController := NIL;
|
||||
FFabricantesController := NIL;
|
||||
ePrecioCoste.Properties.OnEditValueChanged := Nil;
|
||||
eDescuento.Properties.OnEditValueChanged := Nil;
|
||||
inherited;
|
||||
|
||||
@ -1,5 +1,8 @@
|
||||
inherited frViewArticulos: TfrViewArticulos
|
||||
Width = 539
|
||||
ExplicitWidth = 539
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 539
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
OnMouseMove = cxGridViewMouseMove
|
||||
DataController.KeyFieldNames = 'ID'
|
||||
@ -74,6 +77,10 @@ inherited frViewArticulos: TfrViewArticulos
|
||||
BestFitMaxWidth = 60
|
||||
Width = 60
|
||||
end
|
||||
object cxGridViewFABRICANTE: TcxGridDBColumn
|
||||
Caption = 'Fabricante'
|
||||
DataBinding.FieldName = 'FABRICANTE'
|
||||
end
|
||||
object cxGridViewDESCRIPCION: TcxGridDBColumn
|
||||
Caption = 'Descripci'#243'n'
|
||||
DataBinding.FieldName = 'DESCRIPCION'
|
||||
@ -139,8 +146,10 @@ inherited frViewArticulos: TfrViewArticulos
|
||||
end
|
||||
end
|
||||
inherited frViewFiltroBase1: TfrViewFiltroBase
|
||||
Width = 539
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 539
|
||||
inherited txtFiltroTodo: TcxTextEdit
|
||||
ExplicitWidth = 273
|
||||
Width = 273
|
||||
@ -150,16 +159,26 @@ inherited frViewArticulos: TfrViewArticulos
|
||||
Width = 121
|
||||
end
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
Left = 335
|
||||
ExplicitLeft = 335
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
end
|
||||
end
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
Width = 539
|
||||
inherited tbxBotones: TTBXToolbar
|
||||
Width = 529
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited pnlAgrupaciones: TTBXDockablePanel
|
||||
Visible = True
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
Width = 539
|
||||
inherited TBXToolbar1: TTBXToolbar
|
||||
Width = 529
|
||||
object TBXSeparatorItem1: TTBXSeparatorItem
|
||||
end
|
||||
object TBXItem3: TTBXItem
|
||||
@ -170,6 +189,11 @@ inherited frViewArticulos: TfrViewArticulos
|
||||
object TBXItem2: TTBXItem
|
||||
Action = actProveedor
|
||||
end
|
||||
object TBXSeparatorItem3: TTBXSeparatorItem
|
||||
end
|
||||
object TBXItem4: TTBXItem
|
||||
Action = actFabricante
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -192,6 +216,11 @@ inherited frViewArticulos: TfrViewArticulos
|
||||
OnExecute = actProveedorExecute
|
||||
OnUpdate = actProveedorUpdate
|
||||
end
|
||||
object actFabricante: TAction
|
||||
Caption = 'Fabricante'
|
||||
OnExecute = actFabricanteExecute
|
||||
OnUpdate = actFabricanteUpdate
|
||||
end
|
||||
end
|
||||
inherited PngImageList10: TPngImageList
|
||||
Left = 320
|
||||
|
||||
@ -38,6 +38,10 @@ type
|
||||
TBXSeparatorItem2: TTBXSeparatorItem;
|
||||
cxGridViewINVENTARIABLE: TcxGridDBColumn;
|
||||
cxGridViewUNIDAD_MEDIDA: TcxGridDBColumn;
|
||||
cxGridViewFABRICANTE: TcxGridDBColumn;
|
||||
TBXItem4: TTBXItem;
|
||||
TBXSeparatorItem3: TTBXSeparatorItem;
|
||||
actFabricante: TAction;
|
||||
procedure cxGridViewIDCustomDrawCell(
|
||||
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
|
||||
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||||
@ -46,6 +50,8 @@ type
|
||||
procedure actFamiliaExecute(Sender: TObject);
|
||||
procedure actFamiliaUpdate(Sender: TObject);
|
||||
procedure cxGridViewMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
|
||||
procedure actFabricanteExecute(Sender: TObject);
|
||||
procedure actFabricanteUpdate(Sender: TObject);
|
||||
protected
|
||||
FArticulos: IBizArticulo;
|
||||
function GetArticulos: IBizArticulo; virtual;
|
||||
@ -80,6 +86,26 @@ begin
|
||||
end;
|
||||
|
||||
|
||||
procedure TfrViewArticulos.actFabricanteExecute(Sender: TObject);
|
||||
begin
|
||||
if (cxGridViewFABRICANTE.GroupIndex < 0) then
|
||||
begin
|
||||
cxGridViewFABRICANTE.GroupIndex := cxGridView.GroupedColumnCount;
|
||||
cxGridViewFABRICANTE.Visible := False;
|
||||
end
|
||||
else
|
||||
begin
|
||||
cxGridViewFABRICANTE.GroupIndex := -1;
|
||||
cxGridViewFABRICANTE.Visible := True;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewArticulos.actFabricanteUpdate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(Sender as TAction).Checked := not (cxGridViewFABRICANTE.GroupIndex < 0);
|
||||
end;
|
||||
|
||||
procedure TfrViewArticulos.actFamiliaExecute(Sender: TObject);
|
||||
begin
|
||||
if (cxGridViewFAMILIA.GroupIndex < 0) then
|
||||
|
||||
@ -0,0 +1,40 @@
|
||||
package Fabricantes_controller;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$IMPLICITBUILD ON}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
vcl,
|
||||
Base,
|
||||
GUIBase,
|
||||
ApplicationBase,
|
||||
Fabricantes_data,
|
||||
Fabricantes_model;
|
||||
|
||||
contains
|
||||
uFabricantesController in 'uFabricantesController.pas',
|
||||
uIEditorFabricantes in 'View\uIEditorFabricantes.pas';
|
||||
|
||||
end.
|
||||
@ -0,0 +1,543 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{7f80f8aa-6912-4714-986d-aed73035472b}</ProjectGuid>
|
||||
<MainSource>Fabricantes_controller.dpk</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\Fabricantes_controller.bpl</DCC_DependencyCheckOutputName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
||||
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
||||
<DCC_HppOutput>.\</DCC_HppOutput>
|
||||
<DCC_BplOutput>..\..\..\..\Output\Release\Cliente</DCC_BplOutput>
|
||||
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
||||
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
||||
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
||||
<DCC_HppOutput>.\</DCC_HppOutput>
|
||||
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
|
||||
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
||||
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Fabricantes_controller.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="Fabricantes_controller.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\Lib\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Base.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Fabricantes_data.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Fabricantes_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Lib\rtl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\vcl.dcp" />
|
||||
<DCCReference Include="uFabricantesController.pas" />
|
||||
<DCCReference Include="View\uIEditorFabricantes.pas" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
EurekaLog Version=6011
|
||||
Activate=0
|
||||
Activate Handle=1
|
||||
Save Log File=1
|
||||
Foreground Tab=0
|
||||
Freeze Activate=0
|
||||
Freeze Timeout=60
|
||||
SMTP From=eurekalog@email.com
|
||||
SMTP Host=
|
||||
SMTP Port=25
|
||||
SMTP UserID=
|
||||
SMTP Password=
|
||||
Append to Log=0
|
||||
TerminateBtn Operation=2
|
||||
Errors Number=32
|
||||
Errors Terminate=3
|
||||
Email Address=
|
||||
Email Object=
|
||||
Email Send Options=0
|
||||
Output Path=
|
||||
Encrypt Password=
|
||||
AutoCloseDialogSecs=0
|
||||
WebSendMode=0
|
||||
SupportULR=
|
||||
HTMLLayout Count=15
|
||||
HTMLLine0="%3Chtml%3E"
|
||||
HTMLLine1=" %3Chead%3E"
|
||||
HTMLLine2=" %3C/head%3E"
|
||||
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
|
||||
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
|
||||
HTMLLine5=" %3Ctr%3E"
|
||||
HTMLLine6=" %3Ctd nowrap%3E"
|
||||
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
|
||||
HTMLLine8=" %3C%%HTML_TAG%%%3E"
|
||||
HTMLLine9=" %3C/font%3E"
|
||||
HTMLLine10=" %3C/td%3E"
|
||||
HTMLLine11=" %3C/tr%3E"
|
||||
HTMLLine12=" %3C/table%3E"
|
||||
HTMLLine13=" %3C/body%3E"
|
||||
HTMLLine14="%3C/html%3E"
|
||||
AutoCrashOperation=2
|
||||
AutoCrashNumber=10
|
||||
AutoCrashMinutes=1
|
||||
WebURL=
|
||||
WebUserID=
|
||||
WebPassword=
|
||||
WebPort=0
|
||||
AttachedFiles=
|
||||
ProxyURL=
|
||||
ProxyUser=
|
||||
ProxyPassword=
|
||||
ProxyPort=8080
|
||||
TrakerUser=
|
||||
TrakerPassword=
|
||||
TrakerAssignTo=
|
||||
TrakerProject=
|
||||
TrakerCategory=
|
||||
TrakerTrialID=
|
||||
ZipPassword=
|
||||
PreBuildEvent=
|
||||
PostSuccessfulBuildEvent=
|
||||
PostFailureBuildEvent=
|
||||
ExceptionDialogType=2
|
||||
Count=0
|
||||
EMail Message Line Count=0
|
||||
loNoDuplicateErrors=0
|
||||
loAppendReproduceText=0
|
||||
loDeleteLogAtVersionChange=0
|
||||
loAddComputerNameInLogFileName=0
|
||||
loSaveModulesAndProcessesSections=1
|
||||
loSaveAssemblerAndCPUSections=1
|
||||
soAppStartDate=1
|
||||
soAppName=1
|
||||
soAppVersionNumber=1
|
||||
soAppParameters=1
|
||||
soAppCompilationDate=1
|
||||
soAppUpTime=1
|
||||
soExcDate=1
|
||||
soExcAddress=1
|
||||
soExcModuleName=1
|
||||
soExcModuleVersion=1
|
||||
soExcType=1
|
||||
soExcMessage=1
|
||||
soExcID=1
|
||||
soExcCount=1
|
||||
soExcStatus=1
|
||||
soExcNote=1
|
||||
soUserID=1
|
||||
soUserName=1
|
||||
soUserEmail=1
|
||||
soUserPrivileges=1
|
||||
soUserCompany=1
|
||||
soActCtlsFormClass=1
|
||||
soActCtlsFormText=1
|
||||
soActCtlsControlClass=1
|
||||
soActCtlsControlText=1
|
||||
soCmpName=1
|
||||
soCmpTotalMemory=1
|
||||
soCmpFreeMemory=1
|
||||
soCmpTotalDisk=1
|
||||
soCmpFreeDisk=1
|
||||
soCmpSysUpTime=1
|
||||
soCmpProcessor=1
|
||||
soCmpDisplayMode=1
|
||||
soCmpDisplayDPI=1
|
||||
soCmpVideoCard=1
|
||||
soCmpPrinter=1
|
||||
soOSType=1
|
||||
soOSBuildN=1
|
||||
soOSUpdate=1
|
||||
soOSLanguage=1
|
||||
soOSCharset=1
|
||||
soNetIP=1
|
||||
soNetSubmask=1
|
||||
soNetGateway=1
|
||||
soNetDNS1=1
|
||||
soNetDNS2=1
|
||||
soNetDHCP=1
|
||||
soCustomData=1
|
||||
sndShowSendDialog=1
|
||||
sndShowSuccessFailureMsg=0
|
||||
sndSendEntireLog=0
|
||||
sndSendXMLLogCopy=0
|
||||
sndSendScreenshot=1
|
||||
sndUseOnlyActiveWindow=0
|
||||
sndSendLastHTMLPage=1
|
||||
sndSendInSeparatedThread=0
|
||||
sndAddDateInFileName=0
|
||||
sndAddComputerNameInFileName=0
|
||||
edoSendErrorReportChecked=1
|
||||
edoAttachScreenshotChecked=1
|
||||
edoShowCopyToClipOption=1
|
||||
edoShowDetailsButton=1
|
||||
edoShowInDetailedMode=0
|
||||
edoShowInTopMostMode=0
|
||||
edoUseEurekaLogLookAndFeel=0
|
||||
edoShowSendErrorReportOption=1
|
||||
edoShowAttachScreenshotOption=1
|
||||
edoShowCustomButton=0
|
||||
csoShowDLLs=1
|
||||
csoShowBPLs=1
|
||||
csoShowBorlandThreads=1
|
||||
csoShowWindowsThreads=1
|
||||
csoDoNotStoreProcNames=0
|
||||
boPauseBorlandThreads=0
|
||||
boDoNotPauseMainThread=0
|
||||
boPauseWindowsThreads=0
|
||||
boUseMainModuleOptions=1
|
||||
boCopyLogInCaseOfError=1
|
||||
boSaveCompressedCopyInCaseOfError=0
|
||||
boHandleSafeCallExceptions=1
|
||||
boCallRTLExceptionEvent=0
|
||||
boCatchHandledExceptions=0
|
||||
loCatchLeaks=0
|
||||
loGroupsSonLeaks=1
|
||||
loHideBorlandLeaks=1
|
||||
loFreeAllLeaks=1
|
||||
loCatchLeaksExceptions=1
|
||||
cfoReduceFileSize=1
|
||||
cfoCheckFileCorruption=0
|
||||
Count mtInformationMsgCaption=1
|
||||
mtInformationMsgCaption0="Information."
|
||||
Count mtQuestionMsgCaption=1
|
||||
mtQuestionMsgCaption0="Question."
|
||||
Count mtErrorMsgCaption=1
|
||||
mtErrorMsgCaption0="Error."
|
||||
Count mtDialog_Caption=1
|
||||
mtDialog_Caption0="Error occurred"
|
||||
Count mtDialog_ErrorMsgCaption=2
|
||||
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
|
||||
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
|
||||
Count mtDialog_GeneralCaption=1
|
||||
mtDialog_GeneralCaption0="General"
|
||||
Count mtDialog_GeneralHeader=1
|
||||
mtDialog_GeneralHeader0="General Information"
|
||||
Count mtDialog_CallStackCaption=1
|
||||
mtDialog_CallStackCaption0="Call Stack"
|
||||
Count mtDialog_CallStackHeader=1
|
||||
mtDialog_CallStackHeader0="Call Stack Information"
|
||||
Count mtDialog_ModulesCaption=1
|
||||
mtDialog_ModulesCaption0="Modules"
|
||||
Count mtDialog_ModulesHeader=1
|
||||
mtDialog_ModulesHeader0="Modules Information"
|
||||
Count mtDialog_ProcessesCaption=1
|
||||
mtDialog_ProcessesCaption0="Processes"
|
||||
Count mtDialog_ProcessesHeader=1
|
||||
mtDialog_ProcessesHeader0="Processes Information"
|
||||
Count mtDialog_AsmCaption=1
|
||||
mtDialog_AsmCaption0="Assembler"
|
||||
Count mtDialog_AsmHeader=1
|
||||
mtDialog_AsmHeader0="Assembler Information"
|
||||
Count mtDialog_CPUCaption=1
|
||||
mtDialog_CPUCaption0="CPU"
|
||||
Count mtDialog_CPUHeader=1
|
||||
mtDialog_CPUHeader0="CPU Information"
|
||||
Count mtDialog_OKButtonCaption=1
|
||||
mtDialog_OKButtonCaption0="%26OK"
|
||||
Count mtDialog_TerminateButtonCaption=1
|
||||
mtDialog_TerminateButtonCaption0="%26Terminate"
|
||||
Count mtDialog_RestartButtonCaption=1
|
||||
mtDialog_RestartButtonCaption0="%26Restart"
|
||||
Count mtDialog_DetailsButtonCaption=1
|
||||
mtDialog_DetailsButtonCaption0="%26Details"
|
||||
Count mtDialog_CustomButtonCaption=1
|
||||
mtDialog_CustomButtonCaption0="%26Help"
|
||||
Count mtDialog_SendMessage=1
|
||||
mtDialog_SendMessage0="%26Send this error via Internet"
|
||||
Count mtDialog_ScreenshotMessage=1
|
||||
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
|
||||
Count mtDialog_CopyMessage=1
|
||||
mtDialog_CopyMessage0="%26Copy to Clipboard"
|
||||
Count mtDialog_SupportMessage=1
|
||||
mtDialog_SupportMessage0="Go to the Support Page"
|
||||
Count mtMSDialog_ErrorMsgCaption=1
|
||||
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
|
||||
Count mtMSDialog_RestartCaption=1
|
||||
mtMSDialog_RestartCaption0="Restart application."
|
||||
Count mtMSDialog_TerminateCaption=1
|
||||
mtMSDialog_TerminateCaption0="Terminate application."
|
||||
Count mtMSDialog_PleaseCaption=1
|
||||
mtMSDialog_PleaseCaption0="Please tell us about this problem."
|
||||
Count mtMSDialog_DescriptionCaption=1
|
||||
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
|
||||
Count mtMSDialog_SeeDetailsCaption=1
|
||||
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
|
||||
Count mtMSDialog_SeeClickCaption=1
|
||||
mtMSDialog_SeeClickCaption0="click here."
|
||||
Count mtMSDialog_HowToReproduceCaption=1
|
||||
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happended (optional)?"
|
||||
Count mtMSDialog_EmailCaption=1
|
||||
mtMSDialog_EmailCaption0="Email address (optional):"
|
||||
Count mtMSDialog_SendButtonCaption=1
|
||||
mtMSDialog_SendButtonCaption0="%26Send Error Report"
|
||||
Count mtMSDialog_NoSendButtonCaption=1
|
||||
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
|
||||
Count mtLog_AppHeader=1
|
||||
mtLog_AppHeader0="Application"
|
||||
Count mtLog_AppStartDate=1
|
||||
mtLog_AppStartDate0="Start Date"
|
||||
Count mtLog_AppName=1
|
||||
mtLog_AppName0="Name/Description"
|
||||
Count mtLog_AppVersionNumber=1
|
||||
mtLog_AppVersionNumber0="Version Number"
|
||||
Count mtLog_AppParameters=1
|
||||
mtLog_AppParameters0="Parameters"
|
||||
Count mtLog_AppCompilationDate=1
|
||||
mtLog_AppCompilationDate0="Compilation Date"
|
||||
Count mtLog_AppUpTime=1
|
||||
mtLog_AppUpTime0="Up Time"
|
||||
Count mtLog_ExcHeader=1
|
||||
mtLog_ExcHeader0="Exception"
|
||||
Count mtLog_ExcDate=1
|
||||
mtLog_ExcDate0="Date"
|
||||
Count mtLog_ExcAddress=1
|
||||
mtLog_ExcAddress0="Address"
|
||||
Count mtLog_ExcModuleName=1
|
||||
mtLog_ExcModuleName0="Module Name"
|
||||
Count mtLog_ExcModuleVersion=1
|
||||
mtLog_ExcModuleVersion0="Module Version"
|
||||
Count mtLog_ExcType=1
|
||||
mtLog_ExcType0="Type"
|
||||
Count mtLog_ExcMessage=1
|
||||
mtLog_ExcMessage0="Message"
|
||||
Count mtLog_ExcID=1
|
||||
mtLog_ExcID0="ID"
|
||||
Count mtLog_ExcCount=1
|
||||
mtLog_ExcCount0="Count"
|
||||
Count mtLog_ExcStatus=1
|
||||
mtLog_ExcStatus0="Status"
|
||||
Count mtLog_ExcNote=1
|
||||
mtLog_ExcNote0="Note"
|
||||
Count mtLog_UserHeader=1
|
||||
mtLog_UserHeader0="User"
|
||||
Count mtLog_UserID=1
|
||||
mtLog_UserID0="ID"
|
||||
Count mtLog_UserName=1
|
||||
mtLog_UserName0="Name"
|
||||
Count mtLog_UserEmail=1
|
||||
mtLog_UserEmail0="Email"
|
||||
Count mtLog_UserCompany=1
|
||||
mtLog_UserCompany0="Company"
|
||||
Count mtLog_UserPrivileges=1
|
||||
mtLog_UserPrivileges0="Privileges"
|
||||
Count mtLog_ActCtrlsHeader=1
|
||||
mtLog_ActCtrlsHeader0="Active Controls"
|
||||
Count mtLog_ActCtrlsFormClass=1
|
||||
mtLog_ActCtrlsFormClass0="Form Class"
|
||||
Count mtLog_ActCtrlsFormText=1
|
||||
mtLog_ActCtrlsFormText0="Form Text"
|
||||
Count mtLog_ActCtrlsControlClass=1
|
||||
mtLog_ActCtrlsControlClass0="Control Class"
|
||||
Count mtLog_ActCtrlsControlText=1
|
||||
mtLog_ActCtrlsControlText0="Control Text"
|
||||
Count mtLog_CmpHeader=1
|
||||
mtLog_CmpHeader0="Computer"
|
||||
Count mtLog_CmpName=1
|
||||
mtLog_CmpName0="Name"
|
||||
Count mtLog_CmpTotalMemory=1
|
||||
mtLog_CmpTotalMemory0="Total Memory"
|
||||
Count mtLog_CmpFreeMemory=1
|
||||
mtLog_CmpFreeMemory0="Free Memory"
|
||||
Count mtLog_CmpTotalDisk=1
|
||||
mtLog_CmpTotalDisk0="Total Disk"
|
||||
Count mtLog_CmpFreeDisk=1
|
||||
mtLog_CmpFreeDisk0="Free Disk"
|
||||
Count mtLog_CmpSystemUpTime=1
|
||||
mtLog_CmpSystemUpTime0="System Up Time"
|
||||
Count mtLog_CmpProcessor=1
|
||||
mtLog_CmpProcessor0="Processor"
|
||||
Count mtLog_CmpDisplayMode=1
|
||||
mtLog_CmpDisplayMode0="Display Mode"
|
||||
Count mtLog_CmpDisplayDPI=1
|
||||
mtLog_CmpDisplayDPI0="Display DPI"
|
||||
Count mtLog_CmpVideoCard=1
|
||||
mtLog_CmpVideoCard0="Video Card"
|
||||
Count mtLog_CmpPrinter=1
|
||||
mtLog_CmpPrinter0="Printer"
|
||||
Count mtLog_OSHeader=1
|
||||
mtLog_OSHeader0="Operating System"
|
||||
Count mtLog_OSType=1
|
||||
mtLog_OSType0="Type"
|
||||
Count mtLog_OSBuildN=1
|
||||
mtLog_OSBuildN0="Build #"
|
||||
Count mtLog_OSUpdate=1
|
||||
mtLog_OSUpdate0="Update"
|
||||
Count mtLog_OSLanguage=1
|
||||
mtLog_OSLanguage0="Language"
|
||||
Count mtLog_OSCharset=1
|
||||
mtLog_OSCharset0="Charset"
|
||||
Count mtLog_NetHeader=1
|
||||
mtLog_NetHeader0="Network"
|
||||
Count mtLog_NetIP=1
|
||||
mtLog_NetIP0="IP Address"
|
||||
Count mtLog_NetSubmask=1
|
||||
mtLog_NetSubmask0="Submask"
|
||||
Count mtLog_NetGateway=1
|
||||
mtLog_NetGateway0="Gateway"
|
||||
Count mtLog_NetDNS1=1
|
||||
mtLog_NetDNS10="DNS 1"
|
||||
Count mtLog_NetDNS2=1
|
||||
mtLog_NetDNS20="DNS 2"
|
||||
Count mtLog_NetDHCP=1
|
||||
mtLog_NetDHCP0="DHCP"
|
||||
Count mtLog_CustInfoHeader=1
|
||||
mtLog_CustInfoHeader0="Custom Information"
|
||||
Count mtCallStack_Address=1
|
||||
mtCallStack_Address0="Address"
|
||||
Count mtCallStack_Name=1
|
||||
mtCallStack_Name0="Module"
|
||||
Count mtCallStack_Unit=1
|
||||
mtCallStack_Unit0="Unit"
|
||||
Count mtCallStack_Class=1
|
||||
mtCallStack_Class0="Class"
|
||||
Count mtCallStack_Procedure=1
|
||||
mtCallStack_Procedure0="Procedure/Method"
|
||||
Count mtCallStack_Line=1
|
||||
mtCallStack_Line0="Line"
|
||||
Count mtCallStack_MainThread=1
|
||||
mtCallStack_MainThread0="Main"
|
||||
Count mtCallStack_ExceptionThread=1
|
||||
mtCallStack_ExceptionThread0="Exception Thread"
|
||||
Count mtCallStack_RunningThread=1
|
||||
mtCallStack_RunningThread0="Running Thread"
|
||||
Count mtCallStack_CallingThread=1
|
||||
mtCallStack_CallingThread0="Calling Thread"
|
||||
Count mtCallStack_ThreadID=1
|
||||
mtCallStack_ThreadID0="ID"
|
||||
Count mtCallStack_ThreadPriority=1
|
||||
mtCallStack_ThreadPriority0="Priority"
|
||||
Count mtCallStack_ThreadClass=1
|
||||
mtCallStack_ThreadClass0="Class"
|
||||
Count mtCallStack_LeakCaption=1
|
||||
mtCallStack_LeakCaption0="Memory Leak"
|
||||
Count mtCallStack_LeakData=1
|
||||
mtCallStack_LeakData0="Data"
|
||||
Count mtCallStack_LeakType=1
|
||||
mtCallStack_LeakType0="Type"
|
||||
Count mtCallStack_LeakSize=1
|
||||
mtCallStack_LeakSize0="Total size"
|
||||
Count mtCallStack_LeakCount=1
|
||||
mtCallStack_LeakCount0="Count"
|
||||
Count mtSendDialog_Caption=1
|
||||
mtSendDialog_Caption0="Send."
|
||||
Count mtSendDialog_Message=1
|
||||
mtSendDialog_Message0="Message"
|
||||
Count mtSendDialog_Resolving=1
|
||||
mtSendDialog_Resolving0="Resolving DNS..."
|
||||
Count mtSendDialog_Login=1
|
||||
mtSendDialog_Login0="Login..."
|
||||
Count mtSendDialog_Connecting=1
|
||||
mtSendDialog_Connecting0="Connecting with server..."
|
||||
Count mtSendDialog_Connected=1
|
||||
mtSendDialog_Connected0="Connected with server."
|
||||
Count mtSendDialog_Sending=1
|
||||
mtSendDialog_Sending0="Sending message..."
|
||||
Count mtSendDialog_Sent=1
|
||||
mtSendDialog_Sent0="Message sent."
|
||||
Count mtSendDialog_SelectProject=1
|
||||
mtSendDialog_SelectProject0="Select project..."
|
||||
Count mtSendDialog_Searching=1
|
||||
mtSendDialog_Searching0="Searching..."
|
||||
Count mtSendDialog_Modifying=1
|
||||
mtSendDialog_Modifying0="Modifying..."
|
||||
Count mtSendDialog_Disconnecting=1
|
||||
mtSendDialog_Disconnecting0="Disconnecting..."
|
||||
Count mtSendDialog_Disconnected=1
|
||||
mtSendDialog_Disconnected0="Disconnected."
|
||||
Count mtReproduceDialog_Caption=1
|
||||
mtReproduceDialog_Caption0="Request"
|
||||
Count mtReproduceDialog_Request=1
|
||||
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
|
||||
Count mtReproduceDialog_OKButtonCaption=1
|
||||
mtReproduceDialog_OKButtonCaption0="%26OK"
|
||||
Count mtModules_Handle=1
|
||||
mtModules_Handle0="Handle"
|
||||
Count mtModules_Name=1
|
||||
mtModules_Name0="Name"
|
||||
Count mtModules_Description=1
|
||||
mtModules_Description0="Description"
|
||||
Count mtModules_Version=1
|
||||
mtModules_Version0="Version"
|
||||
Count mtModules_Size=1
|
||||
mtModules_Size0="Size"
|
||||
Count mtModules_LastModified=1
|
||||
mtModules_LastModified0="Modified"
|
||||
Count mtModules_Path=1
|
||||
mtModules_Path0="Path"
|
||||
Count mtProcesses_ID=1
|
||||
mtProcesses_ID0="ID"
|
||||
Count mtProcesses_Name=1
|
||||
mtProcesses_Name0="Name"
|
||||
Count mtProcesses_Description=1
|
||||
mtProcesses_Description0="Description"
|
||||
Count mtProcesses_Version=1
|
||||
mtProcesses_Version0="Version"
|
||||
Count mtProcesses_Memory=1
|
||||
mtProcesses_Memory0="Memory"
|
||||
Count mtProcesses_Priority=1
|
||||
mtProcesses_Priority0="Priority"
|
||||
Count mtProcesses_Threads=1
|
||||
mtProcesses_Threads0="Threads"
|
||||
Count mtProcesses_Path=1
|
||||
mtProcesses_Path0="Path"
|
||||
Count mtCPU_Registers=1
|
||||
mtCPU_Registers0="Registers"
|
||||
Count mtCPU_Stack=1
|
||||
mtCPU_Stack0="Stack"
|
||||
Count mtCPU_MemoryDump=1
|
||||
mtCPU_MemoryDump0="Memory Dump"
|
||||
Count mtSend_SuccessMsg=1
|
||||
mtSend_SuccessMsg0="The message was sent successfully."
|
||||
Count mtSend_FailureMsg=1
|
||||
mtSend_FailureMsg0="Sorry, sending the message didn't work."
|
||||
Count mtSend_BugClosedMsg=2
|
||||
mtSend_BugClosedMsg0="These BUG is just closed."
|
||||
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
|
||||
Count mtSend_UnknownErrorMsg=1
|
||||
mtSend_UnknownErrorMsg0="Unknown error."
|
||||
Count mtSend_InvalidLoginMsg=1
|
||||
mtSend_InvalidLoginMsg0="Invalid login request."
|
||||
Count mtSend_InvalidSearchMsg=1
|
||||
mtSend_InvalidSearchMsg0="Invalid search request."
|
||||
Count mtSend_InvalidSelectionMsg=1
|
||||
mtSend_InvalidSelectionMsg0="Invalid selection request."
|
||||
Count mtSend_InvalidInsertMsg=1
|
||||
mtSend_InvalidInsertMsg0="Invalid insert request."
|
||||
Count mtSend_InvalidModifyMsg=1
|
||||
mtSend_InvalidModifyMsg0="Invalid modify request."
|
||||
Count mtFileCrackedMsg=2
|
||||
mtFileCrackedMsg0="This file is cracked."
|
||||
mtFileCrackedMsg1="The application will be closed."
|
||||
Count mtException_LeakMultiFree=1
|
||||
mtException_LeakMultiFree0="Multi Free memory leak."
|
||||
Count mtException_LeakMemoryOverrun=1
|
||||
mtException_LeakMemoryOverrun0="Memory Overrun leak."
|
||||
Count mtException_AntiFreeze=1
|
||||
mtException_AntiFreeze0="The application seems to be frozen."
|
||||
Count mtInvalidEmailMsg=1
|
||||
mtInvalidEmailMsg0="Invalid email."
|
||||
TextsCollection=English
|
||||
EurekaLog Last Line -->
|
||||
Binary file not shown.
BIN
Source/Modulos/Fabricantes/Controller/Fabricantes_controller.res
Normal file
BIN
Source/Modulos/Fabricantes/Controller/Fabricantes_controller.res
Normal file
Binary file not shown.
@ -0,0 +1,23 @@
|
||||
unit uIEditorFabricantes;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
uEditorDBBase, uBizFabricantes, uFabricantesController;
|
||||
|
||||
type
|
||||
IEditorFabricantes = interface(IEditorDBBase)
|
||||
['{1DD6E573-CCD8-4443-9AC3-378CF63EB639}']
|
||||
function GetFabricantes: IBizFabricante;
|
||||
procedure SetFabricantes(const Value: IBizFabricante);
|
||||
property Fabricantes: IBizFabricante read GetFabricantes write SetFabricantes;
|
||||
|
||||
function GetController : IFabricantesController;
|
||||
procedure SetController (const Value : IFabricantesController);
|
||||
property Controller : IFabricantesController read GetController write SetController;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
234
Source/Modulos/Fabricantes/Controller/uFabricantesController.pas
Normal file
234
Source/Modulos/Fabricantes/Controller/uFabricantesController.pas
Normal file
@ -0,0 +1,234 @@
|
||||
unit uFabricantesController;
|
||||
|
||||
interface
|
||||
|
||||
|
||||
uses
|
||||
Classes, SysUtils, uDADataTable, uControllerBase, uEditorDBItem,
|
||||
uIDataModuleFabricantes, uBizFabricantes;
|
||||
|
||||
type
|
||||
IFabricantesController = interface(IObservador)
|
||||
['{8D56360B-0AAA-41FA-9C48-90C586B07E37}']
|
||||
function BuscarTodos: IBizFabricante;
|
||||
procedure VerTodos(AFabricantes: IBizFabricante);
|
||||
procedure Anadir(AFabricante : IBizFabricante);
|
||||
function Eliminar(AFabricante : IBizFabricante): Boolean;
|
||||
function Guardar(AFabricante : IBizFabricante): Boolean;
|
||||
procedure DescartarCambios(AFabricante : IBizFabricante);
|
||||
function Localizar(AFabricantes: IBizFabricante; ADescripcion:String): Boolean;
|
||||
function DarListaFabricantes: TStringList;
|
||||
end;
|
||||
|
||||
TFabricantesController = class(TObservador, IFabricantesController)
|
||||
protected
|
||||
FDataModule : IDataModuleFabricantes;
|
||||
|
||||
procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;
|
||||
function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean;
|
||||
|
||||
function ValidarAlmacen(AFabricante: IBizFabricante): Boolean;
|
||||
|
||||
//Estos son los tres métodos a sobre escribir si se desea heredar toda la logica de
|
||||
//este controller
|
||||
procedure AsignarDataModule; virtual;
|
||||
|
||||
procedure ValidarObjetos; virtual;
|
||||
|
||||
public
|
||||
constructor Create; override;
|
||||
destructor Destroy; override;
|
||||
|
||||
function Eliminar(AFabricante : IBizFabricante): Boolean;
|
||||
function Guardar(AFabricante : IBizFabricante): Boolean;
|
||||
procedure DescartarCambios(AFabricante : IBizFabricante); virtual;
|
||||
procedure Anadir(AFabricante : IBizFabricante);
|
||||
function BuscarTodos: IBizFabricante;
|
||||
procedure VerTodos(AFabricantes: IBizFabricante);
|
||||
function Localizar(AFabricantes: IBizFabricante; ADescripcion:String): Boolean;
|
||||
function DarListaFabricantes: TStringList;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
cxControls, DB, uEditorRegistryUtils, schFabricantesClient_Intf,
|
||||
uIEditorFabricantes, uDataModuleFabricantes,
|
||||
uDAInterfaces, uDataTableUtils,
|
||||
uDateUtils, uROTypes, DateUtils, Controls, Windows;
|
||||
|
||||
{ TFabricantesController }
|
||||
|
||||
procedure TFabricantesController.Anadir(AFabricante: IBizFabricante);
|
||||
begin
|
||||
AFabricante.Insert;
|
||||
end;
|
||||
|
||||
procedure TFabricantesController.AsignarDataModule;
|
||||
begin
|
||||
FDataModule := TDataModuleFabricantes.Create(Nil);
|
||||
end;
|
||||
|
||||
function TFabricantesController.BuscarTodos: IBizFabricante;
|
||||
begin
|
||||
Result := FDataModule.GetItems;
|
||||
end;
|
||||
|
||||
constructor TFabricantesController.Create;
|
||||
begin
|
||||
inherited;
|
||||
AsignarDataModule;
|
||||
end;
|
||||
|
||||
function TFabricantesController.CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
|
||||
begin
|
||||
Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf);
|
||||
end;
|
||||
|
||||
function TFabricantesController.DarListaFabricantes: TStringList;
|
||||
var
|
||||
AFabricantes: IBizFabricante;
|
||||
begin
|
||||
AFabricantes := BuscarTodos;
|
||||
AFabricantes.DataTable.Active := True;
|
||||
Result := TStringList.Create;
|
||||
try
|
||||
with Result do
|
||||
begin
|
||||
AFabricantes.DataTable.First;
|
||||
while not AFabricantes.DataTable.EOF do
|
||||
begin
|
||||
Add(AFabricantes.DESCRIPCION);
|
||||
AFabricantes.DataTable.Next;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
AFabricantes := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TFabricantesController.DescartarCambios(AFabricante: IBizFabricante);
|
||||
begin
|
||||
if not Assigned(AFabricante) then
|
||||
raise Exception.Create ('Almacen no asignado');
|
||||
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
if (AFabricante.State in dsEditModes) then
|
||||
AFabricante.Cancel;
|
||||
|
||||
AFabricante.DataTable.CancelUpdates;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
destructor TFabricantesController.Destroy;
|
||||
begin
|
||||
FDataModule := Nil;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TFabricantesController.ValidarAlmacen(AFabricante: IBizFabricante): Boolean;
|
||||
begin
|
||||
//
|
||||
end;
|
||||
|
||||
procedure TFabricantesController.ValidarObjetos;
|
||||
begin
|
||||
//
|
||||
end;
|
||||
|
||||
procedure TFabricantesController.VerTodos(AFabricantes: IBizFabricante);
|
||||
var
|
||||
AEditor : IEditorFabricantes;
|
||||
begin
|
||||
AEditor := NIL;
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
CreateEditor('EditorFabricantes', IEditorFabricantes, AEditor);
|
||||
if Assigned(AEditor) then
|
||||
with AEditor do
|
||||
begin
|
||||
Controller := Self; //OJO ORDEN MUY IMPORTANTE
|
||||
Fabricantes := AFabricantes;
|
||||
ShowModal;
|
||||
Release;
|
||||
end;
|
||||
finally
|
||||
AEditor := NIL;
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TFabricantesController.Eliminar(AFabricante: IBizFabricante): Boolean;
|
||||
begin
|
||||
Result := False;
|
||||
|
||||
if not Assigned(AFabricante) then
|
||||
raise Exception.Create ('Almacen no asignada');
|
||||
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
if (AFabricante.State in dsEditModes) then
|
||||
AFabricante.Cancel;
|
||||
|
||||
AFabricante.Delete;
|
||||
AFabricante.DataTable.ApplyUpdates;
|
||||
HideHourglassCursor;
|
||||
Result := True;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TFabricantesController.RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable);
|
||||
begin
|
||||
inherited;
|
||||
//
|
||||
end;
|
||||
|
||||
function TFabricantesController.Guardar(AFabricante: IBizFabricante): Boolean;
|
||||
begin
|
||||
Result := False;
|
||||
|
||||
if not Assigned(AFabricante) then
|
||||
raise Exception.Create ('Almacen no asignada');
|
||||
|
||||
ValidarObjetos;
|
||||
|
||||
if ValidarAlmacen(AFabricante) then
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
if (AFabricante.DataTable.State in dsEditModes) then
|
||||
AFabricante.DataTable.Post;
|
||||
|
||||
AFabricante.DataTable.ApplyUpdates;
|
||||
|
||||
Result := True;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TFabricantesController.Localizar(AFabricantes: IBizFabricante; ADescripcion: String): Boolean;
|
||||
begin
|
||||
Result := True;
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
with AFabricantes.DataTable do
|
||||
begin
|
||||
DisableControls;
|
||||
First;
|
||||
if not Locate(fld_FabricantesDESCRIPCION, ADescripcion, []) then
|
||||
Result := False;
|
||||
EnableControls;
|
||||
end;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
BIN
Source/Modulos/Fabricantes/Controller/uIEditorFabricantes.dcu
Normal file
BIN
Source/Modulos/Fabricantes/Controller/uIEditorFabricantes.dcu
Normal file
Binary file not shown.
47
Source/Modulos/Fabricantes/Data/Fabricantes_data.dpk
Normal file
47
Source/Modulos/Fabricantes/Data/Fabricantes_data.dpk
Normal file
@ -0,0 +1,47 @@
|
||||
package Fabricantes_data;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$IMPLICITBUILD ON}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
vcl,
|
||||
Base,
|
||||
GUIBase,
|
||||
ApplicationBase,
|
||||
dbrtl,
|
||||
RemObjects_Core_D11,
|
||||
DataAbstract_Core_D11,
|
||||
vcldb,
|
||||
dsnap,
|
||||
adortl,
|
||||
cxLibraryD11,
|
||||
dxThemeD11,
|
||||
dxGDIPlusD11,
|
||||
Fabricantes_model;
|
||||
|
||||
contains
|
||||
uDataModuleFabricantes in 'uDataModuleFabricantes.pas' {DataModuleFabricantes};
|
||||
|
||||
end.
|
||||
554
Source/Modulos/Fabricantes/Data/Fabricantes_data.dproj
Normal file
554
Source/Modulos/Fabricantes/Data/Fabricantes_data.dproj
Normal file
@ -0,0 +1,554 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{55d06c67-fc74-4d88-8787-801dee872bb3}</ProjectGuid>
|
||||
<MainSource>Fabricantes_data.dpk</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\Fabricantes_data.bpl</DCC_DependencyCheckOutputName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
||||
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
||||
<DCC_HppOutput>.\</DCC_HppOutput>
|
||||
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
|
||||
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
||||
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
||||
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
||||
<DCC_HppOutput>.\</DCC_HppOutput>
|
||||
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
|
||||
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
||||
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Fabricantes_data.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="Fabricantes_data.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\Lib\adortl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Base.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dbrtl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dsnap.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Fabricantes_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Lib\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\rtl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\vcl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\vcldb.dcp" />
|
||||
<DCCReference Include="uDataModuleFabricantes.pas">
|
||||
<Form>DataModuleFabricante</Form>
|
||||
</DCCReference>
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
EurekaLog Version=6011
|
||||
Activate=0
|
||||
Activate Handle=1
|
||||
Save Log File=1
|
||||
Foreground Tab=0
|
||||
Freeze Activate=0
|
||||
Freeze Timeout=0
|
||||
SMTP From=eurekalog@email.com
|
||||
SMTP Host=
|
||||
SMTP Port=25
|
||||
SMTP UserID=
|
||||
SMTP Password=
|
||||
Append to Log=0
|
||||
TerminateBtn Operation=2
|
||||
Errors Number=32
|
||||
Errors Terminate=3
|
||||
Email Address=
|
||||
Email Object=
|
||||
Email Send Options=0
|
||||
Output Path=
|
||||
Encrypt Password=
|
||||
AutoCloseDialogSecs=0
|
||||
WebSendMode=0
|
||||
SupportULR=
|
||||
HTMLLayout Count=15
|
||||
HTMLLine0="%3Chtml%3E"
|
||||
HTMLLine1=" %3Chead%3E"
|
||||
HTMLLine2=" %3C/head%3E"
|
||||
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
|
||||
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
|
||||
HTMLLine5=" %3Ctr%3E"
|
||||
HTMLLine6=" %3Ctd nowrap%3E"
|
||||
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
|
||||
HTMLLine8=" %3C%%HTML_TAG%%%3E"
|
||||
HTMLLine9=" %3C/font%3E"
|
||||
HTMLLine10=" %3C/td%3E"
|
||||
HTMLLine11=" %3C/tr%3E"
|
||||
HTMLLine12=" %3C/table%3E"
|
||||
HTMLLine13=" %3C/body%3E"
|
||||
HTMLLine14="%3C/html%3E"
|
||||
AutoCrashOperation=2
|
||||
AutoCrashNumber=10
|
||||
AutoCrashMinutes=1
|
||||
WebURL=
|
||||
WebUserID=
|
||||
WebPassword=
|
||||
WebPort=0
|
||||
AttachedFiles=
|
||||
ProxyURL=
|
||||
ProxyUser=
|
||||
ProxyPassword=
|
||||
ProxyPort=8080
|
||||
TrakerUser=
|
||||
TrakerPassword=
|
||||
TrakerAssignTo=
|
||||
TrakerProject=
|
||||
TrakerCategory=
|
||||
TrakerTrialID=
|
||||
ZipPassword=
|
||||
PreBuildEvent=
|
||||
PostSuccessfulBuildEvent=
|
||||
PostFailureBuildEvent=
|
||||
ExceptionDialogType=2
|
||||
Count=0
|
||||
EMail Message Line Count=0
|
||||
loNoDuplicateErrors=0
|
||||
loAppendReproduceText=0
|
||||
loDeleteLogAtVersionChange=0
|
||||
loAddComputerNameInLogFileName=0
|
||||
loSaveModulesAndProcessesSections=1
|
||||
loSaveAssemblerAndCPUSections=1
|
||||
soAppStartDate=1
|
||||
soAppName=1
|
||||
soAppVersionNumber=1
|
||||
soAppParameters=1
|
||||
soAppCompilationDate=1
|
||||
soAppUpTime=1
|
||||
soExcDate=1
|
||||
soExcAddress=1
|
||||
soExcModuleName=1
|
||||
soExcModuleVersion=1
|
||||
soExcType=1
|
||||
soExcMessage=1
|
||||
soExcID=1
|
||||
soExcCount=1
|
||||
soExcStatus=1
|
||||
soExcNote=1
|
||||
soUserID=1
|
||||
soUserName=1
|
||||
soUserEmail=1
|
||||
soUserPrivileges=1
|
||||
soUserCompany=1
|
||||
soActCtlsFormClass=1
|
||||
soActCtlsFormText=1
|
||||
soActCtlsControlClass=1
|
||||
soActCtlsControlText=1
|
||||
soCmpName=1
|
||||
soCmpTotalMemory=1
|
||||
soCmpFreeMemory=1
|
||||
soCmpTotalDisk=1
|
||||
soCmpFreeDisk=1
|
||||
soCmpSysUpTime=1
|
||||
soCmpProcessor=1
|
||||
soCmpDisplayMode=1
|
||||
soCmpDisplayDPI=1
|
||||
soCmpVideoCard=1
|
||||
soCmpPrinter=1
|
||||
soOSType=1
|
||||
soOSBuildN=1
|
||||
soOSUpdate=1
|
||||
soOSLanguage=1
|
||||
soOSCharset=1
|
||||
soNetIP=1
|
||||
soNetSubmask=1
|
||||
soNetGateway=1
|
||||
soNetDNS1=1
|
||||
soNetDNS2=1
|
||||
soNetDHCP=1
|
||||
soCustomData=1
|
||||
sndShowSendDialog=1
|
||||
sndShowSuccessFailureMsg=0
|
||||
sndSendEntireLog=0
|
||||
sndSendXMLLogCopy=0
|
||||
sndSendScreenshot=1
|
||||
sndUseOnlyActiveWindow=0
|
||||
sndSendLastHTMLPage=1
|
||||
sndSendInSeparatedThread=0
|
||||
sndAddDateInFileName=0
|
||||
sndAddComputerNameInFileName=0
|
||||
edoSendErrorReportChecked=1
|
||||
edoAttachScreenshotChecked=1
|
||||
edoShowCopyToClipOption=1
|
||||
edoShowDetailsButton=1
|
||||
edoShowInDetailedMode=0
|
||||
edoShowInTopMostMode=0
|
||||
edoUseEurekaLogLookAndFeel=0
|
||||
edoShowSendErrorReportOption=1
|
||||
edoShowAttachScreenshotOption=1
|
||||
edoShowCustomButton=0
|
||||
csoShowDLLs=1
|
||||
csoShowBPLs=1
|
||||
csoShowBorlandThreads=1
|
||||
csoShowWindowsThreads=1
|
||||
csoDoNotStoreProcNames=0
|
||||
boPauseBorlandThreads=0
|
||||
boDoNotPauseMainThread=0
|
||||
boPauseWindowsThreads=0
|
||||
boUseMainModuleOptions=1
|
||||
boCopyLogInCaseOfError=1
|
||||
boSaveCompressedCopyInCaseOfError=0
|
||||
boHandleSafeCallExceptions=1
|
||||
boCallRTLExceptionEvent=0
|
||||
boCatchHandledExceptions=0
|
||||
loCatchLeaks=0
|
||||
loGroupsSonLeaks=1
|
||||
loHideBorlandLeaks=1
|
||||
loFreeAllLeaks=1
|
||||
loCatchLeaksExceptions=1
|
||||
cfoReduceFileSize=1
|
||||
cfoCheckFileCorruption=0
|
||||
Count mtInformationMsgCaption=1
|
||||
mtInformationMsgCaption0="Information."
|
||||
Count mtQuestionMsgCaption=1
|
||||
mtQuestionMsgCaption0="Question."
|
||||
Count mtErrorMsgCaption=1
|
||||
mtErrorMsgCaption0="Error."
|
||||
Count mtDialog_Caption=1
|
||||
mtDialog_Caption0="Error occurred"
|
||||
Count mtDialog_ErrorMsgCaption=2
|
||||
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
|
||||
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
|
||||
Count mtDialog_GeneralCaption=1
|
||||
mtDialog_GeneralCaption0="General"
|
||||
Count mtDialog_GeneralHeader=1
|
||||
mtDialog_GeneralHeader0="General Information"
|
||||
Count mtDialog_CallStackCaption=1
|
||||
mtDialog_CallStackCaption0="Call Stack"
|
||||
Count mtDialog_CallStackHeader=1
|
||||
mtDialog_CallStackHeader0="Call Stack Information"
|
||||
Count mtDialog_ModulesCaption=1
|
||||
mtDialog_ModulesCaption0="Modules"
|
||||
Count mtDialog_ModulesHeader=1
|
||||
mtDialog_ModulesHeader0="Modules Information"
|
||||
Count mtDialog_ProcessesCaption=1
|
||||
mtDialog_ProcessesCaption0="Processes"
|
||||
Count mtDialog_ProcessesHeader=1
|
||||
mtDialog_ProcessesHeader0="Processes Information"
|
||||
Count mtDialog_AsmCaption=1
|
||||
mtDialog_AsmCaption0="Assembler"
|
||||
Count mtDialog_AsmHeader=1
|
||||
mtDialog_AsmHeader0="Assembler Information"
|
||||
Count mtDialog_CPUCaption=1
|
||||
mtDialog_CPUCaption0="CPU"
|
||||
Count mtDialog_CPUHeader=1
|
||||
mtDialog_CPUHeader0="CPU Information"
|
||||
Count mtDialog_OKButtonCaption=1
|
||||
mtDialog_OKButtonCaption0="%26OK"
|
||||
Count mtDialog_TerminateButtonCaption=1
|
||||
mtDialog_TerminateButtonCaption0="%26Terminate"
|
||||
Count mtDialog_RestartButtonCaption=1
|
||||
mtDialog_RestartButtonCaption0="%26Restart"
|
||||
Count mtDialog_DetailsButtonCaption=1
|
||||
mtDialog_DetailsButtonCaption0="%26Details"
|
||||
Count mtDialog_CustomButtonCaption=1
|
||||
mtDialog_CustomButtonCaption0="%26Help"
|
||||
Count mtDialog_SendMessage=1
|
||||
mtDialog_SendMessage0="%26Send this error via Internet"
|
||||
Count mtDialog_ScreenshotMessage=1
|
||||
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
|
||||
Count mtDialog_CopyMessage=1
|
||||
mtDialog_CopyMessage0="%26Copy to Clipboard"
|
||||
Count mtDialog_SupportMessage=1
|
||||
mtDialog_SupportMessage0="Go to the Support Page"
|
||||
Count mtMSDialog_ErrorMsgCaption=1
|
||||
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
|
||||
Count mtMSDialog_RestartCaption=1
|
||||
mtMSDialog_RestartCaption0="Restart application."
|
||||
Count mtMSDialog_TerminateCaption=1
|
||||
mtMSDialog_TerminateCaption0="Terminate application."
|
||||
Count mtMSDialog_PleaseCaption=1
|
||||
mtMSDialog_PleaseCaption0="Please tell us about this problem."
|
||||
Count mtMSDialog_DescriptionCaption=1
|
||||
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
|
||||
Count mtMSDialog_SeeDetailsCaption=1
|
||||
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
|
||||
Count mtMSDialog_SeeClickCaption=1
|
||||
mtMSDialog_SeeClickCaption0="click here."
|
||||
Count mtMSDialog_HowToReproduceCaption=1
|
||||
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happended (optional)?"
|
||||
Count mtMSDialog_EmailCaption=1
|
||||
mtMSDialog_EmailCaption0="Email address (optional):"
|
||||
Count mtMSDialog_SendButtonCaption=1
|
||||
mtMSDialog_SendButtonCaption0="%26Send Error Report"
|
||||
Count mtMSDialog_NoSendButtonCaption=1
|
||||
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
|
||||
Count mtLog_AppHeader=1
|
||||
mtLog_AppHeader0="Application"
|
||||
Count mtLog_AppStartDate=1
|
||||
mtLog_AppStartDate0="Start Date"
|
||||
Count mtLog_AppName=1
|
||||
mtLog_AppName0="Name/Description"
|
||||
Count mtLog_AppVersionNumber=1
|
||||
mtLog_AppVersionNumber0="Version Number"
|
||||
Count mtLog_AppParameters=1
|
||||
mtLog_AppParameters0="Parameters"
|
||||
Count mtLog_AppCompilationDate=1
|
||||
mtLog_AppCompilationDate0="Compilation Date"
|
||||
Count mtLog_AppUpTime=1
|
||||
mtLog_AppUpTime0="Up Time"
|
||||
Count mtLog_ExcHeader=1
|
||||
mtLog_ExcHeader0="Exception"
|
||||
Count mtLog_ExcDate=1
|
||||
mtLog_ExcDate0="Date"
|
||||
Count mtLog_ExcAddress=1
|
||||
mtLog_ExcAddress0="Address"
|
||||
Count mtLog_ExcModuleName=1
|
||||
mtLog_ExcModuleName0="Module Name"
|
||||
Count mtLog_ExcModuleVersion=1
|
||||
mtLog_ExcModuleVersion0="Module Version"
|
||||
Count mtLog_ExcType=1
|
||||
mtLog_ExcType0="Type"
|
||||
Count mtLog_ExcMessage=1
|
||||
mtLog_ExcMessage0="Message"
|
||||
Count mtLog_ExcID=1
|
||||
mtLog_ExcID0="ID"
|
||||
Count mtLog_ExcCount=1
|
||||
mtLog_ExcCount0="Count"
|
||||
Count mtLog_ExcStatus=1
|
||||
mtLog_ExcStatus0="Status"
|
||||
Count mtLog_ExcNote=1
|
||||
mtLog_ExcNote0="Note"
|
||||
Count mtLog_UserHeader=1
|
||||
mtLog_UserHeader0="User"
|
||||
Count mtLog_UserID=1
|
||||
mtLog_UserID0="ID"
|
||||
Count mtLog_UserName=1
|
||||
mtLog_UserName0="Name"
|
||||
Count mtLog_UserEmail=1
|
||||
mtLog_UserEmail0="Email"
|
||||
Count mtLog_UserCompany=1
|
||||
mtLog_UserCompany0="Company"
|
||||
Count mtLog_UserPrivileges=1
|
||||
mtLog_UserPrivileges0="Privileges"
|
||||
Count mtLog_ActCtrlsHeader=1
|
||||
mtLog_ActCtrlsHeader0="Active Controls"
|
||||
Count mtLog_ActCtrlsFormClass=1
|
||||
mtLog_ActCtrlsFormClass0="Form Class"
|
||||
Count mtLog_ActCtrlsFormText=1
|
||||
mtLog_ActCtrlsFormText0="Form Text"
|
||||
Count mtLog_ActCtrlsControlClass=1
|
||||
mtLog_ActCtrlsControlClass0="Control Class"
|
||||
Count mtLog_ActCtrlsControlText=1
|
||||
mtLog_ActCtrlsControlText0="Control Text"
|
||||
Count mtLog_CmpHeader=1
|
||||
mtLog_CmpHeader0="Computer"
|
||||
Count mtLog_CmpName=1
|
||||
mtLog_CmpName0="Name"
|
||||
Count mtLog_CmpTotalMemory=1
|
||||
mtLog_CmpTotalMemory0="Total Memory"
|
||||
Count mtLog_CmpFreeMemory=1
|
||||
mtLog_CmpFreeMemory0="Free Memory"
|
||||
Count mtLog_CmpTotalDisk=1
|
||||
mtLog_CmpTotalDisk0="Total Disk"
|
||||
Count mtLog_CmpFreeDisk=1
|
||||
mtLog_CmpFreeDisk0="Free Disk"
|
||||
Count mtLog_CmpSystemUpTime=1
|
||||
mtLog_CmpSystemUpTime0="System Up Time"
|
||||
Count mtLog_CmpProcessor=1
|
||||
mtLog_CmpProcessor0="Processor"
|
||||
Count mtLog_CmpDisplayMode=1
|
||||
mtLog_CmpDisplayMode0="Display Mode"
|
||||
Count mtLog_CmpDisplayDPI=1
|
||||
mtLog_CmpDisplayDPI0="Display DPI"
|
||||
Count mtLog_CmpVideoCard=1
|
||||
mtLog_CmpVideoCard0="Video Card"
|
||||
Count mtLog_CmpPrinter=1
|
||||
mtLog_CmpPrinter0="Printer"
|
||||
Count mtLog_OSHeader=1
|
||||
mtLog_OSHeader0="Operating System"
|
||||
Count mtLog_OSType=1
|
||||
mtLog_OSType0="Type"
|
||||
Count mtLog_OSBuildN=1
|
||||
mtLog_OSBuildN0="Build #"
|
||||
Count mtLog_OSUpdate=1
|
||||
mtLog_OSUpdate0="Update"
|
||||
Count mtLog_OSLanguage=1
|
||||
mtLog_OSLanguage0="Language"
|
||||
Count mtLog_OSCharset=1
|
||||
mtLog_OSCharset0="Charset"
|
||||
Count mtLog_NetHeader=1
|
||||
mtLog_NetHeader0="Network"
|
||||
Count mtLog_NetIP=1
|
||||
mtLog_NetIP0="IP Address"
|
||||
Count mtLog_NetSubmask=1
|
||||
mtLog_NetSubmask0="Submask"
|
||||
Count mtLog_NetGateway=1
|
||||
mtLog_NetGateway0="Gateway"
|
||||
Count mtLog_NetDNS1=1
|
||||
mtLog_NetDNS10="DNS 1"
|
||||
Count mtLog_NetDNS2=1
|
||||
mtLog_NetDNS20="DNS 2"
|
||||
Count mtLog_NetDHCP=1
|
||||
mtLog_NetDHCP0="DHCP"
|
||||
Count mtLog_CustInfoHeader=1
|
||||
mtLog_CustInfoHeader0="Custom Information"
|
||||
Count mtCallStack_Address=1
|
||||
mtCallStack_Address0="Address"
|
||||
Count mtCallStack_Name=1
|
||||
mtCallStack_Name0="Module"
|
||||
Count mtCallStack_Unit=1
|
||||
mtCallStack_Unit0="Unit"
|
||||
Count mtCallStack_Class=1
|
||||
mtCallStack_Class0="Class"
|
||||
Count mtCallStack_Procedure=1
|
||||
mtCallStack_Procedure0="Procedure/Method"
|
||||
Count mtCallStack_Line=1
|
||||
mtCallStack_Line0="Line"
|
||||
Count mtCallStack_MainThread=1
|
||||
mtCallStack_MainThread0="Main"
|
||||
Count mtCallStack_ExceptionThread=1
|
||||
mtCallStack_ExceptionThread0="Exception Thread"
|
||||
Count mtCallStack_RunningThread=1
|
||||
mtCallStack_RunningThread0="Running Thread"
|
||||
Count mtCallStack_CallingThread=1
|
||||
mtCallStack_CallingThread0="Calling Thread"
|
||||
Count mtCallStack_ThreadID=1
|
||||
mtCallStack_ThreadID0="ID"
|
||||
Count mtCallStack_ThreadPriority=1
|
||||
mtCallStack_ThreadPriority0="Priority"
|
||||
Count mtCallStack_ThreadClass=1
|
||||
mtCallStack_ThreadClass0="Class"
|
||||
Count mtCallStack_LeakCaption=1
|
||||
mtCallStack_LeakCaption0="Memory Leak"
|
||||
Count mtCallStack_LeakData=1
|
||||
mtCallStack_LeakData0="Data"
|
||||
Count mtCallStack_LeakType=1
|
||||
mtCallStack_LeakType0="Type"
|
||||
Count mtCallStack_LeakSize=1
|
||||
mtCallStack_LeakSize0="Total size"
|
||||
Count mtCallStack_LeakCount=1
|
||||
mtCallStack_LeakCount0="Count"
|
||||
Count mtSendDialog_Caption=1
|
||||
mtSendDialog_Caption0="Send."
|
||||
Count mtSendDialog_Message=1
|
||||
mtSendDialog_Message0="Message"
|
||||
Count mtSendDialog_Resolving=1
|
||||
mtSendDialog_Resolving0="Resolving DNS..."
|
||||
Count mtSendDialog_Login=1
|
||||
mtSendDialog_Login0="Login..."
|
||||
Count mtSendDialog_Connecting=1
|
||||
mtSendDialog_Connecting0="Connecting with server..."
|
||||
Count mtSendDialog_Connected=1
|
||||
mtSendDialog_Connected0="Connected with server."
|
||||
Count mtSendDialog_Sending=1
|
||||
mtSendDialog_Sending0="Sending message..."
|
||||
Count mtSendDialog_Sent=1
|
||||
mtSendDialog_Sent0="Message sent."
|
||||
Count mtSendDialog_SelectProject=1
|
||||
mtSendDialog_SelectProject0="Select project..."
|
||||
Count mtSendDialog_Searching=1
|
||||
mtSendDialog_Searching0="Searching..."
|
||||
Count mtSendDialog_Modifying=1
|
||||
mtSendDialog_Modifying0="Modifying..."
|
||||
Count mtSendDialog_Disconnecting=1
|
||||
mtSendDialog_Disconnecting0="Disconnecting..."
|
||||
Count mtSendDialog_Disconnected=1
|
||||
mtSendDialog_Disconnected0="Disconnected."
|
||||
Count mtReproduceDialog_Caption=1
|
||||
mtReproduceDialog_Caption0="Request"
|
||||
Count mtReproduceDialog_Request=1
|
||||
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
|
||||
Count mtReproduceDialog_OKButtonCaption=1
|
||||
mtReproduceDialog_OKButtonCaption0="%26OK"
|
||||
Count mtModules_Handle=1
|
||||
mtModules_Handle0="Handle"
|
||||
Count mtModules_Name=1
|
||||
mtModules_Name0="Name"
|
||||
Count mtModules_Description=1
|
||||
mtModules_Description0="Description"
|
||||
Count mtModules_Version=1
|
||||
mtModules_Version0="Version"
|
||||
Count mtModules_Size=1
|
||||
mtModules_Size0="Size"
|
||||
Count mtModules_LastModified=1
|
||||
mtModules_LastModified0="Modified"
|
||||
Count mtModules_Path=1
|
||||
mtModules_Path0="Path"
|
||||
Count mtProcesses_ID=1
|
||||
mtProcesses_ID0="ID"
|
||||
Count mtProcesses_Name=1
|
||||
mtProcesses_Name0="Name"
|
||||
Count mtProcesses_Description=1
|
||||
mtProcesses_Description0="Description"
|
||||
Count mtProcesses_Version=1
|
||||
mtProcesses_Version0="Version"
|
||||
Count mtProcesses_Memory=1
|
||||
mtProcesses_Memory0="Memory"
|
||||
Count mtProcesses_Priority=1
|
||||
mtProcesses_Priority0="Priority"
|
||||
Count mtProcesses_Threads=1
|
||||
mtProcesses_Threads0="Threads"
|
||||
Count mtProcesses_Path=1
|
||||
mtProcesses_Path0="Path"
|
||||
Count mtCPU_Registers=1
|
||||
mtCPU_Registers0="Registers"
|
||||
Count mtCPU_Stack=1
|
||||
mtCPU_Stack0="Stack"
|
||||
Count mtCPU_MemoryDump=1
|
||||
mtCPU_MemoryDump0="Memory Dump"
|
||||
Count mtSend_SuccessMsg=1
|
||||
mtSend_SuccessMsg0="The message was sent successfully."
|
||||
Count mtSend_FailureMsg=1
|
||||
mtSend_FailureMsg0="Sorry, sending the message didn't work."
|
||||
Count mtSend_BugClosedMsg=2
|
||||
mtSend_BugClosedMsg0="These BUG is just closed."
|
||||
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
|
||||
Count mtSend_UnknownErrorMsg=1
|
||||
mtSend_UnknownErrorMsg0="Unknown error."
|
||||
Count mtSend_InvalidLoginMsg=1
|
||||
mtSend_InvalidLoginMsg0="Invalid login request."
|
||||
Count mtSend_InvalidSearchMsg=1
|
||||
mtSend_InvalidSearchMsg0="Invalid search request."
|
||||
Count mtSend_InvalidSelectionMsg=1
|
||||
mtSend_InvalidSelectionMsg0="Invalid selection request."
|
||||
Count mtSend_InvalidInsertMsg=1
|
||||
mtSend_InvalidInsertMsg0="Invalid insert request."
|
||||
Count mtSend_InvalidModifyMsg=1
|
||||
mtSend_InvalidModifyMsg0="Invalid modify request."
|
||||
Count mtFileCrackedMsg=2
|
||||
mtFileCrackedMsg0="This file is cracked."
|
||||
mtFileCrackedMsg1="The application will be closed."
|
||||
Count mtException_LeakMultiFree=1
|
||||
mtException_LeakMultiFree0="Multi Free memory leak."
|
||||
Count mtException_LeakMemoryOverrun=1
|
||||
mtException_LeakMemoryOverrun0="Memory Overrun leak."
|
||||
Count mtException_AntiFreeze=1
|
||||
mtException_AntiFreeze0="The application seems to be frozen."
|
||||
Count mtInvalidEmailMsg=1
|
||||
mtInvalidEmailMsg0="Invalid email."
|
||||
TextsCollection=English
|
||||
EurekaLog Last Line -->
|
||||
17
Source/Modulos/Fabricantes/Data/Fabricantes_data.drc
Normal file
17
Source/Modulos/Fabricantes/Data/Fabricantes_data.drc
Normal file
@ -0,0 +1,17 @@
|
||||
/* VER185
|
||||
Generated by the CodeGear Delphi Pascal Compiler
|
||||
because -GD or --drc was supplied to the compiler.
|
||||
|
||||
This file contains compiler-generated resources that
|
||||
were bound to the executable.
|
||||
If this file is empty, then no compiler-generated
|
||||
resources were bound to the produced executable.
|
||||
*/
|
||||
|
||||
STRINGTABLE
|
||||
BEGIN
|
||||
END
|
||||
|
||||
/* C:\Codigo Tecsitel\Source\Modulos\Fabricantes\Data\uDataModuleFabricantes.DFM */
|
||||
/* C:\Codigo Tecsitel\Source\Modulos\Fabricantes\Data\Fabricantes_data.res */
|
||||
/* C:\Codigo Tecsitel\Source\Modulos\Fabricantes\Data\Fabricantes_data.drf */
|
||||
BIN
Source/Modulos/Fabricantes/Data/Fabricantes_data.identcache
Normal file
BIN
Source/Modulos/Fabricantes/Data/Fabricantes_data.identcache
Normal file
Binary file not shown.
BIN
Source/Modulos/Fabricantes/Data/Fabricantes_data.res
Normal file
BIN
Source/Modulos/Fabricantes/Data/Fabricantes_data.res
Normal file
Binary file not shown.
61
Source/Modulos/Fabricantes/Data/uDataModuleFabricantes.dfm
Normal file
61
Source/Modulos/Fabricantes/Data/uDataModuleFabricantes.dfm
Normal file
@ -0,0 +1,61 @@
|
||||
inherited DataModuleFabricantes: TDataModuleFabricantes
|
||||
OnCreate = DAClientDataModuleCreate
|
||||
Height = 165
|
||||
Width = 409
|
||||
object RORemoteService: TRORemoteService
|
||||
Message = dmConexion.ROMessage
|
||||
Channel = dmConexion.ROChannel
|
||||
ServiceName = 'srvFabricantes'
|
||||
Left = 48
|
||||
Top = 24
|
||||
end
|
||||
object rda_Fabricantes: TDARemoteDataAdapter
|
||||
GetSchemaCall.RemoteService = RORemoteService
|
||||
GetDataCall.RemoteService = RORemoteService
|
||||
UpdateDataCall.RemoteService = RORemoteService
|
||||
GetScriptsCall.RemoteService = RORemoteService
|
||||
RemoteService = RORemoteService
|
||||
DataStreamer = Bin2DataStreamer
|
||||
Left = 203
|
||||
Top = 23
|
||||
end
|
||||
object Bin2DataStreamer: TDABin2DataStreamer
|
||||
Left = 48
|
||||
Top = 96
|
||||
end
|
||||
object tbl_Fabricantes: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_FABRICANTES_ID'
|
||||
Required = True
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'Fabricantes_ID'
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Descripci'#195#179'n'
|
||||
DictionaryEntry = 'Fabricantes_DESCRIPCION'
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteDataAdapter = rda_Fabricantes
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'Fabricantes'
|
||||
IndexDefs = <>
|
||||
Left = 312
|
||||
Top = 32
|
||||
end
|
||||
object ds_Fabricantes: TDADataSource
|
||||
DataSet = tbl_Fabricantes.Dataset
|
||||
DataTable = tbl_Fabricantes
|
||||
Left = 312
|
||||
Top = 88
|
||||
end
|
||||
end
|
||||
112
Source/Modulos/Fabricantes/Data/uDataModuleFabricantes.pas
Normal file
112
Source/Modulos/Fabricantes/Data/uDataModuleFabricantes.pas
Normal file
@ -0,0 +1,112 @@
|
||||
{
|
||||
===============================================================================
|
||||
Copyright (©) 2007. Rodax Software.
|
||||
===============================================================================
|
||||
Los contenidos de este fichero son propiedad de Rodax Software titular del
|
||||
copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado,
|
||||
en su totalidad o en parte, con el permiso escrito de Rodax Software, o de
|
||||
acuerdo con los términos y condiciones establecidas en el acuerdo/contrato
|
||||
bajo el que se suministra.
|
||||
-----------------------------------------------------------------------------
|
||||
Web: www.rodax-software.com
|
||||
===============================================================================
|
||||
Fecha primera versión:
|
||||
Versión actual: 1.0.0
|
||||
Fecha versión actual:
|
||||
===============================================================================
|
||||
Modificaciones:
|
||||
|
||||
Fecha Comentarios
|
||||
---------------------------------------------------------------------------
|
||||
===============================================================================
|
||||
}
|
||||
|
||||
unit uDataModuleFabricantes;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils, Classes, DB, uDADataTable, uDABINAdapter,
|
||||
uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes,
|
||||
uRORemoteService, uROClient, uROBinMessage,
|
||||
uDADesigntimeCall,
|
||||
|
||||
uIDataModuleFabricantes, uBizFabricantes, uDADataStreamer, uDARemoteDataAdapter,
|
||||
uDAInterfaces, uRODynamicRequest, uDABin2DataStreamer, uDAMemDataTable,
|
||||
uDataModuleBase;
|
||||
|
||||
type
|
||||
TDataModuleFabricantes = class(TDataModuleBase, IDataModuleFabricantes)
|
||||
RORemoteService: TRORemoteService;
|
||||
rda_Fabricantes: TDARemoteDataAdapter;
|
||||
Bin2DataStreamer: TDABin2DataStreamer;
|
||||
tbl_Fabricantes: TDAMemDataTable;
|
||||
ds_Fabricantes: TDADataSource;
|
||||
procedure DAClientDataModuleCreate(Sender: TObject);
|
||||
public
|
||||
function GetItems: IBizFabricante;
|
||||
function GetItem(const ID : Integer) : IBizFabricante;
|
||||
function NewItem : IBizFabricante;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.DFM}
|
||||
|
||||
uses
|
||||
FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls,
|
||||
schFabricantesClient_Intf;
|
||||
|
||||
{ TDataModuleFabricantes }
|
||||
|
||||
procedure TDataModuleFabricantes.DAClientDataModuleCreate(Sender: TObject);
|
||||
begin
|
||||
RORemoteService.Channel := dmConexion.Channel;
|
||||
RORemoteService.Message := dmConexion.Message;
|
||||
end;
|
||||
|
||||
function TDataModuleFabricantes.GetItems: IBizFabricante;
|
||||
var
|
||||
AFabricante : TDAMemDataTable;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AFabricante := CloneDataTable(tbl_Fabricantes);
|
||||
AFabricante.BusinessRulesID := BIZ_CLIENT_Fabricante;
|
||||
|
||||
Result := (AFabricante as IBizFabricante);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleFabricantes.NewItem: IBizFabricante;
|
||||
begin
|
||||
Result := GetItem(ID_NULO)
|
||||
end;
|
||||
|
||||
function TDataModuleFabricantes.GetItem(const ID: Integer): IBizFabricante;
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
Result := Self.GetItems;
|
||||
|
||||
with Result.DataTable.DynamicWhere do
|
||||
begin
|
||||
// (ID = :ID)
|
||||
Condicion := NewBinaryExpression(NewField('', fld_FabricantesID), NewConstant(ID, datInteger), dboEqual);
|
||||
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||
end;
|
||||
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
114
Source/Modulos/Fabricantes/Fabricantes_Group.groupproj
Normal file
114
Source/Modulos/Fabricantes/Fabricantes_Group.groupproj
Normal file
@ -0,0 +1,114 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{033276d8-059f-49be-9cc2-3276e536a74d}</ProjectGuid>
|
||||
</PropertyGroup>
|
||||
<ItemGroup />
|
||||
<ItemGroup>
|
||||
<Projects Include="..\..\ApplicationBase\ApplicationBase.dproj" />
|
||||
<Projects Include="..\..\Base\Base.dproj" />
|
||||
<Projects Include="..\..\Cliente\FactuGES.dproj" />
|
||||
<Projects Include="..\..\GUIBase\GUIBase.dproj" />
|
||||
<Projects Include="Controller\Fabricantes_controller.dproj" />
|
||||
<Projects Include="Data\Fabricantes_data.dproj" />
|
||||
<Projects Include="Model\Fabricantes_model.dproj" />
|
||||
<Projects Include="Plugin\Fabricantes_plugin.dproj" />
|
||||
<Projects Include="Views\Fabricantes_view.dproj" />
|
||||
</ItemGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Default.Personality</Borland.Personality>
|
||||
<Borland.ProjectType />
|
||||
<BorlandProject>
|
||||
<BorlandProject xmlns=""><Default.Personality></Default.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Target Name="Base">
|
||||
<MSBuild Projects="..\..\Base\Base.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="Base:Clean">
|
||||
<MSBuild Projects="..\..\Base\Base.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="Base:Make">
|
||||
<MSBuild Projects="..\..\Base\Base.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="GUIBase">
|
||||
<MSBuild Projects="..\..\GUIBase\GUIBase.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="GUIBase:Clean">
|
||||
<MSBuild Projects="..\..\GUIBase\GUIBase.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="GUIBase:Make">
|
||||
<MSBuild Projects="..\..\GUIBase\GUIBase.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="ApplicationBase">
|
||||
<MSBuild Projects="..\..\ApplicationBase\ApplicationBase.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="ApplicationBase:Clean">
|
||||
<MSBuild Projects="..\..\ApplicationBase\ApplicationBase.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="ApplicationBase:Make">
|
||||
<MSBuild Projects="..\..\ApplicationBase\ApplicationBase.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="FactuGES">
|
||||
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="FactuGES:Clean">
|
||||
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="FactuGES:Make">
|
||||
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Fabricantes_model">
|
||||
<MSBuild Projects="Model\Fabricantes_model.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="Fabricantes_model:Clean">
|
||||
<MSBuild Projects="Model\Fabricantes_model.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="Fabricantes_model:Make">
|
||||
<MSBuild Projects="Model\Fabricantes_model.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Fabricantes_data">
|
||||
<MSBuild Projects="Data\Fabricantes_data.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="Fabricantes_data:Clean">
|
||||
<MSBuild Projects="Data\Fabricantes_data.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="Fabricantes_data:Make">
|
||||
<MSBuild Projects="Data\Fabricantes_data.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Fabricantes_controller">
|
||||
<MSBuild Projects="Controller\Fabricantes_controller.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="Fabricantes_controller:Clean">
|
||||
<MSBuild Projects="Controller\Fabricantes_controller.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="Fabricantes_controller:Make">
|
||||
<MSBuild Projects="Controller\Fabricantes_controller.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Fabricantes_view">
|
||||
<MSBuild Projects="Views\Fabricantes_view.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="Fabricantes_view:Clean">
|
||||
<MSBuild Projects="Views\Fabricantes_view.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="Fabricantes_view:Make">
|
||||
<MSBuild Projects="Views\Fabricantes_view.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Fabricantes_plugin">
|
||||
<MSBuild Projects="Plugin\Fabricantes_plugin.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="Fabricantes_plugin:Clean">
|
||||
<MSBuild Projects="Plugin\Fabricantes_plugin.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="Fabricantes_plugin:Make">
|
||||
<MSBuild Projects="Plugin\Fabricantes_plugin.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Build">
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;FactuGES;Fabricantes_model;Fabricantes_data;Fabricantes_controller;Fabricantes_view;Fabricantes_plugin" />
|
||||
</Target>
|
||||
<Target Name="Clean">
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;FactuGES:Clean;Fabricantes_model:Clean;Fabricantes_data:Clean;Fabricantes_controller:Clean;Fabricantes_view:Clean;Fabricantes_plugin:Clean" />
|
||||
</Target>
|
||||
<Target Name="Make">
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;FactuGES:Make;Fabricantes_model:Make;Fabricantes_data:Make;Fabricantes_controller:Make;Fabricantes_view:Make;Fabricantes_plugin:Make" />
|
||||
</Target>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
@ -0,0 +1,42 @@
|
||||
{
|
||||
===============================================================================
|
||||
Copyright (©) 2007. Rodax Software.
|
||||
===============================================================================
|
||||
Los contenidos de este fichero son propiedad de Rodax Software titular del
|
||||
copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado,
|
||||
en su totalidad o en parte, con el permiso escrito de Rodax Software, o de
|
||||
acuerdo con los términos y condiciones establecidas en el acuerdo/contrato
|
||||
bajo el que se suministra.
|
||||
-----------------------------------------------------------------------------
|
||||
Web: www.rodax-software.com
|
||||
===============================================================================
|
||||
Fecha primera versión:
|
||||
Versión actual: 1.0.0
|
||||
Fecha versión actual:
|
||||
===============================================================================
|
||||
Modificaciones:
|
||||
|
||||
Fecha Comentarios
|
||||
---------------------------------------------------------------------------
|
||||
===============================================================================
|
||||
}
|
||||
|
||||
unit uIDataModuleFabricantes;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
uBizFabricantes;
|
||||
|
||||
type
|
||||
IDataModuleFabricantes = interface
|
||||
['{15D57E95-7964-482D-858D-EE49699B708A}']
|
||||
function GetItems: IBizFabricante;
|
||||
function GetItem(const ID : Integer) : IBizFabricante;
|
||||
function NewItem : IBizFabricante;
|
||||
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
46
Source/Modulos/Fabricantes/Model/Fabricantes_model.dpk
Normal file
46
Source/Modulos/Fabricantes/Model/Fabricantes_model.dpk
Normal file
@ -0,0 +1,46 @@
|
||||
package Fabricantes_model;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$IMPLICITBUILD ON}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
vcl,
|
||||
Base,
|
||||
GUIBase,
|
||||
ApplicationBase,
|
||||
dbrtl,
|
||||
RemObjects_Core_D11,
|
||||
DataAbstract_Core_D11,
|
||||
vcldb,
|
||||
dsnap,
|
||||
adortl;
|
||||
|
||||
contains
|
||||
uIDataModuleFabricantes in 'Data\uIDataModuleFabricantes.pas',
|
||||
schFabricantesServer_Intf in 'schFabricantesServer_Intf.pas',
|
||||
schFabricantesClient_Intf in 'schFabricantesClient_Intf.pas',
|
||||
uBizFabricantes in 'uBizFabricantes.pas';
|
||||
|
||||
end.
|
||||
551
Source/Modulos/Fabricantes/Model/Fabricantes_model.dproj
Normal file
551
Source/Modulos/Fabricantes/Model/Fabricantes_model.dproj
Normal file
@ -0,0 +1,551 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{82fe21d8-609d-444d-879e-4d9e1c291607}</ProjectGuid>
|
||||
<MainSource>Fabricantes_model.dpk</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\Fabricantes_model.bpl</DCC_DependencyCheckOutputName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
||||
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
||||
<DCC_HppOutput>.\</DCC_HppOutput>
|
||||
<DCC_BplOutput>..\..\..\..\Output\Release\Cliente</DCC_BplOutput>
|
||||
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
||||
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
||||
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
||||
<DCC_HppOutput>.\</DCC_HppOutput>
|
||||
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
|
||||
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
||||
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Fabricantes_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="Fabricantes_model.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="adortl.dcp" />
|
||||
<DCCReference Include="ApplicationBase.dcp" />
|
||||
<DCCReference Include="Base.dcp" />
|
||||
<DCCReference Include="DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="Data\uIDataModuleFabricantes.pas" />
|
||||
<DCCReference Include="dbrtl.dcp" />
|
||||
<DCCReference Include="dsnap.dcp" />
|
||||
<DCCReference Include="GUIBase.dcp" />
|
||||
<DCCReference Include="RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="rtl.dcp" />
|
||||
<DCCReference Include="schFabricantesClient_Intf.pas" />
|
||||
<DCCReference Include="schFabricantesServer_Intf.pas" />
|
||||
<DCCReference Include="uBizFabricantes.pas" />
|
||||
<DCCReference Include="vcl.dcp" />
|
||||
<DCCReference Include="vcldb.dcp" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
EurekaLog Version=6011
|
||||
Activate=0
|
||||
Activate Handle=1
|
||||
Save Log File=1
|
||||
Foreground Tab=0
|
||||
Freeze Activate=0
|
||||
Freeze Timeout=60
|
||||
SMTP From=eurekalog@email.com
|
||||
SMTP Host=
|
||||
SMTP Port=25
|
||||
SMTP UserID=
|
||||
SMTP Password=
|
||||
Append to Log=0
|
||||
TerminateBtn Operation=2
|
||||
Errors Number=32
|
||||
Errors Terminate=3
|
||||
Email Address=
|
||||
Email Object=
|
||||
Email Send Options=0
|
||||
Output Path=
|
||||
Encrypt Password=
|
||||
AutoCloseDialogSecs=0
|
||||
WebSendMode=0
|
||||
SupportULR=
|
||||
HTMLLayout Count=15
|
||||
HTMLLine0="%3Chtml%3E"
|
||||
HTMLLine1=" %3Chead%3E"
|
||||
HTMLLine2=" %3C/head%3E"
|
||||
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
|
||||
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
|
||||
HTMLLine5=" %3Ctr%3E"
|
||||
HTMLLine6=" %3Ctd nowrap%3E"
|
||||
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
|
||||
HTMLLine8=" %3C%%HTML_TAG%%%3E"
|
||||
HTMLLine9=" %3C/font%3E"
|
||||
HTMLLine10=" %3C/td%3E"
|
||||
HTMLLine11=" %3C/tr%3E"
|
||||
HTMLLine12=" %3C/table%3E"
|
||||
HTMLLine13=" %3C/body%3E"
|
||||
HTMLLine14="%3C/html%3E"
|
||||
AutoCrashOperation=2
|
||||
AutoCrashNumber=10
|
||||
AutoCrashMinutes=1
|
||||
WebURL=
|
||||
WebUserID=
|
||||
WebPassword=
|
||||
WebPort=0
|
||||
AttachedFiles=
|
||||
ProxyURL=
|
||||
ProxyUser=
|
||||
ProxyPassword=
|
||||
ProxyPort=8080
|
||||
TrakerUser=
|
||||
TrakerPassword=
|
||||
TrakerAssignTo=
|
||||
TrakerProject=
|
||||
TrakerCategory=
|
||||
TrakerTrialID=
|
||||
ZipPassword=
|
||||
PreBuildEvent=
|
||||
PostSuccessfulBuildEvent=
|
||||
PostFailureBuildEvent=
|
||||
ExceptionDialogType=2
|
||||
Count=0
|
||||
EMail Message Line Count=0
|
||||
loNoDuplicateErrors=0
|
||||
loAppendReproduceText=0
|
||||
loDeleteLogAtVersionChange=0
|
||||
loAddComputerNameInLogFileName=0
|
||||
loSaveModulesAndProcessesSections=1
|
||||
loSaveAssemblerAndCPUSections=1
|
||||
soAppStartDate=1
|
||||
soAppName=1
|
||||
soAppVersionNumber=1
|
||||
soAppParameters=1
|
||||
soAppCompilationDate=1
|
||||
soAppUpTime=1
|
||||
soExcDate=1
|
||||
soExcAddress=1
|
||||
soExcModuleName=1
|
||||
soExcModuleVersion=1
|
||||
soExcType=1
|
||||
soExcMessage=1
|
||||
soExcID=1
|
||||
soExcCount=1
|
||||
soExcStatus=1
|
||||
soExcNote=1
|
||||
soUserID=1
|
||||
soUserName=1
|
||||
soUserEmail=1
|
||||
soUserPrivileges=1
|
||||
soUserCompany=1
|
||||
soActCtlsFormClass=1
|
||||
soActCtlsFormText=1
|
||||
soActCtlsControlClass=1
|
||||
soActCtlsControlText=1
|
||||
soCmpName=1
|
||||
soCmpTotalMemory=1
|
||||
soCmpFreeMemory=1
|
||||
soCmpTotalDisk=1
|
||||
soCmpFreeDisk=1
|
||||
soCmpSysUpTime=1
|
||||
soCmpProcessor=1
|
||||
soCmpDisplayMode=1
|
||||
soCmpDisplayDPI=1
|
||||
soCmpVideoCard=1
|
||||
soCmpPrinter=1
|
||||
soOSType=1
|
||||
soOSBuildN=1
|
||||
soOSUpdate=1
|
||||
soOSLanguage=1
|
||||
soOSCharset=1
|
||||
soNetIP=1
|
||||
soNetSubmask=1
|
||||
soNetGateway=1
|
||||
soNetDNS1=1
|
||||
soNetDNS2=1
|
||||
soNetDHCP=1
|
||||
soCustomData=1
|
||||
sndShowSendDialog=1
|
||||
sndShowSuccessFailureMsg=0
|
||||
sndSendEntireLog=0
|
||||
sndSendXMLLogCopy=0
|
||||
sndSendScreenshot=1
|
||||
sndUseOnlyActiveWindow=0
|
||||
sndSendLastHTMLPage=1
|
||||
sndSendInSeparatedThread=0
|
||||
sndAddDateInFileName=0
|
||||
sndAddComputerNameInFileName=0
|
||||
edoSendErrorReportChecked=1
|
||||
edoAttachScreenshotChecked=1
|
||||
edoShowCopyToClipOption=1
|
||||
edoShowDetailsButton=1
|
||||
edoShowInDetailedMode=0
|
||||
edoShowInTopMostMode=0
|
||||
edoUseEurekaLogLookAndFeel=0
|
||||
edoShowSendErrorReportOption=1
|
||||
edoShowAttachScreenshotOption=1
|
||||
edoShowCustomButton=0
|
||||
csoShowDLLs=1
|
||||
csoShowBPLs=1
|
||||
csoShowBorlandThreads=1
|
||||
csoShowWindowsThreads=1
|
||||
csoDoNotStoreProcNames=0
|
||||
boPauseBorlandThreads=0
|
||||
boDoNotPauseMainThread=0
|
||||
boPauseWindowsThreads=0
|
||||
boUseMainModuleOptions=1
|
||||
boCopyLogInCaseOfError=1
|
||||
boSaveCompressedCopyInCaseOfError=0
|
||||
boHandleSafeCallExceptions=1
|
||||
boCallRTLExceptionEvent=0
|
||||
boCatchHandledExceptions=0
|
||||
loCatchLeaks=0
|
||||
loGroupsSonLeaks=1
|
||||
loHideBorlandLeaks=1
|
||||
loFreeAllLeaks=1
|
||||
loCatchLeaksExceptions=1
|
||||
cfoReduceFileSize=1
|
||||
cfoCheckFileCorruption=0
|
||||
Count mtInformationMsgCaption=1
|
||||
mtInformationMsgCaption0="Information."
|
||||
Count mtQuestionMsgCaption=1
|
||||
mtQuestionMsgCaption0="Question."
|
||||
Count mtErrorMsgCaption=1
|
||||
mtErrorMsgCaption0="Error."
|
||||
Count mtDialog_Caption=1
|
||||
mtDialog_Caption0="Error occurred"
|
||||
Count mtDialog_ErrorMsgCaption=2
|
||||
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
|
||||
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
|
||||
Count mtDialog_GeneralCaption=1
|
||||
mtDialog_GeneralCaption0="General"
|
||||
Count mtDialog_GeneralHeader=1
|
||||
mtDialog_GeneralHeader0="General Information"
|
||||
Count mtDialog_CallStackCaption=1
|
||||
mtDialog_CallStackCaption0="Call Stack"
|
||||
Count mtDialog_CallStackHeader=1
|
||||
mtDialog_CallStackHeader0="Call Stack Information"
|
||||
Count mtDialog_ModulesCaption=1
|
||||
mtDialog_ModulesCaption0="Modules"
|
||||
Count mtDialog_ModulesHeader=1
|
||||
mtDialog_ModulesHeader0="Modules Information"
|
||||
Count mtDialog_ProcessesCaption=1
|
||||
mtDialog_ProcessesCaption0="Processes"
|
||||
Count mtDialog_ProcessesHeader=1
|
||||
mtDialog_ProcessesHeader0="Processes Information"
|
||||
Count mtDialog_AsmCaption=1
|
||||
mtDialog_AsmCaption0="Assembler"
|
||||
Count mtDialog_AsmHeader=1
|
||||
mtDialog_AsmHeader0="Assembler Information"
|
||||
Count mtDialog_CPUCaption=1
|
||||
mtDialog_CPUCaption0="CPU"
|
||||
Count mtDialog_CPUHeader=1
|
||||
mtDialog_CPUHeader0="CPU Information"
|
||||
Count mtDialog_OKButtonCaption=1
|
||||
mtDialog_OKButtonCaption0="%26OK"
|
||||
Count mtDialog_TerminateButtonCaption=1
|
||||
mtDialog_TerminateButtonCaption0="%26Terminate"
|
||||
Count mtDialog_RestartButtonCaption=1
|
||||
mtDialog_RestartButtonCaption0="%26Restart"
|
||||
Count mtDialog_DetailsButtonCaption=1
|
||||
mtDialog_DetailsButtonCaption0="%26Details"
|
||||
Count mtDialog_CustomButtonCaption=1
|
||||
mtDialog_CustomButtonCaption0="%26Help"
|
||||
Count mtDialog_SendMessage=1
|
||||
mtDialog_SendMessage0="%26Send this error via Internet"
|
||||
Count mtDialog_ScreenshotMessage=1
|
||||
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
|
||||
Count mtDialog_CopyMessage=1
|
||||
mtDialog_CopyMessage0="%26Copy to Clipboard"
|
||||
Count mtDialog_SupportMessage=1
|
||||
mtDialog_SupportMessage0="Go to the Support Page"
|
||||
Count mtMSDialog_ErrorMsgCaption=1
|
||||
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
|
||||
Count mtMSDialog_RestartCaption=1
|
||||
mtMSDialog_RestartCaption0="Restart application."
|
||||
Count mtMSDialog_TerminateCaption=1
|
||||
mtMSDialog_TerminateCaption0="Terminate application."
|
||||
Count mtMSDialog_PleaseCaption=1
|
||||
mtMSDialog_PleaseCaption0="Please tell us about this problem."
|
||||
Count mtMSDialog_DescriptionCaption=1
|
||||
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
|
||||
Count mtMSDialog_SeeDetailsCaption=1
|
||||
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
|
||||
Count mtMSDialog_SeeClickCaption=1
|
||||
mtMSDialog_SeeClickCaption0="click here."
|
||||
Count mtMSDialog_HowToReproduceCaption=1
|
||||
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happended (optional)?"
|
||||
Count mtMSDialog_EmailCaption=1
|
||||
mtMSDialog_EmailCaption0="Email address (optional):"
|
||||
Count mtMSDialog_SendButtonCaption=1
|
||||
mtMSDialog_SendButtonCaption0="%26Send Error Report"
|
||||
Count mtMSDialog_NoSendButtonCaption=1
|
||||
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
|
||||
Count mtLog_AppHeader=1
|
||||
mtLog_AppHeader0="Application"
|
||||
Count mtLog_AppStartDate=1
|
||||
mtLog_AppStartDate0="Start Date"
|
||||
Count mtLog_AppName=1
|
||||
mtLog_AppName0="Name/Description"
|
||||
Count mtLog_AppVersionNumber=1
|
||||
mtLog_AppVersionNumber0="Version Number"
|
||||
Count mtLog_AppParameters=1
|
||||
mtLog_AppParameters0="Parameters"
|
||||
Count mtLog_AppCompilationDate=1
|
||||
mtLog_AppCompilationDate0="Compilation Date"
|
||||
Count mtLog_AppUpTime=1
|
||||
mtLog_AppUpTime0="Up Time"
|
||||
Count mtLog_ExcHeader=1
|
||||
mtLog_ExcHeader0="Exception"
|
||||
Count mtLog_ExcDate=1
|
||||
mtLog_ExcDate0="Date"
|
||||
Count mtLog_ExcAddress=1
|
||||
mtLog_ExcAddress0="Address"
|
||||
Count mtLog_ExcModuleName=1
|
||||
mtLog_ExcModuleName0="Module Name"
|
||||
Count mtLog_ExcModuleVersion=1
|
||||
mtLog_ExcModuleVersion0="Module Version"
|
||||
Count mtLog_ExcType=1
|
||||
mtLog_ExcType0="Type"
|
||||
Count mtLog_ExcMessage=1
|
||||
mtLog_ExcMessage0="Message"
|
||||
Count mtLog_ExcID=1
|
||||
mtLog_ExcID0="ID"
|
||||
Count mtLog_ExcCount=1
|
||||
mtLog_ExcCount0="Count"
|
||||
Count mtLog_ExcStatus=1
|
||||
mtLog_ExcStatus0="Status"
|
||||
Count mtLog_ExcNote=1
|
||||
mtLog_ExcNote0="Note"
|
||||
Count mtLog_UserHeader=1
|
||||
mtLog_UserHeader0="User"
|
||||
Count mtLog_UserID=1
|
||||
mtLog_UserID0="ID"
|
||||
Count mtLog_UserName=1
|
||||
mtLog_UserName0="Name"
|
||||
Count mtLog_UserEmail=1
|
||||
mtLog_UserEmail0="Email"
|
||||
Count mtLog_UserCompany=1
|
||||
mtLog_UserCompany0="Company"
|
||||
Count mtLog_UserPrivileges=1
|
||||
mtLog_UserPrivileges0="Privileges"
|
||||
Count mtLog_ActCtrlsHeader=1
|
||||
mtLog_ActCtrlsHeader0="Active Controls"
|
||||
Count mtLog_ActCtrlsFormClass=1
|
||||
mtLog_ActCtrlsFormClass0="Form Class"
|
||||
Count mtLog_ActCtrlsFormText=1
|
||||
mtLog_ActCtrlsFormText0="Form Text"
|
||||
Count mtLog_ActCtrlsControlClass=1
|
||||
mtLog_ActCtrlsControlClass0="Control Class"
|
||||
Count mtLog_ActCtrlsControlText=1
|
||||
mtLog_ActCtrlsControlText0="Control Text"
|
||||
Count mtLog_CmpHeader=1
|
||||
mtLog_CmpHeader0="Computer"
|
||||
Count mtLog_CmpName=1
|
||||
mtLog_CmpName0="Name"
|
||||
Count mtLog_CmpTotalMemory=1
|
||||
mtLog_CmpTotalMemory0="Total Memory"
|
||||
Count mtLog_CmpFreeMemory=1
|
||||
mtLog_CmpFreeMemory0="Free Memory"
|
||||
Count mtLog_CmpTotalDisk=1
|
||||
mtLog_CmpTotalDisk0="Total Disk"
|
||||
Count mtLog_CmpFreeDisk=1
|
||||
mtLog_CmpFreeDisk0="Free Disk"
|
||||
Count mtLog_CmpSystemUpTime=1
|
||||
mtLog_CmpSystemUpTime0="System Up Time"
|
||||
Count mtLog_CmpProcessor=1
|
||||
mtLog_CmpProcessor0="Processor"
|
||||
Count mtLog_CmpDisplayMode=1
|
||||
mtLog_CmpDisplayMode0="Display Mode"
|
||||
Count mtLog_CmpDisplayDPI=1
|
||||
mtLog_CmpDisplayDPI0="Display DPI"
|
||||
Count mtLog_CmpVideoCard=1
|
||||
mtLog_CmpVideoCard0="Video Card"
|
||||
Count mtLog_CmpPrinter=1
|
||||
mtLog_CmpPrinter0="Printer"
|
||||
Count mtLog_OSHeader=1
|
||||
mtLog_OSHeader0="Operating System"
|
||||
Count mtLog_OSType=1
|
||||
mtLog_OSType0="Type"
|
||||
Count mtLog_OSBuildN=1
|
||||
mtLog_OSBuildN0="Build #"
|
||||
Count mtLog_OSUpdate=1
|
||||
mtLog_OSUpdate0="Update"
|
||||
Count mtLog_OSLanguage=1
|
||||
mtLog_OSLanguage0="Language"
|
||||
Count mtLog_OSCharset=1
|
||||
mtLog_OSCharset0="Charset"
|
||||
Count mtLog_NetHeader=1
|
||||
mtLog_NetHeader0="Network"
|
||||
Count mtLog_NetIP=1
|
||||
mtLog_NetIP0="IP Address"
|
||||
Count mtLog_NetSubmask=1
|
||||
mtLog_NetSubmask0="Submask"
|
||||
Count mtLog_NetGateway=1
|
||||
mtLog_NetGateway0="Gateway"
|
||||
Count mtLog_NetDNS1=1
|
||||
mtLog_NetDNS10="DNS 1"
|
||||
Count mtLog_NetDNS2=1
|
||||
mtLog_NetDNS20="DNS 2"
|
||||
Count mtLog_NetDHCP=1
|
||||
mtLog_NetDHCP0="DHCP"
|
||||
Count mtLog_CustInfoHeader=1
|
||||
mtLog_CustInfoHeader0="Custom Information"
|
||||
Count mtCallStack_Address=1
|
||||
mtCallStack_Address0="Address"
|
||||
Count mtCallStack_Name=1
|
||||
mtCallStack_Name0="Module"
|
||||
Count mtCallStack_Unit=1
|
||||
mtCallStack_Unit0="Unit"
|
||||
Count mtCallStack_Class=1
|
||||
mtCallStack_Class0="Class"
|
||||
Count mtCallStack_Procedure=1
|
||||
mtCallStack_Procedure0="Procedure/Method"
|
||||
Count mtCallStack_Line=1
|
||||
mtCallStack_Line0="Line"
|
||||
Count mtCallStack_MainThread=1
|
||||
mtCallStack_MainThread0="Main"
|
||||
Count mtCallStack_ExceptionThread=1
|
||||
mtCallStack_ExceptionThread0="Exception Thread"
|
||||
Count mtCallStack_RunningThread=1
|
||||
mtCallStack_RunningThread0="Running Thread"
|
||||
Count mtCallStack_CallingThread=1
|
||||
mtCallStack_CallingThread0="Calling Thread"
|
||||
Count mtCallStack_ThreadID=1
|
||||
mtCallStack_ThreadID0="ID"
|
||||
Count mtCallStack_ThreadPriority=1
|
||||
mtCallStack_ThreadPriority0="Priority"
|
||||
Count mtCallStack_ThreadClass=1
|
||||
mtCallStack_ThreadClass0="Class"
|
||||
Count mtCallStack_LeakCaption=1
|
||||
mtCallStack_LeakCaption0="Memory Leak"
|
||||
Count mtCallStack_LeakData=1
|
||||
mtCallStack_LeakData0="Data"
|
||||
Count mtCallStack_LeakType=1
|
||||
mtCallStack_LeakType0="Type"
|
||||
Count mtCallStack_LeakSize=1
|
||||
mtCallStack_LeakSize0="Total size"
|
||||
Count mtCallStack_LeakCount=1
|
||||
mtCallStack_LeakCount0="Count"
|
||||
Count mtSendDialog_Caption=1
|
||||
mtSendDialog_Caption0="Send."
|
||||
Count mtSendDialog_Message=1
|
||||
mtSendDialog_Message0="Message"
|
||||
Count mtSendDialog_Resolving=1
|
||||
mtSendDialog_Resolving0="Resolving DNS..."
|
||||
Count mtSendDialog_Login=1
|
||||
mtSendDialog_Login0="Login..."
|
||||
Count mtSendDialog_Connecting=1
|
||||
mtSendDialog_Connecting0="Connecting with server..."
|
||||
Count mtSendDialog_Connected=1
|
||||
mtSendDialog_Connected0="Connected with server."
|
||||
Count mtSendDialog_Sending=1
|
||||
mtSendDialog_Sending0="Sending message..."
|
||||
Count mtSendDialog_Sent=1
|
||||
mtSendDialog_Sent0="Message sent."
|
||||
Count mtSendDialog_SelectProject=1
|
||||
mtSendDialog_SelectProject0="Select project..."
|
||||
Count mtSendDialog_Searching=1
|
||||
mtSendDialog_Searching0="Searching..."
|
||||
Count mtSendDialog_Modifying=1
|
||||
mtSendDialog_Modifying0="Modifying..."
|
||||
Count mtSendDialog_Disconnecting=1
|
||||
mtSendDialog_Disconnecting0="Disconnecting..."
|
||||
Count mtSendDialog_Disconnected=1
|
||||
mtSendDialog_Disconnected0="Disconnected."
|
||||
Count mtReproduceDialog_Caption=1
|
||||
mtReproduceDialog_Caption0="Request"
|
||||
Count mtReproduceDialog_Request=1
|
||||
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
|
||||
Count mtReproduceDialog_OKButtonCaption=1
|
||||
mtReproduceDialog_OKButtonCaption0="%26OK"
|
||||
Count mtModules_Handle=1
|
||||
mtModules_Handle0="Handle"
|
||||
Count mtModules_Name=1
|
||||
mtModules_Name0="Name"
|
||||
Count mtModules_Description=1
|
||||
mtModules_Description0="Description"
|
||||
Count mtModules_Version=1
|
||||
mtModules_Version0="Version"
|
||||
Count mtModules_Size=1
|
||||
mtModules_Size0="Size"
|
||||
Count mtModules_LastModified=1
|
||||
mtModules_LastModified0="Modified"
|
||||
Count mtModules_Path=1
|
||||
mtModules_Path0="Path"
|
||||
Count mtProcesses_ID=1
|
||||
mtProcesses_ID0="ID"
|
||||
Count mtProcesses_Name=1
|
||||
mtProcesses_Name0="Name"
|
||||
Count mtProcesses_Description=1
|
||||
mtProcesses_Description0="Description"
|
||||
Count mtProcesses_Version=1
|
||||
mtProcesses_Version0="Version"
|
||||
Count mtProcesses_Memory=1
|
||||
mtProcesses_Memory0="Memory"
|
||||
Count mtProcesses_Priority=1
|
||||
mtProcesses_Priority0="Priority"
|
||||
Count mtProcesses_Threads=1
|
||||
mtProcesses_Threads0="Threads"
|
||||
Count mtProcesses_Path=1
|
||||
mtProcesses_Path0="Path"
|
||||
Count mtCPU_Registers=1
|
||||
mtCPU_Registers0="Registers"
|
||||
Count mtCPU_Stack=1
|
||||
mtCPU_Stack0="Stack"
|
||||
Count mtCPU_MemoryDump=1
|
||||
mtCPU_MemoryDump0="Memory Dump"
|
||||
Count mtSend_SuccessMsg=1
|
||||
mtSend_SuccessMsg0="The message was sent successfully."
|
||||
Count mtSend_FailureMsg=1
|
||||
mtSend_FailureMsg0="Sorry, sending the message didn't work."
|
||||
Count mtSend_BugClosedMsg=2
|
||||
mtSend_BugClosedMsg0="These BUG is just closed."
|
||||
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
|
||||
Count mtSend_UnknownErrorMsg=1
|
||||
mtSend_UnknownErrorMsg0="Unknown error."
|
||||
Count mtSend_InvalidLoginMsg=1
|
||||
mtSend_InvalidLoginMsg0="Invalid login request."
|
||||
Count mtSend_InvalidSearchMsg=1
|
||||
mtSend_InvalidSearchMsg0="Invalid search request."
|
||||
Count mtSend_InvalidSelectionMsg=1
|
||||
mtSend_InvalidSelectionMsg0="Invalid selection request."
|
||||
Count mtSend_InvalidInsertMsg=1
|
||||
mtSend_InvalidInsertMsg0="Invalid insert request."
|
||||
Count mtSend_InvalidModifyMsg=1
|
||||
mtSend_InvalidModifyMsg0="Invalid modify request."
|
||||
Count mtFileCrackedMsg=2
|
||||
mtFileCrackedMsg0="This file is cracked."
|
||||
mtFileCrackedMsg1="The application will be closed."
|
||||
Count mtException_LeakMultiFree=1
|
||||
mtException_LeakMultiFree0="Multi Free memory leak."
|
||||
Count mtException_LeakMemoryOverrun=1
|
||||
mtException_LeakMemoryOverrun0="Memory Overrun leak."
|
||||
Count mtException_AntiFreeze=1
|
||||
mtException_AntiFreeze0="The application seems to be frozen."
|
||||
Count mtInvalidEmailMsg=1
|
||||
mtInvalidEmailMsg0="Invalid email."
|
||||
TextsCollection=English
|
||||
EurekaLog Last Line -->
|
||||
16
Source/Modulos/Fabricantes/Model/Fabricantes_model.drc
Normal file
16
Source/Modulos/Fabricantes/Model/Fabricantes_model.drc
Normal file
@ -0,0 +1,16 @@
|
||||
/* VER185
|
||||
Generated by the CodeGear Delphi Pascal Compiler
|
||||
because -GD or --drc was supplied to the compiler.
|
||||
|
||||
This file contains compiler-generated resources that
|
||||
were bound to the executable.
|
||||
If this file is empty, then no compiler-generated
|
||||
resources were bound to the produced executable.
|
||||
*/
|
||||
|
||||
STRINGTABLE
|
||||
BEGIN
|
||||
END
|
||||
|
||||
/* C:\Codigo Tecsitel\Source\Modulos\Fabricantes\Model\Fabricantes_model.res */
|
||||
/* C:\Codigo Tecsitel\Source\Modulos\Fabricantes\Model\Fabricantes_model.drf */
|
||||
BIN
Source/Modulos/Fabricantes/Model/Fabricantes_model.identcache
Normal file
BIN
Source/Modulos/Fabricantes/Model/Fabricantes_model.identcache
Normal file
Binary file not shown.
BIN
Source/Modulos/Fabricantes/Model/Fabricantes_model.res
Normal file
BIN
Source/Modulos/Fabricantes/Model/Fabricantes_model.res
Normal file
Binary file not shown.
BIN
Source/Modulos/Fabricantes/Model/schFabricantesClient_Intf.dcu
Normal file
BIN
Source/Modulos/Fabricantes/Model/schFabricantesClient_Intf.dcu
Normal file
Binary file not shown.
134
Source/Modulos/Fabricantes/Model/schFabricantesClient_Intf.pas
Normal file
134
Source/Modulos/Fabricantes/Model/schFabricantesClient_Intf.pas
Normal file
@ -0,0 +1,134 @@
|
||||
unit schFabricantesClient_Intf;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, DB, SysUtils, uROClasses, 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_Fabricantes = '{24607721-C2E1-4EFD-B898-307AC1462048}';
|
||||
|
||||
{ Data table names }
|
||||
nme_Fabricantes = 'Fabricantes';
|
||||
|
||||
{ Fabricantes fields }
|
||||
fld_FabricantesID = 'ID';
|
||||
fld_FabricantesDESCRIPCION = 'DESCRIPCION';
|
||||
|
||||
{ Fabricantes field indexes }
|
||||
idx_FabricantesID = 0;
|
||||
idx_FabricantesDESCRIPCION = 1;
|
||||
|
||||
type
|
||||
{ IFabricantes }
|
||||
IFabricantes = interface(IDAStronglyTypedDataTable)
|
||||
['{6018A1F9-F72E-46E2-A71E-C34CA806D20E}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
function GetIDIsNull: Boolean;
|
||||
procedure SetIDIsNull(const aValue: Boolean);
|
||||
function GetDESCRIPCIONValue: String;
|
||||
procedure SetDESCRIPCIONValue(const aValue: String);
|
||||
function GetDESCRIPCIONIsNull: Boolean;
|
||||
procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
|
||||
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
|
||||
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
||||
end;
|
||||
|
||||
{ TFabricantesDataTableRules }
|
||||
TFabricantesDataTableRules = class(TDADataTableRules, IFabricantes)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer; virtual;
|
||||
procedure SetIDValue(const aValue: Integer); virtual;
|
||||
function GetIDIsNull: Boolean; virtual;
|
||||
procedure SetIDIsNull(const aValue: Boolean); virtual;
|
||||
function GetDESCRIPCIONValue: String; virtual;
|
||||
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
|
||||
function GetDESCRIPCIONIsNull: Boolean; virtual;
|
||||
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
|
||||
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
destructor Destroy; override;
|
||||
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses Variants, uROBinaryHelpers;
|
||||
|
||||
{ TFabricantesDataTableRules }
|
||||
constructor TFabricantesDataTableRules.Create(aDataTable: TDADataTable);
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
destructor TFabricantesDataTableRules.Destroy;
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TFabricantesDataTableRules.GetIDValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FabricantesID].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TFabricantesDataTableRules.SetIDValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_FabricantesID].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TFabricantesDataTableRules.GetIDIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FabricantesID].IsNull;
|
||||
end;
|
||||
|
||||
procedure TFabricantesDataTableRules.SetIDIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_FabricantesID].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TFabricantesDataTableRules.GetDESCRIPCIONValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FabricantesDESCRIPCION].AsString;
|
||||
end;
|
||||
|
||||
procedure TFabricantesDataTableRules.SetDESCRIPCIONValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_FabricantesDESCRIPCION].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TFabricantesDataTableRules.GetDESCRIPCIONIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FabricantesDESCRIPCION].IsNull;
|
||||
end;
|
||||
|
||||
procedure TFabricantesDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_FabricantesDESCRIPCION].AsVariant := Null;
|
||||
end;
|
||||
|
||||
|
||||
initialization
|
||||
RegisterDataTableRules(RID_Fabricantes, TFabricantesDataTableRules);
|
||||
|
||||
end.
|
||||
143
Source/Modulos/Fabricantes/Model/schFabricantesServer_Intf.pas
Normal file
143
Source/Modulos/Fabricantes/Model/schFabricantesServer_Intf.pas
Normal file
@ -0,0 +1,143 @@
|
||||
unit schFabricantesServer_Intf;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, FmtBCD, uROXMLIntf, schFabricantesClient_Intf;
|
||||
|
||||
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_FabricantesDelta = '{4EA345C5-9E36-44DF-8403-CBEE4967A1B5}';
|
||||
|
||||
type
|
||||
{ IFabricantesDelta }
|
||||
IFabricantesDelta = interface(IFabricantes)
|
||||
['{4EA345C5-9E36-44DF-8403-CBEE4967A1B5}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
|
||||
{ Properties }
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
||||
end;
|
||||
|
||||
{ TFabricantesBusinessProcessorRules }
|
||||
TFabricantesBusinessProcessorRules = class(TDABusinessProcessorRules, IFabricantes, IFabricantesDelta)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer; virtual;
|
||||
function GetIDIsNull: Boolean; virtual;
|
||||
function GetOldIDValue: Integer; virtual;
|
||||
function GetOldIDIsNull: Boolean; virtual;
|
||||
procedure SetIDValue(const aValue: Integer); virtual;
|
||||
procedure SetIDIsNull(const aValue: Boolean); virtual;
|
||||
function GetDESCRIPCIONValue: String; virtual;
|
||||
function GetDESCRIPCIONIsNull: Boolean; virtual;
|
||||
function GetOldDESCRIPCIONValue: String; virtual;
|
||||
function GetOldDESCRIPCIONIsNull: Boolean; virtual;
|
||||
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
|
||||
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID : Integer read GetIDValue write SetIDValue;
|
||||
property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
property OldIDIsNull : Boolean read GetOldIDIsNull;
|
||||
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
||||
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
||||
property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||
destructor Destroy; override;
|
||||
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
Variants, uROBinaryHelpers, uDAInterfaces;
|
||||
|
||||
{ TFabricantesBusinessProcessorRules }
|
||||
constructor TFabricantesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
destructor TFabricantesBusinessProcessorRules.Destroy;
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TFabricantesBusinessProcessorRules.GetIDValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FabricantesID];
|
||||
end;
|
||||
|
||||
function TFabricantesBusinessProcessorRules.GetIDIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FabricantesID]);
|
||||
end;
|
||||
|
||||
function TFabricantesBusinessProcessorRules.GetOldIDValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FabricantesID];
|
||||
end;
|
||||
|
||||
function TFabricantesBusinessProcessorRules.GetOldIDIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FabricantesID]);
|
||||
end;
|
||||
|
||||
procedure TFabricantesBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FabricantesID] := aValue;
|
||||
end;
|
||||
|
||||
procedure TFabricantesBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FabricantesID] := Null;
|
||||
end;
|
||||
|
||||
function TFabricantesBusinessProcessorRules.GetDESCRIPCIONValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FabricantesDESCRIPCION];
|
||||
end;
|
||||
|
||||
function TFabricantesBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FabricantesDESCRIPCION]);
|
||||
end;
|
||||
|
||||
function TFabricantesBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FabricantesDESCRIPCION];
|
||||
end;
|
||||
|
||||
function TFabricantesBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FabricantesDESCRIPCION]);
|
||||
end;
|
||||
|
||||
procedure TFabricantesBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FabricantesDESCRIPCION] := aValue;
|
||||
end;
|
||||
|
||||
procedure TFabricantesBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FabricantesDESCRIPCION] := Null;
|
||||
end;
|
||||
|
||||
|
||||
initialization
|
||||
RegisterBusinessProcessorRules(RID_FabricantesDelta, TFabricantesBusinessProcessorRules);
|
||||
|
||||
end.
|
||||
141
Source/Modulos/Fabricantes/Model/uBizFabricantes.pas
Normal file
141
Source/Modulos/Fabricantes/Model/uBizFabricantes.pas
Normal file
@ -0,0 +1,141 @@
|
||||
{
|
||||
===============================================================================
|
||||
Copyright (©) 2007. Rodax Software.
|
||||
===============================================================================
|
||||
Los contenidos de este fichero son propiedad de Rodax Software titular del
|
||||
copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado,
|
||||
en su totalidad o en parte, con el permiso escrito de Rodax Software, o de
|
||||
acuerdo con los términos y condiciones establecidas en el acuerdo/contrato
|
||||
bajo el que se suministra.
|
||||
-----------------------------------------------------------------------------
|
||||
Web: www.rodax-software.com
|
||||
===============================================================================
|
||||
Fecha primera versión:
|
||||
Versión actual: 1.0.0
|
||||
Fecha versión actual:
|
||||
===============================================================================
|
||||
Modificaciones:
|
||||
|
||||
Fecha Comentarios
|
||||
---------------------------------------------------------------------------
|
||||
===============================================================================
|
||||
}
|
||||
|
||||
unit uBizFabricantes;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
uDAInterfaces, uDADataTable, uDBSelectionListUtils, schFabricantesClient_Intf;
|
||||
|
||||
const
|
||||
BIZ_CLIENT_Fabricante = 'Client.Fabricante';
|
||||
|
||||
type
|
||||
IBizFabricante = interface(IFabricantes)
|
||||
['{A82736D7-55AC-475F-8B08-98832EB6A1B1}']
|
||||
function EsNuevo : Boolean;
|
||||
|
||||
// Descomentar esto si hay clases detalles
|
||||
// procedure SetDetalles(AValue : IBizDetalles);
|
||||
// function GetDetalles : IBizDetalles;
|
||||
// property Detalles : IBizDetalles read GetDetalles write SetDetalles;
|
||||
end;
|
||||
|
||||
TBizFabricante = class(TFabricantesDataTableRules, IBizFabricante, ISeleccionable)
|
||||
protected
|
||||
FSeleccionableInterface : ISeleccionable;
|
||||
|
||||
// Descomentar esto si hay clases detalles
|
||||
// FDetalles : IBizDetalles;
|
||||
// FDetallesLink : TDADataSource;
|
||||
// procedure SetDetalles(AValue : IBizDetalles);
|
||||
// function GetDetalles : IBizDetalles;
|
||||
|
||||
procedure OnNewRecord(Sender: TDADataTable); override;
|
||||
procedure AfterOpen(Sender: TDADataTable); override;
|
||||
public
|
||||
procedure IniciarValoresFabricanteNuevo;
|
||||
function EsNuevo : Boolean;
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
destructor Destroy; override;
|
||||
|
||||
property SeleccionableInterface : ISeleccionable
|
||||
read FSeleccionableInterface
|
||||
write FSeleccionableInterface
|
||||
implements ISeleccionable;
|
||||
|
||||
// Descomentar esto si hay clases detalles
|
||||
// property Detalles : IBizDetalles read GetDetalles write SetDetalles;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{ TBizFabricante }
|
||||
|
||||
uses
|
||||
SysUtils, uDataTableUtils;
|
||||
|
||||
// Descomentar esto si hay clases detalles
|
||||
// function TBizFabricante.GetDetalles: IBizDetalles;
|
||||
// begin
|
||||
// Result := FDetalles;
|
||||
// end;
|
||||
|
||||
// Descomentar esto si hay clases detalles
|
||||
// procedure TBizFabricante.SetDetalles(AValue: IBizDetalles);
|
||||
// begin
|
||||
// FDetalles := AValue;
|
||||
// EnlazarMaestroDetalle(FDetallesLink, FDetalles);
|
||||
// end;
|
||||
|
||||
procedure TBizFabricante.AfterOpen(Sender: TDADataTable);
|
||||
begin
|
||||
inherited;
|
||||
DataTable.Sort([fld_FabricantesDESCRIPCION], [sdAscending]);
|
||||
end;
|
||||
|
||||
constructor TBizFabricante.Create(aDataTable: TDADataTable);
|
||||
begin
|
||||
inherited;
|
||||
// Descomentar esto si hay clases detalles
|
||||
// FDetallesLink := TDADataSource.Create(NIL);
|
||||
// FDetallesLink.DataTable := aDataTable;
|
||||
|
||||
FSeleccionableInterface := TSeleccionable.Create(aDataTable);
|
||||
end;
|
||||
|
||||
destructor TBizFabricante.Destroy;
|
||||
begin
|
||||
// Descomentar esto si hay clases detalles
|
||||
// FDetalles := NIL;
|
||||
// FreeAndNIL(FDetallesLink);
|
||||
|
||||
FSeleccionableInterface := NIL;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TBizFabricante.EsNuevo: Boolean;
|
||||
begin
|
||||
Result := (ID < 0);
|
||||
end;
|
||||
|
||||
procedure TBizFabricante.IniciarValoresFabricanteNuevo;
|
||||
begin
|
||||
//
|
||||
end;
|
||||
|
||||
procedure TBizFabricante.OnNewRecord(Sender: TDADataTable);
|
||||
begin
|
||||
inherited;
|
||||
ID := GetRecNo; // -1, -2, -3...
|
||||
IniciarValoresFabricanteNuevo;
|
||||
end;
|
||||
|
||||
initialization
|
||||
RegisterDataTableRules(BIZ_CLIENT_Fabricante, TBizFabricante);
|
||||
|
||||
finalization
|
||||
|
||||
end.
|
||||
|
||||
41
Source/Modulos/Fabricantes/Plugin/Fabricantes_plugin.dpk
Normal file
41
Source/Modulos/Fabricantes/Plugin/Fabricantes_plugin.dpk
Normal file
@ -0,0 +1,41 @@
|
||||
package Fabricantes_plugin;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$IMPLICITBUILD ON}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
vcl,
|
||||
PluginSDK_D10R,
|
||||
Base,
|
||||
GUIBase,
|
||||
ApplicationBase,
|
||||
Fabricantes_view,
|
||||
Fabricantes_controller,
|
||||
Fabricantes_model;
|
||||
|
||||
contains
|
||||
uPluginFabricantes in 'uPluginFabricantes.pas' {PluginFabricantes};
|
||||
|
||||
end.
|
||||
546
Source/Modulos/Fabricantes/Plugin/Fabricantes_plugin.dproj
Normal file
546
Source/Modulos/Fabricantes/Plugin/Fabricantes_plugin.dproj
Normal file
@ -0,0 +1,546 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{139324a2-0c57-446d-aebd-edd9578e22fd}</ProjectGuid>
|
||||
<MainSource>Fabricantes_plugin.dpk</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\Fabricantes_plugin.bpl</DCC_DependencyCheckOutputName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
||||
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
||||
<DCC_HppOutput>.\</DCC_HppOutput>
|
||||
<DCC_BplOutput>..\..\..\..\Output\Release\Cliente</DCC_BplOutput>
|
||||
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
||||
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
||||
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
||||
<DCC_HppOutput>.\</DCC_HppOutput>
|
||||
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
|
||||
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
||||
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Fabricantes_plugin.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="Fabricantes_plugin.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="ApplicationBase.dcp" />
|
||||
<DCCReference Include="Base.dcp" />
|
||||
<DCCReference Include="Fabricantes_controller.dcp" />
|
||||
<DCCReference Include="Fabricantes_model.dcp" />
|
||||
<DCCReference Include="Fabricantes_view.dcp" />
|
||||
<DCCReference Include="GUIBase.dcp" />
|
||||
<DCCReference Include="PluginSDK_D10R.dcp" />
|
||||
<DCCReference Include="rtl.dcp" />
|
||||
<DCCReference Include="uPluginFabricantes.pas">
|
||||
<Form>PluginFabricantes</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="vcl.dcp" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
EurekaLog Version=6011
|
||||
Activate=0
|
||||
Activate Handle=1
|
||||
Save Log File=1
|
||||
Foreground Tab=0
|
||||
Freeze Activate=0
|
||||
Freeze Timeout=60
|
||||
SMTP From=eurekalog@email.com
|
||||
SMTP Host=
|
||||
SMTP Port=25
|
||||
SMTP UserID=
|
||||
SMTP Password=
|
||||
Append to Log=0
|
||||
TerminateBtn Operation=2
|
||||
Errors Number=32
|
||||
Errors Terminate=3
|
||||
Email Address=
|
||||
Email Object=
|
||||
Email Send Options=0
|
||||
Output Path=
|
||||
Encrypt Password=
|
||||
AutoCloseDialogSecs=0
|
||||
WebSendMode=0
|
||||
SupportULR=
|
||||
HTMLLayout Count=15
|
||||
HTMLLine0="%3Chtml%3E"
|
||||
HTMLLine1=" %3Chead%3E"
|
||||
HTMLLine2=" %3C/head%3E"
|
||||
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
|
||||
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
|
||||
HTMLLine5=" %3Ctr%3E"
|
||||
HTMLLine6=" %3Ctd nowrap%3E"
|
||||
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
|
||||
HTMLLine8=" %3C%%HTML_TAG%%%3E"
|
||||
HTMLLine9=" %3C/font%3E"
|
||||
HTMLLine10=" %3C/td%3E"
|
||||
HTMLLine11=" %3C/tr%3E"
|
||||
HTMLLine12=" %3C/table%3E"
|
||||
HTMLLine13=" %3C/body%3E"
|
||||
HTMLLine14="%3C/html%3E"
|
||||
AutoCrashOperation=2
|
||||
AutoCrashNumber=10
|
||||
AutoCrashMinutes=1
|
||||
WebURL=
|
||||
WebUserID=
|
||||
WebPassword=
|
||||
WebPort=0
|
||||
AttachedFiles=
|
||||
ProxyURL=
|
||||
ProxyUser=
|
||||
ProxyPassword=
|
||||
ProxyPort=8080
|
||||
TrakerUser=
|
||||
TrakerPassword=
|
||||
TrakerAssignTo=
|
||||
TrakerProject=
|
||||
TrakerCategory=
|
||||
TrakerTrialID=
|
||||
ZipPassword=
|
||||
PreBuildEvent=
|
||||
PostSuccessfulBuildEvent=
|
||||
PostFailureBuildEvent=
|
||||
ExceptionDialogType=2
|
||||
Count=0
|
||||
EMail Message Line Count=0
|
||||
loNoDuplicateErrors=0
|
||||
loAppendReproduceText=0
|
||||
loDeleteLogAtVersionChange=0
|
||||
loAddComputerNameInLogFileName=0
|
||||
loSaveModulesAndProcessesSections=1
|
||||
loSaveAssemblerAndCPUSections=1
|
||||
soAppStartDate=1
|
||||
soAppName=1
|
||||
soAppVersionNumber=1
|
||||
soAppParameters=1
|
||||
soAppCompilationDate=1
|
||||
soAppUpTime=1
|
||||
soExcDate=1
|
||||
soExcAddress=1
|
||||
soExcModuleName=1
|
||||
soExcModuleVersion=1
|
||||
soExcType=1
|
||||
soExcMessage=1
|
||||
soExcID=1
|
||||
soExcCount=1
|
||||
soExcStatus=1
|
||||
soExcNote=1
|
||||
soUserID=1
|
||||
soUserName=1
|
||||
soUserEmail=1
|
||||
soUserPrivileges=1
|
||||
soUserCompany=1
|
||||
soActCtlsFormClass=1
|
||||
soActCtlsFormText=1
|
||||
soActCtlsControlClass=1
|
||||
soActCtlsControlText=1
|
||||
soCmpName=1
|
||||
soCmpTotalMemory=1
|
||||
soCmpFreeMemory=1
|
||||
soCmpTotalDisk=1
|
||||
soCmpFreeDisk=1
|
||||
soCmpSysUpTime=1
|
||||
soCmpProcessor=1
|
||||
soCmpDisplayMode=1
|
||||
soCmpDisplayDPI=1
|
||||
soCmpVideoCard=1
|
||||
soCmpPrinter=1
|
||||
soOSType=1
|
||||
soOSBuildN=1
|
||||
soOSUpdate=1
|
||||
soOSLanguage=1
|
||||
soOSCharset=1
|
||||
soNetIP=1
|
||||
soNetSubmask=1
|
||||
soNetGateway=1
|
||||
soNetDNS1=1
|
||||
soNetDNS2=1
|
||||
soNetDHCP=1
|
||||
soCustomData=1
|
||||
sndShowSendDialog=1
|
||||
sndShowSuccessFailureMsg=0
|
||||
sndSendEntireLog=0
|
||||
sndSendXMLLogCopy=0
|
||||
sndSendScreenshot=1
|
||||
sndUseOnlyActiveWindow=0
|
||||
sndSendLastHTMLPage=1
|
||||
sndSendInSeparatedThread=0
|
||||
sndAddDateInFileName=0
|
||||
sndAddComputerNameInFileName=0
|
||||
edoSendErrorReportChecked=1
|
||||
edoAttachScreenshotChecked=1
|
||||
edoShowCopyToClipOption=1
|
||||
edoShowDetailsButton=1
|
||||
edoShowInDetailedMode=0
|
||||
edoShowInTopMostMode=0
|
||||
edoUseEurekaLogLookAndFeel=0
|
||||
edoShowSendErrorReportOption=1
|
||||
edoShowAttachScreenshotOption=1
|
||||
edoShowCustomButton=0
|
||||
csoShowDLLs=1
|
||||
csoShowBPLs=1
|
||||
csoShowBorlandThreads=1
|
||||
csoShowWindowsThreads=1
|
||||
csoDoNotStoreProcNames=0
|
||||
boPauseBorlandThreads=0
|
||||
boDoNotPauseMainThread=0
|
||||
boPauseWindowsThreads=0
|
||||
boUseMainModuleOptions=1
|
||||
boCopyLogInCaseOfError=1
|
||||
boSaveCompressedCopyInCaseOfError=0
|
||||
boHandleSafeCallExceptions=1
|
||||
boCallRTLExceptionEvent=0
|
||||
boCatchHandledExceptions=0
|
||||
loCatchLeaks=0
|
||||
loGroupsSonLeaks=1
|
||||
loHideBorlandLeaks=1
|
||||
loFreeAllLeaks=1
|
||||
loCatchLeaksExceptions=1
|
||||
cfoReduceFileSize=1
|
||||
cfoCheckFileCorruption=0
|
||||
Count mtInformationMsgCaption=1
|
||||
mtInformationMsgCaption0="Information."
|
||||
Count mtQuestionMsgCaption=1
|
||||
mtQuestionMsgCaption0="Question."
|
||||
Count mtErrorMsgCaption=1
|
||||
mtErrorMsgCaption0="Error."
|
||||
Count mtDialog_Caption=1
|
||||
mtDialog_Caption0="Error occurred"
|
||||
Count mtDialog_ErrorMsgCaption=2
|
||||
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
|
||||
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
|
||||
Count mtDialog_GeneralCaption=1
|
||||
mtDialog_GeneralCaption0="General"
|
||||
Count mtDialog_GeneralHeader=1
|
||||
mtDialog_GeneralHeader0="General Information"
|
||||
Count mtDialog_CallStackCaption=1
|
||||
mtDialog_CallStackCaption0="Call Stack"
|
||||
Count mtDialog_CallStackHeader=1
|
||||
mtDialog_CallStackHeader0="Call Stack Information"
|
||||
Count mtDialog_ModulesCaption=1
|
||||
mtDialog_ModulesCaption0="Modules"
|
||||
Count mtDialog_ModulesHeader=1
|
||||
mtDialog_ModulesHeader0="Modules Information"
|
||||
Count mtDialog_ProcessesCaption=1
|
||||
mtDialog_ProcessesCaption0="Processes"
|
||||
Count mtDialog_ProcessesHeader=1
|
||||
mtDialog_ProcessesHeader0="Processes Information"
|
||||
Count mtDialog_AsmCaption=1
|
||||
mtDialog_AsmCaption0="Assembler"
|
||||
Count mtDialog_AsmHeader=1
|
||||
mtDialog_AsmHeader0="Assembler Information"
|
||||
Count mtDialog_CPUCaption=1
|
||||
mtDialog_CPUCaption0="CPU"
|
||||
Count mtDialog_CPUHeader=1
|
||||
mtDialog_CPUHeader0="CPU Information"
|
||||
Count mtDialog_OKButtonCaption=1
|
||||
mtDialog_OKButtonCaption0="%26OK"
|
||||
Count mtDialog_TerminateButtonCaption=1
|
||||
mtDialog_TerminateButtonCaption0="%26Terminate"
|
||||
Count mtDialog_RestartButtonCaption=1
|
||||
mtDialog_RestartButtonCaption0="%26Restart"
|
||||
Count mtDialog_DetailsButtonCaption=1
|
||||
mtDialog_DetailsButtonCaption0="%26Details"
|
||||
Count mtDialog_CustomButtonCaption=1
|
||||
mtDialog_CustomButtonCaption0="%26Help"
|
||||
Count mtDialog_SendMessage=1
|
||||
mtDialog_SendMessage0="%26Send this error via Internet"
|
||||
Count mtDialog_ScreenshotMessage=1
|
||||
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
|
||||
Count mtDialog_CopyMessage=1
|
||||
mtDialog_CopyMessage0="%26Copy to Clipboard"
|
||||
Count mtDialog_SupportMessage=1
|
||||
mtDialog_SupportMessage0="Go to the Support Page"
|
||||
Count mtMSDialog_ErrorMsgCaption=1
|
||||
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
|
||||
Count mtMSDialog_RestartCaption=1
|
||||
mtMSDialog_RestartCaption0="Restart application."
|
||||
Count mtMSDialog_TerminateCaption=1
|
||||
mtMSDialog_TerminateCaption0="Terminate application."
|
||||
Count mtMSDialog_PleaseCaption=1
|
||||
mtMSDialog_PleaseCaption0="Please tell us about this problem."
|
||||
Count mtMSDialog_DescriptionCaption=1
|
||||
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
|
||||
Count mtMSDialog_SeeDetailsCaption=1
|
||||
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
|
||||
Count mtMSDialog_SeeClickCaption=1
|
||||
mtMSDialog_SeeClickCaption0="click here."
|
||||
Count mtMSDialog_HowToReproduceCaption=1
|
||||
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happended (optional)?"
|
||||
Count mtMSDialog_EmailCaption=1
|
||||
mtMSDialog_EmailCaption0="Email address (optional):"
|
||||
Count mtMSDialog_SendButtonCaption=1
|
||||
mtMSDialog_SendButtonCaption0="%26Send Error Report"
|
||||
Count mtMSDialog_NoSendButtonCaption=1
|
||||
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
|
||||
Count mtLog_AppHeader=1
|
||||
mtLog_AppHeader0="Application"
|
||||
Count mtLog_AppStartDate=1
|
||||
mtLog_AppStartDate0="Start Date"
|
||||
Count mtLog_AppName=1
|
||||
mtLog_AppName0="Name/Description"
|
||||
Count mtLog_AppVersionNumber=1
|
||||
mtLog_AppVersionNumber0="Version Number"
|
||||
Count mtLog_AppParameters=1
|
||||
mtLog_AppParameters0="Parameters"
|
||||
Count mtLog_AppCompilationDate=1
|
||||
mtLog_AppCompilationDate0="Compilation Date"
|
||||
Count mtLog_AppUpTime=1
|
||||
mtLog_AppUpTime0="Up Time"
|
||||
Count mtLog_ExcHeader=1
|
||||
mtLog_ExcHeader0="Exception"
|
||||
Count mtLog_ExcDate=1
|
||||
mtLog_ExcDate0="Date"
|
||||
Count mtLog_ExcAddress=1
|
||||
mtLog_ExcAddress0="Address"
|
||||
Count mtLog_ExcModuleName=1
|
||||
mtLog_ExcModuleName0="Module Name"
|
||||
Count mtLog_ExcModuleVersion=1
|
||||
mtLog_ExcModuleVersion0="Module Version"
|
||||
Count mtLog_ExcType=1
|
||||
mtLog_ExcType0="Type"
|
||||
Count mtLog_ExcMessage=1
|
||||
mtLog_ExcMessage0="Message"
|
||||
Count mtLog_ExcID=1
|
||||
mtLog_ExcID0="ID"
|
||||
Count mtLog_ExcCount=1
|
||||
mtLog_ExcCount0="Count"
|
||||
Count mtLog_ExcStatus=1
|
||||
mtLog_ExcStatus0="Status"
|
||||
Count mtLog_ExcNote=1
|
||||
mtLog_ExcNote0="Note"
|
||||
Count mtLog_UserHeader=1
|
||||
mtLog_UserHeader0="User"
|
||||
Count mtLog_UserID=1
|
||||
mtLog_UserID0="ID"
|
||||
Count mtLog_UserName=1
|
||||
mtLog_UserName0="Name"
|
||||
Count mtLog_UserEmail=1
|
||||
mtLog_UserEmail0="Email"
|
||||
Count mtLog_UserCompany=1
|
||||
mtLog_UserCompany0="Company"
|
||||
Count mtLog_UserPrivileges=1
|
||||
mtLog_UserPrivileges0="Privileges"
|
||||
Count mtLog_ActCtrlsHeader=1
|
||||
mtLog_ActCtrlsHeader0="Active Controls"
|
||||
Count mtLog_ActCtrlsFormClass=1
|
||||
mtLog_ActCtrlsFormClass0="Form Class"
|
||||
Count mtLog_ActCtrlsFormText=1
|
||||
mtLog_ActCtrlsFormText0="Form Text"
|
||||
Count mtLog_ActCtrlsControlClass=1
|
||||
mtLog_ActCtrlsControlClass0="Control Class"
|
||||
Count mtLog_ActCtrlsControlText=1
|
||||
mtLog_ActCtrlsControlText0="Control Text"
|
||||
Count mtLog_CmpHeader=1
|
||||
mtLog_CmpHeader0="Computer"
|
||||
Count mtLog_CmpName=1
|
||||
mtLog_CmpName0="Name"
|
||||
Count mtLog_CmpTotalMemory=1
|
||||
mtLog_CmpTotalMemory0="Total Memory"
|
||||
Count mtLog_CmpFreeMemory=1
|
||||
mtLog_CmpFreeMemory0="Free Memory"
|
||||
Count mtLog_CmpTotalDisk=1
|
||||
mtLog_CmpTotalDisk0="Total Disk"
|
||||
Count mtLog_CmpFreeDisk=1
|
||||
mtLog_CmpFreeDisk0="Free Disk"
|
||||
Count mtLog_CmpSystemUpTime=1
|
||||
mtLog_CmpSystemUpTime0="System Up Time"
|
||||
Count mtLog_CmpProcessor=1
|
||||
mtLog_CmpProcessor0="Processor"
|
||||
Count mtLog_CmpDisplayMode=1
|
||||
mtLog_CmpDisplayMode0="Display Mode"
|
||||
Count mtLog_CmpDisplayDPI=1
|
||||
mtLog_CmpDisplayDPI0="Display DPI"
|
||||
Count mtLog_CmpVideoCard=1
|
||||
mtLog_CmpVideoCard0="Video Card"
|
||||
Count mtLog_CmpPrinter=1
|
||||
mtLog_CmpPrinter0="Printer"
|
||||
Count mtLog_OSHeader=1
|
||||
mtLog_OSHeader0="Operating System"
|
||||
Count mtLog_OSType=1
|
||||
mtLog_OSType0="Type"
|
||||
Count mtLog_OSBuildN=1
|
||||
mtLog_OSBuildN0="Build #"
|
||||
Count mtLog_OSUpdate=1
|
||||
mtLog_OSUpdate0="Update"
|
||||
Count mtLog_OSLanguage=1
|
||||
mtLog_OSLanguage0="Language"
|
||||
Count mtLog_OSCharset=1
|
||||
mtLog_OSCharset0="Charset"
|
||||
Count mtLog_NetHeader=1
|
||||
mtLog_NetHeader0="Network"
|
||||
Count mtLog_NetIP=1
|
||||
mtLog_NetIP0="IP Address"
|
||||
Count mtLog_NetSubmask=1
|
||||
mtLog_NetSubmask0="Submask"
|
||||
Count mtLog_NetGateway=1
|
||||
mtLog_NetGateway0="Gateway"
|
||||
Count mtLog_NetDNS1=1
|
||||
mtLog_NetDNS10="DNS 1"
|
||||
Count mtLog_NetDNS2=1
|
||||
mtLog_NetDNS20="DNS 2"
|
||||
Count mtLog_NetDHCP=1
|
||||
mtLog_NetDHCP0="DHCP"
|
||||
Count mtLog_CustInfoHeader=1
|
||||
mtLog_CustInfoHeader0="Custom Information"
|
||||
Count mtCallStack_Address=1
|
||||
mtCallStack_Address0="Address"
|
||||
Count mtCallStack_Name=1
|
||||
mtCallStack_Name0="Module"
|
||||
Count mtCallStack_Unit=1
|
||||
mtCallStack_Unit0="Unit"
|
||||
Count mtCallStack_Class=1
|
||||
mtCallStack_Class0="Class"
|
||||
Count mtCallStack_Procedure=1
|
||||
mtCallStack_Procedure0="Procedure/Method"
|
||||
Count mtCallStack_Line=1
|
||||
mtCallStack_Line0="Line"
|
||||
Count mtCallStack_MainThread=1
|
||||
mtCallStack_MainThread0="Main"
|
||||
Count mtCallStack_ExceptionThread=1
|
||||
mtCallStack_ExceptionThread0="Exception Thread"
|
||||
Count mtCallStack_RunningThread=1
|
||||
mtCallStack_RunningThread0="Running Thread"
|
||||
Count mtCallStack_CallingThread=1
|
||||
mtCallStack_CallingThread0="Calling Thread"
|
||||
Count mtCallStack_ThreadID=1
|
||||
mtCallStack_ThreadID0="ID"
|
||||
Count mtCallStack_ThreadPriority=1
|
||||
mtCallStack_ThreadPriority0="Priority"
|
||||
Count mtCallStack_ThreadClass=1
|
||||
mtCallStack_ThreadClass0="Class"
|
||||
Count mtCallStack_LeakCaption=1
|
||||
mtCallStack_LeakCaption0="Memory Leak"
|
||||
Count mtCallStack_LeakData=1
|
||||
mtCallStack_LeakData0="Data"
|
||||
Count mtCallStack_LeakType=1
|
||||
mtCallStack_LeakType0="Type"
|
||||
Count mtCallStack_LeakSize=1
|
||||
mtCallStack_LeakSize0="Total size"
|
||||
Count mtCallStack_LeakCount=1
|
||||
mtCallStack_LeakCount0="Count"
|
||||
Count mtSendDialog_Caption=1
|
||||
mtSendDialog_Caption0="Send."
|
||||
Count mtSendDialog_Message=1
|
||||
mtSendDialog_Message0="Message"
|
||||
Count mtSendDialog_Resolving=1
|
||||
mtSendDialog_Resolving0="Resolving DNS..."
|
||||
Count mtSendDialog_Login=1
|
||||
mtSendDialog_Login0="Login..."
|
||||
Count mtSendDialog_Connecting=1
|
||||
mtSendDialog_Connecting0="Connecting with server..."
|
||||
Count mtSendDialog_Connected=1
|
||||
mtSendDialog_Connected0="Connected with server."
|
||||
Count mtSendDialog_Sending=1
|
||||
mtSendDialog_Sending0="Sending message..."
|
||||
Count mtSendDialog_Sent=1
|
||||
mtSendDialog_Sent0="Message sent."
|
||||
Count mtSendDialog_SelectProject=1
|
||||
mtSendDialog_SelectProject0="Select project..."
|
||||
Count mtSendDialog_Searching=1
|
||||
mtSendDialog_Searching0="Searching..."
|
||||
Count mtSendDialog_Modifying=1
|
||||
mtSendDialog_Modifying0="Modifying..."
|
||||
Count mtSendDialog_Disconnecting=1
|
||||
mtSendDialog_Disconnecting0="Disconnecting..."
|
||||
Count mtSendDialog_Disconnected=1
|
||||
mtSendDialog_Disconnected0="Disconnected."
|
||||
Count mtReproduceDialog_Caption=1
|
||||
mtReproduceDialog_Caption0="Request"
|
||||
Count mtReproduceDialog_Request=1
|
||||
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
|
||||
Count mtReproduceDialog_OKButtonCaption=1
|
||||
mtReproduceDialog_OKButtonCaption0="%26OK"
|
||||
Count mtModules_Handle=1
|
||||
mtModules_Handle0="Handle"
|
||||
Count mtModules_Name=1
|
||||
mtModules_Name0="Name"
|
||||
Count mtModules_Description=1
|
||||
mtModules_Description0="Description"
|
||||
Count mtModules_Version=1
|
||||
mtModules_Version0="Version"
|
||||
Count mtModules_Size=1
|
||||
mtModules_Size0="Size"
|
||||
Count mtModules_LastModified=1
|
||||
mtModules_LastModified0="Modified"
|
||||
Count mtModules_Path=1
|
||||
mtModules_Path0="Path"
|
||||
Count mtProcesses_ID=1
|
||||
mtProcesses_ID0="ID"
|
||||
Count mtProcesses_Name=1
|
||||
mtProcesses_Name0="Name"
|
||||
Count mtProcesses_Description=1
|
||||
mtProcesses_Description0="Description"
|
||||
Count mtProcesses_Version=1
|
||||
mtProcesses_Version0="Version"
|
||||
Count mtProcesses_Memory=1
|
||||
mtProcesses_Memory0="Memory"
|
||||
Count mtProcesses_Priority=1
|
||||
mtProcesses_Priority0="Priority"
|
||||
Count mtProcesses_Threads=1
|
||||
mtProcesses_Threads0="Threads"
|
||||
Count mtProcesses_Path=1
|
||||
mtProcesses_Path0="Path"
|
||||
Count mtCPU_Registers=1
|
||||
mtCPU_Registers0="Registers"
|
||||
Count mtCPU_Stack=1
|
||||
mtCPU_Stack0="Stack"
|
||||
Count mtCPU_MemoryDump=1
|
||||
mtCPU_MemoryDump0="Memory Dump"
|
||||
Count mtSend_SuccessMsg=1
|
||||
mtSend_SuccessMsg0="The message was sent successfully."
|
||||
Count mtSend_FailureMsg=1
|
||||
mtSend_FailureMsg0="Sorry, sending the message didn't work."
|
||||
Count mtSend_BugClosedMsg=2
|
||||
mtSend_BugClosedMsg0="These BUG is just closed."
|
||||
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
|
||||
Count mtSend_UnknownErrorMsg=1
|
||||
mtSend_UnknownErrorMsg0="Unknown error."
|
||||
Count mtSend_InvalidLoginMsg=1
|
||||
mtSend_InvalidLoginMsg0="Invalid login request."
|
||||
Count mtSend_InvalidSearchMsg=1
|
||||
mtSend_InvalidSearchMsg0="Invalid search request."
|
||||
Count mtSend_InvalidSelectionMsg=1
|
||||
mtSend_InvalidSelectionMsg0="Invalid selection request."
|
||||
Count mtSend_InvalidInsertMsg=1
|
||||
mtSend_InvalidInsertMsg0="Invalid insert request."
|
||||
Count mtSend_InvalidModifyMsg=1
|
||||
mtSend_InvalidModifyMsg0="Invalid modify request."
|
||||
Count mtFileCrackedMsg=2
|
||||
mtFileCrackedMsg0="This file is cracked."
|
||||
mtFileCrackedMsg1="The application will be closed."
|
||||
Count mtException_LeakMultiFree=1
|
||||
mtException_LeakMultiFree0="Multi Free memory leak."
|
||||
Count mtException_LeakMemoryOverrun=1
|
||||
mtException_LeakMemoryOverrun0="Memory Overrun leak."
|
||||
Count mtException_AntiFreeze=1
|
||||
mtException_AntiFreeze0="The application seems to be frozen."
|
||||
Count mtInvalidEmailMsg=1
|
||||
mtInvalidEmailMsg0="Invalid email."
|
||||
TextsCollection=English
|
||||
EurekaLog Last Line -->
|
||||
BIN
Source/Modulos/Fabricantes/Plugin/Fabricantes_plugin.identcache
Normal file
BIN
Source/Modulos/Fabricantes/Plugin/Fabricantes_plugin.identcache
Normal file
Binary file not shown.
BIN
Source/Modulos/Fabricantes/Plugin/Fabricantes_plugin.res
Normal file
BIN
Source/Modulos/Fabricantes/Plugin/Fabricantes_plugin.res
Normal file
Binary file not shown.
136
Source/Modulos/Fabricantes/Plugin/uPluginFabricantes.dfm
Normal file
136
Source/Modulos/Fabricantes/Plugin/uPluginFabricantes.dfm
Normal file
@ -0,0 +1,136 @@
|
||||
object PluginFabricantes: TPluginFabricantes
|
||||
OldCreateOrder = True
|
||||
DefaultAction = actFabricantes
|
||||
Description = 'Fabricantes'
|
||||
ModuleMenu = MainMenu
|
||||
ModuleName = 'Fabricantes'
|
||||
SmallImages = SmallImages
|
||||
LargeImages = LargeImages
|
||||
Author = 'Rodax Software S.L.'
|
||||
Version = '1.0.0'
|
||||
Height = 234
|
||||
Width = 459
|
||||
object LargeImages: TPngImageList
|
||||
Height = 24
|
||||
Width = 24
|
||||
PngImages = <
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
|
||||
F8000000097048597300000B3A00000B3A01647F570D000002874944415478DA
|
||||
B5944D68134114C7DF50C47E585BA2D0B095924095A51E4CA5CA2208D58BE9AD
|
||||
154F06CA565452A1A224E736F4165088F45222480881DE6C901EA4274F122FC9
|
||||
0A3DE450684C2FA188C4A6F9EA6EB2CE5BBBC36E13936CA40F1E339999FC7FFB
|
||||
E63F3344555538CB20670EE864D1FA7AC2471B81E6384DD7C9B044739766C2EB
|
||||
15DE760C0804246349F18101A53438A83CE6790EC6C62E82D339C4268B451962
|
||||
B1644B5053C0CACA0DF63B184C42A5D20399CC1736B6BC2C6A2004E8B9BD9DC6
|
||||
29FF6908317E7520E022B4EFA1DD18428E8E6428148E211CDE8DD3B9B993B5DA
|
||||
BCDF3F6102944A0AA4523F1A20C4F8D50B0BEF2012798510D5E79BD0C4313736
|
||||
B21ADC58E5E2E2559378B9FCB7CD660F80024853000642D6D65E3071CCADAD1C
|
||||
033C7BFE441DE55EC2FCBCA3411C7367A704767B85556102C8721DAAD59A49DC
|
||||
66EB856834A301425E507F2AD7A176E91E9CEF7B0A333323267145A9433E9F6F
|
||||
345914439B3E9F6796E32E306104A1389AB9B7F75B83B8875D50EBE761F36B11
|
||||
F2E7EEC395D1D726F31D8E69AD32FD3FABAB115681872E7C8490C3C3636DF1FE
|
||||
7E8196DACF8EA60E79303205A4AA40F0130797C7DDF03EFC81E8772597EB7D83
|
||||
000C141704C16F344E83D0EEAC3EE676BB9B4286732E887EE321994A9B8E396E
|
||||
35027471F4A1E54DA65BA7FE0B623C5546006E992EDEF4A2E981860A3C2D5D0A
|
||||
811548DB9B6C14770922A43312843E8B5D43483BF14A4E82047D05A44A779590
|
||||
4EC47543AD7A6202B413EFD6786245BC1B08B12A6E1542961EDAD4E93BD7A047
|
||||
FE0EF6BE7247E2ED2078D1F055665B74739257EFF2BFC03974D0B1782B087D91
|
||||
E31430673279EAF62DB52E172C89378344221F9978C331FD9F40086D4CE2187F
|
||||
00FADE10E28785B5A40000000049454E44AE426082}
|
||||
Name = 'PngImage0'
|
||||
Background = clWindow
|
||||
end>
|
||||
Left = 232
|
||||
Top = 16
|
||||
Bitmap = {}
|
||||
end
|
||||
object ModuleActionList: TActionList
|
||||
Images = SmallImages
|
||||
Left = 40
|
||||
Top = 72
|
||||
object actFabricantes: TAction
|
||||
Category = 'Datos'
|
||||
Caption = 'Fabricantes'
|
||||
ImageIndex = 0
|
||||
OnExecute = actFabricantesExecute
|
||||
end
|
||||
end
|
||||
object MainMenu: TMainMenu
|
||||
Images = LargeImages
|
||||
Left = 40
|
||||
Top = 16
|
||||
object Ventas1: TMenuItem
|
||||
Caption = 'Datos'
|
||||
object Fabricantes1: TMenuItem
|
||||
Tag = 313
|
||||
Action = actFabricantes
|
||||
end
|
||||
end
|
||||
end
|
||||
object SmallImages: TPngImageList
|
||||
PngImages = <
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||
61000000097048597300000B1300000B1301009A9C18000001604944415478DA
|
||||
A5923F48C34014C6DF81B838A88B145DD22D20D8E8505737330A5D9CE4BA650C
|
||||
34739BEE0AE7E658B277A8939364B5A0C6A19231500417A14D177539EF1D5EB8
|
||||
E64F1D3C7821B9F7BE1FDFFB08E19CC37F0E512FBE1FE9244FD465C9BCE7FBD6
|
||||
5529000FA58C33E60063B1005A04BFF1BEDBA550AF6F42BFFF5280C8A1C1C025
|
||||
CA45ABB507C3E19B04FCDE75D04DAFD780F9FC4BC275880418C649E6220F5060
|
||||
D735613A5DC81A8FD3AC4F946D6C4C261FD06CD62008926C40B4F8AC164930CE
|
||||
A4E937DC3F8E6077E354BA4040470FCCB66D5186B4BAF56E814329C44904EC8E
|
||||
CAFE6C6D013BDBEB08280D51C274C89949210C23081E4C787A8E899E49BB7DBD
|
||||
0CA882DC8ECEA558CF244942C0F00B00DC196D3B37D6D23A7AA895FF8112E3CE
|
||||
683BFA647F42489518773E68385E7E9D3C845489D5CE6599E810B24A5C166CFE
|
||||
3F918FA343935F1CC7A5E23C44D4AB487FBF900142AAC4ABCE0F9C32EE2C4B99
|
||||
4F200000000049454E44AE426082}
|
||||
Name = 'PngImage0'
|
||||
Background = clWindow
|
||||
end>
|
||||
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
|
||||
Left = 308
|
||||
Top = 16
|
||||
Bitmap = {}
|
||||
end
|
||||
object ExtraImages: TPngImageList
|
||||
Height = 28
|
||||
Width = 28
|
||||
PngImages = <
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF
|
||||
94000000097048597300004E2000004E2001167D99DE000002C04944415478DA
|
||||
E5D54D6813411400E0B788D816B1A5150CA99404AA2CF5E02AFE2C82503DA5B7
|
||||
14BD054A2A6A130F5549CE6DDA9BD0424A2F69041B42A517B1417A909E3C497A
|
||||
3129F49043A131BD8422129BE6A7CDCF3A6F935932C96E9AB0928B0F1E43B233
|
||||
FBCD4CDE4C384992A093C1FD1F20C7712D0FF0F9C22ED2882487490AD5AFA324
|
||||
F748861D0E71516BAC6CB50356B1059E37C2D0D025309B7B99E72B2BDB4D6155
|
||||
D0E389D6EE7188E4278F47F85805A564B20BE2F16F4A879919BB0C67320525B7
|
||||
B662F8C85D8F6A82B3B33795CF73733B0C5A1BA4AF8D346B6EF7080366B34588
|
||||
447E36A00A485E2A555E2070F425881E1F17209D3E05BF7F2F449E8DAB6D334E
|
||||
D0E9BCC660B95CA54D240E81809C2A88C0E4E41204026F10955CAE1119C35C5F
|
||||
4FC893A9C75EBC7C260D1AA76162C2D48061EEEE66C160C82BAB6C0031105D5E
|
||||
7EA560989B9BC906D0EB00E957F10694061EC185EEE730367685C18AC532A452
|
||||
2966825353F739062C14CA70725262B0FEFE2E0806E30C8898C803947A78D8F8
|
||||
9E81D4F9C77075F02D534C26D3A8BC722CA8FDFD3F303F1F80D5D5D71590AC6A
|
||||
C3E5B2598DC68B0A8430627400452926887652186BC09D14E1DD17235C1EB6C0
|
||||
7BFF078E1E1F52CD0B086220268AA29BAC7091AED04666F714D1A3A353B9D3C1
|
||||
419AEC7F8F72DE286AE913642C168F423E1985303901C16D1E7E4462CC96631D
|
||||
204831FC1D996381D58928E96BA5832C168B2A6AE5ED4D310AE216534CF31CD6
|
||||
86DDEE95B4D0BEA4A08969454B575B3354EDA8E8026981F8A25EF8176853B0B6
|
||||
1AB140BC5FEDBA514DB01EA30512CDEB5BA92AA885D102D1F39B368067617A0B
|
||||
89015BC5F4A00AB8E4E4DAC2CE42F176C17F1D4D70FAC98034FAE03A9C2BEC80
|
||||
A13BD712D60C2577738880E39A206EE9ED5BBCF490FF0DE6DEC3B66F905A3410
|
||||
F8AC8AA916CD9D7B77A57221DD16568B92461363C04E46C7C1BF0E73BFE74CCD
|
||||
6AD20000000049454E44AE426082}
|
||||
Name = 'PngImage0'
|
||||
Background = clWindow
|
||||
end>
|
||||
Left = 232
|
||||
Top = 80
|
||||
Bitmap = {}
|
||||
end
|
||||
end
|
||||
73
Source/Modulos/Fabricantes/Plugin/uPluginFabricantes.pas
Normal file
73
Source/Modulos/Fabricantes/Plugin/uPluginFabricantes.pas
Normal file
@ -0,0 +1,73 @@
|
||||
unit uPluginFabricantes;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList,
|
||||
ImgList, Controls, PngImageList;
|
||||
|
||||
type
|
||||
IMCFabricantes = interface(IInterface)
|
||||
['{F7C8960F-5ECE-492B-8D6C-D068DAA66E6C}']
|
||||
end;
|
||||
|
||||
TPluginFabricantes = class(TModuleController, IMCFabricantes)
|
||||
actFabricantes: TAction;
|
||||
ExtraImages: TPngImageList;
|
||||
LargeImages: TPngImageList;
|
||||
MainMenu: TMainMenu;
|
||||
ModuleActionList: TActionList;
|
||||
SmallImages: TPngImageList;
|
||||
Ventas1: TMenuItem;
|
||||
Fabricantes1: TMenuItem;
|
||||
procedure actFabricantesExecute(Sender: TObject);
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
Forms, Dialogs, SysUtils,
|
||||
uFabricantesController, uBizFabricantes, uFabricantesViewRegister;
|
||||
|
||||
function GetModule : TModuleController;
|
||||
begin
|
||||
Result := TPluginFabricantes.Create(NIL);
|
||||
end;
|
||||
|
||||
exports
|
||||
GetModule name GET_MODULE_FUNC;
|
||||
|
||||
procedure TPluginFabricantes.actFabricantesExecute(Sender: TObject);
|
||||
var
|
||||
AFabricantesController : IFabricantesController;
|
||||
AFabricantes : IBizFabricante;
|
||||
begin
|
||||
AFabricantesController := TFabricantesController.Create;
|
||||
AFabricantes := (AFabricantesController.BuscarTodos as IBizFabricante);
|
||||
AFabricantesController.VerTodos(AFabricantes);
|
||||
end;
|
||||
|
||||
constructor TPluginFabricantes.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
uFabricantesViewRegister.RegisterViews;
|
||||
end;
|
||||
|
||||
destructor TPluginFabricantes.Destroy;
|
||||
begin
|
||||
uFabricantesViewRegister.UnregisterViews;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
initialization
|
||||
RegisterModuleClass(TPluginFabricantes);
|
||||
|
||||
finalization
|
||||
UnRegisterModuleClass(TPluginFabricantes);
|
||||
|
||||
end.
|
||||
90
Source/Modulos/Fabricantes/Servidor/srvFabricantes_Impl.dfm
Normal file
90
Source/Modulos/Fabricantes/Servidor/srvFabricantes_Impl.dfm
Normal file
@ -0,0 +1,90 @@
|
||||
object srvFabricantes: TsrvFabricantes
|
||||
OldCreateOrder = True
|
||||
OnCreate = DARemoteServiceCreate
|
||||
RequiresSession = True
|
||||
SessionManager = dmServer.SessionManager
|
||||
ServiceSchema = schFabricantes
|
||||
ServiceDataStreamer = Bin2DataStreamer
|
||||
ExportedDataTables = <>
|
||||
BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
|
||||
Height = 300
|
||||
Width = 334
|
||||
object Diagrams: TDADiagrams
|
||||
Left = 150
|
||||
Top = 88
|
||||
DiagramData = '<Diagrams>'#13#10'</Diagrams>'#13#10
|
||||
end
|
||||
object DataDictionary: TDADataDictionary
|
||||
Fields = <
|
||||
item
|
||||
Name = 'Fabricantes_ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_FABRICANTES_ID'
|
||||
Required = True
|
||||
DisplayLabel = 'ID'
|
||||
ServerAutoRefresh = True
|
||||
end
|
||||
item
|
||||
Name = 'Fabricantes_DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Descripci'#243'n'
|
||||
end>
|
||||
Left = 150
|
||||
Top = 24
|
||||
end
|
||||
object schFabricantes: TDASchema
|
||||
ConnectionManager = dmServer.ConnectionManager
|
||||
DataDictionary = DataDictionary
|
||||
Diagrams = Diagrams
|
||||
Datasets = <
|
||||
item
|
||||
Params = <>
|
||||
Statements = <
|
||||
item
|
||||
Connection = 'IBX'
|
||||
ConnectionType = 'Interbase'
|
||||
Default = True
|
||||
TargetTable = 'FABRICANTES'
|
||||
StatementType = stAutoSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
DatasetField = 'ID'
|
||||
TableField = 'ID'
|
||||
end
|
||||
item
|
||||
DatasetField = 'DESCRIPCION'
|
||||
TableField = 'DESCRIPCION'
|
||||
end>
|
||||
end>
|
||||
Name = 'Fabricantes'
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_FABRICANTES_ID'
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'Fabricantes_ID'
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'Fabricantes_DESCRIPCION'
|
||||
end>
|
||||
end>
|
||||
JoinDataTables = <>
|
||||
UnionDataTables = <>
|
||||
Commands = <>
|
||||
RelationShips = <>
|
||||
UpdateRules = <>
|
||||
Version = 0
|
||||
Left = 48
|
||||
Top = 24
|
||||
end
|
||||
object Bin2DataStreamer: TDABin2DataStreamer
|
||||
Left = 48
|
||||
Top = 88
|
||||
end
|
||||
end
|
||||
61
Source/Modulos/Fabricantes/Servidor/srvFabricantes_Impl.pas
Normal file
61
Source/Modulos/Fabricantes/Servidor/srvFabricantes_Impl.pas
Normal file
@ -0,0 +1,61 @@
|
||||
unit srvFabricantes_Impl;
|
||||
|
||||
{----------------------------------------------------------------------------}
|
||||
{ This unit was automatically generated by the RemObjects SDK after reading }
|
||||
{ the RODL file associated with this project . }
|
||||
{ }
|
||||
{ This is where you are supposed to code the implementation of your objects. }
|
||||
{----------------------------------------------------------------------------}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
{vcl:} Classes, SysUtils,
|
||||
{RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
|
||||
{Ancestor Implementation:} DataAbstractService_Impl,
|
||||
{Used RODLs:} DataAbstract4_Intf,
|
||||
{Generated:} uDABusinessProcessor, uDABin2DataStreamer, uDADataStreamer,
|
||||
uDAScriptingProvider, uDAClasses,
|
||||
FactuGES_Intf, uDAInterfaces;
|
||||
|
||||
type
|
||||
{ TsrvFabricantes }
|
||||
TsrvFabricantes = class(TDataAbstractService, IsrvFabricantes)
|
||||
Diagrams: TDADiagrams;
|
||||
Bin2DataStreamer: TDABin2DataStreamer;
|
||||
schFabricantes: TDASchema;
|
||||
DataDictionary: TDADataDictionary;
|
||||
procedure DARemoteServiceCreate(Sender: TObject);
|
||||
procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject;
|
||||
var aConnectionName: string);
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
uses
|
||||
{Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils;
|
||||
|
||||
procedure Create_srvFabricantes(out anInstance : IUnknown);
|
||||
begin
|
||||
anInstance := TsrvFabricantes.Create(NIL);
|
||||
end;
|
||||
|
||||
{ srvFabricantes }
|
||||
procedure TsrvFabricantes.DARemoteServiceCreate(Sender: TObject);
|
||||
begin
|
||||
SessionManager := dmServer.SessionManager;
|
||||
end;
|
||||
|
||||
procedure TsrvFabricantes.DataAbstractServiceBeforeAcquireConnection(
|
||||
aSender: TObject; var aConnectionName: string);
|
||||
begin
|
||||
ConnectionName := dmServer.ConnectionName;
|
||||
end;
|
||||
|
||||
initialization
|
||||
TROClassFactory.Create('srvFabricantes', Create_srvFabricantes, TsrvFabricantes_Invoker);
|
||||
|
||||
finalization
|
||||
|
||||
end.
|
||||
40
Source/Modulos/Fabricantes/Views/Fabricantes_view.dpk
Normal file
40
Source/Modulos/Fabricantes/Views/Fabricantes_view.dpk
Normal file
@ -0,0 +1,40 @@
|
||||
package Fabricantes_view;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$IMPLICITBUILD ON}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
vcl,
|
||||
Base,
|
||||
GUIBase,
|
||||
ApplicationBase,
|
||||
Fabricantes_model,
|
||||
Fabricantes_controller;
|
||||
|
||||
contains
|
||||
uEditorFabricantes in 'uEditorFabricantes.pas' {fEditorFabricantes: TfEditorUnidadesMedida},
|
||||
uFabricantesViewRegister in 'uFabricantesViewRegister.pas';
|
||||
|
||||
end.
|
||||
545
Source/Modulos/Fabricantes/Views/Fabricantes_view.dproj
Normal file
545
Source/Modulos/Fabricantes/Views/Fabricantes_view.dproj
Normal file
@ -0,0 +1,545 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{e3d36a6f-7004-4c89-9f3d-f2d77e386d1b}</ProjectGuid>
|
||||
<MainSource>Fabricantes_view.dpk</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\Fabricantes_view.bpl</DCC_DependencyCheckOutputName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
||||
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
||||
<DCC_HppOutput>.\</DCC_HppOutput>
|
||||
<DCC_BplOutput>..\..\..\..\Output\Release\Cliente</DCC_BplOutput>
|
||||
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
||||
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
||||
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
||||
<DCC_HppOutput>.\</DCC_HppOutput>
|
||||
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
|
||||
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
||||
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Fabricantes_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="Fabricantes_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\Lib\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Base.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Fabricantes_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Fabricantes_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Lib\rtl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\vcl.dcp" />
|
||||
<DCCReference Include="uEditorFabricantes.pas">
|
||||
<Form>fEditorFabricantes</Form>
|
||||
<DesignClass>TfEditorUnidadesMedida</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uFabricantesViewRegister.pas" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
EurekaLog Version=6011
|
||||
Activate=0
|
||||
Activate Handle=1
|
||||
Save Log File=1
|
||||
Foreground Tab=0
|
||||
Freeze Activate=0
|
||||
Freeze Timeout=60
|
||||
SMTP From=eurekalog@email.com
|
||||
SMTP Host=
|
||||
SMTP Port=25
|
||||
SMTP UserID=
|
||||
SMTP Password=
|
||||
Append to Log=0
|
||||
TerminateBtn Operation=2
|
||||
Errors Number=32
|
||||
Errors Terminate=3
|
||||
Email Address=
|
||||
Email Object=
|
||||
Email Send Options=0
|
||||
Output Path=
|
||||
Encrypt Password=
|
||||
AutoCloseDialogSecs=0
|
||||
WebSendMode=0
|
||||
SupportULR=
|
||||
HTMLLayout Count=15
|
||||
HTMLLine0="%3Chtml%3E"
|
||||
HTMLLine1=" %3Chead%3E"
|
||||
HTMLLine2=" %3C/head%3E"
|
||||
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
|
||||
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
|
||||
HTMLLine5=" %3Ctr%3E"
|
||||
HTMLLine6=" %3Ctd nowrap%3E"
|
||||
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
|
||||
HTMLLine8=" %3C%%HTML_TAG%%%3E"
|
||||
HTMLLine9=" %3C/font%3E"
|
||||
HTMLLine10=" %3C/td%3E"
|
||||
HTMLLine11=" %3C/tr%3E"
|
||||
HTMLLine12=" %3C/table%3E"
|
||||
HTMLLine13=" %3C/body%3E"
|
||||
HTMLLine14="%3C/html%3E"
|
||||
AutoCrashOperation=2
|
||||
AutoCrashNumber=10
|
||||
AutoCrashMinutes=1
|
||||
WebURL=
|
||||
WebUserID=
|
||||
WebPassword=
|
||||
WebPort=0
|
||||
AttachedFiles=
|
||||
ProxyURL=
|
||||
ProxyUser=
|
||||
ProxyPassword=
|
||||
ProxyPort=8080
|
||||
TrakerUser=
|
||||
TrakerPassword=
|
||||
TrakerAssignTo=
|
||||
TrakerProject=
|
||||
TrakerCategory=
|
||||
TrakerTrialID=
|
||||
ZipPassword=
|
||||
PreBuildEvent=
|
||||
PostSuccessfulBuildEvent=
|
||||
PostFailureBuildEvent=
|
||||
ExceptionDialogType=2
|
||||
Count=0
|
||||
EMail Message Line Count=0
|
||||
loNoDuplicateErrors=0
|
||||
loAppendReproduceText=0
|
||||
loDeleteLogAtVersionChange=0
|
||||
loAddComputerNameInLogFileName=0
|
||||
loSaveModulesAndProcessesSections=1
|
||||
loSaveAssemblerAndCPUSections=1
|
||||
soAppStartDate=1
|
||||
soAppName=1
|
||||
soAppVersionNumber=1
|
||||
soAppParameters=1
|
||||
soAppCompilationDate=1
|
||||
soAppUpTime=1
|
||||
soExcDate=1
|
||||
soExcAddress=1
|
||||
soExcModuleName=1
|
||||
soExcModuleVersion=1
|
||||
soExcType=1
|
||||
soExcMessage=1
|
||||
soExcID=1
|
||||
soExcCount=1
|
||||
soExcStatus=1
|
||||
soExcNote=1
|
||||
soUserID=1
|
||||
soUserName=1
|
||||
soUserEmail=1
|
||||
soUserPrivileges=1
|
||||
soUserCompany=1
|
||||
soActCtlsFormClass=1
|
||||
soActCtlsFormText=1
|
||||
soActCtlsControlClass=1
|
||||
soActCtlsControlText=1
|
||||
soCmpName=1
|
||||
soCmpTotalMemory=1
|
||||
soCmpFreeMemory=1
|
||||
soCmpTotalDisk=1
|
||||
soCmpFreeDisk=1
|
||||
soCmpSysUpTime=1
|
||||
soCmpProcessor=1
|
||||
soCmpDisplayMode=1
|
||||
soCmpDisplayDPI=1
|
||||
soCmpVideoCard=1
|
||||
soCmpPrinter=1
|
||||
soOSType=1
|
||||
soOSBuildN=1
|
||||
soOSUpdate=1
|
||||
soOSLanguage=1
|
||||
soOSCharset=1
|
||||
soNetIP=1
|
||||
soNetSubmask=1
|
||||
soNetGateway=1
|
||||
soNetDNS1=1
|
||||
soNetDNS2=1
|
||||
soNetDHCP=1
|
||||
soCustomData=1
|
||||
sndShowSendDialog=1
|
||||
sndShowSuccessFailureMsg=0
|
||||
sndSendEntireLog=0
|
||||
sndSendXMLLogCopy=0
|
||||
sndSendScreenshot=1
|
||||
sndUseOnlyActiveWindow=0
|
||||
sndSendLastHTMLPage=1
|
||||
sndSendInSeparatedThread=0
|
||||
sndAddDateInFileName=0
|
||||
sndAddComputerNameInFileName=0
|
||||
edoSendErrorReportChecked=1
|
||||
edoAttachScreenshotChecked=1
|
||||
edoShowCopyToClipOption=1
|
||||
edoShowDetailsButton=1
|
||||
edoShowInDetailedMode=0
|
||||
edoShowInTopMostMode=0
|
||||
edoUseEurekaLogLookAndFeel=0
|
||||
edoShowSendErrorReportOption=1
|
||||
edoShowAttachScreenshotOption=1
|
||||
edoShowCustomButton=0
|
||||
csoShowDLLs=1
|
||||
csoShowBPLs=1
|
||||
csoShowBorlandThreads=1
|
||||
csoShowWindowsThreads=1
|
||||
csoDoNotStoreProcNames=0
|
||||
boPauseBorlandThreads=0
|
||||
boDoNotPauseMainThread=0
|
||||
boPauseWindowsThreads=0
|
||||
boUseMainModuleOptions=1
|
||||
boCopyLogInCaseOfError=1
|
||||
boSaveCompressedCopyInCaseOfError=0
|
||||
boHandleSafeCallExceptions=1
|
||||
boCallRTLExceptionEvent=0
|
||||
boCatchHandledExceptions=0
|
||||
loCatchLeaks=0
|
||||
loGroupsSonLeaks=1
|
||||
loHideBorlandLeaks=1
|
||||
loFreeAllLeaks=1
|
||||
loCatchLeaksExceptions=1
|
||||
cfoReduceFileSize=1
|
||||
cfoCheckFileCorruption=0
|
||||
Count mtInformationMsgCaption=1
|
||||
mtInformationMsgCaption0="Information."
|
||||
Count mtQuestionMsgCaption=1
|
||||
mtQuestionMsgCaption0="Question."
|
||||
Count mtErrorMsgCaption=1
|
||||
mtErrorMsgCaption0="Error."
|
||||
Count mtDialog_Caption=1
|
||||
mtDialog_Caption0="Error occurred"
|
||||
Count mtDialog_ErrorMsgCaption=2
|
||||
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
|
||||
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
|
||||
Count mtDialog_GeneralCaption=1
|
||||
mtDialog_GeneralCaption0="General"
|
||||
Count mtDialog_GeneralHeader=1
|
||||
mtDialog_GeneralHeader0="General Information"
|
||||
Count mtDialog_CallStackCaption=1
|
||||
mtDialog_CallStackCaption0="Call Stack"
|
||||
Count mtDialog_CallStackHeader=1
|
||||
mtDialog_CallStackHeader0="Call Stack Information"
|
||||
Count mtDialog_ModulesCaption=1
|
||||
mtDialog_ModulesCaption0="Modules"
|
||||
Count mtDialog_ModulesHeader=1
|
||||
mtDialog_ModulesHeader0="Modules Information"
|
||||
Count mtDialog_ProcessesCaption=1
|
||||
mtDialog_ProcessesCaption0="Processes"
|
||||
Count mtDialog_ProcessesHeader=1
|
||||
mtDialog_ProcessesHeader0="Processes Information"
|
||||
Count mtDialog_AsmCaption=1
|
||||
mtDialog_AsmCaption0="Assembler"
|
||||
Count mtDialog_AsmHeader=1
|
||||
mtDialog_AsmHeader0="Assembler Information"
|
||||
Count mtDialog_CPUCaption=1
|
||||
mtDialog_CPUCaption0="CPU"
|
||||
Count mtDialog_CPUHeader=1
|
||||
mtDialog_CPUHeader0="CPU Information"
|
||||
Count mtDialog_OKButtonCaption=1
|
||||
mtDialog_OKButtonCaption0="%26OK"
|
||||
Count mtDialog_TerminateButtonCaption=1
|
||||
mtDialog_TerminateButtonCaption0="%26Terminate"
|
||||
Count mtDialog_RestartButtonCaption=1
|
||||
mtDialog_RestartButtonCaption0="%26Restart"
|
||||
Count mtDialog_DetailsButtonCaption=1
|
||||
mtDialog_DetailsButtonCaption0="%26Details"
|
||||
Count mtDialog_CustomButtonCaption=1
|
||||
mtDialog_CustomButtonCaption0="%26Help"
|
||||
Count mtDialog_SendMessage=1
|
||||
mtDialog_SendMessage0="%26Send this error via Internet"
|
||||
Count mtDialog_ScreenshotMessage=1
|
||||
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
|
||||
Count mtDialog_CopyMessage=1
|
||||
mtDialog_CopyMessage0="%26Copy to Clipboard"
|
||||
Count mtDialog_SupportMessage=1
|
||||
mtDialog_SupportMessage0="Go to the Support Page"
|
||||
Count mtMSDialog_ErrorMsgCaption=1
|
||||
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
|
||||
Count mtMSDialog_RestartCaption=1
|
||||
mtMSDialog_RestartCaption0="Restart application."
|
||||
Count mtMSDialog_TerminateCaption=1
|
||||
mtMSDialog_TerminateCaption0="Terminate application."
|
||||
Count mtMSDialog_PleaseCaption=1
|
||||
mtMSDialog_PleaseCaption0="Please tell us about this problem."
|
||||
Count mtMSDialog_DescriptionCaption=1
|
||||
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
|
||||
Count mtMSDialog_SeeDetailsCaption=1
|
||||
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
|
||||
Count mtMSDialog_SeeClickCaption=1
|
||||
mtMSDialog_SeeClickCaption0="click here."
|
||||
Count mtMSDialog_HowToReproduceCaption=1
|
||||
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happended (optional)?"
|
||||
Count mtMSDialog_EmailCaption=1
|
||||
mtMSDialog_EmailCaption0="Email address (optional):"
|
||||
Count mtMSDialog_SendButtonCaption=1
|
||||
mtMSDialog_SendButtonCaption0="%26Send Error Report"
|
||||
Count mtMSDialog_NoSendButtonCaption=1
|
||||
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
|
||||
Count mtLog_AppHeader=1
|
||||
mtLog_AppHeader0="Application"
|
||||
Count mtLog_AppStartDate=1
|
||||
mtLog_AppStartDate0="Start Date"
|
||||
Count mtLog_AppName=1
|
||||
mtLog_AppName0="Name/Description"
|
||||
Count mtLog_AppVersionNumber=1
|
||||
mtLog_AppVersionNumber0="Version Number"
|
||||
Count mtLog_AppParameters=1
|
||||
mtLog_AppParameters0="Parameters"
|
||||
Count mtLog_AppCompilationDate=1
|
||||
mtLog_AppCompilationDate0="Compilation Date"
|
||||
Count mtLog_AppUpTime=1
|
||||
mtLog_AppUpTime0="Up Time"
|
||||
Count mtLog_ExcHeader=1
|
||||
mtLog_ExcHeader0="Exception"
|
||||
Count mtLog_ExcDate=1
|
||||
mtLog_ExcDate0="Date"
|
||||
Count mtLog_ExcAddress=1
|
||||
mtLog_ExcAddress0="Address"
|
||||
Count mtLog_ExcModuleName=1
|
||||
mtLog_ExcModuleName0="Module Name"
|
||||
Count mtLog_ExcModuleVersion=1
|
||||
mtLog_ExcModuleVersion0="Module Version"
|
||||
Count mtLog_ExcType=1
|
||||
mtLog_ExcType0="Type"
|
||||
Count mtLog_ExcMessage=1
|
||||
mtLog_ExcMessage0="Message"
|
||||
Count mtLog_ExcID=1
|
||||
mtLog_ExcID0="ID"
|
||||
Count mtLog_ExcCount=1
|
||||
mtLog_ExcCount0="Count"
|
||||
Count mtLog_ExcStatus=1
|
||||
mtLog_ExcStatus0="Status"
|
||||
Count mtLog_ExcNote=1
|
||||
mtLog_ExcNote0="Note"
|
||||
Count mtLog_UserHeader=1
|
||||
mtLog_UserHeader0="User"
|
||||
Count mtLog_UserID=1
|
||||
mtLog_UserID0="ID"
|
||||
Count mtLog_UserName=1
|
||||
mtLog_UserName0="Name"
|
||||
Count mtLog_UserEmail=1
|
||||
mtLog_UserEmail0="Email"
|
||||
Count mtLog_UserCompany=1
|
||||
mtLog_UserCompany0="Company"
|
||||
Count mtLog_UserPrivileges=1
|
||||
mtLog_UserPrivileges0="Privileges"
|
||||
Count mtLog_ActCtrlsHeader=1
|
||||
mtLog_ActCtrlsHeader0="Active Controls"
|
||||
Count mtLog_ActCtrlsFormClass=1
|
||||
mtLog_ActCtrlsFormClass0="Form Class"
|
||||
Count mtLog_ActCtrlsFormText=1
|
||||
mtLog_ActCtrlsFormText0="Form Text"
|
||||
Count mtLog_ActCtrlsControlClass=1
|
||||
mtLog_ActCtrlsControlClass0="Control Class"
|
||||
Count mtLog_ActCtrlsControlText=1
|
||||
mtLog_ActCtrlsControlText0="Control Text"
|
||||
Count mtLog_CmpHeader=1
|
||||
mtLog_CmpHeader0="Computer"
|
||||
Count mtLog_CmpName=1
|
||||
mtLog_CmpName0="Name"
|
||||
Count mtLog_CmpTotalMemory=1
|
||||
mtLog_CmpTotalMemory0="Total Memory"
|
||||
Count mtLog_CmpFreeMemory=1
|
||||
mtLog_CmpFreeMemory0="Free Memory"
|
||||
Count mtLog_CmpTotalDisk=1
|
||||
mtLog_CmpTotalDisk0="Total Disk"
|
||||
Count mtLog_CmpFreeDisk=1
|
||||
mtLog_CmpFreeDisk0="Free Disk"
|
||||
Count mtLog_CmpSystemUpTime=1
|
||||
mtLog_CmpSystemUpTime0="System Up Time"
|
||||
Count mtLog_CmpProcessor=1
|
||||
mtLog_CmpProcessor0="Processor"
|
||||
Count mtLog_CmpDisplayMode=1
|
||||
mtLog_CmpDisplayMode0="Display Mode"
|
||||
Count mtLog_CmpDisplayDPI=1
|
||||
mtLog_CmpDisplayDPI0="Display DPI"
|
||||
Count mtLog_CmpVideoCard=1
|
||||
mtLog_CmpVideoCard0="Video Card"
|
||||
Count mtLog_CmpPrinter=1
|
||||
mtLog_CmpPrinter0="Printer"
|
||||
Count mtLog_OSHeader=1
|
||||
mtLog_OSHeader0="Operating System"
|
||||
Count mtLog_OSType=1
|
||||
mtLog_OSType0="Type"
|
||||
Count mtLog_OSBuildN=1
|
||||
mtLog_OSBuildN0="Build #"
|
||||
Count mtLog_OSUpdate=1
|
||||
mtLog_OSUpdate0="Update"
|
||||
Count mtLog_OSLanguage=1
|
||||
mtLog_OSLanguage0="Language"
|
||||
Count mtLog_OSCharset=1
|
||||
mtLog_OSCharset0="Charset"
|
||||
Count mtLog_NetHeader=1
|
||||
mtLog_NetHeader0="Network"
|
||||
Count mtLog_NetIP=1
|
||||
mtLog_NetIP0="IP Address"
|
||||
Count mtLog_NetSubmask=1
|
||||
mtLog_NetSubmask0="Submask"
|
||||
Count mtLog_NetGateway=1
|
||||
mtLog_NetGateway0="Gateway"
|
||||
Count mtLog_NetDNS1=1
|
||||
mtLog_NetDNS10="DNS 1"
|
||||
Count mtLog_NetDNS2=1
|
||||
mtLog_NetDNS20="DNS 2"
|
||||
Count mtLog_NetDHCP=1
|
||||
mtLog_NetDHCP0="DHCP"
|
||||
Count mtLog_CustInfoHeader=1
|
||||
mtLog_CustInfoHeader0="Custom Information"
|
||||
Count mtCallStack_Address=1
|
||||
mtCallStack_Address0="Address"
|
||||
Count mtCallStack_Name=1
|
||||
mtCallStack_Name0="Module"
|
||||
Count mtCallStack_Unit=1
|
||||
mtCallStack_Unit0="Unit"
|
||||
Count mtCallStack_Class=1
|
||||
mtCallStack_Class0="Class"
|
||||
Count mtCallStack_Procedure=1
|
||||
mtCallStack_Procedure0="Procedure/Method"
|
||||
Count mtCallStack_Line=1
|
||||
mtCallStack_Line0="Line"
|
||||
Count mtCallStack_MainThread=1
|
||||
mtCallStack_MainThread0="Main"
|
||||
Count mtCallStack_ExceptionThread=1
|
||||
mtCallStack_ExceptionThread0="Exception Thread"
|
||||
Count mtCallStack_RunningThread=1
|
||||
mtCallStack_RunningThread0="Running Thread"
|
||||
Count mtCallStack_CallingThread=1
|
||||
mtCallStack_CallingThread0="Calling Thread"
|
||||
Count mtCallStack_ThreadID=1
|
||||
mtCallStack_ThreadID0="ID"
|
||||
Count mtCallStack_ThreadPriority=1
|
||||
mtCallStack_ThreadPriority0="Priority"
|
||||
Count mtCallStack_ThreadClass=1
|
||||
mtCallStack_ThreadClass0="Class"
|
||||
Count mtCallStack_LeakCaption=1
|
||||
mtCallStack_LeakCaption0="Memory Leak"
|
||||
Count mtCallStack_LeakData=1
|
||||
mtCallStack_LeakData0="Data"
|
||||
Count mtCallStack_LeakType=1
|
||||
mtCallStack_LeakType0="Type"
|
||||
Count mtCallStack_LeakSize=1
|
||||
mtCallStack_LeakSize0="Total size"
|
||||
Count mtCallStack_LeakCount=1
|
||||
mtCallStack_LeakCount0="Count"
|
||||
Count mtSendDialog_Caption=1
|
||||
mtSendDialog_Caption0="Send."
|
||||
Count mtSendDialog_Message=1
|
||||
mtSendDialog_Message0="Message"
|
||||
Count mtSendDialog_Resolving=1
|
||||
mtSendDialog_Resolving0="Resolving DNS..."
|
||||
Count mtSendDialog_Login=1
|
||||
mtSendDialog_Login0="Login..."
|
||||
Count mtSendDialog_Connecting=1
|
||||
mtSendDialog_Connecting0="Connecting with server..."
|
||||
Count mtSendDialog_Connected=1
|
||||
mtSendDialog_Connected0="Connected with server."
|
||||
Count mtSendDialog_Sending=1
|
||||
mtSendDialog_Sending0="Sending message..."
|
||||
Count mtSendDialog_Sent=1
|
||||
mtSendDialog_Sent0="Message sent."
|
||||
Count mtSendDialog_SelectProject=1
|
||||
mtSendDialog_SelectProject0="Select project..."
|
||||
Count mtSendDialog_Searching=1
|
||||
mtSendDialog_Searching0="Searching..."
|
||||
Count mtSendDialog_Modifying=1
|
||||
mtSendDialog_Modifying0="Modifying..."
|
||||
Count mtSendDialog_Disconnecting=1
|
||||
mtSendDialog_Disconnecting0="Disconnecting..."
|
||||
Count mtSendDialog_Disconnected=1
|
||||
mtSendDialog_Disconnected0="Disconnected."
|
||||
Count mtReproduceDialog_Caption=1
|
||||
mtReproduceDialog_Caption0="Request"
|
||||
Count mtReproduceDialog_Request=1
|
||||
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
|
||||
Count mtReproduceDialog_OKButtonCaption=1
|
||||
mtReproduceDialog_OKButtonCaption0="%26OK"
|
||||
Count mtModules_Handle=1
|
||||
mtModules_Handle0="Handle"
|
||||
Count mtModules_Name=1
|
||||
mtModules_Name0="Name"
|
||||
Count mtModules_Description=1
|
||||
mtModules_Description0="Description"
|
||||
Count mtModules_Version=1
|
||||
mtModules_Version0="Version"
|
||||
Count mtModules_Size=1
|
||||
mtModules_Size0="Size"
|
||||
Count mtModules_LastModified=1
|
||||
mtModules_LastModified0="Modified"
|
||||
Count mtModules_Path=1
|
||||
mtModules_Path0="Path"
|
||||
Count mtProcesses_ID=1
|
||||
mtProcesses_ID0="ID"
|
||||
Count mtProcesses_Name=1
|
||||
mtProcesses_Name0="Name"
|
||||
Count mtProcesses_Description=1
|
||||
mtProcesses_Description0="Description"
|
||||
Count mtProcesses_Version=1
|
||||
mtProcesses_Version0="Version"
|
||||
Count mtProcesses_Memory=1
|
||||
mtProcesses_Memory0="Memory"
|
||||
Count mtProcesses_Priority=1
|
||||
mtProcesses_Priority0="Priority"
|
||||
Count mtProcesses_Threads=1
|
||||
mtProcesses_Threads0="Threads"
|
||||
Count mtProcesses_Path=1
|
||||
mtProcesses_Path0="Path"
|
||||
Count mtCPU_Registers=1
|
||||
mtCPU_Registers0="Registers"
|
||||
Count mtCPU_Stack=1
|
||||
mtCPU_Stack0="Stack"
|
||||
Count mtCPU_MemoryDump=1
|
||||
mtCPU_MemoryDump0="Memory Dump"
|
||||
Count mtSend_SuccessMsg=1
|
||||
mtSend_SuccessMsg0="The message was sent successfully."
|
||||
Count mtSend_FailureMsg=1
|
||||
mtSend_FailureMsg0="Sorry, sending the message didn't work."
|
||||
Count mtSend_BugClosedMsg=2
|
||||
mtSend_BugClosedMsg0="These BUG is just closed."
|
||||
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
|
||||
Count mtSend_UnknownErrorMsg=1
|
||||
mtSend_UnknownErrorMsg0="Unknown error."
|
||||
Count mtSend_InvalidLoginMsg=1
|
||||
mtSend_InvalidLoginMsg0="Invalid login request."
|
||||
Count mtSend_InvalidSearchMsg=1
|
||||
mtSend_InvalidSearchMsg0="Invalid search request."
|
||||
Count mtSend_InvalidSelectionMsg=1
|
||||
mtSend_InvalidSelectionMsg0="Invalid selection request."
|
||||
Count mtSend_InvalidInsertMsg=1
|
||||
mtSend_InvalidInsertMsg0="Invalid insert request."
|
||||
Count mtSend_InvalidModifyMsg=1
|
||||
mtSend_InvalidModifyMsg0="Invalid modify request."
|
||||
Count mtFileCrackedMsg=2
|
||||
mtFileCrackedMsg0="This file is cracked."
|
||||
mtFileCrackedMsg1="The application will be closed."
|
||||
Count mtException_LeakMultiFree=1
|
||||
mtException_LeakMultiFree0="Multi Free memory leak."
|
||||
Count mtException_LeakMemoryOverrun=1
|
||||
mtException_LeakMemoryOverrun0="Memory Overrun leak."
|
||||
Count mtException_AntiFreeze=1
|
||||
mtException_AntiFreeze0="The application seems to be frozen."
|
||||
Count mtInvalidEmailMsg=1
|
||||
mtInvalidEmailMsg0="Invalid email."
|
||||
TextsCollection=English
|
||||
EurekaLog Last Line -->
|
||||
BIN
Source/Modulos/Fabricantes/Views/Fabricantes_view.identcache
Normal file
BIN
Source/Modulos/Fabricantes/Views/Fabricantes_view.identcache
Normal file
Binary file not shown.
BIN
Source/Modulos/Fabricantes/Views/Fabricantes_view.res
Normal file
BIN
Source/Modulos/Fabricantes/Views/Fabricantes_view.res
Normal file
Binary file not shown.
144
Source/Modulos/Fabricantes/Views/uEditorFabricantes.dfm
Normal file
144
Source/Modulos/Fabricantes/Views/uEditorFabricantes.dfm
Normal file
@ -0,0 +1,144 @@
|
||||
object fEditorFabricantes: TfEditorFabricantes
|
||||
Left = 453
|
||||
Top = 234
|
||||
ActiveControl = ListaFabricantes
|
||||
BorderIcons = [biSystemMenu]
|
||||
BorderStyle = bsSingle
|
||||
Caption = 'Administraci'#243'n de fabricantes'
|
||||
ClientHeight = 494
|
||||
ClientWidth = 404
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
Position = poScreenCenter
|
||||
OnClose = CustomEditorClose
|
||||
OnShow = FormShow
|
||||
InstanceID = 0
|
||||
ReadOnly = False
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object bAceptar: TButton
|
||||
Left = 235
|
||||
Top = 462
|
||||
Width = 75
|
||||
Height = 23
|
||||
Action = actAceptar
|
||||
Default = True
|
||||
TabOrder = 1
|
||||
end
|
||||
object bCancelar: TButton
|
||||
Left = 321
|
||||
Top = 462
|
||||
Width = 75
|
||||
Height = 23
|
||||
Action = actCancelar
|
||||
Cancel = True
|
||||
TabOrder = 2
|
||||
end
|
||||
object PageControl1: TPageControl
|
||||
Left = 8
|
||||
Top = 8
|
||||
Width = 390
|
||||
Height = 442
|
||||
ActivePage = TabSheet1
|
||||
TabOrder = 0
|
||||
object TabSheet1: TTabSheet
|
||||
Caption = 'Fabricantes'
|
||||
object Label1: TLabel
|
||||
Left = 10
|
||||
Top = 12
|
||||
Width = 147
|
||||
Height = 13
|
||||
Caption = 'Lista de fabricantes disponibles'
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 10
|
||||
Top = 326
|
||||
Width = 128
|
||||
Height = 13
|
||||
Caption = 'A'#241'adir un nuevo fabricante'
|
||||
end
|
||||
object Bevel1: TBevel
|
||||
Left = 144
|
||||
Top = 330
|
||||
Width = 232
|
||||
Height = 5
|
||||
Shape = bsBottomLine
|
||||
end
|
||||
object eCategoria: TLabel
|
||||
Left = 18
|
||||
Top = 353
|
||||
Width = 40
|
||||
Height = 13
|
||||
Caption = 'Nombre:'
|
||||
end
|
||||
object ListaFabricantes: TDBLookupListBox
|
||||
Left = 8
|
||||
Top = 31
|
||||
Width = 262
|
||||
Height = 277
|
||||
KeyField = 'RecID'
|
||||
ListField = 'DESCRIPCION'
|
||||
ListSource = DADataSource
|
||||
TabOrder = 0
|
||||
end
|
||||
object bEliminar: TButton
|
||||
Left = 281
|
||||
Top = 31
|
||||
Width = 95
|
||||
Height = 23
|
||||
Action = actEliminar
|
||||
TabOrder = 1
|
||||
end
|
||||
object editFabricante: TEdit
|
||||
Left = 64
|
||||
Top = 349
|
||||
Width = 312
|
||||
Height = 21
|
||||
TabOrder = 2
|
||||
end
|
||||
object bAnadir: TButton
|
||||
Left = 281
|
||||
Top = 382
|
||||
Width = 95
|
||||
Height = 23
|
||||
Action = actAnadir
|
||||
TabOrder = 3
|
||||
end
|
||||
end
|
||||
end
|
||||
object ActionList1: TActionList
|
||||
Left = 144
|
||||
Top = 16
|
||||
object actAnadir: TAction
|
||||
Caption = '&A'#241'adir'
|
||||
OnExecute = actAnadirExecute
|
||||
OnUpdate = actAnadirUpdate
|
||||
end
|
||||
object actEliminar: TAction
|
||||
Caption = '&Eliminar'
|
||||
OnExecute = actEliminarExecute
|
||||
OnUpdate = actEliminarUpdate
|
||||
end
|
||||
object actAceptar: TAction
|
||||
Caption = 'A&ceptar'
|
||||
OnExecute = actAceptarExecute
|
||||
end
|
||||
object actCancelar: TAction
|
||||
Caption = '&Cancelar'
|
||||
OnExecute = actCancelarExecute
|
||||
end
|
||||
object actCerrar: TAction
|
||||
Caption = 'actCerrar'
|
||||
OnExecute = actCerrarExecute
|
||||
end
|
||||
end
|
||||
object DADataSource: TDADataSource
|
||||
Left = 168
|
||||
Top = 16
|
||||
end
|
||||
end
|
||||
181
Source/Modulos/Fabricantes/Views/uEditorFabricantes.pas
Normal file
181
Source/Modulos/Fabricantes/Views/uEditorFabricantes.pas
Normal file
@ -0,0 +1,181 @@
|
||||
{
|
||||
===============================================================================
|
||||
Copyright (©) 2006. Rodax Software.
|
||||
===============================================================================
|
||||
Los contenidos de este fichero son propiedad de Rodax Software titular del
|
||||
copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado,
|
||||
en su totalidad o en parte, con el permiso escrito de Rodax Software, o de
|
||||
acuerdo con los términos y condiciones establecidas en el acuerdo/contrato
|
||||
bajo el que se suministra.
|
||||
-----------------------------------------------------------------------------
|
||||
Web: www.rodax-software.com
|
||||
===============================================================================
|
||||
Fecha primera versión: 22-05-2006
|
||||
Versión actual: 1.0.0
|
||||
Fecha versión actual: 22-05-2006
|
||||
===============================================================================
|
||||
Modificaciones:
|
||||
|
||||
Fecha Comentarios
|
||||
---------------------------------------------------------------------------
|
||||
===============================================================================
|
||||
}
|
||||
|
||||
unit uEditorFabricantes;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, DB, StdCtrls, DBCtrls, uDADataTable, ActnList,
|
||||
uIEditorFabricantes, uCustomEditor, uGUIBase, ExtCtrls,
|
||||
ComCtrls, uBizFabricantes, uFabricantesController, uDAInterfaces;
|
||||
|
||||
type
|
||||
TfEditorFabricantes = class(TCustomEditor, IEditorFabricantes)
|
||||
ActionList1: TActionList;
|
||||
DADataSource: TDADataSource;
|
||||
ListaFabricantes: TDBLookupListBox;
|
||||
actAnadir: TAction;
|
||||
actEliminar: TAction;
|
||||
bEliminar: TButton;
|
||||
actAceptar: TAction;
|
||||
actCancelar: TAction;
|
||||
bAceptar: TButton;
|
||||
bCancelar: TButton;
|
||||
actCerrar: TAction;
|
||||
PageControl1: TPageControl;
|
||||
TabSheet1: TTabSheet;
|
||||
Label1: TLabel;
|
||||
Label2: TLabel;
|
||||
Bevel1: TBevel;
|
||||
eCategoria: TLabel;
|
||||
editFabricante: TEdit;
|
||||
bAnadir: TButton;
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
|
||||
|
||||
procedure actAnadirExecute(Sender: TObject);
|
||||
procedure actEliminarExecute(Sender: TObject);
|
||||
procedure actAceptarExecute(Sender: TObject);
|
||||
procedure actCancelarExecute(Sender: TObject);
|
||||
procedure actCerrarExecute(Sender: TObject);
|
||||
procedure actAnadirUpdate(Sender: TObject);
|
||||
procedure actEliminarUpdate(Sender: TObject);
|
||||
protected
|
||||
FFabricantes: IBizFabricante;
|
||||
FController: IFabricantesController;
|
||||
function GetFabricantes: IBizFabricante;
|
||||
procedure SetFabricantes(const Value: IBizFabricante);
|
||||
function GetController : IFabricantesController;
|
||||
procedure SetController (const Value : IFabricantesController);
|
||||
public
|
||||
property Fabricantes: IBizFabricante read GetFabricantes write SetFabricantes;
|
||||
property Controller : IFabricantesController read GetController write SetController;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
{$R *.dfm}
|
||||
|
||||
{ TfEditorFabricantes }
|
||||
|
||||
uses
|
||||
uDialogUtils;
|
||||
|
||||
function TfEditorFabricantes.GetController: IFabricantesController;
|
||||
begin
|
||||
Result := FController;
|
||||
end;
|
||||
|
||||
function TfEditorFabricantes.GetFabricantes: IBizFabricante;
|
||||
begin
|
||||
Result := FFabricantes;
|
||||
end;
|
||||
|
||||
procedure TfEditorFabricantes.SetController(const Value: IFabricantesController);
|
||||
begin
|
||||
FController := Value;
|
||||
end;
|
||||
|
||||
procedure TfEditorFabricantes.SetFabricantes(const Value: IBizFabricante);
|
||||
begin
|
||||
FFabricantes := Value;
|
||||
DADataSource.DataTable := (FFabricantes as IBizFabricante).DataTable;
|
||||
DADataSource.DataTable.Open;
|
||||
end;
|
||||
|
||||
procedure TfEditorFabricantes.actAnadirExecute(Sender: TObject);
|
||||
begin
|
||||
if not FController.Localizar(Fabricantes, editFabricante.Text) then
|
||||
begin
|
||||
Fabricantes.Append;
|
||||
Fabricantes.DESCRIPCION := editFabricante.Text;
|
||||
Fabricantes.Post;
|
||||
editFabricante.Clear;
|
||||
ListaFabricantes.SetFocus;
|
||||
end
|
||||
else
|
||||
ShowErrorMessage('Ya existe la unidad ' + editFabricante.Text,
|
||||
'Ya existe la unidad ''' + editFabricante.Text + ''' en la lista.');
|
||||
end;
|
||||
|
||||
procedure TfEditorFabricantes.actEliminarExecute(Sender: TObject);
|
||||
begin
|
||||
Fabricantes.Delete;
|
||||
ListaFabricantes.SetFocus;
|
||||
end;
|
||||
|
||||
procedure TfEditorFabricantes.actEliminarUpdate(Sender: TObject);
|
||||
begin
|
||||
(Sender as TAction).Enabled := (FFabricantes.DataTable.RecordCount > 0) and
|
||||
(Length(ListaFabricantes.SelectedItem) > 0);
|
||||
|
||||
end;
|
||||
|
||||
procedure TfEditorFabricantes.CustomEditorClose(Sender: TObject; var Action: TCloseAction);
|
||||
begin
|
||||
FFabricantes := Nil;
|
||||
FController := Nil;
|
||||
end;
|
||||
|
||||
procedure TfEditorFabricantes.actAceptarExecute(Sender: TObject);
|
||||
begin
|
||||
try
|
||||
Fabricantes.DataTable.ApplyUpdates;
|
||||
except
|
||||
on E : Exception do begin
|
||||
Fabricantes.DataTable.CancelUpdates;
|
||||
ShowErrorMessage('Error al guardar cambios', 'Se ha producido un error grave', E);
|
||||
exit;
|
||||
end;
|
||||
end;
|
||||
actCerrar.Execute;
|
||||
end;
|
||||
|
||||
procedure TfEditorFabricantes.actCancelarExecute(Sender: TObject);
|
||||
begin
|
||||
Fabricantes.DataTable.CancelUpdates;
|
||||
actCerrar.Execute;
|
||||
end;
|
||||
|
||||
procedure TfEditorFabricantes.actCerrarExecute(Sender: TObject);
|
||||
begin
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfEditorFabricantes.actAnadirUpdate(Sender: TObject);
|
||||
begin
|
||||
(Sender as TAction).Enabled := (Length(editFabricante.Text) > 0)
|
||||
end;
|
||||
|
||||
procedure TfEditorFabricantes.FormShow(Sender: TObject);
|
||||
begin
|
||||
if not FFabricantes.DataTable.Active then
|
||||
FFabricantes.DataTable.Active := true;
|
||||
|
||||
FFabricantes.DataTable.Sort(['DESCRIPCION'], [sdAscending]);
|
||||
EditFabricante.SetFocus;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -0,0 +1,23 @@
|
||||
unit uFabricantesViewRegister;
|
||||
|
||||
interface
|
||||
|
||||
procedure RegisterViews;
|
||||
procedure UnregisterViews;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
uEditorRegistryUtils, uEditorFabricantes;
|
||||
|
||||
procedure RegisterViews;
|
||||
begin
|
||||
EditorRegistry.RegisterClass(TfEditorFabricantes, 'EditorFabricantes');
|
||||
end;
|
||||
|
||||
procedure UnregisterViews;
|
||||
begin
|
||||
EditorRegistry.UnRegisterClass(TfEditorFabricantes);
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -400,6 +400,15 @@
|
||||
</Interface>
|
||||
</Interfaces>
|
||||
</Service>
|
||||
<Service Name="srvFabricantes" UID="{EEE46742-B6B7-4373-8D7A-A80116C455F9}" Ancestor="DataAbstractService">
|
||||
<Group Under="{3FE097B9-EDAC-4F49-989D-60719DC0A2C7}" />
|
||||
<Interfaces>
|
||||
<Interface Name="Default" UID="{E26547E0-9E61-4BC8-B154-49ACC9339875}">
|
||||
<Operations>
|
||||
</Operations>
|
||||
</Interface>
|
||||
</Interfaces>
|
||||
</Service>
|
||||
</Services>
|
||||
<EventSinks>
|
||||
</EventSinks>
|
||||
|
||||
@ -47,6 +47,7 @@ const
|
||||
IsrvAlbaranesProveedor_IID : TGUID = '{66B71884-5CE4-4574-B825-60CDA956B628}';
|
||||
IsrvReferencias_IID : TGUID = '{B957528D-3BE1-412D-A35E-801C97CCD252}';
|
||||
IsrvUnidadesMedida_IID : TGUID = '{8B4C72F0-5ACE-46FF-9F00-D70C2B611652}';
|
||||
IsrvFabricantes_IID : TGUID = '{E26547E0-9E61-4BC8-B154-49ACC9339875}';
|
||||
|
||||
{ Event ID's }
|
||||
|
||||
@ -76,6 +77,7 @@ type
|
||||
IsrvAlbaranesProveedor = interface;
|
||||
IsrvReferencias = interface;
|
||||
IsrvUnidadesMedida = interface;
|
||||
IsrvFabricantes = interface;
|
||||
|
||||
TRdxEmpresasArray = class;
|
||||
|
||||
@ -612,6 +614,23 @@ type
|
||||
|
||||
end;
|
||||
|
||||
{ IsrvFabricantes }
|
||||
IsrvFabricantes = interface(IDataAbstractService)
|
||||
['{E26547E0-9E61-4BC8-B154-49ACC9339875}']
|
||||
end;
|
||||
|
||||
{ CosrvFabricantes }
|
||||
CosrvFabricantes = class
|
||||
class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvFabricantes;
|
||||
end;
|
||||
|
||||
{ TsrvFabricantes_Proxy }
|
||||
TsrvFabricantes_Proxy = class(TDataAbstractService_Proxy, IsrvFabricantes)
|
||||
protected
|
||||
function __GetInterfaceName:string; override;
|
||||
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
@ -1604,6 +1623,18 @@ begin
|
||||
result := 'srvUnidadesMedida';
|
||||
end;
|
||||
|
||||
{ CosrvFabricantes }
|
||||
|
||||
class function CosrvFabricantes.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvFabricantes;
|
||||
begin
|
||||
result := TsrvFabricantes_Proxy.Create(aMessage, aTransportChannel);
|
||||
end;
|
||||
|
||||
function TsrvFabricantes_Proxy.__GetInterfaceName:string;
|
||||
begin
|
||||
result := 'srvFabricantes';
|
||||
end;
|
||||
|
||||
initialization
|
||||
RegisterROClass(TRdxLoginInfo);
|
||||
RegisterROClass(TRdxEmpresasArray);
|
||||
@ -1631,6 +1662,7 @@ initialization
|
||||
RegisterProxyClass(IsrvAlbaranesProveedor_IID, TsrvAlbaranesProveedor_Proxy);
|
||||
RegisterProxyClass(IsrvReferencias_IID, TsrvReferencias_Proxy);
|
||||
RegisterProxyClass(IsrvUnidadesMedida_IID, TsrvUnidadesMedida_Proxy);
|
||||
RegisterProxyClass(IsrvFabricantes_IID, TsrvFabricantes_Proxy);
|
||||
|
||||
|
||||
finalization
|
||||
@ -1660,5 +1692,6 @@ finalization
|
||||
UnregisterProxyClass(IsrvAlbaranesProveedor_IID);
|
||||
UnregisterProxyClass(IsrvReferencias_IID);
|
||||
UnregisterProxyClass(IsrvUnidadesMedida_IID);
|
||||
UnregisterProxyClass(IsrvFabricantes_IID);
|
||||
|
||||
end.
|
||||
|
||||
@ -188,6 +188,12 @@ type
|
||||
published
|
||||
end;
|
||||
|
||||
TsrvFabricantes_Invoker = class(TDataAbstractService_Invoker)
|
||||
private
|
||||
protected
|
||||
published
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
|
||||
Binary file not shown.
@ -103,8 +103,6 @@ uses
|
||||
uRptWordPresupuestoCliente in '..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas' {RptWordPresupuestosCliente: TDataModule},
|
||||
AHWord97 in 'Utiles\AHWord97.pas',
|
||||
uSistemaFunc in '..\Base\Utiles\uSistemaFunc.pas',
|
||||
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
|
||||
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
|
||||
uRptWordAlbaranCliente in '..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas' {RptWordAlbaranCliente: TDataModule},
|
||||
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
|
||||
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
|
||||
@ -114,7 +112,12 @@ uses
|
||||
uRptFichasEmpleado_Server in '..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas' {RptFichasEmpleado: TDataModule},
|
||||
uRptEtiquetasContacto_Server in '..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas' {RptEtiquetasContacto: TDataModule},
|
||||
uRptWordFacturaCliente in '..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas' {RptWordFacturaCliente: TDataModule},
|
||||
uCiaServiceTools in 'Utiles\uCiaServiceTools.pas';
|
||||
uCiaServiceTools in 'Utiles\uCiaServiceTools.pas',
|
||||
srvFabricantes_Impl in '..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas' {srvFabricantes: TDataAbstractService},
|
||||
schFabricantesClient_Intf in '..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas',
|
||||
schFabricantesServer_Intf in '..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas',
|
||||
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
|
||||
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas';
|
||||
|
||||
{$R *.res}
|
||||
{$R ..\Servicios\RODLFile.res}
|
||||
|
||||
@ -42,9 +42,6 @@
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD10.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
@ -116,6 +113,12 @@
|
||||
<Form>srvContactos</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
|
||||
<Form>srvFabricantes</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
|
||||
|
||||
Loading…
Reference in New Issue
Block a user