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

Cambio para que la tienda tenga asociado un código contable para la parte de contabilidad

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@150 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2008-02-26 17:20:29 +00:00
parent 6fb18ab4da
commit 0db8a3bf4f
15 changed files with 171 additions and 53 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Database/scripts/factuges.sql
View File

@ -832,8 +832,8 @@ CREATE TABLE EMPRESAS_DATOS_BANCO (
CREATE TABLE EMPRESAS_TIENDAS (
ID TIPO_ID NOT NULL,
ID_EMPRESA TIPO_ID NOT NULL,
ID TIPO_ID NOT NULL /* TIPO_ID = INTEGER */,
ID_EMPRESA TIPO_ID NOT NULL /* TIPO_ID = INTEGER */,
CALLE VARCHAR(255),
POBLACION VARCHAR(255),
PROVINCIA VARCHAR(255),
@ -846,7 +846,8 @@ CREATE TABLE EMPRESAS_TIENDAS (
EMAIL VARCHAR(255),
NOTAS TIPO_NOTAS,
FECHA_ALTA TIMESTAMP,
FECHA_MODIFICACION TIMESTAMP
FECHA_MODIFICACION TIMESTAMP,
CODIGO_CONTABLE VARCHAR(2) COLLATE ES_ES
);

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

@ -394,6 +394,11 @@ inherited DataModuleEmpresas: TDataModuleEmpresas
DataType = datDateTime
DisplayLabel = 'EmpresasTiendas_FECHA_MODIFICACION'
DictionaryEntry = 'EmpresasTiendas_FECHA_MODIFICACION'
end
item
Name = 'CODIGO_CONTABLE'
DataType = datString
Size = 2
end>
Params = <>
MasterMappingMode = mmWhere

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

@ -3,15 +3,15 @@ unit schEmpresasClient_Intf;
interface
uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_EmpresasTiendas = '{BD78E5F1-4636-43A0-9362-F3F4CDC322CF}';
RID_Empresas = '{B8C14C6F-BCE5-4346-ABEC-0DADBCA0B194}';
RID_EmpresasDatosBanco = '{002C9069-240E-40BA-8F11-221B263BAB3C}';
RID_EmpresasTiendas = '{1596A2D4-D5EA-4AB8-A87F-3472E14D95B7}';
RID_Empresas = '{36C6A689-7D4A-45D8-AE4A-E7B1AC5D603D}';
RID_EmpresasDatosBanco = '{EF50F778-8A79-4E98-A584-F7409D676979}';
{ Data table names }
nme_EmpresasTiendas = 'EmpresasTiendas';
@ -34,6 +34,7 @@ const
fld_EmpresasTiendasNOTAS = 'NOTAS';
fld_EmpresasTiendasFECHA_ALTA = 'FECHA_ALTA';
fld_EmpresasTiendasFECHA_MODIFICACION = 'FECHA_MODIFICACION';
fld_EmpresasTiendasCODIGO_CONTABLE = 'CODIGO_CONTABLE';
{ EmpresasTiendas field indexes }
idx_EmpresasTiendasID = 0;
@ -51,6 +52,7 @@ const
idx_EmpresasTiendasNOTAS = 12;
idx_EmpresasTiendasFECHA_ALTA = 13;
idx_EmpresasTiendasFECHA_MODIFICACION = 14;
idx_EmpresasTiendasCODIGO_CONTABLE = 15;
{ Empresas fields }
fld_EmpresasID = 'ID';
@ -127,7 +129,7 @@ const
type
{ IEmpresasTiendas }
IEmpresasTiendas = interface(IDAStronglyTypedDataTable)
['{B2D64357-38DD-4359-9187-E02D72E066E8}']
['{5717EA22-3BD0-4D84-8C13-44878475A8A4}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -188,6 +190,10 @@ type
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime);
function GetFECHA_MODIFICACIONIsNull: Boolean;
procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
function GetCODIGO_CONTABLEValue: String;
procedure SetCODIGO_CONTABLEValue(const aValue: String);
function GetCODIGO_CONTABLEIsNull: Boolean;
procedure SetCODIGO_CONTABLEIsNull(const aValue: Boolean);
{ Properties }
@ -221,10 +227,12 @@ type
property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
property CODIGO_CONTABLE: String read GetCODIGO_CONTABLEValue write SetCODIGO_CONTABLEValue;
property CODIGO_CONTABLEIsNull: Boolean read GetCODIGO_CONTABLEIsNull write SetCODIGO_CONTABLEIsNull;
end;
{ TEmpresasTiendasDataTableRules }
TEmpresasTiendasDataTableRules = class(TIntfObjectDADataTableRules, IEmpresasTiendas)
TEmpresasTiendasDataTableRules = class(TDADataTableRules, IEmpresasTiendas)
private
f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject);
@ -289,6 +297,10 @@ type
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
function GetCODIGO_CONTABLEValue: String; virtual;
procedure SetCODIGO_CONTABLEValue(const aValue: String); virtual;
function GetCODIGO_CONTABLEIsNull: Boolean; virtual;
procedure SetCODIGO_CONTABLEIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@ -321,6 +333,8 @@ type
property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
property CODIGO_CONTABLE: String read GetCODIGO_CONTABLEValue write SetCODIGO_CONTABLEValue;
property CODIGO_CONTABLEIsNull: Boolean read GetCODIGO_CONTABLEIsNull write SetCODIGO_CONTABLEIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@ -330,7 +344,7 @@ type
{ IEmpresas }
IEmpresas = interface(IDAStronglyTypedDataTable)
['{FBFC4B93-8590-476D-A138-576E2114B398}']
['{8F3B7830-6A3B-4041-9226-8A4768462EEC}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -474,7 +488,7 @@ type
end;
{ TEmpresasDataTableRules }
TEmpresasDataTableRules = class(TIntfObjectDADataTableRules, IEmpresas)
TEmpresasDataTableRules = class(TDADataTableRules, IEmpresas)
private
f_NOTAS: IROStrings;
f_LOGOTIPO: IROStream;
@ -629,7 +643,7 @@ type
{ IEmpresasDatosBanco }
IEmpresasDatosBanco = interface(IDAStronglyTypedDataTable)
['{4C8B86F3-910E-49AF-A8B5-C4DA14DDE605}']
['{F70DFC8E-6577-4105-A32D-B29CC4ED64F9}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -691,7 +705,7 @@ type
end;
{ TEmpresasDatosBancoDataTableRules }
TEmpresasDatosBancoDataTableRules = class(TIntfObjectDADataTableRules, IEmpresasDatosBanco)
TEmpresasDatosBancoDataTableRules = class(TDADataTableRules, IEmpresasDatosBanco)
private
protected
{ Property getters and setters }
@ -1095,6 +1109,27 @@ begin
DataTable.Fields[idx_EmpresasTiendasFECHA_MODIFICACION].AsVariant := Null;
end;
function TEmpresasTiendasDataTableRules.GetCODIGO_CONTABLEValue: String;
begin
result := DataTable.Fields[idx_EmpresasTiendasCODIGO_CONTABLE].AsString;
end;
procedure TEmpresasTiendasDataTableRules.SetCODIGO_CONTABLEValue(const aValue: String);
begin
DataTable.Fields[idx_EmpresasTiendasCODIGO_CONTABLE].AsString := aValue;
end;
function TEmpresasTiendasDataTableRules.GetCODIGO_CONTABLEIsNull: boolean;
begin
result := DataTable.Fields[idx_EmpresasTiendasCODIGO_CONTABLE].IsNull;
end;
procedure TEmpresasTiendasDataTableRules.SetCODIGO_CONTABLEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_EmpresasTiendasCODIGO_CONTABLE].AsVariant := Null;
end;
{ TEmpresasDataTableRules }
constructor TEmpresasDataTableRules.Create(aDataTable: TDADataTable);

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

@ -9,14 +9,14 @@ 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_EmpresasTiendasDelta = '{C646565C-D76B-4982-B86D-D3557DDE1E0C}';
RID_EmpresasDelta = '{8A74346F-1F18-4ABC-9BAA-602FDF120909}';
RID_EmpresasDatosBancoDelta = '{8F716BEB-5AC5-43F9-BA1B-6B2066216331}';
RID_EmpresasTiendasDelta = '{78EE7516-DCC4-4DF7-862E-593572864080}';
RID_EmpresasDelta = '{30CE5020-5913-4D58-BE4E-DF2E33A4BC6D}';
RID_EmpresasDatosBancoDelta = '{E775BE8F-E903-49EE-A902-0644D3FB4CBC}';
type
{ IEmpresasTiendasDelta }
IEmpresasTiendasDelta = interface(IEmpresasTiendas)
['{C646565C-D76B-4982-B86D-D3557DDE1E0C}']
['{78EE7516-DCC4-4DF7-862E-593572864080}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -33,6 +33,7 @@ type
function GetOldNOTASValue : IROStrings;
function GetOldFECHA_ALTAValue : DateTime;
function GetOldFECHA_MODIFICACIONValue : DateTime;
function GetOldCODIGO_CONTABLEValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -50,6 +51,7 @@ type
property OldNOTAS : IROStrings read GetOldNOTASValue;
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property OldCODIGO_CONTABLE : String read GetOldCODIGO_CONTABLEValue;
end;
{ TEmpresasTiendasBusinessProcessorRules }
@ -148,6 +150,12 @@ type
function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual;
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
function GetCODIGO_CONTABLEValue: String; virtual;
function GetCODIGO_CONTABLEIsNull: Boolean; virtual;
function GetOldCODIGO_CONTABLEValue: String; virtual;
function GetOldCODIGO_CONTABLEIsNull: Boolean; virtual;
procedure SetCODIGO_CONTABLEValue(const aValue: String); virtual;
procedure SetCODIGO_CONTABLEIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@ -210,6 +218,10 @@ type
property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull;
property CODIGO_CONTABLE : String read GetCODIGO_CONTABLEValue write SetCODIGO_CONTABLEValue;
property CODIGO_CONTABLEIsNull : Boolean read GetCODIGO_CONTABLEIsNull write SetCODIGO_CONTABLEIsNull;
property OldCODIGO_CONTABLE : String read GetOldCODIGO_CONTABLEValue;
property OldCODIGO_CONTABLEIsNull : Boolean read GetOldCODIGO_CONTABLEIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -219,7 +231,7 @@ type
{ IEmpresasDelta }
IEmpresasDelta = interface(IEmpresas)
['{8A74346F-1F18-4ABC-9BAA-602FDF120909}']
['{30CE5020-5913-4D58-BE4E-DF2E33A4BC6D}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldNIF_CIFValue : String;
@ -519,7 +531,7 @@ type
{ IEmpresasDatosBancoDelta }
IEmpresasDatosBancoDelta = interface(IEmpresasDatosBanco)
['{8F716BEB-5AC5-43F9-BA1B-6B2066216331}']
['{E775BE8F-E903-49EE-A902-0644D3FB4CBC}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -1136,6 +1148,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasFECHA_MODIFICACION] := Null;
end;
function TEmpresasTiendasBusinessProcessorRules.GetCODIGO_CONTABLEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasCODIGO_CONTABLE];
end;
function TEmpresasTiendasBusinessProcessorRules.GetCODIGO_CONTABLEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasCODIGO_CONTABLE]);
end;
function TEmpresasTiendasBusinessProcessorRules.GetOldCODIGO_CONTABLEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasTiendasCODIGO_CONTABLE];
end;
function TEmpresasTiendasBusinessProcessorRules.GetOldCODIGO_CONTABLEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasTiendasCODIGO_CONTABLE]);
end;
procedure TEmpresasTiendasBusinessProcessorRules.SetCODIGO_CONTABLEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasCODIGO_CONTABLE] := aValue;
end;
procedure TEmpresasTiendasBusinessProcessorRules.SetCODIGO_CONTABLEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasCODIGO_CONTABLE] := Null;
end;
{ TEmpresasBusinessProcessorRules }
constructor TEmpresasBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

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

@ -85,6 +85,10 @@ object srvEmpresas: TsrvEmpresas
item
DatasetField = 'FECHA_MODIFICACION'
TableField = 'FECHA_MODIFICACION'
end
item
DatasetField = 'CODIGO_CONTABLE'
TableField = 'CODIGO_CONTABLE'
end>
end>
Name = 'EmpresasTiendas'
@ -176,6 +180,11 @@ object srvEmpresas: TsrvEmpresas
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
DictionaryEntry = 'EmpresasTiendas_FECHA_MODIFICACION'
end
item
Name = 'CODIGO_CONTABLE'
DataType = datString
Size = 2
end>
end
item
@ -887,8 +896,8 @@ object srvEmpresas: TsrvEmpresas
Top = 90
DiagramData =
'<Diagrams>'#13#10' <Diagram Name="New Diagram" Left="200" Top="200" W' +
'idth="400" Height="300">'#13#10' <Entity Name="EmpresasDatosBanco" ' +
'Left="309,00" Top="0,00" />'#13#10' <Entity Name="Empresas" Left="0' +
'idth="400" Height="300">'#13#10' <Entity Name="Empresas" Left="0,00' +
'" Top="1,00" />'#13#10' <Entity Name="EmpresasDatosBanco" Left="308' +
',00" Top="0,00" />'#13#10' </Diagram>'#13#10'</Diagrams>'#13#10
end
object DABin2DataStreamer: TDABin2DataStreamer

44
Source/ApplicationBase/Empresas/Views/uEditorTiendaEmpresa.dfm
View File

@ -4,24 +4,25 @@ object fEditorTiendaEmpresa: TfEditorTiendaEmpresa
ActiveControl = eNombre
BorderStyle = bsDialog
Caption = 'Cambiar datos de la tienda'
ClientHeight = 494
ClientWidth = 426
ClientHeight = 551
ClientWidth = 432
Color = clBtnFace
ParentFont = True
OldCreateOrder = True
Position = poOwnerFormCenter
DesignSize = (
426
494)
432
551)
PixelsPerInch = 96
TextHeight = 13
object Bevel1: TBevel
Left = 8
Top = 8
Width = 322
Width = 328
Height = 465
Anchors = [akLeft, akTop, akRight]
Shape = bsFrame
ExplicitWidth = 322
end
object Label1: TLabel
Left = 20
@ -56,7 +57,7 @@ object fEditorTiendaEmpresa: TfEditorTiendaEmpresa
Caption = 'C'#243'digo postal:'
end
object Label5: TLabel
Left = 20
Left = 19
Top = 27
Width = 110
Height = 13
@ -136,8 +137,24 @@ object fEditorTiendaEmpresa: TfEditorTiendaEmpresa
AutoSize = False
Caption = 'Fax:'
end
object Bevel2: TBevel
Left = 8
Top = 479
Width = 328
Height = 58
Anchors = [akLeft, akTop, akRight]
Shape = bsFrame
end
object Label10: TLabel
Left = 19
Top = 499
Width = 110
Height = 13
AutoSize = False
Caption = 'C'#243'digo contable:'
end
object OKBtn: TButton
Left = 343
Left = 349
Top = 7
Width = 75
Height = 25
@ -145,9 +162,10 @@ object fEditorTiendaEmpresa: TfEditorTiendaEmpresa
Caption = '&Aceptar'
ModalResult = 1
TabOrder = 0
ExplicitLeft = 343
end
object CancelBtn: TButton
Left = 343
Left = 349
Top = 38
Width = 75
Height = 25
@ -156,6 +174,7 @@ object fEditorTiendaEmpresa: TfEditorTiendaEmpresa
Caption = '&Cancelar'
ModalResult = 2
TabOrder = 1
ExplicitLeft = 343
end
object eDireccion: TDBEdit
Left = 135
@ -272,6 +291,15 @@ object fEditorTiendaEmpresa: TfEditorTiendaEmpresa
DataSource = dsTienda
TabOrder = 12
end
object eCodigoContable: TDBEdit
Left = 135
Top = 496
Width = 191
Height = 21
DataField = 'CODIGO_CONTABLE'
DataSource = dsTienda
TabOrder = 13
end
object dsTienda: TDADataSource
Left = 352
Top = 72

3
Source/ApplicationBase/Empresas/Views/uEditorTiendaEmpresa.pas
View File

@ -37,6 +37,9 @@ type
eMovil: TDBEdit;
Label12: TLabel;
eFax: TDBEdit;
Bevel2: TBevel;
eCodigoContable: TDBEdit;
Label10: TLabel;
procedure PngSpeedButton3Click(Sender: TObject);
procedure eMailPropertiesEditValueChanged(Sender: TObject);
procedure eMailPropertiesValidate(Sender: TObject;

24
Source/ApplicationBase/Empresas/Views/uViewTiendas.dfm
View File

@ -55,10 +55,12 @@ inherited frViewTiendas: TfrViewTiendas
Width = 92
end
object cxGridViewTELEFONO: TcxGridDBColumn
Caption = 'Tel'#233'fono'
DataBinding.FieldName = 'TELEFONO'
Width = 54
end
object cxGridViewEMAIL: TcxGridDBColumn
Caption = 'e-mail'
DataBinding.FieldName = 'EMAIL'
Width = 50
end
@ -66,41 +68,31 @@ inherited frViewTiendas: TfrViewTiendas
DataBinding.FieldName = 'PORTE'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
Visible = False
FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taRightJustify
VisibleForCustomization = False
Width = 54
end
object cxGridViewCODIGO_CONTABLE: TcxGridDBColumn
Caption = 'C'#243'd.Contable'
DataBinding.FieldName = 'CODIGO_CONTABLE'
end
end
end
inherited ToolBar1: TToolBar
Width = 583
ExplicitWidth = 583
inherited ToolButton1: TToolButton
Top = 0
ExplicitTop = 0
ExplicitWidth = 62
end
inherited ToolButton4: TToolButton
Top = 0
ExplicitTop = 0
ExplicitWidth = 74
end
inherited ToolButton5: TToolButton
Top = 0
ExplicitTop = 0
end
inherited ToolButton2: TToolButton
Top = 0
ExplicitTop = 0
ExplicitWidth = 67
end
inherited ToolButton6: TToolButton
Top = 0
ExplicitTop = 0
end
inherited ToolButton7: TToolButton
Top = 0
ExplicitTop = 0
ExplicitWidth = 117
end
end

1
Source/ApplicationBase/Empresas/Views/uViewTiendas.pas
View File

@ -23,6 +23,7 @@ type
cxGridViewTELEFONO: TcxGridDBColumn;
cxGridViewEMAIL: TcxGridDBColumn;
cxGridViewPORTE: TcxGridDBColumn;
cxGridViewCODIGO_CONTABLE: TcxGridDBColumn;
procedure cxGridViewDblClick(Sender: TObject);
procedure actEliminarExecute(Sender: TObject);
protected

BIN
Source/Base/Base.res
View File

Binary file not shown.

8
Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas
View File

@ -3,7 +3,7 @@ unit schRecibosClienteClient_Intf;
interface
uses
Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
@ -405,7 +405,7 @@ type
end;
{ TRecibosClienteDataTableRules }
TRecibosClienteDataTableRules = class(TDADataTableRules, IRecibosCliente)
TRecibosClienteDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCliente)
private
protected
{ Property getters and setters }
@ -716,7 +716,7 @@ type
end;
{ TPagosClienteDataTableRules }
TPagosClienteDataTableRules = class(TDADataTableRules, IPagosCliente)
TPagosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPagosCliente)
private
protected
{ Property getters and setters }
@ -991,7 +991,7 @@ type
end;
{ TRecibosCompensadosCliDataTableRules }
TRecibosCompensadosCliDataTableRules = class(TDADataTableRules, IRecibosCompensadosCli)
TRecibosCompensadosCliDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCompensadosCli)
private
protected
{ Property getters and setters }

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -105,8 +105,6 @@ uses
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schUsuariosClient_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas',
@ -115,7 +113,9 @@ uses
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
uBizRecibosClienteServer in '..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas',
schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas';
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}

1
Source/Servidor/FactuGES_Server.dproj
View File

@ -30,6 +30,7 @@
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 19 de noviembre de 2007 18:58</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN
VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0"
VALUE "CompileDate", "lunes, 25 de febrero de 2008 19:48\0"
VALUE "CompileDate", "martes, 26 de febrero de 2008 17:08\0"
END
END
BLOCK "VarFileInfo"