diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj
index 95ba1f7..a0c3f23 100644
--- a/Source/Base/Base.dproj
+++ b/Source/Base/Base.dproj
@@ -44,6 +44,13 @@
Package
FalseTrueFalseLibreria base de FactuGESFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0
+
+
+
+
+
+
+
VCL for the Web Design Package for CodeGear RAD Studio
CodeGear WebSnap Components
CodeGear SOAP Components
@@ -58,55 +65,55 @@
MainSource
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
TForm
diff --git a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
index 8da6f82..1df3e3b 100644
--- a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
+++ b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
@@ -3,15 +3,15 @@ unit schFacturasClienteClient_Intf;
interface
uses
- Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
+ Classes, DB, 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_ListaAnosFacturas = '{0B7FFA50-F8E0-48C1-A562-D787DFD31113}';
- RID_FacturasCliente = '{17EE5BA0-9C09-4BC1-B224-ECBE27955EB5}';
- RID_FacturasCliente_Detalles = '{23406660-F90F-495F-8EDC-DE160A640BE3}';
+ RID_ListaAnosFacturas = '{BB9857AE-8858-44B1-A10B-EEBF38D61518}';
+ RID_FacturasCliente = '{1746D02E-7BE8-4F08-9C96-54B091D8A1CA}';
+ RID_FacturasCliente_Detalles = '{9296DD27-5DC8-48DE-9830-53497C1AAF6B}';
{ Data table names }
nme_ListaAnosFacturas = 'ListaAnosFacturas';
@@ -159,7 +159,7 @@ const
type
{ IListaAnosFacturas }
IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
- ['{F7A21916-AD6A-4354-AC97-24ACEB11D229}']
+ ['{4732CF5C-9ADB-4DF9-850E-DD63D351047D}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@@ -173,7 +173,7 @@ type
end;
{ TListaAnosFacturasDataTableRules }
- TListaAnosFacturasDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosFacturas)
+ TListaAnosFacturasDataTableRules = class(TDADataTableRules, IListaAnosFacturas)
private
protected
{ Property getters and setters }
@@ -194,7 +194,7 @@ type
{ IFacturasCliente }
IFacturasCliente = interface(IDAStronglyTypedDataTable)
- ['{2FE56E65-87BC-45FE-A4D5-CA3DF8D941B5}']
+ ['{4E6CAD4C-CB1B-475E-B8E2-A8689D3CD0FA}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -489,7 +489,7 @@ type
end;
{ TFacturasClienteDataTableRules }
- TFacturasClienteDataTableRules = class(TIntfObjectDADataTableRules, IFacturasCliente)
+ TFacturasClienteDataTableRules = class(TDADataTableRules, IFacturasCliente)
private
f_OBSERVACIONES: IROStrings;
procedure OBSERVACIONES_OnChange(Sender: TObject);
@@ -793,7 +793,7 @@ type
{ IFacturasCliente_Detalles }
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
- ['{054390A6-7A81-4F0A-886E-29CE32371B63}']
+ ['{C870BB3F-2BC1-4D03-866D-AE1901D32B6F}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -885,7 +885,7 @@ type
end;
{ TFacturasCliente_DetallesDataTableRules }
- TFacturasCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IFacturasCliente_Detalles)
+ TFacturasCliente_DetallesDataTableRules = class(TDADataTableRules, IFacturasCliente_Detalles)
private
protected
{ Property getters and setters }
diff --git a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas
index 562a5d9..ba7c51d 100644
--- a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas
+++ b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas
@@ -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_ListaAnosFacturasDelta = '{D5A9BC5A-02B1-4447-9B85-091759C3F578}';
- RID_FacturasClienteDelta = '{82202330-E0FD-415C-BCDF-BFC47BCB4B92}';
- RID_FacturasCliente_DetallesDelta = '{CC9347DB-60EC-498B-A524-61302BD37A6A}';
+ RID_ListaAnosFacturasDelta = '{FEC79BF2-9523-44C6-8D31-052F8EB193E4}';
+ RID_FacturasClienteDelta = '{02545CC3-5DF3-4C38-808E-85DE15E6A8DB}';
+ RID_FacturasCliente_DetallesDelta = '{D1C6908F-F600-4774-BAB3-185998B8C0F7}';
type
{ IListaAnosFacturasDelta }
IListaAnosFacturasDelta = interface(IListaAnosFacturas)
- ['{D5A9BC5A-02B1-4447-9B85-091759C3F578}']
+ ['{FEC79BF2-9523-44C6-8D31-052F8EB193E4}']
{ Property getters and setters }
function GetOldANOValue : String;
@@ -50,7 +50,7 @@ type
{ IFacturasClienteDelta }
IFacturasClienteDelta = interface(IFacturasCliente)
- ['{82202330-E0FD-415C-BCDF-BFC47BCB4B92}']
+ ['{02545CC3-5DF3-4C38-808E-85DE15E6A8DB}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -649,7 +649,7 @@ type
{ IFacturasCliente_DetallesDelta }
IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
- ['{CC9347DB-60EC-498B-A524-61302BD37A6A}']
+ ['{D1C6908F-F600-4774-BAB3-185998B8C0F7}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer;
diff --git a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
index b166934..dce3c01 100644
--- a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
+++ b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
@@ -56,6 +56,8 @@ type
function DarListaAnosFacturas: TStringList;
procedure FiltrarAno(AFactura: IBizFacturaProveedor; ADynWhereDataTable: WideString; const Ano: String);
+
+ function darTiposFacturaProveedor: IBizTiposFacturaProveedor;
end;
TFacturasProveedorController = class(TControllerBase, IFacturasProveedorController)
@@ -128,6 +130,8 @@ type
function DarListaAnosFacturas: TStringList;
procedure FiltrarAno(AFactura: IBizFacturaProveedor; ADynWhereDataTable: WideString; const Ano: String);
+
+ function darTiposFacturaProveedor: IBizTiposFacturaProveedor;
end;
implementation
@@ -579,6 +583,11 @@ begin
Result := FDataModule.GetAnosItems;
end;
+function TFacturasProveedorController.darTiposFacturaProveedor: IBizTiposFacturaProveedor;
+begin
+ Result := FDataModule.darTiposFacturaProveedor;
+end;
+
procedure TFacturasProveedorController.DescartarCambios(AFactura: IBizFacturaProveedor);
begin
if not Assigned(AFactura) then
diff --git a/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm b/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm
index 902da7b..c4b0c70 100644
--- a/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm
+++ b/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm
@@ -292,6 +292,10 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
item
Name = 'ASIENTO_PUNTEADO'
DataType = datSmallInt
+ end
+ item
+ Name = 'ID_TIPO_FACTURA'
+ DataType = datInteger
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
@@ -503,4 +507,30 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
Left = 368
Top = 216
end
+ object tbl_TiposFacturaProveedor: TDAMemDataTable
+ RemoteUpdatesOptions = []
+ Fields = <
+ item
+ Name = 'ID'
+ DataType = datInteger
+ end
+ item
+ Name = 'DESCRIPCION'
+ DataType = datString
+ Size = 2000
+ end>
+ Params = <>
+ StreamingOptions = [soDisableEventsWhileStreaming]
+ RemoteDataAdapter = rda_FacturasProveedor
+ LogicalName = 'TiposFacturaProveedor'
+ IndexDefs = <>
+ Left = 72
+ Top = 264
+ end
+ object ds_TiposFacturaProveedor: TDADataSource
+ DataSet = tbl_TiposFacturaProveedor.Dataset
+ DataTable = tbl_TiposFacturaProveedor
+ Left = 72
+ Top = 216
+ end
end
diff --git a/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.pas b/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.pas
index 2b2a662..38e9a7d 100644
--- a/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.pas
+++ b/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.pas
@@ -24,6 +24,8 @@ type
ds_ListaAnosFacturas: TDADataSource;
tbl_FacturasProveedor_Contratos: TDAMemDataTable;
ds_FacturasProveedor_Contratos: TDADataSource;
+ tbl_TiposFacturaProveedor: TDAMemDataTable;
+ ds_TiposFacturaProveedor: TDADataSource;
procedure DAClientDataModuleCreate(Sender: TObject);
private
function _GetDetalles : IBizDetallesFacturaProveedor;
@@ -33,6 +35,7 @@ type
function GetItems : IBizFacturaProveedor;
function GetItem(const ID : Integer) : IBizFacturaProveedor;
function NewItem : IBizFacturaProveedor;
+ function darTiposFacturaProveedor : IBizTiposFacturaProveedor;
// Report
function GetReport(const AFacturaID: String): Binary;
@@ -100,6 +103,20 @@ begin
end;
end;
+function TDataModuleFacturasProveedor.darTiposFacturaProveedor: IBizTiposFacturaProveedor;
+var
+ ATipos : TDAMemDataTable;
+begin
+ ShowHourglassCursor;
+ try
+ ATipos := CloneDataTable(tbl_TiposFacturaProveedor);
+ ATipos.BusinessRulesID := BIZ_CLIENT_TIPOS_FACTURA_PROVEEDOR;
+ Result := (ATipos as IBizTiposFacturaProveedor);
+ finally
+ HideHourglassCursor;
+ end;
+end;
+
function TDataModuleFacturasProveedor.GetAnosItems: TStringList;
var
AListaAnos: TStringList;
diff --git a/Source/Modulos/Facturas de proveedor/Model/Data/uIDataModuleFacturasProveedor.pas b/Source/Modulos/Facturas de proveedor/Model/Data/uIDataModuleFacturasProveedor.pas
index 9a58599..345de96 100644
--- a/Source/Modulos/Facturas de proveedor/Model/Data/uIDataModuleFacturasProveedor.pas
+++ b/Source/Modulos/Facturas de proveedor/Model/Data/uIDataModuleFacturasProveedor.pas
@@ -13,6 +13,7 @@ type
function GetItems: IBizFacturaProveedor;
function GetItem(const ID : Integer) : IBizFacturaProveedor;
function NewItem : IBizFacturaProveedor;
+ function darTiposFacturaProveedor : IBizTiposFacturaProveedor;
end;
implementation
diff --git a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas
index b2f00d6..e52fc83 100644
--- a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas
+++ b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas
@@ -9,14 +9,16 @@ 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_ListaAnosFacturas = '{967EF3B2-AD90-4AF2-916D-06DB5575FD21}';
- RID_FacturasProveedor_Contratos = '{5A804E76-1B25-4E55-A944-CA4F30CB3804}';
- RID_FacturasProveedor = '{77312F2D-C1A9-4F2C-8375-214ADAE31665}';
- RID_FacturasProveedor_Detalles = '{90F07E7A-B93A-4C06-A123-942FDE9320FC}';
+ RID_ListaAnosFacturas = '{7B9F91D4-906B-4935-A6E5-7E5E73CFB8F2}';
+ RID_FacturasProveedor_Contratos = '{7E19810B-9DA8-42DE-826F-B33D7DBDCD51}';
+ RID_TiposFacturaProveedor = '{E83ABFBC-6F47-4597-979C-3224CC00DBDC}';
+ RID_FacturasProveedor = '{26602041-C101-4CAC-824C-C6B0A3705AE8}';
+ RID_FacturasProveedor_Detalles = '{C7E32006-F921-4ADB-BB08-ED1080FBE6DB}';
{ Data table names }
nme_ListaAnosFacturas = 'ListaAnosFacturas';
nme_FacturasProveedor_Contratos = 'FacturasProveedor_Contratos';
+ nme_TiposFacturaProveedor = 'TiposFacturaProveedor';
nme_FacturasProveedor = 'FacturasProveedor';
nme_FacturasProveedor_Detalles = 'FacturasProveedor_Detalles';
@@ -44,6 +46,14 @@ const
idx_FacturasProveedor_ContratosNIF_CIF = 5;
idx_FacturasProveedor_ContratosIMPORTE = 6;
+ { TiposFacturaProveedor fields }
+ fld_TiposFacturaProveedorID = 'ID';
+ fld_TiposFacturaProveedorDESCRIPCION = 'DESCRIPCION';
+
+ { TiposFacturaProveedor field indexes }
+ idx_TiposFacturaProveedorID = 0;
+ idx_TiposFacturaProveedorDESCRIPCION = 1;
+
{ FacturasProveedor fields }
fld_FacturasProveedorID = 'ID';
fld_FacturasProveedorID_EMPRESA = 'ID_EMPRESA';
@@ -89,6 +99,7 @@ const
fld_FacturasProveedorID_EJERCICIO = 'ID_EJERCICIO';
fld_FacturasProveedorESTADO_EJERCICIO = 'ESTADO_EJERCICIO';
fld_FacturasProveedorASIENTO_PUNTEADO = 'ASIENTO_PUNTEADO';
+ fld_FacturasProveedorID_TIPO_FACTURA = 'ID_TIPO_FACTURA';
{ FacturasProveedor field indexes }
idx_FacturasProveedorID = 0;
@@ -135,6 +146,7 @@ const
idx_FacturasProveedorID_EJERCICIO = 41;
idx_FacturasProveedorESTADO_EJERCICIO = 42;
idx_FacturasProveedorASIENTO_PUNTEADO = 43;
+ idx_FacturasProveedorID_TIPO_FACTURA = 44;
{ FacturasProveedor_Detalles fields }
fld_FacturasProveedor_DetallesID = 'ID';
@@ -171,7 +183,7 @@ const
type
{ IListaAnosFacturas }
IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
- ['{F2E406A9-B88C-40D4-8A47-4978C8C116F2}']
+ ['{E98FAB1D-C712-4BC4-AAE2-5E272B360182}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@@ -206,7 +218,7 @@ type
{ IFacturasProveedor_Contratos }
IFacturasProveedor_Contratos = interface(IDAStronglyTypedDataTable)
- ['{5F2BFC11-8077-4879-B2D2-953CA4CF47A2}']
+ ['{0948BC64-862D-4801-9685-1E3C97546BDF}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -311,9 +323,56 @@ type
end;
+ { ITiposFacturaProveedor }
+ ITiposFacturaProveedor = interface(IDAStronglyTypedDataTable)
+ ['{41EB9AC4-EFD3-4658-8A2C-0CE7201B01F6}']
+ { Property getters and setters }
+ function GetIDValue: Integer;
+ procedure SetIDValue(const aValue: Integer);
+ function GetIDIsNull: Boolean;
+ procedure SetIDIsNull(const aValue: Boolean);
+ function GetDESCRIPCIONValue: String;
+ procedure SetDESCRIPCIONValue(const aValue: String);
+ function GetDESCRIPCIONIsNull: Boolean;
+ procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
+
+
+ { Properties }
+ property ID: Integer read GetIDValue write SetIDValue;
+ property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
+ property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
+ property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
+ end;
+
+ { TTiposFacturaProveedorDataTableRules }
+ TTiposFacturaProveedorDataTableRules = class(TIntfObjectDADataTableRules, ITiposFacturaProveedor)
+ private
+ protected
+ { Property getters and setters }
+ function GetIDValue: Integer; virtual;
+ procedure SetIDValue(const aValue: Integer); virtual;
+ function GetIDIsNull: Boolean; virtual;
+ procedure SetIDIsNull(const aValue: Boolean); virtual;
+ function GetDESCRIPCIONValue: String; virtual;
+ procedure SetDESCRIPCIONValue(const aValue: String); virtual;
+ function GetDESCRIPCIONIsNull: Boolean; virtual;
+ procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
+
+ { Properties }
+ property ID: Integer read GetIDValue write SetIDValue;
+ property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
+ property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
+ property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
+
+ public
+ constructor Create(aDataTable: TDADataTable); override;
+ destructor Destroy; override;
+
+ end;
+
{ IFacturasProveedor }
IFacturasProveedor = interface(IDAStronglyTypedDataTable)
- ['{133E70B0-5200-4718-A56D-628104E3C948}']
+ ['{53426A0C-9DB7-48CF-9BBF-67D257B9ED00}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -490,6 +549,10 @@ type
procedure SetASIENTO_PUNTEADOValue(const aValue: SmallInt);
function GetASIENTO_PUNTEADOIsNull: Boolean;
procedure SetASIENTO_PUNTEADOIsNull(const aValue: Boolean);
+ function GetID_TIPO_FACTURAValue: Integer;
+ procedure SetID_TIPO_FACTURAValue(const aValue: Integer);
+ function GetID_TIPO_FACTURAIsNull: Boolean;
+ procedure SetID_TIPO_FACTURAIsNull(const aValue: Boolean);
{ Properties }
@@ -581,6 +644,8 @@ type
property ESTADO_EJERCICIOIsNull: Boolean read GetESTADO_EJERCICIOIsNull write SetESTADO_EJERCICIOIsNull;
property ASIENTO_PUNTEADO: SmallInt read GetASIENTO_PUNTEADOValue write SetASIENTO_PUNTEADOValue;
property ASIENTO_PUNTEADOIsNull: Boolean read GetASIENTO_PUNTEADOIsNull write SetASIENTO_PUNTEADOIsNull;
+ property ID_TIPO_FACTURA: Integer read GetID_TIPO_FACTURAValue write SetID_TIPO_FACTURAValue;
+ property ID_TIPO_FACTURAIsNull: Boolean read GetID_TIPO_FACTURAIsNull write SetID_TIPO_FACTURAIsNull;
end;
{ TFacturasProveedorDataTableRules }
@@ -765,6 +830,10 @@ type
procedure SetASIENTO_PUNTEADOValue(const aValue: SmallInt); virtual;
function GetASIENTO_PUNTEADOIsNull: Boolean; virtual;
procedure SetASIENTO_PUNTEADOIsNull(const aValue: Boolean); virtual;
+ function GetID_TIPO_FACTURAValue: Integer; virtual;
+ procedure SetID_TIPO_FACTURAValue(const aValue: Integer); virtual;
+ function GetID_TIPO_FACTURAIsNull: Boolean; virtual;
+ procedure SetID_TIPO_FACTURAIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@@ -855,6 +924,8 @@ type
property ESTADO_EJERCICIOIsNull: Boolean read GetESTADO_EJERCICIOIsNull write SetESTADO_EJERCICIOIsNull;
property ASIENTO_PUNTEADO: SmallInt read GetASIENTO_PUNTEADOValue write SetASIENTO_PUNTEADOValue;
property ASIENTO_PUNTEADOIsNull: Boolean read GetASIENTO_PUNTEADOIsNull write SetASIENTO_PUNTEADOIsNull;
+ property ID_TIPO_FACTURA: Integer read GetID_TIPO_FACTURAValue write SetID_TIPO_FACTURAValue;
+ property ID_TIPO_FACTURAIsNull: Boolean read GetID_TIPO_FACTURAIsNull write SetID_TIPO_FACTURAIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@@ -864,7 +935,7 @@ type
{ IFacturasProveedor_Detalles }
IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable)
- ['{AF8434DB-81E3-4993-BA17-6A7EABEC1EAA}']
+ ['{ECA81852-45B3-412C-A605-B45F1B613919}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -1249,6 +1320,60 @@ begin
end;
+{ TTiposFacturaProveedorDataTableRules }
+constructor TTiposFacturaProveedorDataTableRules.Create(aDataTable: TDADataTable);
+begin
+ inherited;
+end;
+
+destructor TTiposFacturaProveedorDataTableRules.Destroy;
+begin
+ inherited;
+end;
+
+function TTiposFacturaProveedorDataTableRules.GetIDValue: Integer;
+begin
+ result := DataTable.Fields[idx_TiposFacturaProveedorID].AsInteger;
+end;
+
+procedure TTiposFacturaProveedorDataTableRules.SetIDValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_TiposFacturaProveedorID].AsInteger := aValue;
+end;
+
+function TTiposFacturaProveedorDataTableRules.GetIDIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_TiposFacturaProveedorID].IsNull;
+end;
+
+procedure TTiposFacturaProveedorDataTableRules.SetIDIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_TiposFacturaProveedorID].AsVariant := Null;
+end;
+
+function TTiposFacturaProveedorDataTableRules.GetDESCRIPCIONValue: String;
+begin
+ result := DataTable.Fields[idx_TiposFacturaProveedorDESCRIPCION].AsString;
+end;
+
+procedure TTiposFacturaProveedorDataTableRules.SetDESCRIPCIONValue(const aValue: String);
+begin
+ DataTable.Fields[idx_TiposFacturaProveedorDESCRIPCION].AsString := aValue;
+end;
+
+function TTiposFacturaProveedorDataTableRules.GetDESCRIPCIONIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_TiposFacturaProveedorDESCRIPCION].IsNull;
+end;
+
+procedure TTiposFacturaProveedorDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_TiposFacturaProveedorDESCRIPCION].AsVariant := Null;
+end;
+
+
{ TFacturasProveedorDataTableRules }
constructor TFacturasProveedorDataTableRules.Create(aDataTable: TDADataTable);
var
@@ -2191,6 +2316,27 @@ begin
DataTable.Fields[idx_FacturasProveedorASIENTO_PUNTEADO].AsVariant := Null;
end;
+function TFacturasProveedorDataTableRules.GetID_TIPO_FACTURAValue: Integer;
+begin
+ result := DataTable.Fields[idx_FacturasProveedorID_TIPO_FACTURA].AsInteger;
+end;
+
+procedure TFacturasProveedorDataTableRules.SetID_TIPO_FACTURAValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_FacturasProveedorID_TIPO_FACTURA].AsInteger := aValue;
+end;
+
+function TFacturasProveedorDataTableRules.GetID_TIPO_FACTURAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasProveedorID_TIPO_FACTURA].IsNull;
+end;
+
+procedure TFacturasProveedorDataTableRules.SetID_TIPO_FACTURAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasProveedorID_TIPO_FACTURA].AsVariant := Null;
+end;
+
{ TFacturasProveedor_DetallesDataTableRules }
constructor TFacturasProveedor_DetallesDataTableRules.Create(aDataTable: TDADataTable);
@@ -2501,6 +2647,7 @@ end;
initialization
RegisterDataTableRules(RID_ListaAnosFacturas, TListaAnosFacturasDataTableRules);
RegisterDataTableRules(RID_FacturasProveedor_Contratos, TFacturasProveedor_ContratosDataTableRules);
+ RegisterDataTableRules(RID_TiposFacturaProveedor, TTiposFacturaProveedorDataTableRules);
RegisterDataTableRules(RID_FacturasProveedor, TFacturasProveedorDataTableRules);
RegisterDataTableRules(RID_FacturasProveedor_Detalles, TFacturasProveedor_DetallesDataTableRules);
diff --git a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas
index 6c2bee4..38ae1ec 100644
--- a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas
+++ b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas
@@ -9,15 +9,16 @@ 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_ListaAnosFacturasDelta = '{CB11B3AA-8F74-4D54-B57F-8CD48BB85ACF}';
- RID_FacturasProveedor_ContratosDelta = '{A93ADBD8-2B39-4B7B-8E6E-CF5E79382C4D}';
- RID_FacturasProveedorDelta = '{E5CC9903-4F45-4D55-805C-BD665A8D2739}';
- RID_FacturasProveedor_DetallesDelta = '{F639C514-2787-4375-9E37-A8F1F917400E}';
+ RID_ListaAnosFacturasDelta = '{79CD54D1-C44E-46EE-A1AF-51519F94D7DF}';
+ RID_FacturasProveedor_ContratosDelta = '{32634786-2D30-4A75-8340-98AD18294F4B}';
+ RID_TiposFacturaProveedorDelta = '{D717E826-757A-4ECC-B805-D23971441080}';
+ RID_FacturasProveedorDelta = '{2B0FBE68-9C7D-495D-AF70-0C9328D36439}';
+ RID_FacturasProveedor_DetallesDelta = '{40BDCDE5-A538-4805-BB46-239472F69265}';
type
{ IListaAnosFacturasDelta }
IListaAnosFacturasDelta = interface(IListaAnosFacturas)
- ['{CB11B3AA-8F74-4D54-B57F-8CD48BB85ACF}']
+ ['{79CD54D1-C44E-46EE-A1AF-51519F94D7DF}']
{ Property getters and setters }
function GetOldANOValue : String;
@@ -51,7 +52,7 @@ type
{ IFacturasProveedor_ContratosDelta }
IFacturasProveedor_ContratosDelta = interface(IFacturasProveedor_Contratos)
- ['{A93ADBD8-2B39-4B7B-8E6E-CF5E79382C4D}']
+ ['{32634786-2D30-4A75-8340-98AD18294F4B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer;
@@ -155,9 +156,55 @@ type
end;
+ { ITiposFacturaProveedorDelta }
+ ITiposFacturaProveedorDelta = interface(ITiposFacturaProveedor)
+ ['{D717E826-757A-4ECC-B805-D23971441080}']
+ { Property getters and setters }
+ function GetOldIDValue : Integer;
+ function GetOldDESCRIPCIONValue : String;
+
+ { Properties }
+ property OldID : Integer read GetOldIDValue;
+ property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
+ end;
+
+ { TTiposFacturaProveedorBusinessProcessorRules }
+ TTiposFacturaProveedorBusinessProcessorRules = class(TDABusinessProcessorRules, ITiposFacturaProveedor, ITiposFacturaProveedorDelta)
+ private
+ protected
+ { Property getters and setters }
+ function GetIDValue: Integer; virtual;
+ function GetIDIsNull: Boolean; virtual;
+ function GetOldIDValue: Integer; virtual;
+ function GetOldIDIsNull: Boolean; virtual;
+ procedure SetIDValue(const aValue: Integer); virtual;
+ procedure SetIDIsNull(const aValue: Boolean); virtual;
+ function GetDESCRIPCIONValue: String; virtual;
+ function GetDESCRIPCIONIsNull: Boolean; virtual;
+ function GetOldDESCRIPCIONValue: String; virtual;
+ function GetOldDESCRIPCIONIsNull: Boolean; virtual;
+ procedure SetDESCRIPCIONValue(const aValue: String); virtual;
+ procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
+
+ { Properties }
+ property ID : Integer read GetIDValue write SetIDValue;
+ property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
+ property OldID : Integer read GetOldIDValue;
+ property OldIDIsNull : Boolean read GetOldIDIsNull;
+ property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
+ property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
+ property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
+ property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
+
+ public
+ constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
+ destructor Destroy; override;
+
+ end;
+
{ IFacturasProveedorDelta }
IFacturasProveedorDelta = interface(IFacturasProveedor)
- ['{E5CC9903-4F45-4D55-805C-BD665A8D2739}']
+ ['{2B0FBE68-9C7D-495D-AF70-0C9328D36439}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -203,6 +250,7 @@ type
function GetOldID_EJERCICIOValue : Integer;
function GetOldESTADO_EJERCICIOValue : String;
function GetOldASIENTO_PUNTEADOValue : SmallInt;
+ function GetOldID_TIPO_FACTURAValue : Integer;
{ Properties }
property OldID : Integer read GetOldIDValue;
@@ -249,6 +297,7 @@ type
property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
property OldESTADO_EJERCICIO : String read GetOldESTADO_EJERCICIOValue;
property OldASIENTO_PUNTEADO : SmallInt read GetOldASIENTO_PUNTEADOValue;
+ property OldID_TIPO_FACTURA : Integer read GetOldID_TIPO_FACTURAValue;
end;
{ TFacturasProveedorBusinessProcessorRules }
@@ -521,6 +570,12 @@ type
function GetOldASIENTO_PUNTEADOIsNull: Boolean; virtual;
procedure SetASIENTO_PUNTEADOValue(const aValue: SmallInt); virtual;
procedure SetASIENTO_PUNTEADOIsNull(const aValue: Boolean); virtual;
+ function GetID_TIPO_FACTURAValue: Integer; virtual;
+ function GetID_TIPO_FACTURAIsNull: Boolean; virtual;
+ function GetOldID_TIPO_FACTURAValue: Integer; virtual;
+ function GetOldID_TIPO_FACTURAIsNull: Boolean; virtual;
+ procedure SetID_TIPO_FACTURAValue(const aValue: Integer); virtual;
+ procedure SetID_TIPO_FACTURAIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@@ -699,6 +754,10 @@ type
property ASIENTO_PUNTEADOIsNull : Boolean read GetASIENTO_PUNTEADOIsNull write SetASIENTO_PUNTEADOIsNull;
property OldASIENTO_PUNTEADO : SmallInt read GetOldASIENTO_PUNTEADOValue;
property OldASIENTO_PUNTEADOIsNull : Boolean read GetOldASIENTO_PUNTEADOIsNull;
+ property ID_TIPO_FACTURA : Integer read GetID_TIPO_FACTURAValue write SetID_TIPO_FACTURAValue;
+ property ID_TIPO_FACTURAIsNull : Boolean read GetID_TIPO_FACTURAIsNull write SetID_TIPO_FACTURAIsNull;
+ property OldID_TIPO_FACTURA : Integer read GetOldID_TIPO_FACTURAValue;
+ property OldID_TIPO_FACTURAIsNull : Boolean read GetOldID_TIPO_FACTURAIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -708,7 +767,7 @@ type
{ IFacturasProveedor_DetallesDelta }
IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles)
- ['{F639C514-2787-4375-9E37-A8F1F917400E}']
+ ['{40BDCDE5-A538-4805-BB46-239472F69265}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer;
@@ -1173,6 +1232,80 @@ begin
end;
+{ TTiposFacturaProveedorBusinessProcessorRules }
+constructor TTiposFacturaProveedorBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
+begin
+ inherited;
+end;
+
+destructor TTiposFacturaProveedorBusinessProcessorRules.Destroy;
+begin
+ inherited;
+end;
+
+function TTiposFacturaProveedorBusinessProcessorRules.GetIDValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_TiposFacturaProveedorID];
+end;
+
+function TTiposFacturaProveedorBusinessProcessorRules.GetIDIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_TiposFacturaProveedorID]);
+end;
+
+function TTiposFacturaProveedorBusinessProcessorRules.GetOldIDValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiposFacturaProveedorID];
+end;
+
+function TTiposFacturaProveedorBusinessProcessorRules.GetOldIDIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_TiposFacturaProveedorID]);
+end;
+
+procedure TTiposFacturaProveedorBusinessProcessorRules.SetIDValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_TiposFacturaProveedorID] := aValue;
+end;
+
+procedure TTiposFacturaProveedorBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_TiposFacturaProveedorID] := Null;
+end;
+
+function TTiposFacturaProveedorBusinessProcessorRules.GetDESCRIPCIONValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_TiposFacturaProveedorDESCRIPCION];
+end;
+
+function TTiposFacturaProveedorBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_TiposFacturaProveedorDESCRIPCION]);
+end;
+
+function TTiposFacturaProveedorBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiposFacturaProveedorDESCRIPCION];
+end;
+
+function TTiposFacturaProveedorBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_TiposFacturaProveedorDESCRIPCION]);
+end;
+
+procedure TTiposFacturaProveedorBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_TiposFacturaProveedorDESCRIPCION] := aValue;
+end;
+
+procedure TTiposFacturaProveedorBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_TiposFacturaProveedorDESCRIPCION] := Null;
+end;
+
+
{ TFacturasProveedorBusinessProcessorRules }
constructor TFacturasProveedorBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
var
@@ -2556,6 +2689,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorASIENTO_PUNTEADO] := Null;
end;
+function TFacturasProveedorBusinessProcessorRules.GetID_TIPO_FACTURAValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorID_TIPO_FACTURA];
+end;
+
+function TFacturasProveedorBusinessProcessorRules.GetID_TIPO_FACTURAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorID_TIPO_FACTURA]);
+end;
+
+function TFacturasProveedorBusinessProcessorRules.GetOldID_TIPO_FACTURAValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorID_TIPO_FACTURA];
+end;
+
+function TFacturasProveedorBusinessProcessorRules.GetOldID_TIPO_FACTURAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorID_TIPO_FACTURA]);
+end;
+
+procedure TFacturasProveedorBusinessProcessorRules.SetID_TIPO_FACTURAValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorID_TIPO_FACTURA] := aValue;
+end;
+
+procedure TFacturasProveedorBusinessProcessorRules.SetID_TIPO_FACTURAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorID_TIPO_FACTURA] := Null;
+end;
+
{ TFacturasProveedor_DetallesBusinessProcessorRules }
constructor TFacturasProveedor_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@@ -3006,6 +3170,7 @@ end;
initialization
RegisterBusinessProcessorRules(RID_ListaAnosFacturasDelta, TListaAnosFacturasBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_FacturasProveedor_ContratosDelta, TFacturasProveedor_ContratosBusinessProcessorRules);
+ RegisterBusinessProcessorRules(RID_TiposFacturaProveedorDelta, TTiposFacturaProveedorBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_FacturasProveedorDelta, TFacturasProveedorBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_FacturasProveedor_DetallesDelta, TFacturasProveedor_DetallesBusinessProcessorRules);
diff --git a/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas b/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas
index b4d7d79..c757d69 100644
--- a/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas
+++ b/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas
@@ -8,6 +8,7 @@ uses
const
BIZ_CLIENT_FACTURA_PROVEEDOR = 'Client.FacturaProveedor';
+ BIZ_CLIENT_TIPOS_FACTURA_PROVEEDOR = 'Client.TiposFacturaProveedor';
CTE_TIPO_ABONO = 'A';
CTE_TIPO_FACTURA = 'F';
@@ -17,6 +18,10 @@ const
CTE_PAGADA = 'PAGADA';
type
+ IBizTiposFacturaProveedor = interface(ITiposFacturaProveedor)
+ ['{920DACA7-E6D7-4F0B-BEE0-D2AAC2F614A5}']
+ end;
+
IBizFacturaProveedor = interface(IFacturasProveedor)
['{4BC473E5-3B82-4C1A-8E52-2A227490F94E}']
@@ -42,6 +47,9 @@ type
procedure CalcularImporteTotal;
end;
+ TBizTiposFacturaProveedor = class(TTiposFacturaProveedorDataTableRules, IBizTiposFacturaProveedor)
+ end;
+
TBizFacturaProveedor = class(TFacturasProveedorDataTableRules, IBizFacturaProveedor, ISeleccionable)
private
FSeleccionableInterface : ISeleccionable;
@@ -396,6 +404,7 @@ end;
initialization
RegisterDataTableRules(BIZ_CLIENT_FACTURA_PROVEEDOR, TBizFacturaProveedor);
+ RegisterDataTableRules(BIZ_CLIENT_TIPOS_FACTURA_PROVEEDOR, TBizTiposFacturaProveedor);
finalization
diff --git a/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm b/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm
index 3fb4e88..96d427a 100644
--- a/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm
+++ b/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm
@@ -133,6 +133,41 @@ object srvFacturasProveedor: TsrvFacturasProveedor
DictionaryEntry = 'FacturasProveedor_Contratos_IMPORTE'
end>
end
+ item
+ Params = <>
+ Statements = <
+ item
+ Connection = 'IBX'
+ ConnectionType = 'Interbase'
+ Default = True
+ TargetTable = 'TIPOS_FACTURA_PROVEEDOR'
+ Name = 'IBX'
+ SQL =
+ 'SELECT '#10' ID, DESCRIPCION'#10' FROM'#10' TIPOS_FACTURA_PROVEEDOR'#10' ' +
+ ' WHERE {Where}'#10' order by 2'#10
+ StatementType = stSQL
+ ColumnMappings = <
+ item
+ DatasetField = 'ID'
+ TableField = 'ID'
+ end
+ item
+ DatasetField = 'DESCRIPCION'
+ TableField = 'DESCRIPCION'
+ end>
+ end>
+ Name = 'TiposFacturaProveedor'
+ Fields = <
+ item
+ Name = 'ID'
+ DataType = datInteger
+ end
+ item
+ Name = 'DESCRIPCION'
+ DataType = datString
+ Size = 2000
+ end>
+ end
item
Params = <>
Statements = <
@@ -316,6 +351,10 @@ object srvFacturasProveedor: TsrvFacturasProveedor
item
DatasetField = 'IMPORTE_IRPF'
TableField = 'IMPORTE_IRPF'
+ end
+ item
+ DatasetField = 'ID_TIPO_FACTURA'
+ TableField = 'ID_TIPO_FACTURA'
end>
end>
Name = 'FacturasProveedor'
@@ -550,6 +589,10 @@ object srvFacturasProveedor: TsrvFacturasProveedor
item
Name = 'ASIENTO_PUNTEADO'
DataType = datSmallInt
+ end
+ item
+ Name = 'ID_TIPO_FACTURA'
+ DataType = datInteger
end>
end
item
@@ -789,134 +832,181 @@ object srvFacturasProveedor: TsrvFacturasProveedor
end
item
Name = 'ID_EMPRESA'
+ DataType = datInteger
Value = ''
end
item
Name = 'REFERENCIA'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'REFERENCIA_PROVEEDOR'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'FECHA_FACTURA'
+ DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_VENCIMIENTO'
+ DataType = datDateTime
Value = ''
end
item
Name = 'BASE_IMPONIBLE'
+ DataType = datCurrency
Value = ''
end
item
Name = 'DESCUENTO'
+ DataType = datFloat
Value = ''
end
item
Name = 'IMPORTE_DESCUENTO'
- Value = ''
- end
- item
- Name = 'IRPF'
- Value = ''
- end
- item
- Name = 'IMPORTE_IRPF'
+ DataType = datCurrency
Value = ''
end
item
Name = 'IVA'
+ DataType = datFloat
Value = ''
end
item
Name = 'IMPORTE_IVA'
+ DataType = datCurrency
+ Value = ''
+ end
+ item
+ Name = 'IRPF'
+ DataType = datFloat
+ Value = ''
+ end
+ item
+ Name = 'IMPORTE_IRPF'
+ DataType = datCurrency
Value = ''
end
item
Name = 'RE'
+ DataType = datFloat
Value = ''
end
item
Name = 'IMPORTE_RE'
+ DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_TOTAL'
+ DataType = datCurrency
Value = ''
end
item
Name = 'OBSERVACIONES'
+ DataType = datMemo
Value = ''
end
item
Name = 'ID_PROVEEDOR'
+ DataType = datInteger
Value = ''
end
item
Name = 'NIF_CIF'
+ DataType = datString
+ Size = 15
Value = ''
end
item
Name = 'NOMBRE'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'CALLE'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'POBLACION'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'PROVINCIA'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'CODIGO_POSTAL'
+ DataType = datString
+ Size = 10
Value = ''
end
item
Name = 'FECHA_ALTA'
+ DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_MODIFICACION'
+ DataType = datDateTime
Value = ''
end
item
Name = 'USUARIO'
+ DataType = datString
+ Size = 30
Value = ''
end
item
Name = 'ID_FORMA_PAGO'
+ DataType = datInteger
Value = ''
end
item
Name = 'RECARGO_EQUIVALENCIA'
+ DataType = datSmallInt
Value = ''
end
item
Name = 'ID_TIPO_IVA'
+ DataType = datInteger
Value = ''
end
item
Name = 'IMPORTE_NETO'
+ DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_PORTE'
+ DataType = datCurrency
Value = ''
end
item
Name = 'IGNORAR_CONTABILIDAD'
+ DataType = datSmallInt
Value = ''
end
item
Name = 'ID_TIENDA'
+ DataType = datInteger
+ Value = ''
+ end
+ item
+ Name = 'ID_TIPO_FACTURA'
+ DataType = datInteger
Value = ''
end>
Statements = <
@@ -933,15 +1023,16 @@ object srvFacturasProveedor: TsrvFacturasProveedor
', PROVINCIA, CODIGO_POSTAL, '#10' FECHA_ALTA, FECHA_MODIFICACION' +
', USUARIO, ID_FORMA_PAGO, '#10' RECARGO_EQUIVALENCIA, ID_TIPO_IV' +
'A, IMPORTE_NETO, IMPORTE_PORTE, IGNORAR_CONTABILIDAD,'#10' ID_TI' +
- 'ENDA)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :REFERENCIA, :REFERENCIA_P' +
- 'ROVEEDOR,'#10' :FECHA_FACTURA, :FECHA_VENCIMIENTO, :BASE_IMPONIB' +
- 'LE, :DESCUENTO,'#10' :IMPORTE_DESCUENTO, :IVA, :IMPORTE_IVA, :IR' +
- 'PF, :IMPORTE_IRPF,'#10' :RE, :IMPORTE_RE, :IMPORTE_TOTAL, :OBSER' +
- 'VACIONES, :ID_PROVEEDOR, :NIF_CIF,'#10' :NOMBRE, :CALLE, :POBLAC' +
- 'ION, :PROVINCIA, :CODIGO_POSTAL, '#10' :FECHA_ALTA, :FECHA_MODIF' +
- 'ICACION, :USUARIO, :ID_FORMA_PAGO, '#10' :RECARGO_EQUIVALENCIA, ' +
- ':ID_TIPO_IVA, :IMPORTE_NETO, '#10' :IMPORTE_PORTE, :IGNORAR_CONT' +
- 'ABILIDAD, :ID_TIENDA)'#10' '#10' '#10#10
+ 'ENDA, ID_TIPO_FACTURA)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :REFERENC' +
+ 'IA, :REFERENCIA_PROVEEDOR,'#10' :FECHA_FACTURA, :FECHA_VENCIMIEN' +
+ 'TO, :BASE_IMPONIBLE, :DESCUENTO,'#10' :IMPORTE_DESCUENTO, :IVA, ' +
+ ':IMPORTE_IVA, :IRPF, :IMPORTE_IRPF,'#10' :RE, :IMPORTE_RE, :IMPO' +
+ 'RTE_TOTAL, :OBSERVACIONES, :ID_PROVEEDOR, :NIF_CIF,'#10' :NOMBRE' +
+ ', :CALLE, :POBLACION, :PROVINCIA, :CODIGO_POSTAL, '#10' :FECHA_A' +
+ 'LTA, :FECHA_MODIFICACION, :USUARIO, :ID_FORMA_PAGO, '#10' :RECAR' +
+ 'GO_EQUIVALENCIA, :ID_TIPO_IVA, :IMPORTE_NETO, '#10' :IMPORTE_POR' +
+ 'TE, :IGNORAR_CONTABILIDAD, :ID_TIENDA, :ID_TIPO_FACTURA)'#10' '#10' ' +
+ ' '#10#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -968,140 +1059,188 @@ object srvFacturasProveedor: TsrvFacturasProveedor
end
item
Params = <
- item
- Name = 'IMPORTE_IRPF'
- Value = ''
- end
- item
- Name = 'IRPF'
- Value = ''
- end
item
Name = 'ID'
+ DataType = datInteger
Value = ''
end
item
Name = 'ID_EMPRESA'
+ DataType = datInteger
Value = ''
end
item
Name = 'REFERENCIA'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'REFERENCIA_PROVEEDOR'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'FECHA_FACTURA'
+ DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_VENCIMIENTO'
+ DataType = datDateTime
Value = ''
end
item
Name = 'BASE_IMPONIBLE'
+ DataType = datCurrency
Value = ''
end
item
Name = 'DESCUENTO'
+ DataType = datFloat
Value = ''
end
item
Name = 'IMPORTE_DESCUENTO'
+ DataType = datCurrency
Value = ''
end
item
Name = 'IVA'
+ DataType = datFloat
Value = ''
end
item
Name = 'IMPORTE_IVA'
+ DataType = datCurrency
+ Value = ''
+ end
+ item
+ Name = 'IRPF'
+ DataType = datFloat
+ Value = ''
+ end
+ item
+ Name = 'IMPORTE_IRPF'
+ DataType = datCurrency
Value = ''
end
item
Name = 'RE'
+ DataType = datFloat
Value = ''
end
item
Name = 'IMPORTE_RE'
+ DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_TOTAL'
+ DataType = datCurrency
Value = ''
end
item
Name = 'OBSERVACIONES'
+ DataType = datMemo
Value = ''
end
item
Name = 'ID_PROVEEDOR'
+ DataType = datInteger
Value = ''
end
item
Name = 'NIF_CIF'
+ DataType = datString
+ Size = 15
Value = ''
end
item
Name = 'NOMBRE'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'CALLE'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'POBLACION'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'PROVINCIA'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'CODIGO_POSTAL'
+ DataType = datString
+ Size = 10
Value = ''
end
item
Name = 'FECHA_ALTA'
+ DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_MODIFICACION'
+ DataType = datDateTime
Value = ''
end
item
Name = 'USUARIO'
+ DataType = datString
+ Size = 30
Value = ''
end
item
Name = 'ID_FORMA_PAGO'
+ DataType = datInteger
Value = ''
end
item
Name = 'RECARGO_EQUIVALENCIA'
+ DataType = datSmallInt
Value = ''
end
item
Name = 'ID_TIPO_IVA'
+ DataType = datInteger
Value = ''
end
item
Name = 'IMPORTE_NETO'
+ DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_PORTE'
+ DataType = datCurrency
Value = ''
end
item
Name = 'IGNORAR_CONTABILIDAD'
+ DataType = datSmallInt
Value = ''
end
item
Name = 'ID_TIENDA'
+ DataType = datInteger
+ Value = ''
+ end
+ item
+ Name = 'ID_TIPO_FACTURA'
+ DataType = datInteger
Value = ''
end
item
@@ -1131,8 +1270,8 @@ object srvFacturasProveedor: TsrvFacturasProveedor
'ID_FORMA_PAGO, '#10' RECARGO_EQUIVALENCIA = :RECARGO_EQUIVALENCIA' +
', '#10' ID_TIPO_IVA = :ID_TIPO_IVA, '#10' IMPORTE_NETO = :IMPORTE_' +
'NETO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' IGNORAR_CONTABILI' +
- 'DAD = :IGNORAR_CONTABILIDAD,'#10' ID_TIENDA = :ID_TIENDA'#10' WHERE'#10 +
- ' (ID = :OLD_ID)'#10
+ 'DAD = :IGNORAR_CONTABILIDAD,'#10' ID_TIENDA = :ID_TIENDA,'#10' ID_' +
+ 'TIPO_FACTURA = :ID_TIPO_FACTURA'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
diff --git a/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.dfm b/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.dfm
index 0490100..7981dbe 100644
--- a/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.dfm
+++ b/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.dfm
@@ -1,6 +1,6 @@
inherited frViewFacturaProveedor: TfrViewFacturaProveedor
- Width = 648
- Height = 554
+ Width = 451
+ Height = 304
Align = alClient
OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy
@@ -9,19 +9,17 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
- Width = 648
- Height = 554
+ Width = 451
+ Height = 304
Align = alClient
ParentBackground = True
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1
- ExplicitWidth = 451
- ExplicitHeight = 304
DesignSize = (
- 648
- 554)
+ 451
+ 304)
object eReferencia: TcxDBTextEdit
Left = 124
Top = 30
@@ -65,7 +63,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
end
object cbFormaPago: TcxDBLookupComboBox
Left = 124
- Top = 135
+ Top = 162
DataBinding.DataField = 'ID_FORMA_PAGO'
DataBinding.DataSource = DADataSource
Properties.DropDownListStyle = lsFixedList
@@ -93,16 +91,16 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
- TabOrder = 3
+ TabOrder = 4
Width = 169
end
object bFormasPago: TButton
- Left = 154
- Top = 135
+ Left = 150
+ Top = 162
Width = 132
Height = 23
Caption = 'Ver las formas de pago...'
- TabOrder = 4
+ TabOrder = 5
OnClick = bFormasPagoClick
end
object eReferenciaProveedor: TcxDBTextEdit
@@ -127,7 +125,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
end
inline frViewTienda1: TfrViewTienda
Left = 22
- Top = 215
+ Top = 242
Width = 320
Height = 36
Enabled = False
@@ -137,15 +135,15 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
- TabOrder = 6
+ TabOrder = 7
ReadOnly = False
ExplicitLeft = 22
- ExplicitTop = 215
+ ExplicitTop = 242
ExplicitWidth = 320
ExplicitHeight = 36
inherited dxLayoutControl1: TdxLayoutControl
Width = 320
- ExplicitWidth = 260
+ ExplicitWidth = 320
inherited cbTienda: TcxComboBox
ExplicitWidth = 376
Width = 376
@@ -154,7 +152,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
end
object edtFechaVencimiento: TcxDBDateEdit
Left = 124
- Top = 164
+ Top = 191
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_VENCIMIENTO'
DataBinding.DataSource = DADataSource
@@ -170,11 +168,11 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
- TabOrder = 5
+ TabOrder = 6
Width = 158
end
inline frViewProveedorFactura1: TfrViewProveedorFactura
- Left = 314
+ Left = 310
Top = 30
Width = 312
Height = 260
@@ -184,9 +182,9 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
- TabOrder = 7
+ TabOrder = 8
ReadOnly = False
- ExplicitLeft = 314
+ ExplicitLeft = 310
ExplicitTop = 30
ExplicitWidth = 312
ExplicitHeight = 260
@@ -242,7 +240,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
- TabOrder = 8
+ TabOrder = 9
ReadOnly = False
ExplicitLeft = 22
ExplicitTop = 320
@@ -250,11 +248,43 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
inherited memObservaciones: TcxDBMemo
DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource
- ExplicitWidth = 600
- ExplicitHeight = 20
+ ExplicitHeight = 228
Height = 228
end
end
+ object cbTipoFactura: TcxDBLookupComboBox
+ Left = 124
+ Top = 111
+ DataBinding.DataField = 'ID_TIPO_FACTURA'
+ DataBinding.DataSource = DADataSource
+ Properties.DropDownListStyle = lsFixedList
+ Properties.ImmediatePost = True
+ Properties.KeyFieldNames = 'ID'
+ Properties.ListColumns = <
+ item
+ FieldName = 'DESCRIPCION'
+ end>
+ Properties.ListOptions.GridLines = glNone
+ Properties.ListOptions.ShowHeader = False
+ Properties.ListOptions.SyncMode = True
+ Properties.ListSource = dsTiposFactura
+ Properties.OnEditValueChanged = cbFormaPagoPropertiesEditValueChanged
+ Style.BorderColor = clWindowFrame
+ Style.BorderStyle = ebs3D
+ Style.HotTrack = False
+ Style.LookAndFeel.Kind = lfStandard
+ Style.LookAndFeel.NativeStyle = True
+ Style.ButtonStyle = bts3D
+ Style.PopupBorderStyle = epbsFrame3D
+ StyleDisabled.LookAndFeel.Kind = lfStandard
+ StyleDisabled.LookAndFeel.NativeStyle = True
+ StyleFocused.LookAndFeel.Kind = lfStandard
+ StyleFocused.LookAndFeel.NativeStyle = True
+ StyleHot.LookAndFeel.Kind = lfStandard
+ StyleHot.LookAndFeel.NativeStyle = True
+ TabOrder = 3
+ Width = 209
+ end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
Hidden = True
@@ -290,6 +320,11 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Control = edtFecha
ControlOptions.ShowBorder = False
end
+ object dxLayoutControl1Item8: TdxLayoutItem
+ Caption = 'Tipo operaci'#243'n:'
+ Control = cbTipoFactura
+ ControlOptions.ShowBorder = False
+ end
end
object dxLayoutControl1Group8: TdxLayoutGroup
Caption = 'Forma de pago'
@@ -385,4 +420,8 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
OnUpdate = actElegirDireccionUpdate
end
end
+ object dsTiposFactura: TDADataSource
+ Left = 64
+ Top = 56
+ end
end
diff --git a/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.pas b/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.pas
index 67bec97..3398564 100644
--- a/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.pas
+++ b/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.pas
@@ -60,6 +60,9 @@ type
dxLayoutControl1Group3: TdxLayoutGroup;
frViewObservaciones1: TfrViewObservaciones;
dxLayoutControl1Item5: TdxLayoutItem;
+ dxLayoutControl1Item8: TdxLayoutItem;
+ cbTipoFactura: TcxDBLookupComboBox;
+ dsTiposFactura: TDADataSource;
procedure bFormasPagoClick(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
procedure CustomViewCreate(Sender: TObject);
@@ -71,6 +74,7 @@ type
protected
FFactura : IBizFacturaProveedor;
FFormasPago : IBizFormaPago;
+ FTiposFacturaProveedor : IBizTiposFacturaProveedor;
FFormasPagoController : IFormasPagoController;
FController : IFacturasProveedorController;
function GetFactura: IBizFacturaProveedor;
@@ -147,6 +151,7 @@ procedure TfrViewFacturaProveedor.CustomViewCreate(Sender: TObject);
begin
inherited;
FFormasPago := Nil;
+ FTiposFacturaProveedor := Nil;
FFormasPagoController := TFormasPagoController.Create;
frViewProveedorFactura1.MsgElegirProveedor := 'Elija el proveedor al que se le realizará la factura.';
end;
@@ -155,6 +160,7 @@ procedure TfrViewFacturaProveedor.CustomViewDestroy(Sender: TObject);
begin
inherited;
FFormasPago := Nil;
+ FTiposFacturaProveedor := Nil;
FFormasPagoController := NIL;
end;
@@ -218,6 +224,10 @@ begin
else
ledtFechaVencimiento.Enabled := False;
+ FTiposFacturaProveedor := FController.darTiposFacturaProveedor;
+ dsTiposFactura.DataTable := FTiposFacturaProveedor.DataTable;
+ dsTiposFactura.DataTable.Active := True;
+
//Solo se deshabilita al insertar, luego la referencia será modificable
//eReferencia.Enabled := (FFactura.DataTable.State = dsInsert);
diff --git a/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm b/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm
index d8288dd..7f5eda4 100644
--- a/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm
+++ b/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm
@@ -181,7 +181,6 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
Name = 'REFERENCIA'
DataType = datString
Size = 255
- ServerAutoRefresh = True
DictionaryEntry = 'RecibosCliente_REFERENCIA'
end
item
diff --git a/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.pas b/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.pas
index b73f0f1..31b80af 100644
--- a/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.pas
+++ b/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.pas
@@ -133,6 +133,9 @@ begin
ShowHourglassCursor;
try
AIBizRecibosCliente := CloneDataTable(tbl_RecibosCliente);
+ // EL CAMPO REFERENCIA TIENE QUE SER AUTOREFRESH!!!!!
+ AIBizRecibosCliente.FieldByName(fld_RecibosClienteREFERENCIA).ServerAutoRefresh := TRUE;
+
AIBizRecibosCliente.BusinessRulesID := BIZ_CLIENT_IBizRecibosCliente;
with TBizRecibosCliente(AIBizRecibosCliente.BusinessEventsObj) do
diff --git a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas
index a60f10b..62c2f90 100644
--- a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas
+++ b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas
@@ -3,16 +3,16 @@ unit schRecibosClienteClient_Intf;
interface
uses
- Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
+ Classes, DB, 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_ListaAnosRecibos = '{F97192B5-288D-4BAD-92D0-882E4CCD91E9}';
- RID_RecibosCliente = '{6E6629F5-CE00-41EB-B3A0-6D61FCA5A3EE}';
- RID_PagosCliente = '{2B8F4076-A36D-4E86-B56B-1F8050DDF161}';
- RID_RecibosCompensadosCli = '{7940AA47-2B1B-476C-9D5F-BC8207E6E6B6}';
+ RID_ListaAnosRecibos = '{2F89702D-0A57-458E-9B7E-3CCF679D26D7}';
+ RID_RecibosCliente = '{D66B846C-B6E9-45CD-9C37-BC4AFEF5A494}';
+ RID_PagosCliente = '{5DDCCC46-8CE2-498F-B191-8815FE52830E}';
+ RID_RecibosCompensadosCli = '{A0EAE246-56FA-4187-A242-8A8407A3238E}';
{ Data table names }
nme_ListaAnosRecibos = 'ListaAnosRecibos';
@@ -231,7 +231,7 @@ const
type
{ IListaAnosRecibos }
IListaAnosRecibos = interface(IDAStronglyTypedDataTable)
- ['{E9816692-FFD0-4F6F-8608-A2720C2071F0}']
+ ['{066BA7F0-73F9-4373-8B4A-FD49A4676508}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@@ -245,7 +245,7 @@ type
end;
{ TListaAnosRecibosDataTableRules }
- TListaAnosRecibosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosRecibos)
+ TListaAnosRecibosDataTableRules = class(TDADataTableRules, IListaAnosRecibos)
private
protected
{ Property getters and setters }
@@ -266,7 +266,7 @@ type
{ IRecibosCliente }
IRecibosCliente = interface(IDAStronglyTypedDataTable)
- ['{8CE3943C-E100-4DFA-8185-3751474DA592}']
+ ['{44658047-4A5E-42A9-88B1-1600D3D72B37}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -508,7 +508,7 @@ type
end;
{ TRecibosClienteDataTableRules }
- TRecibosClienteDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCliente)
+ TRecibosClienteDataTableRules = class(TDADataTableRules, IRecibosCliente)
private
protected
{ Property getters and setters }
@@ -757,7 +757,7 @@ type
{ IPagosCliente }
IPagosCliente = interface(IDAStronglyTypedDataTable)
- ['{3568AB0B-1F68-4567-A683-0C401D8D7173}']
+ ['{1F8F1BBC-3F97-4997-B3B7-E7133943DF2F}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -873,7 +873,7 @@ type
end;
{ TPagosClienteDataTableRules }
- TPagosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPagosCliente)
+ TPagosClienteDataTableRules = class(TDADataTableRules, IPagosCliente)
private
protected
{ Property getters and setters }
@@ -996,7 +996,7 @@ type
{ IRecibosCompensadosCli }
IRecibosCompensadosCli = interface(IDAStronglyTypedDataTable)
- ['{32A4B6A0-1926-478A-B23E-06F3D0054723}']
+ ['{359D0527-3629-4643-B02F-54206CC5B6AE}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -1232,7 +1232,7 @@ type
end;
{ TRecibosCompensadosCliDataTableRules }
- TRecibosCompensadosCliDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCompensadosCli)
+ TRecibosCompensadosCliDataTableRules = class(TDADataTableRules, IRecibosCompensadosCli)
private
protected
{ Property getters and setters }
diff --git a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas
index e7f6697..7756d5c 100644
--- a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas
+++ b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas
@@ -9,15 +9,15 @@ 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_ListaAnosRecibosDelta = '{62F79392-9571-4D2E-B294-B386CF58E304}';
- RID_RecibosClienteDelta = '{54B16B97-FAA9-49A4-BE11-0C9268888052}';
- RID_PagosClienteDelta = '{8E95B332-93DA-4BBD-8629-84E7691AC0A4}';
- RID_RecibosCompensadosCliDelta = '{54163948-6ADC-433C-983E-65C944FA2E1E}';
+ RID_ListaAnosRecibosDelta = '{FE51F4BC-A342-47C5-B61E-61E82775F77E}';
+ RID_RecibosClienteDelta = '{11ED8357-34B8-4C8C-BDB0-946B20E3FB8F}';
+ RID_PagosClienteDelta = '{32F77F26-DB05-46BD-B22C-0E5C1A5A0F5D}';
+ RID_RecibosCompensadosCliDelta = '{23B5E3C8-D2CF-4798-81B4-AA7CED8E091A}';
type
{ IListaAnosRecibosDelta }
IListaAnosRecibosDelta = interface(IListaAnosRecibos)
- ['{62F79392-9571-4D2E-B294-B386CF58E304}']
+ ['{FE51F4BC-A342-47C5-B61E-61E82775F77E}']
{ Property getters and setters }
function GetOldANOValue : String;
@@ -51,7 +51,7 @@ type
{ IRecibosClienteDelta }
IRecibosClienteDelta = interface(IRecibosCliente)
- ['{54B16B97-FAA9-49A4-BE11-0C9268888052}']
+ ['{11ED8357-34B8-4C8C-BDB0-946B20E3FB8F}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer;
@@ -541,7 +541,7 @@ type
{ IPagosClienteDelta }
IPagosClienteDelta = interface(IPagosCliente)
- ['{8E95B332-93DA-4BBD-8629-84E7691AC0A4}']
+ ['{32F77F26-DB05-46BD-B22C-0E5C1A5A0F5D}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_RECIBOValue : Integer;
@@ -779,7 +779,7 @@ type
{ IRecibosCompensadosCliDelta }
IRecibosCompensadosCliDelta = interface(IRecibosCompensadosCli)
- ['{54163948-6ADC-433C-983E-65C944FA2E1E}']
+ ['{23B5E3C8-D2CF-4798-81B4-AA7CED8E091A}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer;
diff --git a/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm b/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm
index e7e2294..c65cda1 100644
--- a/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm
+++ b/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm
@@ -240,7 +240,6 @@ object srvRecibosCliente: TsrvRecibosCliente
Name = 'REFERENCIA'
DataType = datString
Size = 255
- ServerAutoRefresh = True
DictionaryEntry = 'RecibosCliente_REFERENCIA'
end
item
@@ -1026,74 +1025,102 @@ object srvRecibosCliente: TsrvRecibosCliente
end
item
Name = 'ID_EMPRESA'
+ DataType = datInteger
Value = ''
end
item
Name = 'ID_CLIENTE'
+ DataType = datInteger
Value = ''
end
item
Name = 'ID_FACTURA'
+ DataType = datInteger
Value = ''
end
item
Name = 'REFERENCIA'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'FECHA_EMISION'
+ DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_VENCIMIENTO'
+ DataType = datDateTime
Value = ''
end
item
Name = 'DESCRIPCION'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'OBSERVACIONES'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'IMPORTE'
+ DataType = datCurrency
Value = ''
end
item
Name = 'OTROS_GASTOS'
+ DataType = datCurrency
Value = ''
end
item
Name = 'USUARIO'
+ DataType = datString
+ Size = 30
Value = ''
end
item
Name = 'ID_TIENDA'
+ DataType = datInteger
Value = ''
end
item
Name = 'NOMBRE'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'NIF_CIF'
+ DataType = datString
+ Size = 15
Value = ''
end
item
Name = 'CALLE'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'POBLACION'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'PROVINCIA'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'CODIGO_POSTAL'
+ DataType = datString
+ Size = 10
Value = ''
end>
Statements = <
@@ -1137,70 +1164,102 @@ object srvRecibosCliente: TsrvRecibosCliente
Params = <
item
Name = 'ID_REMESA'
+ DataType = datInteger
Value = ''
end
item
Name = 'ID_EMPRESA'
+ DataType = datInteger
Value = ''
end
item
Name = 'ID_CLIENTE'
+ DataType = datInteger
Value = ''
end
item
Name = 'FECHA_EMISION'
+ DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_VENCIMIENTO'
+ DataType = datDateTime
Value = ''
end
item
Name = 'DESCRIPCION'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'OBSERVACIONES'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'IMPORTE'
+ DataType = datCurrency
Value = ''
end
item
Name = 'OTROS_GASTOS'
+ DataType = datCurrency
Value = ''
end
item
Name = 'USUARIO'
+ DataType = datString
+ Size = 30
Value = ''
end
item
Name = 'ID_TIENDA'
+ DataType = datInteger
Value = ''
end
item
Name = 'NOMBRE'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'NIF_CIF'
+ DataType = datString
+ Size = 15
Value = ''
end
item
Name = 'CALLE'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'POBLACION'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'PROVINCIA'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'CODIGO_POSTAL'
+ DataType = datString
+ Size = 10
+ Value = ''
+ end
+ item
+ Name = 'REFERENCIA'
+ DataType = datString
+ Size = 255
Value = ''
end
item
@@ -1221,7 +1280,7 @@ object srvRecibosCliente: TsrvRecibosCliente
'RE = :NOMBRE,'#10' NIF_CIF = :NIF_CIF,'#10' CALLE = :CALLE,'#10' PO' +
'BLACION = :POBLACION,'#10' PROVINCIA = :PROVINCIA,'#10' CODIGO_POS' +
'TAL = :CODIGO_POSTAL,'#10' FECHA_MODIFICACION = CURRENT_TIMESTAMP' +
- #10' WHERE'#10' (ID = :OLD_ID)'#10
+ ','#10' REFERENCIA = :REFERENCIA'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas
index d12d420..4de6597 100644
--- a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas
+++ b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas
@@ -349,9 +349,14 @@ begin
end;
procedure TfEditorReciboCliente.GuardarInterno;
+var
+ bEsNuevo: Boolean;
begin
inherited;
+ bEsNuevo := FRecibo.EsNuevo;
FController.Guardar(FRecibo);
+ if bEsNuevo then
+ ShowInfoMessage('El recibo se ha dado de alta con el código ' + FRecibo.REFERENCIA);
Modified := False;
end;
diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr
index 8f65a8d..013fdea 100644
--- a/Source/Servidor/FactuGES_Server.dpr
+++ b/Source/Servidor/FactuGES_Server.dpr
@@ -123,8 +123,6 @@ uses
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
- schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
- schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas',
schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
@@ -135,6 +133,8 @@ uses
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
+ schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
+ schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas';
diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj
index 4f160b1..97945fa 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -1,294 +1,297 @@
-
+
-
- {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}
- FactuGES_Server.dpr
- Debug
- AnyCPU
- DCC32
- ..\..\Output\Debug\Servidor\FactuGES_Server.exe
-
-
- 7.0
- False
- False
- 0
- 3
- ..\..\Output\Release\Servidor
- RELEASE
-
-
- 7.0
- 3
- ..\..\Output\Debug\Servidor
- DEBUG;
- True
-
-
- Delphi.Personality
-
-
- FalseTrueFalseTrueFalse2490FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.4.9.0FactuGES (Servidor)2.4.9.0miércoles, 18 de enero de 2012 15:13
- File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found
- FactuGES_Server.dpr
-
-
-
-
- MainSource
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDARemoteService
-
-
-
- TRORemoteDataModule
-
-
-
-
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDARemoteService
-
-
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDARemoteService
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
- TFrame
-
-
-
- TFrame
-
-
-
- TForm
-
-
-
- TFrame
-
-
-
- TDARemoteService
-
-
-
-
-
-
- TDataModule
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+ {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}
+ FactuGES_Server.dpr
+ Debug
+ AnyCPU
+ DCC32
+ ..\..\Output\Debug\Servidor\FactuGES_Server.exe
+
+
+ 7.0
+ False
+ False
+ 0
+ 3
+ ..\..\Output\Release\Servidor
+ RELEASE
+
+
+ 7.0
+ 3
+ ..\..\Output\Debug\Servidor
+ DEBUG;
+ True
+
+
+ Delphi.Personality
+
+
+FalseTrueFalseTrueFalse2490FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.4.9.0FactuGES (Servidor)2.4.9.0miércoles, 18 de enero de 2012 15:13
+
+
+
+ File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found
+ FactuGES_Server.dpr
+
+
+
+
+ MainSource
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDARemoteService
+
+
+
+ TRORemoteDataModule
+
+
+
+
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+ TFrame
+
+
+
+ TFrame
+
+
+
+ TForm
+
+
+
+ TFrame
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+ TDataModule
+
+
+
+
+
+
+
+
+
+
+
+
+