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
-
-
-
-
+
+
+
+
TfEditorElegirArticulosFacturaProveedor
diff --git a/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.res b/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.res
index 8b251f31..1641339f 100644
Binary files a/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.res and b/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.res differ
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
-
-
-
-
-
- TDARemoteService
-
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDARemoteService
-
-
-
-
-
-
-
-
-
-
-
-
- TDARemoteService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
- TFrame
-
-
-
- TFrame
-
-
-
- TForm
-
-
-
- TFrame
-
-
-
- TDARemoteService
-
-
-
-
-
-
- TDataModule
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+ {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}
+ FactuGES_Server.dpr
+ Debug
+ AnyCPU
+ DCC32
+ ..\..\Output\Debug\Servidor\FactuGES_Server.exe
+
+
+ 7.0
+ False
+ False
+ 0
+ 3
+ ..\..\Output\Release\Servidor
+ RELEASE
+
+
+ 7.0
+ 3
+ ..\..\Output\Debug\Servidor
+ DEBUG;
+ True
+
+
+ Delphi.Personality
+
+
+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
+
+
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+
+
+
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+ TFrame
+
+
+
+ TFrame
+
+
+
+ TForm
+
+
+
+ TFrame
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+ TDataModule
+
+
+
+
+
+
+
+
+
+
+
+
+