From cfde3839271bfbe0a364d11d681aad3f5c718a06 Mon Sep 17 00:00:00 2001 From: roberto Date: Sat, 17 Nov 2007 18:28:52 +0000 Subject: [PATCH] git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@124 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- .../Data/uDataModuleFacturasProveedor.dfm | 18 +- .../FacturasProveedor_Group.groupproj | 16 +- .../Model/schFacturasProveedorClient_Intf.pas | 80 +-- .../Model/schFacturasProveedorServer_Intf.pas | 72 +-- .../Model/uBizFacturasProveedor.pas | 2 +- .../Servidor/srvFacturasProveedor_Impl.dfm | 465 +++++++++--------- .../Views/FacturasProveedor_view.dproj | 10 +- .../Views/FacturasProveedor_view.res | Bin 384 -> 4748 bytes .../Views/uEditorFacturaProveedor.dfm | 4 - Source/Servidor/FactuGES_Server.dproj | 358 +++++++------- Source/Servidor/FactuGES_Server.rsb | Bin 32 -> 0 bytes 11 files changed, 494 insertions(+), 531 deletions(-) delete mode 100644 Source/Servidor/FactuGES_Server.rsb diff --git a/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm b/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm index 7c57819a..52f3a234 100644 --- a/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm +++ b/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm @@ -205,7 +205,7 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor end item Name = 'RECARGO_EQUIVALENCIA' - DataType = datInteger + DataType = datSmallInt DisplayLabel = #194#191'Con R.E.?' DictionaryEntry = 'FacturasProveedor_RECARGO_EQUIVALENCIA' end @@ -235,13 +235,13 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'FacturasProveedor' IndexDefs = <> - Left = 208 - Top = 112 + Left = 216 + Top = 96 end object ds_FacturasProveedor: TDADataSource DataSet = tbl_FacturasProveedor.Dataset DataTable = tbl_FacturasProveedor - Left = 208 + Left = 216 Top = 48 end object tbl_FacturasProveedor_Detalles: TDAMemDataTable @@ -303,7 +303,7 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor end item Name = 'VISIBLE' - DataType = datInteger + DataType = datSmallInt DisplayLabel = #194#191'Visible?' DictionaryEntry = 'FacturasProveedor_Detalles_VISIBLE' end @@ -319,7 +319,7 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor end item Name = 'IMPORTE_PORTE' - DataType = datFloat + DataType = datCurrency DictionaryEntry = 'FacturasProveedor_Detalles_IMPORTE_PORTE' end item @@ -345,13 +345,13 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'FacturasProveedor_Detalles' IndexDefs = <> - Left = 400 - Top = 112 + Left = 392 + Top = 88 end object ds_FacturasProveedor_Detalles: TDADataSource DataSet = tbl_FacturasProveedor_Detalles.Dataset DataTable = tbl_FacturasProveedor_Detalles - Left = 400 + Left = 392 Top = 40 end end diff --git a/Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj b/Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj index 01270199..6e03e35c 100644 --- a/Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj +++ b/Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj @@ -10,7 +10,6 @@ - @@ -122,23 +121,14 @@ - - - - - - - - - - + - + - + \ No newline at end of file diff --git a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas index fd782743..5795ec38 100644 --- a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas +++ b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas @@ -3,15 +3,15 @@ unit schFacturasProveedorClient_Intf; interface uses - Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; + Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; const { Data table rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_DarReferencia = '{56BD23E4-C4B1-4330-BA93-6ABE078D7890}'; - RID_FacturasProveedor = '{C5251FED-8060-492E-BE27-0374DB7C03BF}'; - RID_FacturasProveedor_Detalles = '{430708DE-0382-4AD6-9973-D44B84BCFB13}'; + RID_DarReferencia = '{2D20E4FE-0D36-4FAD-97D5-B2DB2E68DFDC}'; + RID_FacturasProveedor = '{633FE4C4-C35E-42BE-B796-5AED0E1A22BE}'; + RID_FacturasProveedor_Detalles = '{E6326236-9200-46E8-95A0-A2F8FF9CC4E2}'; { Data table names } nme_DarReferencia = 'DarReferencia'; @@ -125,7 +125,7 @@ const type { IDarReferencia } IDarReferencia = interface(IDAStronglyTypedDataTable) - ['{60AE026D-F31D-4387-9EDC-FC7A49B19194}'] + ['{9968E89F-9FA7-4C1B-87F0-185E647FA3EF}'] { Property getters and setters } function GetVALORValue: String; procedure SetVALORValue(const aValue: String); @@ -139,7 +139,7 @@ type end; { TDarReferenciaDataTableRules } - TDarReferenciaDataTableRules = class(TIntfObjectDADataTableRules, IDarReferencia) + TDarReferenciaDataTableRules = class(TDADataTableRules, IDarReferencia) private protected { Property getters and setters } @@ -160,7 +160,7 @@ type { IFacturasProveedor } IFacturasProveedor = interface(IDAStronglyTypedDataTable) - ['{A5C77209-2C1B-4526-8C24-54CCFB5A6311}'] + ['{4DA09039-4EBF-40D5-85F7-8CC58CB881A7}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -269,8 +269,8 @@ type procedure SetID_FORMA_PAGOValue(const aValue: Integer); function GetID_FORMA_PAGOIsNull: Boolean; procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); - function GetRECARGO_EQUIVALENCIAValue: Integer; - procedure SetRECARGO_EQUIVALENCIAValue(const aValue: Integer); + function GetRECARGO_EQUIVALENCIAValue: SmallInt; + procedure SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt); function GetRECARGO_EQUIVALENCIAIsNull: Boolean; procedure SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean); function GetID_TIPO_IVAValue: Integer; @@ -342,7 +342,7 @@ type property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull; - property RECARGO_EQUIVALENCIA: Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue; + property RECARGO_EQUIVALENCIA: SmallInt read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue; property RECARGO_EQUIVALENCIAIsNull: Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull; property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue; property ID_TIPO_IVAIsNull: Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull; @@ -353,7 +353,7 @@ type end; { TFacturasProveedorDataTableRules } - TFacturasProveedorDataTableRules = class(TIntfObjectDADataTableRules, IFacturasProveedor) + TFacturasProveedorDataTableRules = class(TDADataTableRules, IFacturasProveedor) private f_OBSERVACIONES: IROStrings; procedure OBSERVACIONES_OnChange(Sender: TObject); @@ -466,8 +466,8 @@ type procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual; function GetID_FORMA_PAGOIsNull: Boolean; virtual; procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual; - function GetRECARGO_EQUIVALENCIAValue: Integer; virtual; - procedure SetRECARGO_EQUIVALENCIAValue(const aValue: Integer); virtual; + function GetRECARGO_EQUIVALENCIAValue: SmallInt; virtual; + procedure SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt); virtual; function GetRECARGO_EQUIVALENCIAIsNull: Boolean; virtual; procedure SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean); virtual; function GetID_TIPO_IVAValue: Integer; virtual; @@ -538,7 +538,7 @@ type property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull; - property RECARGO_EQUIVALENCIA: Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue; + property RECARGO_EQUIVALENCIA: SmallInt read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue; property RECARGO_EQUIVALENCIAIsNull: Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull; property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue; property ID_TIPO_IVAIsNull: Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull; @@ -555,7 +555,7 @@ type { IFacturasProveedor_Detalles } IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable) - ['{8C3B5CD4-29A7-4243-AD27-E53D419F0D26}'] + ['{653B610A-A413-48D5-97C4-A6BFE55F378A}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -589,8 +589,8 @@ type procedure SetIMPORTE_TOTALValue(const aValue: Currency); function GetIMPORTE_TOTALIsNull: Boolean; procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); - function GetVISIBLEValue: Integer; - procedure SetVISIBLEValue(const aValue: Integer); + function GetVISIBLEValue: SmallInt; + procedure SetVISIBLEValue(const aValue: SmallInt); function GetVISIBLEIsNull: Boolean; procedure SetVISIBLEIsNull(const aValue: Boolean); function GetID_ARTICULOValue: Integer; @@ -601,8 +601,8 @@ type procedure SetDESCUENTOValue(const aValue: Float); function GetDESCUENTOIsNull: Boolean; procedure SetDESCUENTOIsNull(const aValue: Boolean); - function GetIMPORTE_PORTEValue: Float; - procedure SetIMPORTE_PORTEValue(const aValue: Float); + function GetIMPORTE_PORTEValue: Currency; + procedure SetIMPORTE_PORTEValue(const aValue: Currency); function GetIMPORTE_PORTEIsNull: Boolean; procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); function GetREFERENCIAValue: String; @@ -632,13 +632,13 @@ type property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull; property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; - property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue; + property VISIBLE: SmallInt read GetVISIBLEValue write SetVISIBLEValue; property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; - property IMPORTE_PORTE: Float read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; + property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; @@ -647,7 +647,7 @@ type end; { TFacturasProveedor_DetallesDataTableRules } - TFacturasProveedor_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IFacturasProveedor_Detalles) + TFacturasProveedor_DetallesDataTableRules = class(TDADataTableRules, IFacturasProveedor_Detalles) private protected { Property getters and setters } @@ -683,8 +683,8 @@ type procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; function GetIMPORTE_TOTALIsNull: Boolean; virtual; procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual; - function GetVISIBLEValue: Integer; virtual; - procedure SetVISIBLEValue(const aValue: Integer); virtual; + function GetVISIBLEValue: SmallInt; virtual; + procedure SetVISIBLEValue(const aValue: SmallInt); virtual; function GetVISIBLEIsNull: Boolean; virtual; procedure SetVISIBLEIsNull(const aValue: Boolean); virtual; function GetID_ARTICULOValue: Integer; virtual; @@ -695,8 +695,8 @@ type procedure SetDESCUENTOValue(const aValue: Float); virtual; function GetDESCUENTOIsNull: Boolean; virtual; procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_PORTEValue: Float; virtual; - procedure SetIMPORTE_PORTEValue(const aValue: Float); virtual; + function GetIMPORTE_PORTEValue: Currency; virtual; + procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual; function GetIMPORTE_PORTEIsNull: Boolean; virtual; procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual; function GetREFERENCIAValue: String; virtual; @@ -725,13 +725,13 @@ type property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull; property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; - property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue; + property VISIBLE: SmallInt read GetVISIBLEValue write SetVISIBLEValue; property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; - property IMPORTE_PORTE: Float read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; + property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; @@ -1366,14 +1366,14 @@ begin DataTable.Fields[idx_FacturasProveedorID_FORMA_PAGO].AsVariant := Null; end; -function TFacturasProveedorDataTableRules.GetRECARGO_EQUIVALENCIAValue: Integer; +function TFacturasProveedorDataTableRules.GetRECARGO_EQUIVALENCIAValue: SmallInt; begin - result := DataTable.Fields[idx_FacturasProveedorRECARGO_EQUIVALENCIA].AsInteger; + result := DataTable.Fields[idx_FacturasProveedorRECARGO_EQUIVALENCIA].AsSmallInt; end; -procedure TFacturasProveedorDataTableRules.SetRECARGO_EQUIVALENCIAValue(const aValue: Integer); +procedure TFacturasProveedorDataTableRules.SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt); begin - DataTable.Fields[idx_FacturasProveedorRECARGO_EQUIVALENCIA].AsInteger := aValue; + DataTable.Fields[idx_FacturasProveedorRECARGO_EQUIVALENCIA].AsSmallInt := aValue; end; function TFacturasProveedorDataTableRules.GetRECARGO_EQUIVALENCIAIsNull: boolean; @@ -1630,14 +1630,14 @@ begin DataTable.Fields[idx_FacturasProveedor_DetallesIMPORTE_TOTAL].AsVariant := Null; end; -function TFacturasProveedor_DetallesDataTableRules.GetVISIBLEValue: Integer; +function TFacturasProveedor_DetallesDataTableRules.GetVISIBLEValue: SmallInt; begin - result := DataTable.Fields[idx_FacturasProveedor_DetallesVISIBLE].AsInteger; + result := DataTable.Fields[idx_FacturasProveedor_DetallesVISIBLE].AsSmallInt; end; -procedure TFacturasProveedor_DetallesDataTableRules.SetVISIBLEValue(const aValue: Integer); +procedure TFacturasProveedor_DetallesDataTableRules.SetVISIBLEValue(const aValue: SmallInt); begin - DataTable.Fields[idx_FacturasProveedor_DetallesVISIBLE].AsInteger := aValue; + DataTable.Fields[idx_FacturasProveedor_DetallesVISIBLE].AsSmallInt := aValue; end; function TFacturasProveedor_DetallesDataTableRules.GetVISIBLEIsNull: boolean; @@ -1693,14 +1693,14 @@ begin DataTable.Fields[idx_FacturasProveedor_DetallesDESCUENTO].AsVariant := Null; end; -function TFacturasProveedor_DetallesDataTableRules.GetIMPORTE_PORTEValue: Float; +function TFacturasProveedor_DetallesDataTableRules.GetIMPORTE_PORTEValue: Currency; begin - result := DataTable.Fields[idx_FacturasProveedor_DetallesIMPORTE_PORTE].AsFloat; + result := DataTable.Fields[idx_FacturasProveedor_DetallesIMPORTE_PORTE].AsCurrency; end; -procedure TFacturasProveedor_DetallesDataTableRules.SetIMPORTE_PORTEValue(const aValue: Float); +procedure TFacturasProveedor_DetallesDataTableRules.SetIMPORTE_PORTEValue(const aValue: Currency); begin - DataTable.Fields[idx_FacturasProveedor_DetallesIMPORTE_PORTE].AsFloat := aValue; + DataTable.Fields[idx_FacturasProveedor_DetallesIMPORTE_PORTE].AsCurrency := aValue; end; function TFacturasProveedor_DetallesDataTableRules.GetIMPORTE_PORTEIsNull: boolean; diff --git a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas index 10262689..c9bcd8f0 100644 --- a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas +++ b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_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_DarReferenciaDelta = '{63FA0002-1E1F-4066-B76C-877FD4BE86CD}'; - RID_FacturasProveedorDelta = '{5C96E61B-5758-411C-B93D-8AC0229A8C40}'; - RID_FacturasProveedor_DetallesDelta = '{514C8A59-C317-4816-AF2D-8168382A6DA9}'; + RID_DarReferenciaDelta = '{A7A756C6-B082-46D7-825F-60D9E4F96393}'; + RID_FacturasProveedorDelta = '{1EEB760A-51A9-4DF6-A426-1CC7959C83AC}'; + RID_FacturasProveedor_DetallesDelta = '{6F45C011-FBB1-4ED0-9638-F24FBCF9ECC9}'; type { IDarReferenciaDelta } IDarReferenciaDelta = interface(IDarReferencia) - ['{63FA0002-1E1F-4066-B76C-877FD4BE86CD}'] + ['{A7A756C6-B082-46D7-825F-60D9E4F96393}'] { Property getters and setters } function GetOldVALORValue : String; @@ -50,7 +50,7 @@ type { IFacturasProveedorDelta } IFacturasProveedorDelta = interface(IFacturasProveedor) - ['{5C96E61B-5758-411C-B93D-8AC0229A8C40}'] + ['{1EEB760A-51A9-4DF6-A426-1CC7959C83AC}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -79,7 +79,7 @@ type function GetOldFECHA_MODIFICACIONValue : DateTime; function GetOldUSUARIOValue : String; function GetOldID_FORMA_PAGOValue : Integer; - function GetOldRECARGO_EQUIVALENCIAValue : Integer; + function GetOldRECARGO_EQUIVALENCIAValue : SmallInt; function GetOldID_TIPO_IVAValue : Integer; function GetOldIMPORTE_NETOValue : Currency; function GetOldIMPORTE_PORTEValue : Currency; @@ -112,7 +112,7 @@ type property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property OldUSUARIO : String read GetOldUSUARIOValue; property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; - property OldRECARGO_EQUIVALENCIA : Integer read GetOldRECARGO_EQUIVALENCIAValue; + property OldRECARGO_EQUIVALENCIA : SmallInt read GetOldRECARGO_EQUIVALENCIAValue; property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue; property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue; property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; @@ -286,11 +286,11 @@ type function GetOldID_FORMA_PAGOIsNull: Boolean; virtual; procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual; procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual; - function GetRECARGO_EQUIVALENCIAValue: Integer; virtual; + function GetRECARGO_EQUIVALENCIAValue: SmallInt; virtual; function GetRECARGO_EQUIVALENCIAIsNull: Boolean; virtual; - function GetOldRECARGO_EQUIVALENCIAValue: Integer; virtual; + function GetOldRECARGO_EQUIVALENCIAValue: SmallInt; virtual; function GetOldRECARGO_EQUIVALENCIAIsNull: Boolean; virtual; - procedure SetRECARGO_EQUIVALENCIAValue(const aValue: Integer); virtual; + procedure SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt); virtual; procedure SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean); virtual; function GetID_TIPO_IVAValue: Integer; virtual; function GetID_TIPO_IVAIsNull: Boolean; virtual; @@ -420,9 +420,9 @@ type property ID_FORMA_PAGOIsNull : Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull; property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; property OldID_FORMA_PAGOIsNull : Boolean read GetOldID_FORMA_PAGOIsNull; - property RECARGO_EQUIVALENCIA : Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue; + property RECARGO_EQUIVALENCIA : SmallInt read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue; property RECARGO_EQUIVALENCIAIsNull : Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull; - property OldRECARGO_EQUIVALENCIA : Integer read GetOldRECARGO_EQUIVALENCIAValue; + property OldRECARGO_EQUIVALENCIA : SmallInt read GetOldRECARGO_EQUIVALENCIAValue; property OldRECARGO_EQUIVALENCIAIsNull : Boolean read GetOldRECARGO_EQUIVALENCIAIsNull; property ID_TIPO_IVA : Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue; property ID_TIPO_IVAIsNull : Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull; @@ -445,7 +445,7 @@ type { IFacturasProveedor_DetallesDelta } IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles) - ['{514C8A59-C317-4816-AF2D-8168382A6DA9}'] + ['{6F45C011-FBB1-4ED0-9638-F24FBCF9ECC9}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_FACTURAValue : Integer; @@ -455,10 +455,10 @@ type function GetOldCANTIDADValue : Integer; function GetOldIMPORTE_UNIDADValue : Currency; function GetOldIMPORTE_TOTALValue : Currency; - function GetOldVISIBLEValue : Integer; + function GetOldVISIBLEValue : SmallInt; function GetOldID_ARTICULOValue : Integer; function GetOldDESCUENTOValue : Float; - function GetOldIMPORTE_PORTEValue : Float; + function GetOldIMPORTE_PORTEValue : Currency; function GetOldREFERENCIAValue : String; function GetOldREFERENCIA_PROVEEDORValue : String; @@ -471,10 +471,10 @@ type property OldCANTIDAD : Integer read GetOldCANTIDADValue; property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue; property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; - property OldVISIBLE : Integer read GetOldVISIBLEValue; + property OldVISIBLE : SmallInt read GetOldVISIBLEValue; property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; property OldDESCUENTO : Float read GetOldDESCUENTOValue; - property OldIMPORTE_PORTE : Float read GetOldIMPORTE_PORTEValue; + property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue; end; @@ -532,11 +532,11 @@ type function GetOldIMPORTE_TOTALIsNull: Boolean; virtual; procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual; - function GetVISIBLEValue: Integer; virtual; + function GetVISIBLEValue: SmallInt; virtual; function GetVISIBLEIsNull: Boolean; virtual; - function GetOldVISIBLEValue: Integer; virtual; + function GetOldVISIBLEValue: SmallInt; virtual; function GetOldVISIBLEIsNull: Boolean; virtual; - procedure SetVISIBLEValue(const aValue: Integer); virtual; + procedure SetVISIBLEValue(const aValue: SmallInt); virtual; procedure SetVISIBLEIsNull(const aValue: Boolean); virtual; function GetID_ARTICULOValue: Integer; virtual; function GetID_ARTICULOIsNull: Boolean; virtual; @@ -550,11 +550,11 @@ type function GetOldDESCUENTOIsNull: Boolean; virtual; procedure SetDESCUENTOValue(const aValue: Float); virtual; procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_PORTEValue: Float; virtual; + function GetIMPORTE_PORTEValue: Currency; virtual; function GetIMPORTE_PORTEIsNull: Boolean; virtual; - function GetOldIMPORTE_PORTEValue: Float; virtual; + function GetOldIMPORTE_PORTEValue: Currency; virtual; function GetOldIMPORTE_PORTEIsNull: Boolean; virtual; - procedure SetIMPORTE_PORTEValue(const aValue: Float); virtual; + procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual; procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual; function GetREFERENCIAValue: String; virtual; function GetREFERENCIAIsNull: Boolean; virtual; @@ -602,9 +602,9 @@ type property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull; - property VISIBLE : Integer read GetVISIBLEValue write SetVISIBLEValue; + property VISIBLE : SmallInt read GetVISIBLEValue write SetVISIBLEValue; property VISIBLEIsNull : Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; - property OldVISIBLE : Integer read GetOldVISIBLEValue; + property OldVISIBLE : SmallInt read GetOldVISIBLEValue; property OldVISIBLEIsNull : Boolean read GetOldVISIBLEIsNull; property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; @@ -614,9 +614,9 @@ type property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; property OldDESCUENTO : Float read GetOldDESCUENTOValue; property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull; - property IMPORTE_PORTE : Float read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; + property IMPORTE_PORTE : Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; property IMPORTE_PORTEIsNull : Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; - property OldIMPORTE_PORTE : Float read GetOldIMPORTE_PORTEValue; + property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; property OldIMPORTE_PORTEIsNull : Boolean read GetOldIMPORTE_PORTEIsNull; property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; @@ -1537,7 +1537,7 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorID_FORMA_PAGO] := Null; end; -function TFacturasProveedorBusinessProcessorRules.GetRECARGO_EQUIVALENCIAValue: Integer; +function TFacturasProveedorBusinessProcessorRules.GetRECARGO_EQUIVALENCIAValue: SmallInt; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorRECARGO_EQUIVALENCIA]; end; @@ -1547,7 +1547,7 @@ begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorRECARGO_EQUIVALENCIA]); end; -function TFacturasProveedorBusinessProcessorRules.GetOldRECARGO_EQUIVALENCIAValue: Integer; +function TFacturasProveedorBusinessProcessorRules.GetOldRECARGO_EQUIVALENCIAValue: SmallInt; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorRECARGO_EQUIVALENCIA]; end; @@ -1557,7 +1557,7 @@ begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorRECARGO_EQUIVALENCIA]); end; -procedure TFacturasProveedorBusinessProcessorRules.SetRECARGO_EQUIVALENCIAValue(const aValue: Integer); +procedure TFacturasProveedorBusinessProcessorRules.SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt); begin BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorRECARGO_EQUIVALENCIA] := aValue; end; @@ -1921,7 +1921,7 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_DetallesIMPORTE_TOTAL] := Null; end; -function TFacturasProveedor_DetallesBusinessProcessorRules.GetVISIBLEValue: Integer; +function TFacturasProveedor_DetallesBusinessProcessorRules.GetVISIBLEValue: SmallInt; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_DetallesVISIBLE]; end; @@ -1931,7 +1931,7 @@ begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_DetallesVISIBLE]); end; -function TFacturasProveedor_DetallesBusinessProcessorRules.GetOldVISIBLEValue: Integer; +function TFacturasProveedor_DetallesBusinessProcessorRules.GetOldVISIBLEValue: SmallInt; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedor_DetallesVISIBLE]; end; @@ -1941,7 +1941,7 @@ begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedor_DetallesVISIBLE]); end; -procedure TFacturasProveedor_DetallesBusinessProcessorRules.SetVISIBLEValue(const aValue: Integer); +procedure TFacturasProveedor_DetallesBusinessProcessorRules.SetVISIBLEValue(const aValue: SmallInt); begin BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_DetallesVISIBLE] := aValue; end; @@ -2014,7 +2014,7 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_DetallesDESCUENTO] := Null; end; -function TFacturasProveedor_DetallesBusinessProcessorRules.GetIMPORTE_PORTEValue: Float; +function TFacturasProveedor_DetallesBusinessProcessorRules.GetIMPORTE_PORTEValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_DetallesIMPORTE_PORTE]; end; @@ -2024,7 +2024,7 @@ begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_DetallesIMPORTE_PORTE]); end; -function TFacturasProveedor_DetallesBusinessProcessorRules.GetOldIMPORTE_PORTEValue: Float; +function TFacturasProveedor_DetallesBusinessProcessorRules.GetOldIMPORTE_PORTEValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedor_DetallesIMPORTE_PORTE]; end; @@ -2034,7 +2034,7 @@ begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedor_DetallesIMPORTE_PORTE]); end; -procedure TFacturasProveedor_DetallesBusinessProcessorRules.SetIMPORTE_PORTEValue(const aValue: Float); +procedure TFacturasProveedor_DetallesBusinessProcessorRules.SetIMPORTE_PORTEValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_DetallesIMPORTE_PORTE] := aValue; end; diff --git a/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas b/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas index f459f01b..04c9c822 100644 --- a/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas +++ b/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas @@ -292,7 +292,7 @@ begin PROVINCIA := FProveedor.PROVINCIA; POBLACION := FProveedor.POBLACION; ID_FORMA_PAGO := FProveedor.ID_FORMA_PAGO; -// ID_TIPO_IVA := FProveedor.ID_TIPO_IVA; //REPASAR DA UN PETE QUE TE CAGAS + ID_TIPO_IVA := FProveedor.ID_TIPO_IVA; // RECARGO_EQUIVALENCIA := FProveedor.RECARGO_EQUIVALENCIA; Post; diff --git a/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm b/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm index 92095477..272ca660 100644 --- a/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm +++ b/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm @@ -337,7 +337,7 @@ object srvFacturasProveedor: TsrvFacturasProveedor end item Name = 'RECARGO_EQUIVALENCIA' - DataType = datInteger + DataType = datSmallInt DictionaryEntry = 'FacturasProveedor_RECARGO_EQUIVALENCIA' end item @@ -485,7 +485,7 @@ object srvFacturasProveedor: TsrvFacturasProveedor end item Name = 'VISIBLE' - DataType = datInteger + DataType = datSmallInt DictionaryEntry = 'FacturasProveedor_Detalles_VISIBLE' end item @@ -500,7 +500,7 @@ object srvFacturasProveedor: TsrvFacturasProveedor end item Name = 'IMPORTE_PORTE' - DataType = datFloat + DataType = datCurrency DictionaryEntry = 'FacturasProveedor_Detalles_IMPORTE_PORTE' end item @@ -544,175 +544,6 @@ object srvFacturasProveedor: TsrvFacturasProveedor end> Name = 'ModificarReferencia' end - item - Params = < - item - Name = 'OLD_ID' - Value = '' - end> - Statements = < - item - Connection = 'IBX' - TargetTable = 'FACTURAS_PROVEEDOR' - SQL = 'DELETE '#10' FROM'#10' FACTURAS_PROVEEDOR'#10' WHERE'#10' (ID = :OLD_ID)' - StatementType = stSQL - ColumnMappings = <> - end> - Name = 'Delete_FacturasProveedor' - end - item - Params = < - item - Name = 'ID' - DataType = datAutoInc - GeneratorName = 'GEN_FACTURA_PROV_DETALLES_ID' - Value = '' - end - item - Name = 'CANTIDAD' - Value = '' - end - item - Name = 'POSICION' - Value = '' - end - item - Name = 'ID_FACTURA' - Value = '' - end - item - Name = 'TIPO_DETALLE' - Value = '' - end - item - Name = 'CONCEPTO' - Value = '' - end - item - Name = 'IMPORTE_UNIDAD' - Value = '' - end - item - Name = 'IMPORTE_TOTAL' - Value = '' - end - item - Name = 'VISIBLE' - Value = '' - end - item - Name = 'ID_ARTICULO' - Value = '' - end - item - Name = 'DESCUENTO' - Value = '' - end - item - Name = 'IMPORTE_PORTE' - Value = '' - end> - Statements = < - item - Connection = 'IBX' - TargetTable = 'FACTURAS_PROVEEDOR_DETALLES' - SQL = - 'INSERT'#10' INTO FACTURAS_PROVEEDOR_DETALLES'#10' (ID, CANTIDAD, POS' + - 'ICION, ID_FACTURA, TIPO_DETALLE, CONCEPTO,'#10' IMPORTE_UNIDAD, ' + - 'IMPORTE_TOTAL, VISIBLE,'#10' ID_ARTICULO, DESCUENTO, IMPORTE_POR' + - 'TE)'#10' VALUES'#10' (:ID, :CANTIDAD, :POSICION, :ID_FACTURA, :TIPO_' + - 'DETALLE, :CONCEPTO,'#10' :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIB' + - 'LE,'#10' :ID_ARTICULO, :DESCUENTO, :IMPORTE_PORTE)' - StatementType = stSQL - ColumnMappings = <> - end> - Name = 'Insert_FacturasProveedor_Detalles' - end - item - Params = < - item - Name = 'OLD_ID' - Value = '' - end> - Statements = < - item - Connection = 'IBX' - TargetTable = 'FACTURAS_PROVEEDOR_DETALLES' - SQL = - 'DELETE '#10' FROM'#10' FACTURAS_PROVEEDOR_DETALLES'#10' WHERE'#10' (ID =' + - ' :OLD_ID)' - StatementType = stSQL - ColumnMappings = <> - end> - Name = 'Delete_FacturasProveedor_Detalles' - end - item - Params = < - item - Name = 'CANTIDAD' - Value = '' - end - item - Name = 'POSICION' - Value = '' - end - item - Name = 'ID_FACTURA' - Value = '' - end - item - Name = 'TIPO_DETALLE' - Value = '' - end - item - Name = 'CONCEPTO' - Value = '' - end - item - Name = 'IMPORTE_UNIDAD' - Value = '' - end - item - Name = 'IMPORTE_TOTAL' - Value = '' - end - item - Name = 'VISIBLE' - Value = '' - end - item - Name = 'ID_ARTICULO' - Value = '' - end - item - Name = 'DESCUENTO' - Value = '' - end - item - Name = 'IMPORTE_PORTE' - Value = '' - end - item - Name = 'OLD_ID' - Value = '' - end> - Statements = < - item - Connection = 'IBX' - TargetTable = 'FACTURAS_PROVEEDOR_DETALLES' - SQL = - 'UPDATE FACTURAS_PROVEEDOR_DETALLES'#10' SET '#10' CANTIDAD = :CANTID' + - 'AD, '#10' POSICION = :POSICION, '#10' ID_FACTURA = :ID_FACTURA, '#10' ' + - ' TIPO_DETALLE = :TIPO_DETALLE, '#10' CONCEPTO = :CONCEPTO, '#10' ' + - ' IMPORTE_UNIDAD = :IMPORTE_UNIDAD, '#10' IMPORTE_TOTAL = :IMPORTE' + - '_TOTAL,'#10' VISIBLE = :VISIBLE,'#10' ID_ARTICULO = :ID_ARTICULO,'#10 + - ' DESCUENTO = :DESCUENTO,'#10' IMPORTE_PORTE = :IMPORTE_PORTE'#10' ' + - ' WHERE'#10' (ID = :OLD_ID)' - StatementType = stSQL - ColumnMappings = <> - end> - Name = 'Update_FacturasProveedor_Detalles' - end item Params = < item @@ -836,30 +667,48 @@ object srvFacturasProveedor: TsrvFacturasProveedor Statements = < item Connection = 'IBX' + Default = True TargetTable = 'FACTURAS_PROVEEDOR' SQL = - 'INSERT INTO FACTURAS_PROVEEDOR ('#10' ID,'#10' ID_EMPRESA,'#10' REF' + - 'ERENCIA,'#10' REFERENCIA_PROVEEDOR,'#10' FECHA_FACTURA,'#10' BASE_I' + - 'MPONIBLE,'#10' DESCUENTO,'#10' IMPORTE_DESCUENTO,'#10' IVA,'#10' IMP' + - 'ORTE_IVA,'#10' RE,'#10' IMPORTE_RE,'#10' IMPORTE_TOTAL,'#10' OBSERVA' + - 'CIONES,'#10' ID_PROVEEDOR,'#10' NIF_CIF,'#10' NOMBRE,'#10' CALLE,'#10' ' + - ' POBLACION,'#10' PROVINCIA,'#10' CODIGO_POSTAL,'#10' FECHA_ALTA,'#10' ' + - ' FECHA_MODIFICACION,'#10' USUARIO,'#10' ID_FORMA_PAGO,'#10' RECAR' + - 'GO_EQUIVALENCIA,'#10' ID_TIPO_IVA,'#10' IMPORTE_NETO,'#10' IMPORTE_' + - 'PORTE)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' :REFERENCIA,'#10' ' + - ' :REFERENCIA_PROVEEDOR,'#10' :FECHA_FACTURA,'#10' :BASE_IMPONIBLE,' + - #10' :DESCUENTO,'#10' :IMPORTE_DESCUENTO,'#10' :IVA,'#10' :IMPORTE_' + - 'IVA,'#10' :RE,'#10' :IMPORTE_RE,'#10' :IMPORTE_TOTAL,'#10' :OBSERVAC' + - 'IONES,'#10' :ID_PROVEEDOR,'#10' :NIF_CIF,'#10' :NOMBRE,'#10' :CALLE,' + - #10' :POBLACION,'#10' :PROVINCIA,'#10' :CODIGO_POSTAL,'#10' :FECHA_' + - 'ALTA,'#10' :FECHA_MODIFICACION,'#10' :USUARIO,'#10' :ID_FORMA_PAGO,' + - #10' :RECARGO_EQUIVALENCIA,'#10' :ID_TIPO_IVA,'#10' :IMPORTE_NETO,' + - #10' :IMPORTE_PORTE);' + 'INSERT'#10' INTO FACTURAS_PROVEEDOR'#10' (ID, ID_EMPRESA, REFERENCIA' + + ', REFERENCIA_PROVEEDOR,'#10' FECHA_FACTURA, BASE_IMPONIBLE, DESC' + + 'UENTO,'#10' IMPORTE_DESCUENTO, IVA, IMPORTE_IVA, RE, IMPORTE_RE,' + + ' '#10' IMPORTE_TOTAL, OBSERVACIONES, ID_PROVEEDOR, NIF_CIF, '#10' ' + + ' NOMBRE, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, '#10' FECH' + + 'A_ALTA, FECHA_MODIFICACION, USUARIO, ID_FORMA_PAGO, '#10' RECARG' + + 'O_EQUIVALENCIA, ID_TIPO_IVA, IMPORTE_NETO, IMPORTE_PORTE)'#10' VALU' + + 'ES'#10' (:ID, :ID_EMPRESA, :REFERENCIA, :REFERENCIA_PROVEEDOR,'#10' ' + + ' :FECHA_FACTURA, :BASE_IMPONIBLE, :DESCUENTO,'#10' :IMPORTE_DE' + + 'SCUENTO, :IVA, :IMPORTE_IVA, :RE, :IMPORTE_RE, '#10' :IMPORTE_TO' + + 'TAL, :OBSERVACIONES, :ID_PROVEEDOR, :NIF_CIF, '#10' :NOMBRE, :CA' + + 'LLE, :POBLACION, :PROVINCIA, :CODIGO_POSTAL, '#10' :FECHA_ALTA, ' + + ':FECHA_MODIFICACION, :USUARIO, :ID_FORMA_PAGO, '#10' :RECARGO_EQ' + + 'UIVALENCIA, :ID_TIPO_IVA, :IMPORTE_NETO, '#10' :IMPORTE_PORTE)'#10' ' + + ' '#10' '#10#10 StatementType = stSQL ColumnMappings = <> end> Name = 'Insert_FacturasProveedor' end + item + Params = < + item + Name = 'OLD_ID' + Value = '' + end> + Statements = < + item + Connection = 'IBX' + Default = True + TargetTable = 'FACTURAS_PROVEEDOR' + SQL = + 'DELETE '#10' FROM'#10' FACTURAS_PROVEEDOR'#10' WHERE'#10' (ID = :OLD_ID)' + + #10 + StatementType = stSQL + ColumnMappings = <> + end> + Name = 'Delete_FacturasProveedor' + end item Params = < item @@ -985,28 +834,190 @@ object srvFacturasProveedor: TsrvFacturasProveedor Statements = < item Connection = 'IBX' + Default = True TargetTable = 'FACTURAS_PROVEEDOR' SQL = - 'UPDATE FACTURAS_PROVEEDOR'#10' SET'#10' ID = :ID,'#10' ID_EMPRESA = :' + - 'ID_EMPRESA,'#10' REFERENCIA = :REFERENCIA,'#10' REFERENCIA_PROVEED' + - 'OR = :REFERENCIA_PROVEEDOR,'#10' FECHA_FACTURA = :FECHA_FACTURA,'#10 + - ' BASE_IMPONIBLE = :BASE_IMPONIBLE,'#10' DESCUENTO = :DESCUENTO' + - ','#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO,'#10' IVA = :IVA,'#10' ' + - ' IMPORTE_IVA = :IMPORTE_IVA,'#10' RE = :RE,'#10' IMPORTE_RE = :IM' + - 'PORTE_RE,'#10' IMPORTE_TOTAL = :IMPORTE_TOTAL,'#10' OBSERVACIONES ' + - '= :OBSERVACIONES,'#10' ID_PROVEEDOR = :ID_PROVEEDOR,'#10' NIF_CIF ' + - '= :NIF_CIF,'#10' NOMBRE = :NOMBRE,'#10' CALLE = :CALLE,'#10' POBLAC' + - 'ION = :POBLACION,'#10' PROVINCIA = :PROVINCIA,'#10' CODIGO_POSTAL ' + - '= :CODIGO_POSTAL,'#10' FECHA_ALTA = :FECHA_ALTA,'#10' FECHA_MODIFI' + - 'CACION = :FECHA_MODIFICACION,'#10' USUARIO = :USUARIO,'#10' ID_FOR' + - 'MA_PAGO = :ID_FORMA_PAGO,'#10' RECARGO_EQUIVALENCIA = :RECARGO_EQ' + - 'UIVALENCIA,'#10' ID_TIPO_IVA = :ID_TIPO_IVA,'#10' IMPORTE_NETO = :' + - 'IMPORTE_NETO,'#10' IMPORTE_PORTE = :IMPORTE_PORTE'#10' WHERE'#10' (ID =' + - ' :OLD_ID);'#10 + 'UPDATE FACTURAS_PROVEEDOR'#10' SET '#10' ID = :ID,'#10' ID_EMPRESA = ' + + ':ID_EMPRESA, '#10' REFERENCIA = :REFERENCIA, '#10' REFERENCIA_PROV' + + 'EEDOR = :REFERENCIA_PROVEEDOR,'#10' FECHA_FACTURA = :FECHA_FACTUR' + + 'A, '#10' BASE_IMPONIBLE = :BASE_IMPONIBLE,'#10' DESCUENTO = :DESCU' + + 'ENTO, '#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO, '#10' IVA = :I' + + 'VA, '#10' IMPORTE_IVA = :IMPORTE_IVA, '#10' RE = :RE, '#10' IMPORTE' + + '_RE = :IMPORTE_RE, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' OBS' + + 'ERVACIONES = :OBSERVACIONES, '#10' ID_PROVEEDOR = :ID_PROVEEDOR, ' + + #10' NIF_CIF = :NIF_CIF, '#10' NOMBRE = :NOMBRE, '#10' CALLE = :CA' + + 'LLE, '#10' POBLACION = :POBLACION, '#10' PROVINCIA = :PROVINCIA, '#10 + + ' CODIGO_POSTAL = :CODIGO_POSTAL, '#10' FECHA_ALTA = :FECHA_ALT' + + 'A, '#10' FECHA_MODIFICACION = :FECHA_MODIFICACION, '#10' USUARIO =' + + ' :USUARIO, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO, '#10' RECARGO_EQU' + + 'IVALENCIA = :RECARGO_EQUIVALENCIA, '#10' ID_TIPO_IVA = :ID_TIPO_I' + + 'VA, '#10' IMPORTE_NETO = :IMPORTE_NETO, '#10' IMPORTE_PORTE = :IMP' + + 'ORTE_PORTE'#10' WHERE'#10' (ID = :OLD_ID)'#10 StatementType = stSQL ColumnMappings = <> end> Name = 'Update_FacturasProveedor' + end + item + Params = < + item + Name = 'ID' + DataType = datAutoInc + GeneratorName = 'GEN_FACTURA_PROV_DETALLES_ID' + Value = '' + end + item + Name = 'ID_FACTURA' + Value = '' + end + item + Name = 'POSICION' + Value = '' + end + item + Name = 'TIPO_DETALLE' + Value = '' + end + item + Name = 'CONCEPTO' + Value = '' + end + item + Name = 'CANTIDAD' + Value = '' + end + item + Name = 'IMPORTE_UNIDAD' + Value = '' + end + item + Name = 'IMPORTE_TOTAL' + Value = '' + end + item + Name = 'VISIBLE' + Value = '' + end + item + Name = 'ID_ARTICULO' + Value = '' + end + item + Name = 'DESCUENTO' + Value = '' + end + item + Name = 'IMPORTE_PORTE' + Value = '' + end> + Statements = < + item + Connection = 'IBX' + Default = True + TargetTable = 'FACTURAS_PROVEEDOR_DETALLES' + SQL = + 'INSERT'#10' INTO FACTURAS_PROVEEDOR_DETALLES'#10' (ID, ID_FACTURA, P' + + 'OSICION, TIPO_DETALLE, CONCEPTO, CANTIDAD,'#10' IMPORTE_UNIDAD, ' + + 'IMPORTE_TOTAL, VISIBLE, ID_ARTICULO, '#10' DESCUENTO, IMPORTE_PO' + + 'RTE)'#10' VALUES'#10' (:ID, :ID_FACTURA, :POSICION, :TIPO_DETALLE, :' + + 'CONCEPTO, :CANTIDAD,'#10' :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISI' + + 'BLE, :ID_ARTICULO, '#10' :DESCUENTO, :IMPORTE_PORTE)'#10' '#10' ' + + #10#10 + StatementType = stSQL + ColumnMappings = <> + end> + Name = 'Insert_FacturasProveedor_Detalles' + end + item + Params = < + item + Name = 'OLD_ID' + Value = '' + end> + Statements = < + item + Connection = 'IBX' + Default = True + TargetTable = 'FACTURAS_PROVEEDOR_DETALLES' + SQL = + 'DELETE '#10' FROM'#10' FACTURAS_PROVEEDOR_DETALLES'#10' WHERE'#10' (ID =' + + ' :OLD_ID)' + StatementType = stSQL + ColumnMappings = <> + end> + Name = 'Delete_FacturasProveedor_Detalles' + end + item + Params = < + item + Name = 'ID' + Value = '' + end + item + Name = 'ID_FACTURA' + Value = '' + end + item + Name = 'POSICION' + Value = '' + end + item + Name = 'TIPO_DETALLE' + Value = '' + end + item + Name = 'CONCEPTO' + Value = '' + end + item + Name = 'CANTIDAD' + Value = '' + end + item + Name = 'IMPORTE_UNIDAD' + Value = '' + end + item + Name = 'IMPORTE_TOTAL' + Value = '' + end + item + Name = 'VISIBLE' + Value = '' + end + item + Name = 'ID_ARTICULO' + Value = '' + end + item + Name = 'DESCUENTO' + Value = '' + end + item + Name = 'IMPORTE_PORTE' + Value = '' + end + item + Name = 'OLD_ID' + Value = '' + end> + Statements = < + item + Connection = 'IBX' + Default = True + TargetTable = 'FACTURAS_PROVEEDOR_DETALLES' + SQL = + 'UPDATE FACTURAS_PROVEEDOR_DETALLES'#10' SET '#10' ID = :ID,'#10' ID_F' + + 'ACTURA = :ID_FACTURA, '#10' POSICION = :POSICION, '#10' TIPO_DETAL' + + 'LE = :TIPO_DETALLE, '#10' CONCEPTO = :CONCEPTO, '#10' CANTIDAD = :' + + 'CANTIDAD, '#10' IMPORTE_UNIDAD = :IMPORTE_UNIDAD, '#10' IMPORTE_TO' + + 'TAL = :IMPORTE_TOTAL, '#10' VISIBLE = :VISIBLE, '#10' ID_ARTICULO ' + + '= :ID_ARTICULO, '#10' DESCUENTO = :DESCUENTO, '#10' IMPORTE_PORTE ' + + '= :IMPORTE_PORTE'#10' WHERE'#10' (ID = :OLD_ID)'#10 + StatementType = stSQL + ColumnMappings = <> + end> + Name = 'Update_FacturasProveedor_Detalles' end> RelationShips = < item @@ -1242,7 +1253,7 @@ object srvFacturasProveedor: TsrvFacturasProveedor end item Name = 'FacturasProveedor_Detalles_VISIBLE' - DataType = datInteger + DataType = datSmallInt DisplayLabel = #191'Visible?' end item @@ -1303,7 +1314,7 @@ object srvFacturasProveedor: TsrvFacturasProveedor end item Name = 'FacturasProveedor_RECARGO_EQUIVALENCIA' - DataType = datInteger + DataType = datSmallInt DisplayLabel = #191'Con R.E.?' end item @@ -1315,15 +1326,6 @@ object srvFacturasProveedor: TsrvFacturasProveedor DataType = datInteger DisplayLabel = 'ID_TIPO_IVA' end - item - Name = 'FacturasProveedor_Refresh_ID_PROVEEDOR' - DataType = datInteger - end - item - Name = 'FacturasProveedor_Refresh_ID_TIPO_IVA' - DataType = datInteger - DisplayLabel = 'ID_TIPO_IVA' - end item Name = 'FacturasProveedor_Detalles_DESCUENTO' DataType = datFloat @@ -1336,7 +1338,7 @@ object srvFacturasProveedor: TsrvFacturasProveedor end item Name = 'FacturasProveedor_Detalles_IMPORTE_PORTE' - DataType = datFloat + DataType = datCurrency DisplayLabel = 'IMPORTE_PORTE' end item @@ -1351,33 +1353,6 @@ object srvFacturasProveedor: TsrvFacturasProveedor Size = 255 DisplayLabel = 'REFERENCIA_PROVEEDOR' end - item - Name = 'FacturasProveedor_Detalles_Refresh_DESCUENTO' - DataType = datFloat - DisplayLabel = 'DESCUENTO' - end - item - Name = 'FacturasProveedor_Detalles_Refresh_ID_ARTICULO' - DataType = datInteger - DisplayLabel = 'ID_ARTICULO' - end - item - Name = 'FacturasProveedor_Detalles_Refresh_IMPORTE_PORTE' - DataType = datFloat - DisplayLabel = 'IMPORTE_PORTE' - end - item - Name = 'FacturasProveedor_Detalles_Refresh_REFERENCIA' - DataType = datString - Size = 255 - DisplayLabel = 'REFERENCIA' - end - item - Name = 'FacturasProveedor_Detalles_Refresh_REFERENCIA_PROVEEDOR' - DataType = datString - Size = 255 - DisplayLabel = 'REFERENCIA_PROVEEDOR' - end item Name = 'FacturasProveedor_TIPO' DataType = datString @@ -1398,7 +1373,6 @@ object srvFacturasProveedor: TsrvFacturasProveedor InsertCommandName = 'Insert_FacturasProveedor' DeleteCommandName = 'Delete_FacturasProveedor' UpdateCommandName = 'Update_FacturasProveedor' - RefreshDatasetName = 'FacturasProveedor_Refresh' ReferencedDataset = 'FacturasProveedor' ProcessorOptions = [poPrepareCommands] UpdateMode = updWhereKeyOnly @@ -1410,7 +1384,6 @@ object srvFacturasProveedor: TsrvFacturasProveedor InsertCommandName = 'Insert_FacturasProveedor_Detalles' DeleteCommandName = 'Delete_FacturasProveedor_Detalles' UpdateCommandName = 'Update_FacturasProveedor_Detalles' - RefreshDatasetName = 'FacturasProveedor_Detalles_Refresh' ReferencedDataset = 'FacturasProveedor_Detalles' ProcessorOptions = [poPrepareCommands] UpdateMode = updWhereKeyOnly diff --git a/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dproj b/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dproj index 7eb9d900..5115e2a1 100644 --- a/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dproj +++ b/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dproj @@ -44,6 +44,8 @@ + + RemObjects Pascal Script - RemObjects SDK 3.0 Integration FacturasProveedor_view.dpk @@ -52,10 +54,10 @@ MainSource - - - - + + + +
fEditorElegirArticulosFacturaProveedor
TfEditorElegirArticulosFacturaProveedor diff --git a/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.res b/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.res index 8b251f312bcccec5485024f6fe8d80e1cdf25746..1641339fcc482e7e3492d1b45813a86619622c33 100644 GIT binary patch literal 4748 zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?p${kR>3GhM`oH*q zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7 z{BT%G%irdMe*|oDJmgvJaA2`9B<6Xi*?M~Q;)@Sbfwf3uf zVaWkbUjU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N| z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0 zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38= zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W zVvPDBKHh;i=RU4J_ta3E;)Mn>Y+L zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJugbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC zy(^m((;DnQmDQKatmw!@c`| G?EMQ&4NnpP delta 11 ScmeBCZD5|Duvteife`=|>;pCc diff --git a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm index 83afbdc2..3b0c8efc 100644 --- a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm +++ b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm @@ -122,10 +122,6 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor Left = 234 ExplicitLeft = 234 end - inherited eReferenciaProveedor: TcxDBTextEdit - ExplicitWidth = 158 - Width = 158 - end inherited frViewProveedorFactura: TfrViewDatosYSeleccionProveedor Left = 394 Width = 350 diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index e8e6e45b..40978138 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -1,182 +1,184 @@ - + - - {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 - - - FalseTrueFalseTrueFalse3000FalseFalseFalseFalseFalse308212523.0.0.03.0.0.0domingo, 30 de septiembre de 2007 20:47 - RemObjects Pascal Script - RemObjects SDK 3.0 Integration - FactuGES_Server.dpr - - - - - MainSource - - - - -
srvEmpresas
- TDARemoteService - - - - - - - - - -
srvAlbaranesCliente
- TDataAbstractService - - - - - -
srvAlbaranesProveedor
- TDataAbstractService - - - - -
srvAlmacenes
- TDARemoteService - - - - - - - - - - - -
srvContactos
- TDARemoteService - - - - - -
srvFacturasCliente
- TDataAbstractService - - - - - -
srvFacturasProveedor
- TDataAbstractService - - - - - - - - - - - -
srvPedidosProveedor
- TDataAbstractService - - - - - -
RptPresupuestosCliente
- - -
srvPresupuestosCliente
- TDataAbstractService - - - - -
srvRecibosCliente
- TDataAbstractService - - - - -
srvRecibosProveedor
- 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 + + +FalseTrueFalseTrueFalse3000FalseFalseFalseFalseFalse308212523.0.0.03.0.0.0domingo, 30 de septiembre de 2007 20:47 + + + RemObjects Pascal Script - RemObjects SDK 3.0 Integration + FactuGES_Server.dpr + + + + + MainSource + + + + +
srvEmpresas
+ TDARemoteService + + + + + + + + + +
srvAlbaranesCliente
+ TDataAbstractService + + + + + +
srvAlbaranesProveedor
+ TDataAbstractService + + + + +
srvAlmacenes
+ TDARemoteService + + + + + + + + + + + +
srvContactos
+ TDARemoteService + + + + + +
srvFacturasCliente
+ TDataAbstractService + + + + + +
srvFacturasProveedor
+ TDataAbstractService + + + + + + + + + + + +
srvPedidosProveedor
+ TDataAbstractService + + + + + +
RptPresupuestosCliente
+ + +
srvPresupuestosCliente
+ TDataAbstractService + + + + +
srvRecibosCliente
+ TDataAbstractService + + + + +
srvRecibosProveedor
+ TDataAbstractService + + + + + + + +
srvConfiguracion
+ TDataAbstractService + + +
frConexionBD
+ TFrame + + +
frConfGeneral
+ TFrame + + +
fConfiguracion
+ TForm + + +
FrameConfiguracion
+ TFrame + + +
srvLogin
+ TDARemoteService + + +
fAcercaDe
+ + +
dmServer
+ TDataModule + + +
fServerForm
+ + + + + + + + + +