Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Contactos: rectificación en modelo.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@276 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-02-18 16:23:04 +00:00
parent 313af74b47
commit 295dcd02f6
1 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
View File

@ -3,7 +3,7 @@ unit schContactosClient_Intf;
interface interface
uses uses
Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
@ -602,7 +602,7 @@ type
end; end;
{ TContactosDataTableRules } { TContactosDataTableRules }
TContactosDataTableRules = class(TDADataTableRules, IContactos) TContactosDataTableRules = class(TIntfObjectDADataTableRules, IContactos)
private private
f_NOTAS: IROStrings; f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject); procedure NOTAS_OnChange(Sender: TObject);
@ -776,7 +776,7 @@ type
end; end;
{ TGruposClienteDataTableRules } { TGruposClienteDataTableRules }
TGruposClienteDataTableRules = class(TDADataTableRules, IGruposCliente) TGruposClienteDataTableRules = class(TIntfObjectDADataTableRules, IGruposCliente)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -865,7 +865,7 @@ type
end; end;
{ TDatosBancariosDataTableRules } { TDatosBancariosDataTableRules }
TDatosBancariosDataTableRules = class(TDADataTableRules, IDatosBancarios) TDatosBancariosDataTableRules = class(TIntfObjectDADataTableRules, IDatosBancarios)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -1151,7 +1151,7 @@ type
end; end;
{ TClientesDataTableRules } { TClientesDataTableRules }
TClientesDataTableRules = class(TDADataTableRules, IClientes) TClientesDataTableRules = class(TIntfObjectDADataTableRules, IClientes)
private private
f_NOTAS: IROStrings; f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject); procedure NOTAS_OnChange(Sender: TObject);
@ -1582,7 +1582,7 @@ type
end; end;
{ TProveedoresDataTableRules } { TProveedoresDataTableRules }
TProveedoresDataTableRules = class(TDADataTableRules, IProveedores) TProveedoresDataTableRules = class(TIntfObjectDADataTableRules, IProveedores)
private private
f_NOTAS: IROStrings; f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject); procedure NOTAS_OnChange(Sender: TObject);
@ -1991,7 +1991,7 @@ type
end; end;
{ TEmpleadosDataTableRules } { TEmpleadosDataTableRules }
TEmpleadosDataTableRules = class(TDADataTableRules, IEmpleados) TEmpleadosDataTableRules = class(TIntfObjectDADataTableRules, IEmpleados)
private private
f_NOTAS: IROStrings; f_NOTAS: IROStrings;
f_FORMACION_BASE: IROStrings; f_FORMACION_BASE: IROStrings;
@ -2306,7 +2306,7 @@ type
end; end;
{ TDireccionesContactoDataTableRules } { TDireccionesContactoDataTableRules }
TDireccionesContactoDataTableRules = class(TDADataTableRules, IDireccionesContacto) TDireccionesContactoDataTableRules = class(TIntfObjectDADataTableRules, IDireccionesContacto)
private private
f_NOTAS: IROStrings; f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject); procedure NOTAS_OnChange(Sender: TObject);
@ -2456,7 +2456,7 @@ type
end; end;
{ TClientesDescuentosDataTableRules } { TClientesDescuentosDataTableRules }
TClientesDescuentosDataTableRules = class(TDADataTableRules, IClientesDescuentos) TClientesDescuentosDataTableRules = class(TIntfObjectDADataTableRules, IClientesDescuentos)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -2521,7 +2521,7 @@ type
end; end;
{ TGruposProveedorDataTableRules } { TGruposProveedorDataTableRules }
TGruposProveedorDataTableRules = class(TDADataTableRules, IGruposProveedor) TGruposProveedorDataTableRules = class(TIntfObjectDADataTableRules, IGruposProveedor)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -2568,7 +2568,7 @@ type
end; end;
{ TGruposEmpleadoDataTableRules } { TGruposEmpleadoDataTableRules }
TGruposEmpleadoDataTableRules = class(TDADataTableRules, IGruposEmpleado) TGruposEmpleadoDataTableRules = class(TIntfObjectDADataTableRules, IGruposEmpleado)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -2728,7 +2728,7 @@ type
end; end;
{ TContactos_RefreshDataTableRules } { TContactos_RefreshDataTableRules }
TContactos_RefreshDataTableRules = class(TDADataTableRules, IContactos_Refresh) TContactos_RefreshDataTableRules = class(TIntfObjectDADataTableRules, IContactos_Refresh)
private private
f_NOTAS: IROStrings; f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject); procedure NOTAS_OnChange(Sender: TObject);
@ -2884,7 +2884,7 @@ type
end; end;
{ TContratosEmpleadosDataTableRules } { TContratosEmpleadosDataTableRules }
TContratosEmpleadosDataTableRules = class(TDADataTableRules, IContratosEmpleados) TContratosEmpleadosDataTableRules = class(TIntfObjectDADataTableRules, IContratosEmpleados)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -2919,7 +2919,7 @@ type
end; end;
{ TDescripcionesProveedoresDataTableRules } { TDescripcionesProveedoresDataTableRules }
TDescripcionesProveedoresDataTableRules = class(TDADataTableRules, IDescripcionesProveedores) TDescripcionesProveedoresDataTableRules = class(TIntfObjectDADataTableRules, IDescripcionesProveedores)
private private
protected protected
{ Property getters and setters } { Property getters and setters }