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

Se arregla refresco de contactos en la parte servidora para cuando añaden un cliente o proveedor no se duplique el elemento insertado falseando asi la informacion.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@999 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2010-06-09 18:22:44 +00:00
parent a0d7ae06a1
commit 625fc8c174
15 changed files with 230 additions and 190 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
Source/ApplicationBase/Empresas/Data/uDataModuleEmpresas.dfm
View File

@ -182,23 +182,31 @@ inherited DataModuleEmpresas: TDataModuleEmpresas
end end
item item
Name = 'PARAM_TIEMPO' Name = 'PARAM_TIEMPO'
DataType = datCurrency DataType = datFloat
DictionaryEntry = 'Empresas_PARAM_TIEMPO'
end end
item item
Name = 'PARAM_MARGEN' Name = 'PARAM_MARGEN'
DataType = datCurrency DataType = datFloat
DictionaryEntry = 'Empresas_PARAM_MARGEN'
end end
item item
Name = 'ID_TIPO_IVA' Name = 'ID_TIPO_IVA'
DataType = datSmallInt DataType = datSmallInt
DisplayLabel = 'Empresas_ID_TIPO_IVA'
DictionaryEntry = 'Empresas_ID_TIPO_IVA'
end end
item item
Name = 'ID_FORMA_PAGO' Name = 'ID_FORMA_PAGO'
DataType = datSmallInt DataType = datSmallInt
DisplayLabel = 'Empresas_ID_FORMA_PAGO'
DictionaryEntry = 'Empresas_ID_FORMA_PAGO'
end end
item item
Name = 'ID_ALMACEN' Name = 'ID_ALMACEN'
DataType = datSmallInt DataType = datSmallInt
DisplayLabel = 'Empresas_ID_ALMACEN'
DictionaryEntry = 'Empresas_ID_ALMACEN'
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

54
Source/ApplicationBase/Empresas/Model/schEmpresasClient_Intf.pas
View File

@ -3,14 +3,14 @@ unit schEmpresasClient_Intf;
interface interface
uses uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_Empresas = '{85F3347F-FE10-4BF0-AE37-0004F98A0C9B}'; RID_Empresas = '{88621D33-852A-4B38-8FFB-0894C98719CA}';
RID_EmpresasDatosBanco = '{136900A4-D1E4-4EB2-971E-48636C5033E5}'; RID_EmpresasDatosBanco = '{E2ABA941-53D7-41CD-9755-CCBD66A72247}';
{ Data table names } { Data table names }
nme_Empresas = 'Empresas'; nme_Empresas = 'Empresas';
@ -103,7 +103,7 @@ const
type type
{ IEmpresas } { IEmpresas }
IEmpresas = interface(IDAStronglyTypedDataTable) IEmpresas = interface(IDAStronglyTypedDataTable)
['{C3E9B00D-726C-44B6-BB08-7F12DA6AB6AF}'] ['{50BEAD2C-AEF9-4858-AF21-E427E1B39CC6}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -191,12 +191,12 @@ type
procedure SetREGISTRO_MERCANTILValue(const aValue: String); procedure SetREGISTRO_MERCANTILValue(const aValue: String);
function GetREGISTRO_MERCANTILIsNull: Boolean; function GetREGISTRO_MERCANTILIsNull: Boolean;
procedure SetREGISTRO_MERCANTILIsNull(const aValue: Boolean); procedure SetREGISTRO_MERCANTILIsNull(const aValue: Boolean);
function GetPARAM_TIEMPOValue: Currency; function GetPARAM_TIEMPOValue: Float;
procedure SetPARAM_TIEMPOValue(const aValue: Currency); procedure SetPARAM_TIEMPOValue(const aValue: Float);
function GetPARAM_TIEMPOIsNull: Boolean; function GetPARAM_TIEMPOIsNull: Boolean;
procedure SetPARAM_TIEMPOIsNull(const aValue: Boolean); procedure SetPARAM_TIEMPOIsNull(const aValue: Boolean);
function GetPARAM_MARGENValue: Currency; function GetPARAM_MARGENValue: Float;
procedure SetPARAM_MARGENValue(const aValue: Currency); procedure SetPARAM_MARGENValue(const aValue: Float);
function GetPARAM_MARGENIsNull: Boolean; function GetPARAM_MARGENIsNull: Boolean;
procedure SetPARAM_MARGENIsNull(const aValue: Boolean); procedure SetPARAM_MARGENIsNull(const aValue: Boolean);
function GetID_TIPO_IVAValue: SmallInt; function GetID_TIPO_IVAValue: SmallInt;
@ -258,9 +258,9 @@ type
property LOGOTIPOIsNull: Boolean read GetLOGOTIPOIsNull write SetLOGOTIPOIsNull; property LOGOTIPOIsNull: Boolean read GetLOGOTIPOIsNull write SetLOGOTIPOIsNull;
property REGISTRO_MERCANTIL: String read GetREGISTRO_MERCANTILValue write SetREGISTRO_MERCANTILValue; property REGISTRO_MERCANTIL: String read GetREGISTRO_MERCANTILValue write SetREGISTRO_MERCANTILValue;
property REGISTRO_MERCANTILIsNull: Boolean read GetREGISTRO_MERCANTILIsNull write SetREGISTRO_MERCANTILIsNull; property REGISTRO_MERCANTILIsNull: Boolean read GetREGISTRO_MERCANTILIsNull write SetREGISTRO_MERCANTILIsNull;
property PARAM_TIEMPO: Currency read GetPARAM_TIEMPOValue write SetPARAM_TIEMPOValue; property PARAM_TIEMPO: Float read GetPARAM_TIEMPOValue write SetPARAM_TIEMPOValue;
property PARAM_TIEMPOIsNull: Boolean read GetPARAM_TIEMPOIsNull write SetPARAM_TIEMPOIsNull; property PARAM_TIEMPOIsNull: Boolean read GetPARAM_TIEMPOIsNull write SetPARAM_TIEMPOIsNull;
property PARAM_MARGEN: Currency read GetPARAM_MARGENValue write SetPARAM_MARGENValue; property PARAM_MARGEN: Float read GetPARAM_MARGENValue write SetPARAM_MARGENValue;
property PARAM_MARGENIsNull: Boolean read GetPARAM_MARGENIsNull write SetPARAM_MARGENIsNull; property PARAM_MARGENIsNull: Boolean read GetPARAM_MARGENIsNull write SetPARAM_MARGENIsNull;
property ID_TIPO_IVA: SmallInt read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue; property ID_TIPO_IVA: SmallInt read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
property ID_TIPO_IVAIsNull: Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull; property ID_TIPO_IVAIsNull: Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull;
@ -271,7 +271,7 @@ type
end; end;
{ TEmpresasDataTableRules } { TEmpresasDataTableRules }
TEmpresasDataTableRules = class(TIntfObjectDADataTableRules, IEmpresas) TEmpresasDataTableRules = class(TDADataTableRules, IEmpresas)
private private
f_NOTAS: IROStrings; f_NOTAS: IROStrings;
f_LOGOTIPO: IROStream; f_LOGOTIPO: IROStream;
@ -365,12 +365,12 @@ type
procedure SetREGISTRO_MERCANTILValue(const aValue: String); virtual; procedure SetREGISTRO_MERCANTILValue(const aValue: String); virtual;
function GetREGISTRO_MERCANTILIsNull: Boolean; virtual; function GetREGISTRO_MERCANTILIsNull: Boolean; virtual;
procedure SetREGISTRO_MERCANTILIsNull(const aValue: Boolean); virtual; procedure SetREGISTRO_MERCANTILIsNull(const aValue: Boolean); virtual;
function GetPARAM_TIEMPOValue: Currency; virtual; function GetPARAM_TIEMPOValue: Float; virtual;
procedure SetPARAM_TIEMPOValue(const aValue: Currency); virtual; procedure SetPARAM_TIEMPOValue(const aValue: Float); virtual;
function GetPARAM_TIEMPOIsNull: Boolean; virtual; function GetPARAM_TIEMPOIsNull: Boolean; virtual;
procedure SetPARAM_TIEMPOIsNull(const aValue: Boolean); virtual; procedure SetPARAM_TIEMPOIsNull(const aValue: Boolean); virtual;
function GetPARAM_MARGENValue: Currency; virtual; function GetPARAM_MARGENValue: Float; virtual;
procedure SetPARAM_MARGENValue(const aValue: Currency); virtual; procedure SetPARAM_MARGENValue(const aValue: Float); virtual;
function GetPARAM_MARGENIsNull: Boolean; virtual; function GetPARAM_MARGENIsNull: Boolean; virtual;
procedure SetPARAM_MARGENIsNull(const aValue: Boolean); virtual; procedure SetPARAM_MARGENIsNull(const aValue: Boolean); virtual;
function GetID_TIPO_IVAValue: SmallInt; virtual; function GetID_TIPO_IVAValue: SmallInt; virtual;
@ -431,9 +431,9 @@ type
property LOGOTIPOIsNull: Boolean read GetLOGOTIPOIsNull write SetLOGOTIPOIsNull; property LOGOTIPOIsNull: Boolean read GetLOGOTIPOIsNull write SetLOGOTIPOIsNull;
property REGISTRO_MERCANTIL: String read GetREGISTRO_MERCANTILValue write SetREGISTRO_MERCANTILValue; property REGISTRO_MERCANTIL: String read GetREGISTRO_MERCANTILValue write SetREGISTRO_MERCANTILValue;
property REGISTRO_MERCANTILIsNull: Boolean read GetREGISTRO_MERCANTILIsNull write SetREGISTRO_MERCANTILIsNull; property REGISTRO_MERCANTILIsNull: Boolean read GetREGISTRO_MERCANTILIsNull write SetREGISTRO_MERCANTILIsNull;
property PARAM_TIEMPO: Currency read GetPARAM_TIEMPOValue write SetPARAM_TIEMPOValue; property PARAM_TIEMPO: Float read GetPARAM_TIEMPOValue write SetPARAM_TIEMPOValue;
property PARAM_TIEMPOIsNull: Boolean read GetPARAM_TIEMPOIsNull write SetPARAM_TIEMPOIsNull; property PARAM_TIEMPOIsNull: Boolean read GetPARAM_TIEMPOIsNull write SetPARAM_TIEMPOIsNull;
property PARAM_MARGEN: Currency read GetPARAM_MARGENValue write SetPARAM_MARGENValue; property PARAM_MARGEN: Float read GetPARAM_MARGENValue write SetPARAM_MARGENValue;
property PARAM_MARGENIsNull: Boolean read GetPARAM_MARGENIsNull write SetPARAM_MARGENIsNull; property PARAM_MARGENIsNull: Boolean read GetPARAM_MARGENIsNull write SetPARAM_MARGENIsNull;
property ID_TIPO_IVA: SmallInt read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue; property ID_TIPO_IVA: SmallInt read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
property ID_TIPO_IVAIsNull: Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull; property ID_TIPO_IVAIsNull: Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull;
@ -450,7 +450,7 @@ type
{ IEmpresasDatosBanco } { IEmpresasDatosBanco }
IEmpresasDatosBanco = interface(IDAStronglyTypedDataTable) IEmpresasDatosBanco = interface(IDAStronglyTypedDataTable)
['{F703B8E7-3A99-4097-BC8F-9F10A4D3D4F3}'] ['{092FC338-3912-4550-982D-89A97A0ACFDD}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -524,7 +524,7 @@ type
end; end;
{ TEmpresasDatosBancoDataTableRules } { TEmpresasDatosBancoDataTableRules }
TEmpresasDatosBancoDataTableRules = class(TIntfObjectDADataTableRules, IEmpresasDatosBanco) TEmpresasDatosBancoDataTableRules = class(TDADataTableRules, IEmpresasDatosBanco)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -1097,14 +1097,14 @@ begin
DataTable.Fields[idx_EmpresasREGISTRO_MERCANTIL].AsVariant := Null; DataTable.Fields[idx_EmpresasREGISTRO_MERCANTIL].AsVariant := Null;
end; end;
function TEmpresasDataTableRules.GetPARAM_TIEMPOValue: Currency; function TEmpresasDataTableRules.GetPARAM_TIEMPOValue: Float;
begin begin
result := DataTable.Fields[idx_EmpresasPARAM_TIEMPO].AsCurrency; result := DataTable.Fields[idx_EmpresasPARAM_TIEMPO].AsFloat;
end; end;
procedure TEmpresasDataTableRules.SetPARAM_TIEMPOValue(const aValue: Currency); procedure TEmpresasDataTableRules.SetPARAM_TIEMPOValue(const aValue: Float);
begin begin
DataTable.Fields[idx_EmpresasPARAM_TIEMPO].AsCurrency := aValue; DataTable.Fields[idx_EmpresasPARAM_TIEMPO].AsFloat := aValue;
end; end;
function TEmpresasDataTableRules.GetPARAM_TIEMPOIsNull: boolean; function TEmpresasDataTableRules.GetPARAM_TIEMPOIsNull: boolean;
@ -1118,14 +1118,14 @@ begin
DataTable.Fields[idx_EmpresasPARAM_TIEMPO].AsVariant := Null; DataTable.Fields[idx_EmpresasPARAM_TIEMPO].AsVariant := Null;
end; end;
function TEmpresasDataTableRules.GetPARAM_MARGENValue: Currency; function TEmpresasDataTableRules.GetPARAM_MARGENValue: Float;
begin begin
result := DataTable.Fields[idx_EmpresasPARAM_MARGEN].AsCurrency; result := DataTable.Fields[idx_EmpresasPARAM_MARGEN].AsFloat;
end; end;
procedure TEmpresasDataTableRules.SetPARAM_MARGENValue(const aValue: Currency); procedure TEmpresasDataTableRules.SetPARAM_MARGENValue(const aValue: Float);
begin begin
DataTable.Fields[idx_EmpresasPARAM_MARGEN].AsCurrency := aValue; DataTable.Fields[idx_EmpresasPARAM_MARGEN].AsFloat := aValue;
end; end;
function TEmpresasDataTableRules.GetPARAM_MARGENIsNull: boolean; function TEmpresasDataTableRules.GetPARAM_MARGENIsNull: boolean;

48
Source/ApplicationBase/Empresas/Model/schEmpresasServer_Intf.pas
View File

@ -9,13 +9,13 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_EmpresasDelta = '{73622B14-9061-4F32-977D-AFE85BFD7278}'; RID_EmpresasDelta = '{43119B6A-7006-4045-B378-1516B8CA32E1}';
RID_EmpresasDatosBancoDelta = '{DB55B5DC-17DD-4A0B-A1AE-62E00F888F38}'; RID_EmpresasDatosBancoDelta = '{A79108BB-E362-4338-9188-6D5683DCE289}';
type type
{ IEmpresasDelta } { IEmpresasDelta }
IEmpresasDelta = interface(IEmpresas) IEmpresasDelta = interface(IEmpresas)
['{73622B14-9061-4F32-977D-AFE85BFD7278}'] ['{43119B6A-7006-4045-B378-1516B8CA32E1}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldNIF_CIFValue : String; function GetOldNIF_CIFValue : String;
@ -39,8 +39,8 @@ type
function GetOldUSUARIOValue : String; function GetOldUSUARIOValue : String;
function GetOldLOGOTIPOValue : IROStream; function GetOldLOGOTIPOValue : IROStream;
function GetOldREGISTRO_MERCANTILValue : String; function GetOldREGISTRO_MERCANTILValue : String;
function GetOldPARAM_TIEMPOValue : Currency; function GetOldPARAM_TIEMPOValue : Float;
function GetOldPARAM_MARGENValue : Currency; function GetOldPARAM_MARGENValue : Float;
function GetOldID_TIPO_IVAValue : SmallInt; function GetOldID_TIPO_IVAValue : SmallInt;
function GetOldID_FORMA_PAGOValue : SmallInt; function GetOldID_FORMA_PAGOValue : SmallInt;
function GetOldID_ALMACENValue : SmallInt; function GetOldID_ALMACENValue : SmallInt;
@ -68,8 +68,8 @@ type
property OldUSUARIO : String read GetOldUSUARIOValue; property OldUSUARIO : String read GetOldUSUARIOValue;
property OldLOGOTIPO : IROStream read GetOldLOGOTIPOValue; property OldLOGOTIPO : IROStream read GetOldLOGOTIPOValue;
property OldREGISTRO_MERCANTIL : String read GetOldREGISTRO_MERCANTILValue; property OldREGISTRO_MERCANTIL : String read GetOldREGISTRO_MERCANTILValue;
property OldPARAM_TIEMPO : Currency read GetOldPARAM_TIEMPOValue; property OldPARAM_TIEMPO : Float read GetOldPARAM_TIEMPOValue;
property OldPARAM_MARGEN : Currency read GetOldPARAM_MARGENValue; property OldPARAM_MARGEN : Float read GetOldPARAM_MARGENValue;
property OldID_TIPO_IVA : SmallInt read GetOldID_TIPO_IVAValue; property OldID_TIPO_IVA : SmallInt read GetOldID_TIPO_IVAValue;
property OldID_FORMA_PAGO : SmallInt read GetOldID_FORMA_PAGOValue; property OldID_FORMA_PAGO : SmallInt read GetOldID_FORMA_PAGOValue;
property OldID_ALMACEN : SmallInt read GetOldID_ALMACENValue; property OldID_ALMACEN : SmallInt read GetOldID_ALMACENValue;
@ -214,17 +214,17 @@ type
function GetOldREGISTRO_MERCANTILIsNull: Boolean; virtual; function GetOldREGISTRO_MERCANTILIsNull: Boolean; virtual;
procedure SetREGISTRO_MERCANTILValue(const aValue: String); virtual; procedure SetREGISTRO_MERCANTILValue(const aValue: String); virtual;
procedure SetREGISTRO_MERCANTILIsNull(const aValue: Boolean); virtual; procedure SetREGISTRO_MERCANTILIsNull(const aValue: Boolean); virtual;
function GetPARAM_TIEMPOValue: Currency; virtual; function GetPARAM_TIEMPOValue: Float; virtual;
function GetPARAM_TIEMPOIsNull: Boolean; virtual; function GetPARAM_TIEMPOIsNull: Boolean; virtual;
function GetOldPARAM_TIEMPOValue: Currency; virtual; function GetOldPARAM_TIEMPOValue: Float; virtual;
function GetOldPARAM_TIEMPOIsNull: Boolean; virtual; function GetOldPARAM_TIEMPOIsNull: Boolean; virtual;
procedure SetPARAM_TIEMPOValue(const aValue: Currency); virtual; procedure SetPARAM_TIEMPOValue(const aValue: Float); virtual;
procedure SetPARAM_TIEMPOIsNull(const aValue: Boolean); virtual; procedure SetPARAM_TIEMPOIsNull(const aValue: Boolean); virtual;
function GetPARAM_MARGENValue: Currency; virtual; function GetPARAM_MARGENValue: Float; virtual;
function GetPARAM_MARGENIsNull: Boolean; virtual; function GetPARAM_MARGENIsNull: Boolean; virtual;
function GetOldPARAM_MARGENValue: Currency; virtual; function GetOldPARAM_MARGENValue: Float; virtual;
function GetOldPARAM_MARGENIsNull: Boolean; virtual; function GetOldPARAM_MARGENIsNull: Boolean; virtual;
procedure SetPARAM_MARGENValue(const aValue: Currency); virtual; procedure SetPARAM_MARGENValue(const aValue: Float); virtual;
procedure SetPARAM_MARGENIsNull(const aValue: Boolean); virtual; procedure SetPARAM_MARGENIsNull(const aValue: Boolean); virtual;
function GetID_TIPO_IVAValue: SmallInt; virtual; function GetID_TIPO_IVAValue: SmallInt; virtual;
function GetID_TIPO_IVAIsNull: Boolean; virtual; function GetID_TIPO_IVAIsNull: Boolean; virtual;
@ -334,13 +334,13 @@ type
property REGISTRO_MERCANTILIsNull : Boolean read GetREGISTRO_MERCANTILIsNull write SetREGISTRO_MERCANTILIsNull; property REGISTRO_MERCANTILIsNull : Boolean read GetREGISTRO_MERCANTILIsNull write SetREGISTRO_MERCANTILIsNull;
property OldREGISTRO_MERCANTIL : String read GetOldREGISTRO_MERCANTILValue; property OldREGISTRO_MERCANTIL : String read GetOldREGISTRO_MERCANTILValue;
property OldREGISTRO_MERCANTILIsNull : Boolean read GetOldREGISTRO_MERCANTILIsNull; property OldREGISTRO_MERCANTILIsNull : Boolean read GetOldREGISTRO_MERCANTILIsNull;
property PARAM_TIEMPO : Currency read GetPARAM_TIEMPOValue write SetPARAM_TIEMPOValue; property PARAM_TIEMPO : Float read GetPARAM_TIEMPOValue write SetPARAM_TIEMPOValue;
property PARAM_TIEMPOIsNull : Boolean read GetPARAM_TIEMPOIsNull write SetPARAM_TIEMPOIsNull; property PARAM_TIEMPOIsNull : Boolean read GetPARAM_TIEMPOIsNull write SetPARAM_TIEMPOIsNull;
property OldPARAM_TIEMPO : Currency read GetOldPARAM_TIEMPOValue; property OldPARAM_TIEMPO : Float read GetOldPARAM_TIEMPOValue;
property OldPARAM_TIEMPOIsNull : Boolean read GetOldPARAM_TIEMPOIsNull; property OldPARAM_TIEMPOIsNull : Boolean read GetOldPARAM_TIEMPOIsNull;
property PARAM_MARGEN : Currency read GetPARAM_MARGENValue write SetPARAM_MARGENValue; property PARAM_MARGEN : Float read GetPARAM_MARGENValue write SetPARAM_MARGENValue;
property PARAM_MARGENIsNull : Boolean read GetPARAM_MARGENIsNull write SetPARAM_MARGENIsNull; property PARAM_MARGENIsNull : Boolean read GetPARAM_MARGENIsNull write SetPARAM_MARGENIsNull;
property OldPARAM_MARGEN : Currency read GetOldPARAM_MARGENValue; property OldPARAM_MARGEN : Float read GetOldPARAM_MARGENValue;
property OldPARAM_MARGENIsNull : Boolean read GetOldPARAM_MARGENIsNull; property OldPARAM_MARGENIsNull : Boolean read GetOldPARAM_MARGENIsNull;
property ID_TIPO_IVA : SmallInt read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue; property ID_TIPO_IVA : SmallInt read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
property ID_TIPO_IVAIsNull : Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull; property ID_TIPO_IVAIsNull : Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull;
@ -363,7 +363,7 @@ type
{ IEmpresasDatosBancoDelta } { IEmpresasDatosBancoDelta }
IEmpresasDatosBancoDelta = interface(IEmpresasDatosBanco) IEmpresasDatosBancoDelta = interface(IEmpresasDatosBanco)
['{DB55B5DC-17DD-4A0B-A1AE-62E00F888F38}'] ['{A79108BB-E362-4338-9188-6D5683DCE289}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -1232,7 +1232,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasREGISTRO_MERCANTIL] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasREGISTRO_MERCANTIL] := Null;
end; end;
function TEmpresasBusinessProcessorRules.GetPARAM_TIEMPOValue: Currency; function TEmpresasBusinessProcessorRules.GetPARAM_TIEMPOValue: Float;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasPARAM_TIEMPO]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasPARAM_TIEMPO];
end; end;
@ -1242,7 +1242,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasPARAM_TIEMPO]); result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasPARAM_TIEMPO]);
end; end;
function TEmpresasBusinessProcessorRules.GetOldPARAM_TIEMPOValue: Currency; function TEmpresasBusinessProcessorRules.GetOldPARAM_TIEMPOValue: Float;
begin begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasPARAM_TIEMPO]; result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasPARAM_TIEMPO];
end; end;
@ -1252,7 +1252,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasPARAM_TIEMPO]); result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasPARAM_TIEMPO]);
end; end;
procedure TEmpresasBusinessProcessorRules.SetPARAM_TIEMPOValue(const aValue: Currency); procedure TEmpresasBusinessProcessorRules.SetPARAM_TIEMPOValue(const aValue: Float);
begin begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasPARAM_TIEMPO] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasPARAM_TIEMPO] := aValue;
end; end;
@ -1263,7 +1263,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasPARAM_TIEMPO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasPARAM_TIEMPO] := Null;
end; end;
function TEmpresasBusinessProcessorRules.GetPARAM_MARGENValue: Currency; function TEmpresasBusinessProcessorRules.GetPARAM_MARGENValue: Float;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasPARAM_MARGEN]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasPARAM_MARGEN];
end; end;
@ -1273,7 +1273,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasPARAM_MARGEN]); result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasPARAM_MARGEN]);
end; end;
function TEmpresasBusinessProcessorRules.GetOldPARAM_MARGENValue: Currency; function TEmpresasBusinessProcessorRules.GetOldPARAM_MARGENValue: Float;
begin begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasPARAM_MARGEN]; result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasPARAM_MARGEN];
end; end;
@ -1283,7 +1283,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasPARAM_MARGEN]); result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasPARAM_MARGEN]);
end; end;
procedure TEmpresasBusinessProcessorRules.SetPARAM_MARGENValue(const aValue: Currency); procedure TEmpresasBusinessProcessorRules.SetPARAM_MARGENValue(const aValue: Float);
begin begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasPARAM_MARGEN] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasPARAM_MARGEN] := aValue;
end; end;

31
Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.dfm
View File

@ -269,23 +269,28 @@ object srvEmpresas: TsrvEmpresas
end end
item item
Name = 'PARAM_TIEMPO' Name = 'PARAM_TIEMPO'
DataType = datCurrency DataType = datFloat
DictionaryEntry = 'Empresas_PARAM_TIEMPO'
end end
item item
Name = 'PARAM_MARGEN' Name = 'PARAM_MARGEN'
DataType = datCurrency DataType = datFloat
DictionaryEntry = 'Empresas_PARAM_MARGEN'
end end
item item
Name = 'ID_TIPO_IVA' Name = 'ID_TIPO_IVA'
DataType = datSmallInt DataType = datSmallInt
DictionaryEntry = 'Empresas_ID_TIPO_IVA'
end end
item item
Name = 'ID_FORMA_PAGO' Name = 'ID_FORMA_PAGO'
DataType = datSmallInt DataType = datSmallInt
DictionaryEntry = 'Empresas_ID_FORMA_PAGO'
end end
item item
Name = 'ID_ALMACEN' Name = 'ID_ALMACEN'
DataType = datSmallInt DataType = datSmallInt
DictionaryEntry = 'Empresas_ID_ALMACEN'
end> end>
end end
item item
@ -688,6 +693,28 @@ object srvEmpresas: TsrvEmpresas
Required = True Required = True
DisplayLabel = 'ID' DisplayLabel = 'ID'
ServerAutoRefresh = True ServerAutoRefresh = True
end
item
Name = 'Empresas_PARAM_TIEMPO'
DataType = datFloat
DisplayLabel = 'PARAM_TIEMPO'
end
item
Name = 'Empresas_PARAM_MARGEN'
DataType = datFloat
DisplayLabel = 'PARAM_MARGEN'
end
item
Name = 'Empresas_ID_TIPO_IVA'
DataType = datSmallInt
end
item
Name = 'Empresas_ID_FORMA_PAGO'
DataType = datSmallInt
end
item
Name = 'Empresas_ID_ALMACEN'
DataType = datSmallInt
end> end>
Left = 158 Left = 158
Top = 22 Top = 22

102
Source/Base/Base.dproj
View File

@ -54,58 +54,58 @@
<DelphiCompile Include="Base.dpk"> <DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Referencias\adortl.dcp" />
<DCCReference Include="..\Modulos\Referencias\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Referencias\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Referencias\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Referencias\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Referencias\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Referencias\cxIntl6D11.dcp" />
<DCCReference Include="..\Modulos\Referencias\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\Modulos\Referencias\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Referencias\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Referencias\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Referencias\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Referencias\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Referencias\designide.dcp" />
<DCCReference Include="..\Modulos\Referencias\dsnap.dcp" />
<DCCReference Include="..\Modulos\Referencias\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Referencias\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Referencias\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Referencias\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Referencias\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Referencias\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Referencias\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Referencias\Jcl.dcp" />
<DCCReference Include="..\Modulos\Referencias\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Referencias\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Referencias\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Referencias\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Referencias\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Referencias\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Referencias\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Referencias\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Referencias\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Referencias\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Referencias\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Referencias\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Referencias\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Referencias\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Referencias\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Referencias\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Referencias\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Referencias\RemObjects_Indy_D11.dcp" />
<DCCReference Include="..\Modulos\Referencias\rtl.dcp" />
<DCCReference Include="..\Modulos\Referencias\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Referencias\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Referencias\vcl.dcp" />
<DCCReference Include="..\Modulos\Referencias\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Referencias\vcldb.dcp" />
<DCCReference Include="..\Modulos\Referencias\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Referencias\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Referencias\vclx.dcp" />
<DCCReference Include="..\Modulos\Referencias\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxIntl6D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Indy_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\TB2k_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
<DCCReference Include="Conexion\uConfigurarConexion.pas"> <DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form> <Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>

BIN
Source/Base/Base.res
View File

Binary file not shown.

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Factuges.ico" MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Factuges.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 1,8,0,0 FILEVERSION 1,8,1,0
PRODUCTVERSION 1,8,0,0 PRODUCTVERSION 1,8,1,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "1.8.0.0\0" VALUE "FileVersion", "1.8.1.0\0"
VALUE "InternalName", "FactuGES\0" VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0" VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "1.8.0.0\0" VALUE "ProductVersion", "1.8.1.0\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

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

@ -3,26 +3,26 @@ unit schContactosClient_Intf;
interface interface
uses uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_Contactos = '{C0F3C133-4B33-4386-8853-5C1CBDDC4381}'; RID_Contactos = '{91BD66C3-1FC5-4B41-BFF5-3F577239FFE1}';
RID_GruposCliente = '{9CE88C99-80A8-403D-B850-3CFE30ED393D}'; RID_GruposCliente = '{9BDD01CD-BD83-47C8-9AD6-6D8FBAE22ED6}';
RID_DatosBancarios = '{F8D4FF6B-189D-4D47-8A20-AD339C85B3E9}'; RID_DatosBancarios = '{CCA1EE4C-5929-48A3-9555-48E29B7DD572}';
RID_Clientes = '{BD11BF18-A1AD-429C-BC06-7BF3B26C0C5D}'; RID_Clientes = '{ED4F62A9-F376-489D-AEF4-EFF86539DBE5}';
RID_Proveedores = '{4B4C2BD8-EF05-4315-9CA5-C8E3EBD7D079}'; RID_Proveedores = '{48BB1210-E1B8-4709-9C03-B67A5BD05555}';
RID_Empleados = '{26E7320B-E2CF-45FB-808C-7A8EA9370AC1}'; RID_Empleados = '{C2B52AD4-5128-4209-8CFD-30F762CA1A70}';
RID_DireccionesContacto = '{DF8F36B7-5FA9-475F-82D3-4E01CF8E3A32}'; RID_DireccionesContacto = '{57598C48-2F54-4D1E-BC79-FDFBD7A17309}';
RID_ClientesDescuentos = '{417EE563-4846-45DF-89B1-F3B242BB8EA3}'; RID_ClientesDescuentos = '{ABB2FBD8-562E-4FBC-BC51-F39222C34ED1}';
RID_GruposProveedor = '{3FC380F7-61B7-466A-AEBB-5D9FB5D6FF33}'; RID_GruposProveedor = '{7A7DCFA2-55D3-441A-B027-DBC2E270E94F}';
RID_GruposEmpleado = '{D4F3440A-E9C3-4A34-A72D-15BB3B3EB07A}'; RID_GruposEmpleado = '{14B39DE3-DB7A-411D-8939-AFFE07E52994}';
RID_Contactos_Refresh = '{943C99BF-0AD0-41F7-B2DE-2ABCBCD2FB63}'; RID_Contactos_Refresh = '{CF38DB4D-A4E7-48E8-8B3E-A4E243063727}';
RID_ContratosEmpleados = '{79B74B0A-6A6F-4C32-BEAB-A1214049B702}'; RID_ContratosEmpleados = '{4B4ECE2D-339E-4F87-81E3-32FEAC58B727}';
RID_DescripcionesProveedores = '{017164B2-8D2B-404F-8962-C943B4502268}'; RID_DescripcionesProveedores = '{57409654-6895-4601-A43B-1EEC21E6A7AD}';
RID_PersonalContacto = '{1D351CFF-D5C9-444D-A55E-9B33C8D7ED97}'; RID_PersonalContacto = '{DDB07051-5354-4084-A7B2-0F17B7BE23D0}';
{ Data table names } { Data table names }
nme_Contactos = 'Contactos'; nme_Contactos = 'Contactos';
@ -501,7 +501,7 @@ const
type type
{ IContactos } { IContactos }
IContactos = interface(IDAStronglyTypedDataTable) IContactos = interface(IDAStronglyTypedDataTable)
['{C97BE809-CDC1-45DC-A200-6DB52EBC2EB6}'] ['{C5085E63-DBD8-48C6-AFF7-67F07615D040}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -646,7 +646,7 @@ type
end; end;
{ TContactosDataTableRules } { TContactosDataTableRules }
TContactosDataTableRules = class(TIntfObjectDADataTableRules, IContactos) TContactosDataTableRules = class(TDADataTableRules, IContactos)
private private
f_NOTAS: IROStrings; f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject); procedure NOTAS_OnChange(Sender: TObject);
@ -800,7 +800,7 @@ type
{ IGruposCliente } { IGruposCliente }
IGruposCliente = interface(IDAStronglyTypedDataTable) IGruposCliente = interface(IDAStronglyTypedDataTable)
['{07904A8B-36C2-4832-A77B-C8FF40A5009D}'] ['{FDEBCC24-A77C-45B4-99BA-C9548F695939}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -820,7 +820,7 @@ type
end; end;
{ TGruposClienteDataTableRules } { TGruposClienteDataTableRules }
TGruposClienteDataTableRules = class(TIntfObjectDADataTableRules, IGruposCliente) TGruposClienteDataTableRules = class(TDADataTableRules, IGruposCliente)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -847,7 +847,7 @@ type
{ IDatosBancarios } { IDatosBancarios }
IDatosBancarios = interface(IDAStronglyTypedDataTable) IDatosBancarios = interface(IDAStronglyTypedDataTable)
['{63B57F8B-86DE-420F-B48C-FB4B3B58958C}'] ['{E31D5317-4CD7-4535-9231-6BC1F36CBCC2}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -909,7 +909,7 @@ type
end; end;
{ TDatosBancariosDataTableRules } { TDatosBancariosDataTableRules }
TDatosBancariosDataTableRules = class(TIntfObjectDADataTableRules, IDatosBancarios) TDatosBancariosDataTableRules = class(TDADataTableRules, IDatosBancarios)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -978,7 +978,7 @@ type
{ IClientes } { IClientes }
IClientes = interface(IDAStronglyTypedDataTable) IClientes = interface(IDAStronglyTypedDataTable)
['{66563838-1A22-4AFE-9BB3-9788D074FB56}'] ['{D4C197F8-243E-46C4-ACC5-E1F1CA7A2B19}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1213,7 +1213,7 @@ type
end; end;
{ TClientesDataTableRules } { TClientesDataTableRules }
TClientesDataTableRules = class(TIntfObjectDADataTableRules, IClientes) TClientesDataTableRules = class(TDADataTableRules, IClientes)
private private
f_NOTAS: IROStrings; f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject); procedure NOTAS_OnChange(Sender: TObject);
@ -1457,7 +1457,7 @@ type
{ IProveedores } { IProveedores }
IProveedores = interface(IDAStronglyTypedDataTable) IProveedores = interface(IDAStronglyTypedDataTable)
['{BB9CEFC1-3669-441F-9275-84812796D171}'] ['{BFE5279B-5B45-490A-A5C0-4AFF6DB0405B}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1686,7 +1686,7 @@ type
end; end;
{ TProveedoresDataTableRules } { TProveedoresDataTableRules }
TProveedoresDataTableRules = class(TIntfObjectDADataTableRules, IProveedores) TProveedoresDataTableRules = class(TDADataTableRules, IProveedores)
private private
f_NOTAS: IROStrings; f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject); procedure NOTAS_OnChange(Sender: TObject);
@ -1924,7 +1924,7 @@ type
{ IEmpleados } { IEmpleados }
IEmpleados = interface(IDAStronglyTypedDataTable) IEmpleados = interface(IDAStronglyTypedDataTable)
['{6ED9C6C1-324B-4095-A2BC-5E2FB2B95E7B}'] ['{9283D681-D16D-4801-B1E7-5680B7DE24E1}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2131,7 +2131,7 @@ type
end; end;
{ TEmpleadosDataTableRules } { TEmpleadosDataTableRules }
TEmpleadosDataTableRules = class(TIntfObjectDADataTableRules, IEmpleados) TEmpleadosDataTableRules = class(TDADataTableRules, IEmpleados)
private private
f_NOTAS: IROStrings; f_NOTAS: IROStrings;
f_FORMACION_BASE: IROStrings; f_FORMACION_BASE: IROStrings;
@ -2355,7 +2355,7 @@ type
{ IDireccionesContacto } { IDireccionesContacto }
IDireccionesContacto = interface(IDAStronglyTypedDataTable) IDireccionesContacto = interface(IDAStronglyTypedDataTable)
['{9B97A0EF-E53E-4D87-AC0C-6DA85C2F761B}'] ['{6AF38491-1DB2-414A-91D7-CC095D28FA6D}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2458,7 +2458,7 @@ type
end; end;
{ TDireccionesContactoDataTableRules } { TDireccionesContactoDataTableRules }
TDireccionesContactoDataTableRules = class(TIntfObjectDADataTableRules, IDireccionesContacto) TDireccionesContactoDataTableRules = class(TDADataTableRules, IDireccionesContacto)
private private
f_NOTAS: IROStrings; f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject); procedure NOTAS_OnChange(Sender: TObject);
@ -2570,7 +2570,7 @@ type
{ IClientesDescuentos } { IClientesDescuentos }
IClientesDescuentos = interface(IDAStronglyTypedDataTable) IClientesDescuentos = interface(IDAStronglyTypedDataTable)
['{C8E59947-D16F-4E0C-8083-6E38976D3AEE}'] ['{4AA5CE18-35DB-4300-9ED4-331A887CE864}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2608,7 +2608,7 @@ type
end; end;
{ TClientesDescuentosDataTableRules } { TClientesDescuentosDataTableRules }
TClientesDescuentosDataTableRules = class(TIntfObjectDADataTableRules, IClientesDescuentos) TClientesDescuentosDataTableRules = class(TDADataTableRules, IClientesDescuentos)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -2653,7 +2653,7 @@ type
{ IGruposProveedor } { IGruposProveedor }
IGruposProveedor = interface(IDAStronglyTypedDataTable) IGruposProveedor = interface(IDAStronglyTypedDataTable)
['{282A2E8C-4215-4E53-B288-D0A1F06F1D88}'] ['{87338CE9-54B1-4773-8303-EA58DAF72943}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2673,7 +2673,7 @@ type
end; end;
{ TGruposProveedorDataTableRules } { TGruposProveedorDataTableRules }
TGruposProveedorDataTableRules = class(TIntfObjectDADataTableRules, IGruposProveedor) TGruposProveedorDataTableRules = class(TDADataTableRules, IGruposProveedor)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -2700,7 +2700,7 @@ type
{ IGruposEmpleado } { IGruposEmpleado }
IGruposEmpleado = interface(IDAStronglyTypedDataTable) IGruposEmpleado = interface(IDAStronglyTypedDataTable)
['{D776A77F-764B-41EF-A7DB-CE2CC3103899}'] ['{10F8F1C2-264B-4F90-BF92-E7C95B60CDAE}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2720,7 +2720,7 @@ type
end; end;
{ TGruposEmpleadoDataTableRules } { TGruposEmpleadoDataTableRules }
TGruposEmpleadoDataTableRules = class(TIntfObjectDADataTableRules, IGruposEmpleado) TGruposEmpleadoDataTableRules = class(TDADataTableRules, IGruposEmpleado)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -2747,7 +2747,7 @@ type
{ IContactos_Refresh } { IContactos_Refresh }
IContactos_Refresh = interface(IDAStronglyTypedDataTable) IContactos_Refresh = interface(IDAStronglyTypedDataTable)
['{4FC84341-3F8B-44B1-BC92-DD268A9B78E9}'] ['{8D106256-A4A6-4EFC-9B95-00E732F64CDD}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2880,7 +2880,7 @@ type
end; end;
{ TContactos_RefreshDataTableRules } { TContactos_RefreshDataTableRules }
TContactos_RefreshDataTableRules = class(TIntfObjectDADataTableRules, IContactos_Refresh) TContactos_RefreshDataTableRules = class(TDADataTableRules, IContactos_Refresh)
private private
f_NOTAS: IROStrings; f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject); procedure NOTAS_OnChange(Sender: TObject);
@ -3022,7 +3022,7 @@ type
{ IContratosEmpleados } { IContratosEmpleados }
IContratosEmpleados = interface(IDAStronglyTypedDataTable) IContratosEmpleados = interface(IDAStronglyTypedDataTable)
['{6C57D443-4524-4643-B586-BD52E3627E42}'] ['{CAB8E933-E3CA-45C3-BC64-E825B6A9CF9E}']
{ Property getters and setters } { Property getters and setters }
function GetCONTRATOValue: String; function GetCONTRATOValue: String;
procedure SetCONTRATOValue(const aValue: String); procedure SetCONTRATOValue(const aValue: String);
@ -3036,7 +3036,7 @@ type
end; end;
{ TContratosEmpleadosDataTableRules } { TContratosEmpleadosDataTableRules }
TContratosEmpleadosDataTableRules = class(TIntfObjectDADataTableRules, IContratosEmpleados) TContratosEmpleadosDataTableRules = class(TDADataTableRules, IContratosEmpleados)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -3057,7 +3057,7 @@ type
{ IDescripcionesProveedores } { IDescripcionesProveedores }
IDescripcionesProveedores = interface(IDAStronglyTypedDataTable) IDescripcionesProveedores = interface(IDAStronglyTypedDataTable)
['{5283DEB9-049A-401A-9CB7-B1CFA1CCAD9E}'] ['{0A691948-860C-439D-8E06-09FC51F537A4}']
{ Property getters and setters } { Property getters and setters }
function GetDESCRIPCION_PROVEEDORValue: String; function GetDESCRIPCION_PROVEEDORValue: String;
procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String); procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String);
@ -3071,7 +3071,7 @@ type
end; end;
{ TDescripcionesProveedoresDataTableRules } { TDescripcionesProveedoresDataTableRules }
TDescripcionesProveedoresDataTableRules = class(TIntfObjectDADataTableRules, IDescripcionesProveedores) TDescripcionesProveedoresDataTableRules = class(TDADataTableRules, IDescripcionesProveedores)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -3092,7 +3092,7 @@ type
{ IPersonalContacto } { IPersonalContacto }
IPersonalContacto = interface(IDAStronglyTypedDataTable) IPersonalContacto = interface(IDAStronglyTypedDataTable)
['{8F0EC704-5AB2-499D-8437-5068F50CEEF0}'] ['{4BF63909-FA4E-4769-97E2-FF0771DBDB4F}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -3160,7 +3160,7 @@ type
end; end;
{ TPersonalContactoDataTableRules } { TPersonalContactoDataTableRules }
TPersonalContactoDataTableRules = class(TIntfObjectDADataTableRules, IPersonalContacto) TPersonalContactoDataTableRules = class(TDADataTableRules, IPersonalContacto)
private private
protected protected
{ Property getters and setters } { Property getters and setters }

56
Source/Modulos/Contactos/Model/schContactosServer_Intf.pas
View File

@ -9,25 +9,25 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ContactosDelta = '{5D663643-B45F-42DF-B806-6054C92C256F}'; RID_ContactosDelta = '{783D6342-53F9-40DF-81AF-DE782DA8B75A}';
RID_GruposClienteDelta = '{A22E564C-9D18-40D7-AC06-2AE7A6719723}'; RID_GruposClienteDelta = '{F2CACBA5-7F04-4EDB-BC31-41E907B8EC26}';
RID_DatosBancariosDelta = '{D0E06730-72AE-48A3-AD77-BCC0557E09E3}'; RID_DatosBancariosDelta = '{4EB1B188-CBE1-460A-A774-BF8E36A6E757}';
RID_ClientesDelta = '{B591C54A-E5D0-4628-B3A5-E7362608E4E7}'; RID_ClientesDelta = '{CAE0D87E-5926-4DB8-9AA3-541AFDE940D3}';
RID_ProveedoresDelta = '{F0162520-4D44-4911-8B70-5FB15FE8098A}'; RID_ProveedoresDelta = '{FCE9CA4B-64BD-43E2-AF85-6C3388B64F14}';
RID_EmpleadosDelta = '{CD6CA1DF-ECE1-41E8-80D2-F3DB2CEECDBF}'; RID_EmpleadosDelta = '{18DB065A-0CFF-44C3-8221-283C5F804249}';
RID_DireccionesContactoDelta = '{19FE4B40-6CA1-4373-9C7A-E4037FB533E2}'; RID_DireccionesContactoDelta = '{43E64AF9-2F6C-4F2E-9933-0EB09313D982}';
RID_ClientesDescuentosDelta = '{283BCBC2-EE2C-4B22-B9A7-A8F1498F33DD}'; RID_ClientesDescuentosDelta = '{16AF7FE2-2AF0-4D98-ADA6-D29209C2A046}';
RID_GruposProveedorDelta = '{CEAE47D6-CA85-4726-B05B-C31C73DEAD0A}'; RID_GruposProveedorDelta = '{C607DA1D-70B8-4843-A46D-73691BCCF0FB}';
RID_GruposEmpleadoDelta = '{F9D415C5-F9FE-410D-AB3A-9B6090F0C373}'; RID_GruposEmpleadoDelta = '{F2AA8B32-A14B-4754-BD82-531770EF1BA0}';
RID_Contactos_RefreshDelta = '{5ACD3F74-2EF3-4596-AE9C-1FC05A27262C}'; RID_Contactos_RefreshDelta = '{0AD2BAF9-797E-49CD-A47C-4C50306595BF}';
RID_ContratosEmpleadosDelta = '{2710E74D-E05B-4D23-9E25-72BAA0DE2535}'; RID_ContratosEmpleadosDelta = '{67B25A55-49CA-436A-A1A1-C058981C54BA}';
RID_DescripcionesProveedoresDelta = '{30AA4ECE-FE1C-4A9A-94EC-F6C4075E80E3}'; RID_DescripcionesProveedoresDelta = '{4464B700-9CE4-4282-B765-52D43F0EA76D}';
RID_PersonalContactoDelta = '{995D0237-5EF5-4E5A-B44E-747F0A81D6D5}'; RID_PersonalContactoDelta = '{6010CBDE-27EB-414B-8609-5CC20E4C93B8}';
type type
{ IContactosDelta } { IContactosDelta }
IContactosDelta = interface(IContactos) IContactosDelta = interface(IContactos)
['{5D663643-B45F-42DF-B806-6054C92C256F}'] ['{783D6342-53F9-40DF-81AF-DE782DA8B75A}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -326,7 +326,7 @@ type
{ IGruposClienteDelta } { IGruposClienteDelta }
IGruposClienteDelta = interface(IGruposCliente) IGruposClienteDelta = interface(IGruposCliente)
['{A22E564C-9D18-40D7-AC06-2AE7A6719723}'] ['{F2CACBA5-7F04-4EDB-BC31-41E907B8EC26}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -372,7 +372,7 @@ type
{ IDatosBancariosDelta } { IDatosBancariosDelta }
IDatosBancariosDelta = interface(IDatosBancarios) IDatosBancariosDelta = interface(IDatosBancarios)
['{D0E06730-72AE-48A3-AD77-BCC0557E09E3}'] ['{4EB1B188-CBE1-460A-A774-BF8E36A6E757}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer; function GetOldID_CONTACTOValue : Integer;
@ -502,7 +502,7 @@ type
{ IClientesDelta } { IClientesDelta }
IClientesDelta = interface(IClientes) IClientesDelta = interface(IClientes)
['{B591C54A-E5D0-4628-B3A5-E7362608E4E7}'] ['{CAE0D87E-5926-4DB8-9AA3-541AFDE940D3}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -981,7 +981,7 @@ type
{ IProveedoresDelta } { IProveedoresDelta }
IProveedoresDelta = interface(IProveedores) IProveedoresDelta = interface(IProveedores)
['{F0162520-4D44-4911-8B70-5FB15FE8098A}'] ['{FCE9CA4B-64BD-43E2-AF85-6C3388B64F14}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -1448,7 +1448,7 @@ type
{ IEmpleadosDelta } { IEmpleadosDelta }
IEmpleadosDelta = interface(IEmpleados) IEmpleadosDelta = interface(IEmpleados)
['{CD6CA1DF-ECE1-41E8-80D2-F3DB2CEECDBF}'] ['{18DB065A-0CFF-44C3-8221-283C5F804249}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -1883,7 +1883,7 @@ type
{ IDireccionesContactoDelta } { IDireccionesContactoDelta }
IDireccionesContactoDelta = interface(IDireccionesContacto) IDireccionesContactoDelta = interface(IDireccionesContacto)
['{19FE4B40-6CA1-4373-9C7A-E4037FB533E2}'] ['{43E64AF9-2F6C-4F2E-9933-0EB09313D982}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer; function GetOldID_CONTACTOValue : Integer;
@ -2098,7 +2098,7 @@ type
{ IClientesDescuentosDelta } { IClientesDescuentosDelta }
IClientesDescuentosDelta = interface(IClientesDescuentos) IClientesDescuentosDelta = interface(IClientesDescuentos)
['{283BCBC2-EE2C-4B22-B9A7-A8F1498F33DD}'] ['{16AF7FE2-2AF0-4D98-ADA6-D29209C2A046}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CLIENTEValue : Integer; function GetOldID_CLIENTEValue : Integer;
@ -2180,7 +2180,7 @@ type
{ IGruposProveedorDelta } { IGruposProveedorDelta }
IGruposProveedorDelta = interface(IGruposProveedor) IGruposProveedorDelta = interface(IGruposProveedor)
['{CEAE47D6-CA85-4726-B05B-C31C73DEAD0A}'] ['{C607DA1D-70B8-4843-A46D-73691BCCF0FB}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -2226,7 +2226,7 @@ type
{ IGruposEmpleadoDelta } { IGruposEmpleadoDelta }
IGruposEmpleadoDelta = interface(IGruposEmpleado) IGruposEmpleadoDelta = interface(IGruposEmpleado)
['{F9D415C5-F9FE-410D-AB3A-9B6090F0C373}'] ['{F2AA8B32-A14B-4754-BD82-531770EF1BA0}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -2272,7 +2272,7 @@ type
{ IContactos_RefreshDelta } { IContactos_RefreshDelta }
IContactos_RefreshDelta = interface(IContactos_Refresh) IContactos_RefreshDelta = interface(IContactos_Refresh)
['{5ACD3F74-2EF3-4596-AE9C-1FC05A27262C}'] ['{0AD2BAF9-797E-49CD-A47C-4C50306595BF}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldNIF_CIFValue : String; function GetOldNIF_CIFValue : String;
@ -2547,7 +2547,7 @@ type
{ IContratosEmpleadosDelta } { IContratosEmpleadosDelta }
IContratosEmpleadosDelta = interface(IContratosEmpleados) IContratosEmpleadosDelta = interface(IContratosEmpleados)
['{2710E74D-E05B-4D23-9E25-72BAA0DE2535}'] ['{67B25A55-49CA-436A-A1A1-C058981C54BA}']
{ Property getters and setters } { Property getters and setters }
function GetOldCONTRATOValue : String; function GetOldCONTRATOValue : String;
@ -2581,7 +2581,7 @@ type
{ IDescripcionesProveedoresDelta } { IDescripcionesProveedoresDelta }
IDescripcionesProveedoresDelta = interface(IDescripcionesProveedores) IDescripcionesProveedoresDelta = interface(IDescripcionesProveedores)
['{30AA4ECE-FE1C-4A9A-94EC-F6C4075E80E3}'] ['{4464B700-9CE4-4282-B765-52D43F0EA76D}']
{ Property getters and setters } { Property getters and setters }
function GetOldDESCRIPCION_PROVEEDORValue : String; function GetOldDESCRIPCION_PROVEEDORValue : String;
@ -2615,7 +2615,7 @@ type
{ IPersonalContactoDelta } { IPersonalContactoDelta }
IPersonalContactoDelta = interface(IPersonalContacto) IPersonalContactoDelta = interface(IPersonalContacto)
['{995D0237-5EF5-4E5A-B44E-747F0A81D6D5}'] ['{6010CBDE-27EB-414B-8609-5CC20E4C93B8}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer; function GetOldID_CONTACTOValue : Integer;

3
Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
View File

@ -1779,6 +1779,7 @@ object srvContactos: TsrvContactos
end> end>
Statements = < Statements = <
item item
Connection = 'IBX'
ConnectionType = 'Interbase' ConnectionType = 'Interbase'
Default = True Default = True
TargetTable = 'CONTACTOS' TargetTable = 'CONTACTOS'
@ -1787,7 +1788,7 @@ object srvContactos: TsrvContactos
'DIGO_POSTAL, '#10' TELEFONO_1, TELEFONO_2, MOVIL_1, MOVIL_2, FAX,' + 'DIGO_POSTAL, '#10' TELEFONO_1, TELEFONO_2, MOVIL_1, MOVIL_2, FAX,' +
' EMAIL_1, '#10' EMAIL_2, PAGINA_WEB, NOTAS, FECHA_ALTA, FECHA_MOD' + ' EMAIL_1, '#10' EMAIL_2, PAGINA_WEB, NOTAS, FECHA_ALTA, FECHA_MOD' +
'IFICACION, '#10' USUARIO, REFERENCIA, PERSONA_CONTACTO'#10' FROM'#10' ' + 'IFICACION, '#10' USUARIO, REFERENCIA, PERSONA_CONTACTO'#10' FROM'#10' ' +
' CONTACTOS'#10' WHERE ID = :ID'#10 ' CONTACTOS'#10' WHERE {where}'#10' and ID = :ID'#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -132,10 +132,10 @@ uses
schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas', schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas', schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas',
schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas', schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas', schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas'; schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas';
{$R *.res} {$R *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

4
Source/Servidor/FactuGES_Server.dproj
View File

@ -37,6 +37,10 @@
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">8</VersionInfo><VersionInfo Name="Release">1</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.8.1.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.8.1.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 16 de marzo de 2010 17:45</VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">8</VersionInfo><VersionInfo Name="Release">1</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.8.1.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.8.1.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 16 de marzo de 2010 17:45</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages> <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Servidor.ico" MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Servidor.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 1,8,0,0 FILEVERSION 1,8,1,0
PRODUCTVERSION 1,8,0,0 PRODUCTVERSION 1,8,1,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -12,9 +12,9 @@ BEGIN
BEGIN BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "FileVersion", "1.8.0.0\0" VALUE "FileVersion", "1.8.1.0\0"
VALUE "ProductVersion", "1.8.0.0\0" VALUE "ProductVersion", "1.8.1.0\0"
VALUE "CompileDate", "martes, 16 de marzo de 2010 17:45\0" VALUE "CompileDate", "martes, 16 de marzo de 2010 17:57\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"