From 500da284eb5b71a854761efe04c33f9393edc470 Mon Sep 17 00:00:00 2001 From: roberto Date: Wed, 1 Feb 2012 10:53:40 +0000 Subject: [PATCH] Cambio en facturas de proveedor para contemplar el tipo de gasto de la factura. Cambios en recibos de cliente para ver si hace bien el incremento de la referencia git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@36 93f398dd-4eb6-7a46-baf6-13f46f578da2 --- Source/Base/Base.dproj | 103 ++-- .../Model/schFacturasClienteClient_Intf.pas | 20 +- .../Model/schFacturasClienteServer_Intf.pas | 12 +- .../uFacturasProveedorController.pas | 9 + .../Data/uDataModuleFacturasProveedor.dfm | 30 + .../Data/uDataModuleFacturasProveedor.pas | 17 + .../Data/uIDataModuleFacturasProveedor.pas | 1 + .../Model/schFacturasProveedorClient_Intf.pas | 163 ++++- .../Model/schFacturasProveedorServer_Intf.pas | 181 +++++- .../Model/uBizFacturasProveedor.pas | 9 + .../Servidor/srvFacturasProveedor_Impl.dfm | 193 +++++- .../Views/uViewFacturaProveedor.dfm | 89 ++- .../Views/uViewFacturaProveedor.pas | 10 + .../Data/uDataModuleRecibosCliente.dfm | 1 - .../Data/uDataModuleRecibosCliente.pas | 3 + .../Model/schRecibosClienteClient_Intf.pas | 26 +- .../Model/schRecibosClienteServer_Intf.pas | 16 +- .../Servidor/srvRecibosCliente_Impl.dfm | 63 +- .../Views/uEditorReciboCliente.pas | 5 + Source/Servidor/FactuGES_Server.dpr | 4 +- Source/Servidor/FactuGES_Server.dproj | 583 +++++++++--------- 21 files changed, 1090 insertions(+), 448 deletions(-) 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 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fConfigurarConexion
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 - - - - - -
srvEjercicios
- TDataAbstractService - - - - -
srvEmpresas
- TDARemoteService - - -
srvProvinciasPoblaciones
- TRORemoteDataModule - - - - - - - - - - - - -
srvAlbaranesCliente
- TDataAbstractService - - - - - -
srvAlbaranesProveedor
- TDataAbstractService - - - - -
srvAlmacenes
- TDARemoteService - - - - - - - - -
RptComisiones
- TDataModule - - -
srvComisiones
- TDataAbstractService - - - - - -
srvContabilidad
- TDataAbstractService - - - - - - - - -
RptEtiquetasContacto
- TDataModule - - -
srvContactos
- TDARemoteService - - - - - -
RptContratosCliente
- - -
srvContratosCliente
- TDataAbstractService - - - - - -
RptFacturasCliente
- TDataModule - - -
srvFacturasCliente
- TDataAbstractService - - - - - -
RptFacturasProveedor
- TDataModule - - -
srvFacturasProveedor
- TDataAbstractService - - - - - - - - -
srvGestorDocumentos
- TDataAbstractService - - -
srvGestorInformes
- TDataAbstractService - - - - -
srvHistoricoMovimientos
- TDataAbstractService - - - - -
srvInventario
- TDataAbstractService - - - - - -
srvPedidosProveedor
- TDataAbstractService - - - - - -
RptPresupuestosCliente
- - -
srvPresupuestosCliente
- TDataAbstractService - - - - - - -
RptRecibosCliente
- TDataModule - - -
srvRecibosCliente
- TDataAbstractService - - - - - - -
RptRecibosProveedor
- TDataModule - - -
srvRecibosProveedor
- TDataAbstractService - - - - -
srvReferencias
- TDataAbstractService - - - - - -
srvRemesasCliente
- TDataAbstractService - - - - - -
srvRemesasProveedor
- TDataAbstractService - - - - - - - -
srvUnidadesMedida
- TDataAbstractService - - - - -
srvConfiguracion
- TDataAbstractService - - -
frConexionBD
- TFrame - - -
frConfGeneral
- TFrame - - -
fConfiguracion
- TForm - - -
FrameConfiguracion
- TFrame - - -
srvLogin
- TDARemoteService - - -
fAcercaDe
- - -
dmServer
- TDataModule - - -
fServerForm
- - - - - - - - - - + + {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 + + + + + +
srvEjercicios
+ TDataAbstractService + + + + +
srvEmpresas
+ TDARemoteService + + +
srvProvinciasPoblaciones
+ TRORemoteDataModule + + + + + + + + + + + + +
srvAlbaranesCliente
+ TDataAbstractService + + + + + +
srvAlbaranesProveedor
+ TDataAbstractService + + + + +
srvAlmacenes
+ TDARemoteService + + + + + + + + +
RptComisiones
+ TDataModule + + +
srvComisiones
+ TDataAbstractService + + + + + +
srvContabilidad
+ TDataAbstractService + + + + + + + + +
RptEtiquetasContacto
+ TDataModule + + +
srvContactos
+ TDARemoteService + + + + + +
RptContratosCliente
+ + +
srvContratosCliente
+ TDataAbstractService + + + + + +
RptFacturasCliente
+ TDataModule + + +
srvFacturasCliente
+ TDataAbstractService + + + + + +
RptFacturasProveedor
+ TDataModule + + +
srvFacturasProveedor
+ TDataAbstractService + + + + + + + + +
srvGestorDocumentos
+ TDataAbstractService + + +
srvGestorInformes
+ TDataAbstractService + + + + +
srvHistoricoMovimientos
+ TDataAbstractService + + + + +
srvInventario
+ TDataAbstractService + + + + + +
srvPedidosProveedor
+ TDataAbstractService + + + + + +
RptPresupuestosCliente
+ + +
srvPresupuestosCliente
+ TDataAbstractService + + + + + + +
RptRecibosCliente
+ TDataModule + + +
srvRecibosCliente
+ TDataAbstractService + + + + + + +
RptRecibosProveedor
+ TDataModule + + +
srvRecibosProveedor
+ TDataAbstractService + + + + +
srvReferencias
+ TDataAbstractService + + + + + +
srvRemesasCliente
+ TDataAbstractService + + + + + +
srvRemesasProveedor
+ TDataAbstractService + + + + + + + +
srvUnidadesMedida
+ TDataAbstractService + + + + +
srvConfiguracion
+ TDataAbstractService + + +
frConexionBD
+ TFrame + + +
frConfGeneral
+ TFrame + + +
fConfiguracion
+ TForm + + +
FrameConfiguracion
+ TFrame + + +
srvLogin
+ TDARemoteService + + +
fAcercaDe
+ + +
dmServer
+ TDataModule + + +
fServerForm
+ + + + + + + + + +