diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql index bdf0c494..66eb60b6 100644 --- a/Database/scripts/factuges.sql +++ b/Database/scripts/factuges.sql @@ -2065,6 +2065,13 @@ SELECT CONTACTOS.ID, LEFT JOIN TIENDAS ON (TIENDAS.ID = CONTACTOS.ID_TIENDA) ; +create view V_CONTACTOS_NOMBRES_DIRECCIONES( +ID, +LISTA_NOMBRES) +AS +select contactos_direcciones.id_contacto, LIST(contactos_direcciones.nombre, ', ') AS lista_nombres_direcciones +from contactos_direcciones +group by id_contacto; /* View: V_CLIENTES */ @@ -2109,7 +2116,8 @@ CREATE VIEW V_CLIENTES( PROCEDENCIA_CLIENTE, VENCIMIENTO_FACTURAS_1, VENCIMIENTO_FACTURAS_2, - VENCIMIENTO_FACTURAS_3) + VENCIMIENTO_FACTURAS_3, + LISTA_NOMBRES) AS SELECT V_CONTACTOS.ID, @@ -2152,10 +2160,12 @@ SELECT CLIENTES_DATOS.PROCEDENCIA_CLIENTE, CLIENTES_DATOS.VENCIMIENTO_FACTURAS_1, CLIENTES_DATOS.VENCIMIENTO_FACTURAS_2, - CLIENTES_DATOS.VENCIMIENTO_FACTURAS_3 + CLIENTES_DATOS.VENCIMIENTO_FACTURAS_3, + V_CONTACTOS_NOMBRES_DIRECCIONES.LISTA_NOMBRES FROM V_CONTACTOS LEFT OUTER JOIN CLIENTES_DATOS ON (V_CONTACTOS.ID = CLIENTES_DATOS.ID_CLIENTE) + LEFT OUTER JOIN V_CONTACTOS_NOMBRES_DIRECCIONES ON (V_CONTACTOS.ID = V_CONTACTOS_NOMBRES_DIRECCIONES.ID) WHERE V_CONTACTOS.ID_CATEGORIA = 1 ; diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index 33b554c0..5667029b 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -58,55 +58,55 @@ MainSource + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
fConfigurarConexion
TForm diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj index 8ec1deef..d0fdc004 100644 --- a/Source/Cliente/FactuGES.dproj +++ b/Source/Cliente/FactuGES.dproj @@ -52,7 +52,7 @@ Delphi.Personality VCLApplication -FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2710FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.7.1.0FactuGESFactuGES2.7.1.0 +FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2720FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.7.2.0FactuGESFactuGES2.7.2.0 File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found FactuGES.dprFalse diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc index 0e6be076..7fb45489 100644 --- a/Source/Cliente/FactuGES.rc +++ b/Source/Cliente/FactuGES.rc @@ -1,7 +1,7 @@ MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico" 1 VERSIONINFO -FILEVERSION 2,7,0,0 -PRODUCTVERSION 2,7,0,0 +FILEVERSION 2,7,2,0 +PRODUCTVERSION 2,7,2,0 FILEFLAGSMASK 0x3FL FILEFLAGS 0x00L FILEOS 0x40004L @@ -13,10 +13,10 @@ BEGIN BLOCK "0C0A04E4" BEGIN VALUE "CompanyName", "Rodax Software S.L.\0" - VALUE "FileVersion", "2.7.0.0\0" + VALUE "FileVersion", "2.7.2.0\0" VALUE "InternalName", "FactuGES\0" VALUE "ProductName", "FactuGES\0" - VALUE "ProductVersion", "2.7.0.0\0" + VALUE "ProductVersion", "2.7.2.0\0" END END BLOCK "VarFileInfo" diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res index 71ec4bfd..bd7d3c2a 100644 Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ diff --git a/Source/GUIBase/GUIBase.dproj b/Source/GUIBase/GUIBase.dproj index 4cf8df42..f3df2686 100644 --- a/Source/GUIBase/GUIBase.dproj +++ b/Source/GUIBase/GUIBase.dproj @@ -58,34 +58,34 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fDialogBase
 diff --git a/Source/Modulos/Contabilidad/Views/Contabilidad_view.dpk b/Source/Modulos/Contabilidad/Views/Contabilidad_view.dpk index a00dd8c4..c4ac0fd3 100644 --- a/Source/Modulos/Contabilidad/Views/Contabilidad_view.dpk +++ b/Source/Modulos/Contabilidad/Views/Contabilidad_view.dpk @@ -65,6 +65,6 @@ contains uEditorElegirSubCuentas in 'uEditorElegirSubCuentas.pas' {fEditorElegirSubCuentas: TfEditorEjercicios}, uViewListaSubCuentas in 'uViewListaSubCuentas.pas' {frViewListaSubcuentas: TFrame}, uViewExtractoMovimientos in 'uViewExtractoMovimientos.pas' {frViewExtractoMovimientos: TFrame}, - uEditorExtractoMovimientos in 'uEditorExtractoMovimientos.pas' {fEditorExtractoMovimientos: TfEditorExtractoMovimientos}; + uEditorExtractoMovimientos in 'uEditorExtractoMovimientos.pas' {fEditorExtractoMovimientos: TfEditorExtractoMovimientos} ; end. diff --git a/Source/Modulos/Contabilidad/Views/Contabilidad_view.dproj b/Source/Modulos/Contabilidad/Views/Contabilidad_view.dproj index eafa37bb..0d2121d1 100644 --- a/Source/Modulos/Contabilidad/Views/Contabilidad_view.dproj +++ b/Source/Modulos/Contabilidad/Views/Contabilidad_view.dproj @@ -48,11 +48,11 @@ MainSource - - - - - + + + + +
frViewEpigrafes
TFrame diff --git a/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm b/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm index 635a26bc..9507948c 100644 --- a/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm +++ b/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm @@ -281,6 +281,13 @@ inherited DataModuleClientes: TDataModuleClientes item Name = 'VENCIMIENTO_FACTURAS_3' DataType = datInteger + end + item + Name = 'LISTA_NOMBRES' + DataType = datString + Size = 255 + DisplayLabel = 'Otros nombres' + DictionaryEntry = 'Clientes_LISTA_NOMBRES' end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] diff --git a/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas b/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas index c4c1b87a..f7c14f79 100644 --- a/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas +++ b/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas @@ -3,28 +3,30 @@ unit schContactosClient_Intf; interface uses - Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; + Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, 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_PersonalContacto = '{10850DAC-8A04-46B8-882A-D9D05178F533}'; - RID_DarTiendaDeUsuario = '{4A3CFB9A-64F8-41D3-8B67-D3BD773EC6F0}'; - RID_SubCuentasContacto = '{98A05B2F-8C31-4012-A9C3-40E3FD982FEF}'; - RID_Contactos = '{EC034344-6F48-4962-B530-9C8590FFA881}'; - RID_GruposCliente = '{0C0F2DE5-1C7D-42ED-AF00-57BB3F081EEA}'; - RID_DatosBancarios = '{8120C3EA-4394-4FA5-AA19-9DE1AABDABD6}'; - RID_Clientes = '{D01FA8E7-3AEC-4B37-9F26-015F3CD695CA}'; - RID_Proveedores = '{510572A1-E390-401D-A8CE-007F4104350C}'; - RID_Vendedores = '{DEDAD190-7EF1-42A4-BAED-CFFD9D5CED4D}'; - RID_DireccionesContacto = '{58A83B78-7C3F-4742-87CD-CC211F2D553F}'; - RID_ClientesDescuentos = '{BFBA6A41-1628-4808-B100-11561E0ED847}'; - RID_ProcedenciasCliente = '{E65DD5CD-347E-4C08-BB87-DDF77C45AEE6}'; - RID_GruposProveedor = '{4A8B2052-F645-428F-92D7-E8897E201BEC}'; - RID_Contactos_Refresh = '{A7344712-243B-40A9-A854-7EB1096E03B0}'; + RID_DarEmpresasContacto = '{09803035-EC1E-47D5-A44A-009646FD810D}'; + RID_PersonalContacto = '{9189C512-E42F-4A70-8091-BCB24B5EBDB3}'; + RID_DarTiendaDeUsuario = '{205D95B2-634E-4887-85A6-48C018B77CA7}'; + RID_SubCuentasContacto = '{86A29408-F7FB-4C21-BEEA-95E6A6176398}'; + RID_Contactos = '{95D8B1E2-A325-44C9-A3DC-F05D03116753}'; + RID_GruposCliente = '{12CC2A2C-509B-4174-A817-B16E0B957461}'; + RID_DatosBancarios = '{048A41E8-4348-4713-B083-FE719C79C9F4}'; + RID_Clientes = '{1109FEE2-1CF8-43B7-9773-345F3C36E79F}'; + RID_Proveedores = '{AA7D0872-D624-4727-A3C5-E0F1241A2FD6}'; + RID_Vendedores = '{6A7D49D7-5C67-4FF9-B93D-EFB25F042DC3}'; + RID_DireccionesContacto = '{453DA476-B83F-4A42-B884-B7F8D4F60349}'; + RID_ClientesDescuentos = '{39BC1677-2432-4545-BF77-D0188412AA86}'; + RID_ProcedenciasCliente = '{DC1F0246-260A-407D-BA81-7AF544932A02}'; + RID_GruposProveedor = '{A887BBFA-2DFE-4770-9EB3-4681435D7634}'; + RID_Contactos_Refresh = '{FDA7E99C-3497-43F5-85A6-EAEE0F1D54DE}'; { Data table names } + nme_DarEmpresasContacto = 'DarEmpresasContacto'; nme_PersonalContacto = 'PersonalContacto'; nme_DarTiendaDeUsuario = 'DarTiendaDeUsuario'; nme_SubCuentasContacto = 'SubCuentasContacto'; @@ -40,6 +42,12 @@ const nme_GruposProveedor = 'GruposProveedor'; nme_Contactos_Refresh = 'Contactos_Refresh'; + { DarEmpresasContacto fields } + fld_DarEmpresasContactoID_EMPRESA = 'ID_EMPRESA'; + + { DarEmpresasContacto field indexes } + idx_DarEmpresasContactoID_EMPRESA = 0; + { PersonalContacto fields } fld_PersonalContactoID = 'ID'; fld_PersonalContactoID_CONTACTO = 'ID_CONTACTO'; @@ -212,6 +220,7 @@ const fld_ClientesVENCIMIENTO_FACTURAS_1 = 'VENCIMIENTO_FACTURAS_1'; fld_ClientesVENCIMIENTO_FACTURAS_2 = 'VENCIMIENTO_FACTURAS_2'; fld_ClientesVENCIMIENTO_FACTURAS_3 = 'VENCIMIENTO_FACTURAS_3'; + fld_ClientesLISTA_NOMBRES = 'LISTA_NOMBRES'; { Clientes field indexes } idx_ClientesID = 0; @@ -255,6 +264,7 @@ const idx_ClientesVENCIMIENTO_FACTURAS_1 = 38; idx_ClientesVENCIMIENTO_FACTURAS_2 = 39; idx_ClientesVENCIMIENTO_FACTURAS_3 = 40; + idx_ClientesLISTA_NOMBRES = 41; { Proveedores fields } fld_ProveedoresID = 'ID'; @@ -517,9 +527,44 @@ const idx_Contactos_RefreshPERSONA_CONTACTO = 20; type + { IDarEmpresasContacto } + IDarEmpresasContacto = interface(IDAStronglyTypedDataTable) + ['{15184075-B134-4220-9D05-92A49F766EEE}'] + { Property getters and setters } + function GetID_EMPRESAValue: Integer; + procedure SetID_EMPRESAValue(const aValue: Integer); + function GetID_EMPRESAIsNull: Boolean; + procedure SetID_EMPRESAIsNull(const aValue: Boolean); + + + { Properties } + property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; + property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; + end; + + { TDarEmpresasContactoDataTableRules } + TDarEmpresasContactoDataTableRules = class(TIntfObjectDADataTableRules, IDarEmpresasContacto) + private + protected + { Property getters and setters } + function GetID_EMPRESAValue: Integer; virtual; + procedure SetID_EMPRESAValue(const aValue: Integer); virtual; + function GetID_EMPRESAIsNull: Boolean; virtual; + procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; + + { Properties } + property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; + property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; + + public + constructor Create(aDataTable: TDADataTable); override; + destructor Destroy; override; + + end; + { IPersonalContacto } IPersonalContacto = interface(IDAStronglyTypedDataTable) - ['{DEAA6039-614F-4B15-B4F2-F9C9B4DB3A15}'] + ['{0859C40F-90F2-4929-8D50-2265CA86A830}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -662,7 +707,7 @@ type { IDarTiendaDeUsuario } IDarTiendaDeUsuario = interface(IDAStronglyTypedDataTable) - ['{88F010C0-E12E-4427-8C13-90DCB2CBF53C}'] + ['{22E99E1B-0398-4E25-A39B-2957E583DB52}'] { Property getters and setters } function GetID_TIENDAValue: Integer; procedure SetID_TIENDAValue(const aValue: Integer); @@ -697,7 +742,7 @@ type { ISubCuentasContacto } ISubCuentasContacto = interface(IDAStronglyTypedDataTable) - ['{835A0070-997F-416F-9718-CB82124338A8}'] + ['{63F82DF4-9976-41A1-8FF3-BAF5E027E3BF}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -792,7 +837,7 @@ type { IContactos } IContactos = interface(IDAStronglyTypedDataTable) - ['{B479C112-135D-46D0-B72B-2A46C8D32A87}'] + ['{B5B0B727-28C1-4323-836F-036FC3860F72}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1115,7 +1160,7 @@ type { IGruposCliente } IGruposCliente = interface(IDAStronglyTypedDataTable) - ['{F4F42BF3-C319-4CAC-A11E-435ACF830CC5}'] + ['{03F52C3C-90E8-4BBD-9087-BB76E72521D3}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1162,7 +1207,7 @@ type { IDatosBancarios } IDatosBancarios = interface(IDAStronglyTypedDataTable) - ['{5BC08B80-5030-40F7-92FB-59256E2C0E75}'] + ['{7B95F875-C61F-418B-B145-C0790E885DFF}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1293,7 +1338,7 @@ type { IClientes } IClientes = interface(IDAStronglyTypedDataTable) - ['{48D18C28-B5EE-4C37-B313-A8AF373F3D64}'] + ['{907442E0-5E45-4C9E-8C47-A97FA8009258}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1458,6 +1503,10 @@ type procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer); function GetVENCIMIENTO_FACTURAS_3IsNull: Boolean; procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); + function GetLISTA_NOMBRESValue: String; + procedure SetLISTA_NOMBRESValue(const aValue: String); + function GetLISTA_NOMBRESIsNull: Boolean; + procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean); { Properties } @@ -1543,6 +1592,8 @@ type property VENCIMIENTO_FACTURAS_2IsNull: Boolean read GetVENCIMIENTO_FACTURAS_2IsNull write SetVENCIMIENTO_FACTURAS_2IsNull; property VENCIMIENTO_FACTURAS_3: Integer read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value; property VENCIMIENTO_FACTURAS_3IsNull: Boolean read GetVENCIMIENTO_FACTURAS_3IsNull write SetVENCIMIENTO_FACTURAS_3IsNull; + property LISTA_NOMBRES: String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue; + property LISTA_NOMBRESIsNull: Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull; end; { TClientesDataTableRules } @@ -1715,6 +1766,10 @@ type procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer); virtual; function GetVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual; procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); virtual; + function GetLISTA_NOMBRESValue: String; virtual; + procedure SetLISTA_NOMBRESValue(const aValue: String); virtual; + function GetLISTA_NOMBRESIsNull: Boolean; virtual; + procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; @@ -1799,6 +1854,8 @@ type property VENCIMIENTO_FACTURAS_2IsNull: Boolean read GetVENCIMIENTO_FACTURAS_2IsNull write SetVENCIMIENTO_FACTURAS_2IsNull; property VENCIMIENTO_FACTURAS_3: Integer read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value; property VENCIMIENTO_FACTURAS_3IsNull: Boolean read GetVENCIMIENTO_FACTURAS_3IsNull write SetVENCIMIENTO_FACTURAS_3IsNull; + property LISTA_NOMBRES: String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue; + property LISTA_NOMBRESIsNull: Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull; public constructor Create(aDataTable: TDADataTable); override; @@ -1808,7 +1865,7 @@ type { IProveedores } IProveedores = interface(IDAStronglyTypedDataTable) - ['{A92DE88A-7E08-4CD2-9E99-757ECD192475}'] + ['{E1E5CFA4-89CC-438A-B220-4A140E5FE96D}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -2335,7 +2392,7 @@ type { IVendedores } IVendedores = interface(IDAStronglyTypedDataTable) - ['{D1EF06EF-DA47-4324-AA3F-481CB71ACFDD}'] + ['{DC80840F-D2B9-4F7A-9544-8A6903CAC9DC}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -2682,7 +2739,7 @@ type { IDireccionesContacto } IDireccionesContacto = interface(IDAStronglyTypedDataTable) - ['{333D0482-701A-4BB6-AA51-1F1F34D6A8F1}'] + ['{7D5F30E6-D2B7-4059-A9CC-9B91F1F8EC8F}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -2909,7 +2966,7 @@ type { IClientesDescuentos } IClientesDescuentos = interface(IDAStronglyTypedDataTable) - ['{A1F86ADF-8673-4E8F-B3C4-F864F7A5FEBB}'] + ['{3FB8ABE8-0F32-4524-8CBF-5DA9A4660799}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -2992,7 +3049,7 @@ type { IProcedenciasCliente } IProcedenciasCliente = interface(IDAStronglyTypedDataTable) - ['{9789278E-8F6D-427E-82D1-6386D8AB21AE}'] + ['{C22BEAD6-90E2-4476-84D8-5FC9FB8101CF}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -3039,7 +3096,7 @@ type { IGruposProveedor } IGruposProveedor = interface(IDAStronglyTypedDataTable) - ['{F0DACCCA-7AB3-4862-BD6D-6D9C401378AA}'] + ['{02C2EFE2-2CD9-421A-86AD-4CFC9ABA08CF}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -3086,7 +3143,7 @@ type { IContactos_Refresh } IContactos_Refresh = interface(IDAStronglyTypedDataTable) - ['{6041072A-9CB7-4096-88CF-5069C7EA0833}'] + ['{E63F3A20-96A8-466F-AF91-59759697CC5A}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -3363,6 +3420,39 @@ implementation uses Variants, uROBinaryHelpers; +{ TDarEmpresasContactoDataTableRules } +constructor TDarEmpresasContactoDataTableRules.Create(aDataTable: TDADataTable); +begin + inherited; +end; + +destructor TDarEmpresasContactoDataTableRules.Destroy; +begin + inherited; +end; + +function TDarEmpresasContactoDataTableRules.GetID_EMPRESAValue: Integer; +begin + result := DataTable.Fields[idx_DarEmpresasContactoID_EMPRESA].AsInteger; +end; + +procedure TDarEmpresasContactoDataTableRules.SetID_EMPRESAValue(const aValue: Integer); +begin + DataTable.Fields[idx_DarEmpresasContactoID_EMPRESA].AsInteger := aValue; +end; + +function TDarEmpresasContactoDataTableRules.GetID_EMPRESAIsNull: boolean; +begin + result := DataTable.Fields[idx_DarEmpresasContactoID_EMPRESA].IsNull; +end; + +procedure TDarEmpresasContactoDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_DarEmpresasContactoID_EMPRESA].AsVariant := Null; +end; + + { TPersonalContactoDataTableRules } constructor TPersonalContactoDataTableRules.Create(aDataTable: TDADataTable); begin @@ -5434,6 +5524,27 @@ begin DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_3].AsVariant := Null; end; +function TClientesDataTableRules.GetLISTA_NOMBRESValue: String; +begin + result := DataTable.Fields[idx_ClientesLISTA_NOMBRES].AsString; +end; + +procedure TClientesDataTableRules.SetLISTA_NOMBRESValue(const aValue: String); +begin + DataTable.Fields[idx_ClientesLISTA_NOMBRES].AsString := aValue; +end; + +function TClientesDataTableRules.GetLISTA_NOMBRESIsNull: boolean; +begin + result := DataTable.Fields[idx_ClientesLISTA_NOMBRES].IsNull; +end; + +procedure TClientesDataTableRules.SetLISTA_NOMBRESIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ClientesLISTA_NOMBRES].AsVariant := Null; +end; + { TProveedoresDataTableRules } constructor TProveedoresDataTableRules.Create(aDataTable: TDADataTable); @@ -7984,6 +8095,7 @@ end; initialization + RegisterDataTableRules(RID_DarEmpresasContacto, TDarEmpresasContactoDataTableRules); RegisterDataTableRules(RID_PersonalContacto, TPersonalContactoDataTableRules); RegisterDataTableRules(RID_DarTiendaDeUsuario, TDarTiendaDeUsuarioDataTableRules); RegisterDataTableRules(RID_SubCuentasContacto, TSubCuentasContactoDataTableRules); diff --git a/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas b/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas index 3536c0b3..916efd27 100644 --- a/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas +++ b/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas @@ -9,25 +9,60 @@ 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_PersonalContactoDelta = '{5E077D9B-D4D9-4B7D-B1F4-8236A79DC607}'; - RID_DarTiendaDeUsuarioDelta = '{7AFE4420-13DD-420E-A8DE-93464EF93F59}'; - RID_SubCuentasContactoDelta = '{0FAD99B4-0F6F-43AB-A6A2-D05725700767}'; - RID_ContactosDelta = '{29E47B8B-30E6-4B4E-B218-6E3CB867BDC8}'; - RID_GruposClienteDelta = '{8B15524D-83C1-4F38-ACCE-2A0CA45DBFEF}'; - RID_DatosBancariosDelta = '{AE0DA606-F1FC-4725-94C3-F1F22858DF25}'; - RID_ClientesDelta = '{6CD74F52-43BA-4DDD-9626-374A140E486C}'; - RID_ProveedoresDelta = '{45BEDF42-D57A-4B27-9A39-DAA56D0EFDAA}'; - RID_VendedoresDelta = '{365B6366-050C-443E-8A11-66EB0D7F9E0B}'; - RID_DireccionesContactoDelta = '{BFBF154C-C62B-4DFC-B816-4C7649222909}'; - RID_ClientesDescuentosDelta = '{75E242C6-00BE-4179-AE7F-4393F5AE9B4A}'; - RID_ProcedenciasClienteDelta = '{1D54F076-4D87-414E-B567-2052949AF687}'; - RID_GruposProveedorDelta = '{C3A6BA6F-15EC-486F-8212-0CEB2A66D6A1}'; - RID_Contactos_RefreshDelta = '{F1DF7DB2-6FC0-43D6-B14B-E6E6DE744DE4}'; + RID_DarEmpresasContactoDelta = '{A6433122-90DA-40E1-A8E3-B5153BDF9037}'; + RID_PersonalContactoDelta = '{0F3905F8-664E-4284-A5FB-C7C298C4EE6D}'; + RID_DarTiendaDeUsuarioDelta = '{F78868ED-F8C1-43B2-8954-448FD9605F08}'; + RID_SubCuentasContactoDelta = '{68A1DB34-969D-4C55-BCF3-5BBDD649AE92}'; + RID_ContactosDelta = '{80C193EA-B4F4-4D86-B164-4DA3ACFDAB55}'; + RID_GruposClienteDelta = '{DDFB3C1B-E0C2-419C-8FC8-48D12D089F9E}'; + RID_DatosBancariosDelta = '{889D270E-ED85-4856-9C7E-C499F12F76F4}'; + RID_ClientesDelta = '{4DB9A1C2-1B72-4CE3-A940-46DCDE7F67E2}'; + RID_ProveedoresDelta = '{63D99AC7-1B5F-42AE-91EC-107B40310F49}'; + RID_VendedoresDelta = '{28D0D946-42EC-4A3F-9AFB-8C16BB22737E}'; + RID_DireccionesContactoDelta = '{D47CBF20-38AE-4F7E-A6C7-44CBA5444C2D}'; + RID_ClientesDescuentosDelta = '{475BA059-0898-4AC0-AAFD-5DEB00D99626}'; + RID_ProcedenciasClienteDelta = '{14F77428-ACCF-4AF1-86C3-88A977F1C5E6}'; + RID_GruposProveedorDelta = '{8B49F5CF-4C5A-4E6B-B66B-1A50F003E0CD}'; + RID_Contactos_RefreshDelta = '{332B4E11-5924-4DE0-B89C-937B51D7E7A9}'; type + { IDarEmpresasContactoDelta } + IDarEmpresasContactoDelta = interface(IDarEmpresasContacto) + ['{A6433122-90DA-40E1-A8E3-B5153BDF9037}'] + { Property getters and setters } + function GetOldID_EMPRESAValue : Integer; + + { Properties } + property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; + end; + + { TDarEmpresasContactoBusinessProcessorRules } + TDarEmpresasContactoBusinessProcessorRules = class(TDABusinessProcessorRules, IDarEmpresasContacto, IDarEmpresasContactoDelta) + private + protected + { Property getters and setters } + function GetID_EMPRESAValue: Integer; virtual; + function GetID_EMPRESAIsNull: Boolean; virtual; + function GetOldID_EMPRESAValue: Integer; virtual; + function GetOldID_EMPRESAIsNull: Boolean; virtual; + procedure SetID_EMPRESAValue(const aValue: Integer); virtual; + procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; + + { Properties } + property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; + property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; + property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; + property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull; + + public + constructor Create(aBusinessProcessor: TDABusinessProcessor); override; + destructor Destroy; override; + + end; + { IPersonalContactoDelta } IPersonalContactoDelta = interface(IPersonalContacto) - ['{5E077D9B-D4D9-4B7D-B1F4-8236A79DC607}'] + ['{0F3905F8-664E-4284-A5FB-C7C298C4EE6D}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CONTACTOValue : Integer; @@ -169,7 +204,7 @@ type { IDarTiendaDeUsuarioDelta } IDarTiendaDeUsuarioDelta = interface(IDarTiendaDeUsuario) - ['{7AFE4420-13DD-420E-A8DE-93464EF93F59}'] + ['{F78868ED-F8C1-43B2-8954-448FD9605F08}'] { Property getters and setters } function GetOldID_TIENDAValue : Integer; @@ -203,7 +238,7 @@ type { ISubCuentasContactoDelta } ISubCuentasContactoDelta = interface(ISubCuentasContacto) - ['{0FAD99B4-0F6F-43AB-A6A2-D05725700767}'] + ['{68A1DB34-969D-4C55-BCF3-5BBDD649AE92}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldREF_SUBCUENTAValue : String; @@ -297,7 +332,7 @@ type { IContactosDelta } IContactosDelta = interface(IContactos) - ['{29E47B8B-30E6-4B4E-B218-6E3CB867BDC8}'] + ['{80C193EA-B4F4-4D86-B164-4DA3ACFDAB55}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CATEGORIAValue : Integer; @@ -620,7 +655,7 @@ type { IGruposClienteDelta } IGruposClienteDelta = interface(IGruposCliente) - ['{8B15524D-83C1-4F38-ACCE-2A0CA45DBFEF}'] + ['{DDFB3C1B-E0C2-419C-8FC8-48D12D089F9E}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldDESCRIPCIONValue : String; @@ -666,7 +701,7 @@ type { IDatosBancariosDelta } IDatosBancariosDelta = interface(IDatosBancarios) - ['{AE0DA606-F1FC-4725-94C3-F1F22858DF25}'] + ['{889D270E-ED85-4856-9C7E-C499F12F76F4}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CONTACTOValue : Integer; @@ -796,7 +831,7 @@ type { IClientesDelta } IClientesDelta = interface(IClientes) - ['{6CD74F52-43BA-4DDD-9626-374A140E486C}'] + ['{4DB9A1C2-1B72-4CE3-A940-46DCDE7F67E2}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CATEGORIAValue : Integer; @@ -839,6 +874,7 @@ type function GetOldVENCIMIENTO_FACTURAS_1Value : Integer; function GetOldVENCIMIENTO_FACTURAS_2Value : Integer; function GetOldVENCIMIENTO_FACTURAS_3Value : Integer; + function GetOldLISTA_NOMBRESValue : String; { Properties } property OldID : Integer read GetOldIDValue; @@ -882,6 +918,7 @@ type property OldVENCIMIENTO_FACTURAS_1 : Integer read GetOldVENCIMIENTO_FACTURAS_1Value; property OldVENCIMIENTO_FACTURAS_2 : Integer read GetOldVENCIMIENTO_FACTURAS_2Value; property OldVENCIMIENTO_FACTURAS_3 : Integer read GetOldVENCIMIENTO_FACTURAS_3Value; + property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue; end; { TClientesBusinessProcessorRules } @@ -1136,6 +1173,12 @@ type function GetOldVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual; procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer); virtual; procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); virtual; + function GetLISTA_NOMBRESValue: String; virtual; + function GetLISTA_NOMBRESIsNull: Boolean; virtual; + function GetOldLISTA_NOMBRESValue: String; virtual; + function GetOldLISTA_NOMBRESIsNull: Boolean; virtual; + procedure SetLISTA_NOMBRESValue(const aValue: String); virtual; + procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; @@ -1302,6 +1345,10 @@ type property VENCIMIENTO_FACTURAS_3IsNull : Boolean read GetVENCIMIENTO_FACTURAS_3IsNull write SetVENCIMIENTO_FACTURAS_3IsNull; property OldVENCIMIENTO_FACTURAS_3 : Integer read GetOldVENCIMIENTO_FACTURAS_3Value; property OldVENCIMIENTO_FACTURAS_3IsNull : Boolean read GetOldVENCIMIENTO_FACTURAS_3IsNull; + property LISTA_NOMBRES : String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue; + property LISTA_NOMBRESIsNull : Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull; + property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue; + property OldLISTA_NOMBRESIsNull : Boolean read GetOldLISTA_NOMBRESIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -1311,7 +1358,7 @@ type { IProveedoresDelta } IProveedoresDelta = interface(IProveedores) - ['{45BEDF42-D57A-4B27-9A39-DAA56D0EFDAA}'] + ['{63D99AC7-1B5F-42AE-91EC-107B40310F49}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CATEGORIAValue : Integer; @@ -1838,7 +1885,7 @@ type { IVendedoresDelta } IVendedoresDelta = interface(IVendedores) - ['{365B6366-050C-443E-8A11-66EB0D7F9E0B}'] + ['{28D0D946-42EC-4A3F-9AFB-8C16BB22737E}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CATEGORIAValue : Integer; @@ -2185,7 +2232,7 @@ type { IDireccionesContactoDelta } IDireccionesContactoDelta = interface(IDireccionesContacto) - ['{BFBF154C-C62B-4DFC-B816-4C7649222909}'] + ['{D47CBF20-38AE-4F7E-A6C7-44CBA5444C2D}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CONTACTOValue : Integer; @@ -2412,7 +2459,7 @@ type { IClientesDescuentosDelta } IClientesDescuentosDelta = interface(IClientesDescuentos) - ['{75E242C6-00BE-4179-AE7F-4393F5AE9B4A}'] + ['{475BA059-0898-4AC0-AAFD-5DEB00D99626}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CLIENTEValue : Integer; @@ -2494,7 +2541,7 @@ type { IProcedenciasClienteDelta } IProcedenciasClienteDelta = interface(IProcedenciasCliente) - ['{1D54F076-4D87-414E-B567-2052949AF687}'] + ['{14F77428-ACCF-4AF1-86C3-88A977F1C5E6}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldDESCRIPCIONValue : String; @@ -2540,7 +2587,7 @@ type { IGruposProveedorDelta } IGruposProveedorDelta = interface(IGruposProveedor) - ['{C3A6BA6F-15EC-486F-8212-0CEB2A66D6A1}'] + ['{8B49F5CF-4C5A-4E6B-B66B-1A50F003E0CD}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldDESCRIPCIONValue : String; @@ -2586,7 +2633,7 @@ type { IContactos_RefreshDelta } IContactos_RefreshDelta = interface(IContactos_Refresh) - ['{F1DF7DB2-6FC0-43D6-B14B-E6E6DE744DE4}'] + ['{332B4E11-5924-4DE0-B89C-937B51D7E7A9}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldNIF_CIFValue : String; @@ -2864,6 +2911,49 @@ implementation uses Variants, uROBinaryHelpers, uDAInterfaces; +{ TDarEmpresasContactoBusinessProcessorRules } +constructor TDarEmpresasContactoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); +begin + inherited; +end; + +destructor TDarEmpresasContactoBusinessProcessorRules.Destroy; +begin + inherited; +end; + +function TDarEmpresasContactoBusinessProcessorRules.GetID_EMPRESAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_DarEmpresasContactoID_EMPRESA]; +end; + +function TDarEmpresasContactoBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DarEmpresasContactoID_EMPRESA]); +end; + +function TDarEmpresasContactoBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_DarEmpresasContactoID_EMPRESA]; +end; + +function TDarEmpresasContactoBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DarEmpresasContactoID_EMPRESA]); +end; + +procedure TDarEmpresasContactoBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_DarEmpresasContactoID_EMPRESA] := aValue; +end; + +procedure TDarEmpresasContactoBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_DarEmpresasContactoID_EMPRESA] := Null; +end; + + { TPersonalContactoBusinessProcessorRules } constructor TPersonalContactoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin @@ -5877,6 +5967,37 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3] := Null; end; +function TClientesBusinessProcessorRules.GetLISTA_NOMBRESValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesLISTA_NOMBRES]; +end; + +function TClientesBusinessProcessorRules.GetLISTA_NOMBRESIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesLISTA_NOMBRES]); +end; + +function TClientesBusinessProcessorRules.GetOldLISTA_NOMBRESValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesLISTA_NOMBRES]; +end; + +function TClientesBusinessProcessorRules.GetOldLISTA_NOMBRESIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesLISTA_NOMBRES]); +end; + +procedure TClientesBusinessProcessorRules.SetLISTA_NOMBRESValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesLISTA_NOMBRES] := aValue; +end; + +procedure TClientesBusinessProcessorRules.SetLISTA_NOMBRESIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesLISTA_NOMBRES] := Null; +end; + { TProveedoresBusinessProcessorRules } constructor TProveedoresBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); @@ -9591,6 +9712,7 @@ end; initialization + RegisterBusinessProcessorRules(RID_DarEmpresasContactoDelta, TDarEmpresasContactoBusinessProcessorRules); RegisterBusinessProcessorRules(RID_PersonalContactoDelta, TPersonalContactoBusinessProcessorRules); RegisterBusinessProcessorRules(RID_DarTiendaDeUsuarioDelta, TDarTiendaDeUsuarioBusinessProcessorRules); RegisterBusinessProcessorRules(RID_SubCuentasContactoDelta, TSubCuentasContactoBusinessProcessorRules); diff --git a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm index b1e49afd..cf6d4de6 100644 --- a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm +++ b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm @@ -826,6 +826,10 @@ object srvContactos: TsrvContactos item DatasetField = 'VENCIMIENTO_FACTURAS_3' TableField = 'VENCIMIENTO_FACTURAS_3' + end + item + DatasetField = 'LISTA_NOMBRES' + TableField = 'LISTA_NOMBRES' end> end> Name = 'Clientes' @@ -1059,6 +1063,12 @@ object srvContactos: TsrvContactos item Name = 'VENCIMIENTO_FACTURAS_3' DataType = datInteger + end + item + Name = 'LISTA_NOMBRES' + DataType = datString + Size = 255 + DictionaryEntry = 'Clientes_LISTA_NOMBRES' end> end item @@ -4184,6 +4194,12 @@ object srvContactos: TsrvContactos end object DataDictionary: TDADataDictionary Fields = < + item + Name = 'Clientes_LISTA_NOMBRES' + DataType = datString + Size = 255 + DisplayLabel = 'Otros nombres' + end item Name = 'DatosBancarios_ID' DataType = datAutoInc diff --git a/Source/Modulos/Contactos/Views/uViewClientes.dfm b/Source/Modulos/Contactos/Views/uViewClientes.dfm index 3e2db637..8f68ba2c 100644 --- a/Source/Modulos/Contactos/Views/uViewClientes.dfm +++ b/Source/Modulos/Contactos/Views/uViewClientes.dfm @@ -59,6 +59,11 @@ inherited frViewClientes: TfrViewClientes Caption = 'Persona contacto' DataBinding.FieldName = 'PERSONA_CONTACTO' end + object cxGridViewLISTA_NOMBRES: TcxGridDBColumn + DataBinding.FieldName = 'LISTA_NOMBRES' + BestFitMaxWidth = 60 + Width = 90 + end end end inherited frViewFiltroBase1: TfrViewFiltroBase @@ -70,27 +75,15 @@ inherited frViewClientes: TfrViewClientes Width = 633 ExplicitWidth = 633 inherited txtFiltroTodo: TcxTextEdit - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 661 Width = 661 end inherited edtFechaIniFiltro: TcxDateEdit - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 217 Width = 217 end inherited edtFechaFinFiltro: TcxDateEdit Left = 271 - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 271 ExplicitWidth = 427 Width = 427 diff --git a/Source/Modulos/Contactos/Views/uViewClientes.pas b/Source/Modulos/Contactos/Views/uViewClientes.pas index 114b937a..bf7c42aa 100644 --- a/Source/Modulos/Contactos/Views/uViewClientes.pas +++ b/Source/Modulos/Contactos/Views/uViewClientes.pas @@ -27,6 +27,7 @@ type cxGridViewTiendaWeb: TcxGridDBColumn; cxGridViewPERSONA_CONTACTO: TcxGridDBColumn; cxGridViewFECHA_ALTA: TcxGridDBColumn; + cxGridViewLISTA_NOMBRES: TcxGridDBColumn; procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index 4af83476..b1221bea 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -28,7 +28,7 @@ Delphi.Personality - FalseTrueFalseTrueFalse2690FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.6.9.0FactuGES (Servidor)2.6.9.0jueves, 22 de octubre de 2015 19:37 + FalseTrueFalseTrueFalse2720FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.7.2.0FactuGES (Servidor)2.7.2.0lunes, 25 de enero de 2016 15:45 File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found FactuGES_Server.dpr diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc index 1b971989..881a825b 100644 --- a/Source/Servidor/FactuGES_Server.rc +++ b/Source/Servidor/FactuGES_Server.rc @@ -1,7 +1,7 @@ MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Servidor.ico" 1 VERSIONINFO -FILEVERSION 2,6,9,0 -PRODUCTVERSION 2,6,9,0 +FILEVERSION 2,7,2,0 +PRODUCTVERSION 2,7,2,0 FILEFLAGSMASK 0x3FL FILEFLAGS 0x00L FILEOS 0x40004L @@ -13,10 +13,10 @@ BEGIN BLOCK "0C0A04E4" BEGIN VALUE "CompanyName", "Rodax Software S.L.\0" - VALUE "FileVersion", "2.6.9.0\0" + VALUE "FileVersion", "2.7.2.0\0" VALUE "ProductName", "FactuGES (Servidor)\0" - VALUE "ProductVersion", "2.6.9.0\0" - VALUE "CompileDate", "martes, 27 de octubre de 2015 10:49\0" + VALUE "ProductVersion", "2.7.2.0\0" + VALUE "CompileDate", "lunes, 25 de enero de 2016 15:56\0" END END BLOCK "VarFileInfo" diff --git a/Source/Servidor/FactuGES_Server.res b/Source/Servidor/FactuGES_Server.res index 819dd7d1..f9073ea5 100644 Binary files a/Source/Servidor/FactuGES_Server.res and b/Source/Servidor/FactuGES_Server.res differ diff --git a/Tools/Firebird/Firebird-2.1.7.18553_0_Win32.exe b/Tools/Firebird/Firebird-2.1.7.18553_0_Win32.exe new file mode 100644 index 00000000..7e716c8b Binary files /dev/null and b/Tools/Firebird/Firebird-2.1.7.18553_0_Win32.exe differ