diff --git a/Database/VISTAS.SQL b/Database/VISTAS.SQL
index 1b49abcf..ba8fc5f5 100644
--- a/Database/VISTAS.SQL
+++ b/Database/VISTAS.SQL
@@ -928,6 +928,7 @@ CREATE VIEW V_FACTURAS_CLIENTE(
BASE_IMPONIBLE,
DESCUENTO,
IMPORTE_DESCUENTO,
+ DESCRIPCION_DESCUENTO,
IVA,
IMPORTE_IVA,
RE,
@@ -964,6 +965,7 @@ SELECT FACTURAS_CLIENTE.ID,
FACTURAS_CLIENTE.BASE_IMPONIBLE,
FACTURAS_CLIENTE.DESCUENTO,
FACTURAS_CLIENTE.IMPORTE_DESCUENTO,
+ FACTURAS_CLIENTE.DESCRIPCION_DESCUENTO,
FACTURAS_CLIENTE.IVA,
FACTURAS_CLIENTE.IMPORTE_IVA,
FACTURAS_CLIENTE.RE,
diff --git a/Database/factuges.sql b/Database/factuges.sql
index c965a060..cf61d2a0 100644
--- a/Database/factuges.sql
+++ b/Database/factuges.sql
@@ -471,6 +471,7 @@ CREATE TABLE FACTURAS_CLIENTE (
BASE_IMPONIBLE TIPO_IMPORTE,
DESCUENTO TIPO_PORCENTAJE,
IMPORTE_DESCUENTO TIPO_IMPORTE,
+ DESCRIPCION_DESCUENTO VARCHAR(255) COLLATE ES_ES,
IVA TIPO_PORCENTAJE,
IMPORTE_IVA TIPO_IMPORTE,
RE TIPO_PORCENTAJE,
diff --git a/Source/Base/GUIBase/GUIBase.bdsproj b/Source/Base/GUIBase/GUIBase.bdsproj
index 52b5e8c7..af1363d7 100644
--- a/Source/Base/GUIBase/GUIBase.bdsproj
+++ b/Source/Base/GUIBase/GUIBase.bdsproj
@@ -170,7 +170,8 @@
1.0.0.0
-
+
+
RemObjects Data Abstract - IDE Package
SMImport suite: data importing into dataset. Scalabium/Mike Shkolnik, 2000-2005
SMExport suite: data export from dataset. Written by Mike Shkolnik/Scalabium, 1998-2004.
diff --git a/Source/Base/GUIBase/GUIBase.res b/Source/Base/GUIBase/GUIBase.res
index 8b251f31..1641339f 100644
Binary files a/Source/Base/GUIBase/GUIBase.res and b/Source/Base/GUIBase/GUIBase.res differ
diff --git a/Source/Cliente/FactuGES.bdsproj b/Source/Cliente/FactuGES.bdsproj
index b59f2601..3d59982c 100644
--- a/Source/Cliente/FactuGES.bdsproj
+++ b/Source/Cliente/FactuGES.bdsproj
@@ -149,7 +149,7 @@
False
3
3
- 5
+ 6
0
False
False
@@ -162,13 +162,13 @@
Rodax Software S.L.
- 3.3.5.0
+ 3.3.6.0
FactuGES
- 3.3.5.0
+ 3.3.6.0
Muststang Peak EasyListview Runtime Package
diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res
index 65ffd167..d09fa540 100644
Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ
diff --git a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm
index 17c941b9..59ca51fe 100644
--- a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm
+++ b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm
@@ -145,6 +145,18 @@ object DataModuleFacturasCliente: TDataModuleFacturasCliente
Lookup = False
LookupCache = False
end
+ item
+ Name = 'DESCRIPCION_DESCUENTO'
+ DataType = datString
+ Size = 255
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
item
Name = 'IVA'
DataType = datFloat
diff --git a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
index 927a7240..0f3b8221 100644
--- a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
+++ b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
@@ -9,12 +9,12 @@ 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 = '{A621C326-E4EC-467B-ADBC-3405D36E60EE}';
- RID_ListaAnosFacturas = '{4BE1F671-5EAA-439D-AFB9-0AD7989ADF34}';
- RID_FacturasCliente = '{428E1B81-D8A3-4C5E-B021-5E4BF418E6B7}';
- RID_FacturasCliente_Detalles = '{8FB6D423-E42F-4A10-8C35-736C711FFA32}';
- RID_FacturasCliente_Detalles_Refresh = '{3618523F-C786-4185-A189-80867AA103C0}';
- RID_FacturasCliente_Refresh = '{3DCA7D8A-2508-4E3A-BE11-B6E06C9EA8B6}';
+ RID_DarReferencia = '{01226CA6-8C1F-4C81-99BD-69D484975D2B}';
+ RID_ListaAnosFacturas = '{4DC99931-20F9-4066-B3DD-F8C51BCFE9B6}';
+ RID_FacturasCliente = '{2F18EAB0-8E58-430A-AC9C-0809354C7E27}';
+ RID_FacturasCliente_Detalles = '{4C59D788-DAE0-4359-A266-0851D8711E67}';
+ RID_FacturasCliente_Detalles_Refresh = '{58FC00E6-4F0C-4F06-89D2-48426F664F4A}';
+ RID_FacturasCliente_Refresh = '{06C784AE-4E81-44D7-A1A6-22F30138B2D2}';
{ Data table names }
nme_DarReferencia = 'DarReferencia';
@@ -46,6 +46,7 @@ const
fld_FacturasClienteBASE_IMPONIBLE = 'BASE_IMPONIBLE';
fld_FacturasClienteDESCUENTO = 'DESCUENTO';
fld_FacturasClienteIMPORTE_DESCUENTO = 'IMPORTE_DESCUENTO';
+ fld_FacturasClienteDESCRIPCION_DESCUENTO = 'DESCRIPCION_DESCUENTO';
fld_FacturasClienteIVA = 'IVA';
fld_FacturasClienteIMPORTE_IVA = 'IMPORTE_IVA';
fld_FacturasClienteRE = 'RE';
@@ -84,33 +85,34 @@ const
idx_FacturasClienteBASE_IMPONIBLE = 6;
idx_FacturasClienteDESCUENTO = 7;
idx_FacturasClienteIMPORTE_DESCUENTO = 8;
- idx_FacturasClienteIVA = 9;
- idx_FacturasClienteIMPORTE_IVA = 10;
- idx_FacturasClienteRE = 11;
- idx_FacturasClienteIMPORTE_RE = 12;
- idx_FacturasClienteIMPORTE_TOTAL = 13;
- idx_FacturasClienteOBSERVACIONES = 14;
- idx_FacturasClienteID_CLIENTE = 15;
- idx_FacturasClienteNIF_CIF = 16;
- idx_FacturasClienteNOMBRE = 17;
- idx_FacturasClienteCALLE = 18;
- idx_FacturasClientePOBLACION = 19;
- idx_FacturasClientePROVINCIA = 20;
- idx_FacturasClienteCODIGO_POSTAL = 21;
- idx_FacturasClienteFECHA_ALTA = 22;
- idx_FacturasClienteFECHA_MODIFICACION = 23;
- idx_FacturasClienteUSUARIO = 24;
- idx_FacturasClienteID_FORMA_PAGO = 25;
- idx_FacturasClienteRECARGO_EQUIVALENCIA = 26;
- idx_FacturasClienteID_TIPO_IVA = 27;
- idx_FacturasClienteIMPORTE_NETO = 28;
- idx_FacturasClienteIMPORTE_PORTE = 29;
- idx_FacturasClienteID_COMISION_LIQUIDADA = 30;
- idx_FacturasClienteREFERENCIA_COMISION = 31;
- idx_FacturasClienteID_AGENTE = 32;
- idx_FacturasClienteNUM_COPIAS = 33;
- idx_FacturasClienteNUM_CORREOS = 34;
- idx_FacturasClienteFECHA_VENCIMIENTO = 35;
+ idx_FacturasClienteDESCRIPCION_DESCUENTO = 9;
+ idx_FacturasClienteIVA = 10;
+ idx_FacturasClienteIMPORTE_IVA = 11;
+ idx_FacturasClienteRE = 12;
+ idx_FacturasClienteIMPORTE_RE = 13;
+ idx_FacturasClienteIMPORTE_TOTAL = 14;
+ idx_FacturasClienteOBSERVACIONES = 15;
+ idx_FacturasClienteID_CLIENTE = 16;
+ idx_FacturasClienteNIF_CIF = 17;
+ idx_FacturasClienteNOMBRE = 18;
+ idx_FacturasClienteCALLE = 19;
+ idx_FacturasClientePOBLACION = 20;
+ idx_FacturasClientePROVINCIA = 21;
+ idx_FacturasClienteCODIGO_POSTAL = 22;
+ idx_FacturasClienteFECHA_ALTA = 23;
+ idx_FacturasClienteFECHA_MODIFICACION = 24;
+ idx_FacturasClienteUSUARIO = 25;
+ idx_FacturasClienteID_FORMA_PAGO = 26;
+ idx_FacturasClienteRECARGO_EQUIVALENCIA = 27;
+ idx_FacturasClienteID_TIPO_IVA = 28;
+ idx_FacturasClienteIMPORTE_NETO = 29;
+ idx_FacturasClienteIMPORTE_PORTE = 30;
+ idx_FacturasClienteID_COMISION_LIQUIDADA = 31;
+ idx_FacturasClienteREFERENCIA_COMISION = 32;
+ idx_FacturasClienteID_AGENTE = 33;
+ idx_FacturasClienteNUM_COPIAS = 34;
+ idx_FacturasClienteNUM_CORREOS = 35;
+ idx_FacturasClienteFECHA_VENCIMIENTO = 36;
{ FacturasCliente_Detalles fields }
fld_FacturasCliente_DetallesID = 'ID';
@@ -186,6 +188,7 @@ const
fld_FacturasCliente_RefreshBASE_IMPONIBLE = 'BASE_IMPONIBLE';
fld_FacturasCliente_RefreshDESCUENTO = 'DESCUENTO';
fld_FacturasCliente_RefreshIMPORTE_DESCUENTO = 'IMPORTE_DESCUENTO';
+ fld_FacturasCliente_RefreshDESCRIPCION_DESCUENTO = 'DESCRIPCION_DESCUENTO';
fld_FacturasCliente_RefreshIVA = 'IVA';
fld_FacturasCliente_RefreshIMPORTE_IVA = 'IMPORTE_IVA';
fld_FacturasCliente_RefreshRE = 'RE';
@@ -224,38 +227,39 @@ const
idx_FacturasCliente_RefreshBASE_IMPONIBLE = 6;
idx_FacturasCliente_RefreshDESCUENTO = 7;
idx_FacturasCliente_RefreshIMPORTE_DESCUENTO = 8;
- idx_FacturasCliente_RefreshIVA = 9;
- idx_FacturasCliente_RefreshIMPORTE_IVA = 10;
- idx_FacturasCliente_RefreshRE = 11;
- idx_FacturasCliente_RefreshIMPORTE_RE = 12;
- idx_FacturasCliente_RefreshIMPORTE_TOTAL = 13;
- idx_FacturasCliente_RefreshOBSERVACIONES = 14;
- idx_FacturasCliente_RefreshID_CLIENTE = 15;
- idx_FacturasCliente_RefreshNIF_CIF = 16;
- idx_FacturasCliente_RefreshNOMBRE = 17;
- idx_FacturasCliente_RefreshCALLE = 18;
- idx_FacturasCliente_RefreshPOBLACION = 19;
- idx_FacturasCliente_RefreshPROVINCIA = 20;
- idx_FacturasCliente_RefreshCODIGO_POSTAL = 21;
- idx_FacturasCliente_RefreshFECHA_ALTA = 22;
- idx_FacturasCliente_RefreshFECHA_MODIFICACION = 23;
- idx_FacturasCliente_RefreshUSUARIO = 24;
- idx_FacturasCliente_RefreshID_FORMA_PAGO = 25;
- idx_FacturasCliente_RefreshRECARGO_EQUIVALENCIA = 26;
- idx_FacturasCliente_RefreshID_TIPO_IVA = 27;
- idx_FacturasCliente_RefreshIMPORTE_NETO = 28;
- idx_FacturasCliente_RefreshIMPORTE_PORTE = 29;
- idx_FacturasCliente_RefreshID_COMISION_LIQUIDADA = 30;
- idx_FacturasCliente_RefreshREFERENCIA_COMISION = 31;
- idx_FacturasCliente_RefreshID_AGENTE = 32;
- idx_FacturasCliente_RefreshNUM_COPIAS = 33;
- idx_FacturasCliente_RefreshNUM_CORREOS = 34;
- idx_FacturasCliente_RefreshFECHA_VENCIMIENTO = 35;
+ idx_FacturasCliente_RefreshDESCRIPCION_DESCUENTO = 9;
+ idx_FacturasCliente_RefreshIVA = 10;
+ idx_FacturasCliente_RefreshIMPORTE_IVA = 11;
+ idx_FacturasCliente_RefreshRE = 12;
+ idx_FacturasCliente_RefreshIMPORTE_RE = 13;
+ idx_FacturasCliente_RefreshIMPORTE_TOTAL = 14;
+ idx_FacturasCliente_RefreshOBSERVACIONES = 15;
+ idx_FacturasCliente_RefreshID_CLIENTE = 16;
+ idx_FacturasCliente_RefreshNIF_CIF = 17;
+ idx_FacturasCliente_RefreshNOMBRE = 18;
+ idx_FacturasCliente_RefreshCALLE = 19;
+ idx_FacturasCliente_RefreshPOBLACION = 20;
+ idx_FacturasCliente_RefreshPROVINCIA = 21;
+ idx_FacturasCliente_RefreshCODIGO_POSTAL = 22;
+ idx_FacturasCliente_RefreshFECHA_ALTA = 23;
+ idx_FacturasCliente_RefreshFECHA_MODIFICACION = 24;
+ idx_FacturasCliente_RefreshUSUARIO = 25;
+ idx_FacturasCliente_RefreshID_FORMA_PAGO = 26;
+ idx_FacturasCliente_RefreshRECARGO_EQUIVALENCIA = 27;
+ idx_FacturasCliente_RefreshID_TIPO_IVA = 28;
+ idx_FacturasCliente_RefreshIMPORTE_NETO = 29;
+ idx_FacturasCliente_RefreshIMPORTE_PORTE = 30;
+ idx_FacturasCliente_RefreshID_COMISION_LIQUIDADA = 31;
+ idx_FacturasCliente_RefreshREFERENCIA_COMISION = 32;
+ idx_FacturasCliente_RefreshID_AGENTE = 33;
+ idx_FacturasCliente_RefreshNUM_COPIAS = 34;
+ idx_FacturasCliente_RefreshNUM_CORREOS = 35;
+ idx_FacturasCliente_RefreshFECHA_VENCIMIENTO = 36;
type
{ IDarReferencia }
IDarReferencia = interface(IDAStronglyTypedDataTable)
- ['{DC6A031B-D148-478D-9BCA-101202CCC948}']
+ ['{1036E778-513F-4719-9E73-C3CC3090D3B9}']
{ Property getters and setters }
function GetVALORValue: String;
procedure SetVALORValue(const aValue: String);
@@ -284,7 +288,7 @@ type
{ IListaAnosFacturas }
IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
- ['{FF89EDF2-3698-477F-B6DE-83A3FE03F68E}']
+ ['{BBAE1C42-C8C4-47A9-955E-41D90F595250}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@@ -313,7 +317,7 @@ type
{ IFacturasCliente }
IFacturasCliente = interface(IDAStronglyTypedDataTable)
- ['{AACD7C2D-E96C-430C-A07F-12AF77A42630}']
+ ['{9D3EEAA7-9311-44FF-BA47-3AE7A4B205B7}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -333,6 +337,8 @@ type
procedure SetDESCUENTOValue(const aValue: Float);
function GetIMPORTE_DESCUENTOValue: Currency;
procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency);
+ function GetDESCRIPCION_DESCUENTOValue: String;
+ procedure SetDESCRIPCION_DESCUENTOValue(const aValue: String);
function GetIVAValue: Float;
procedure SetIVAValue(const aValue: Float);
function GetIMPORTE_IVAValue: Currency;
@@ -399,6 +405,7 @@ type
property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
property IMPORTE_DESCUENTO: Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue;
+ property DESCRIPCION_DESCUENTO: String read GetDESCRIPCION_DESCUENTOValue write SetDESCRIPCION_DESCUENTOValue;
property IVA: Float read GetIVAValue write SetIVAValue;
property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue;
property RE: Float read GetREValue write SetREValue;
@@ -451,6 +458,8 @@ type
procedure SetDESCUENTOValue(const aValue: Float); virtual;
function GetIMPORTE_DESCUENTOValue: Currency; virtual;
procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); virtual;
+ function GetDESCRIPCION_DESCUENTOValue: String; virtual;
+ procedure SetDESCRIPCION_DESCUENTOValue(const aValue: String); virtual;
function GetIVAValue: Float; virtual;
procedure SetIVAValue(const aValue: Float); virtual;
function GetIMPORTE_IVAValue: Currency; virtual;
@@ -516,6 +525,7 @@ type
property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
property IMPORTE_DESCUENTO: Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue;
+ property DESCRIPCION_DESCUENTO: String read GetDESCRIPCION_DESCUENTOValue write SetDESCRIPCION_DESCUENTOValue;
property IVA: Float read GetIVAValue write SetIVAValue;
property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue;
property RE: Float read GetREValue write SetREValue;
@@ -552,7 +562,7 @@ type
{ IFacturasCliente_Detalles }
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
- ['{B6A306E7-6C2F-46BC-A313-C6F68ED5C577}']
+ ['{39D48144-0270-459D-BF4B-989E70E2C2F7}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -659,7 +669,7 @@ type
{ IFacturasCliente_Detalles_Refresh }
IFacturasCliente_Detalles_Refresh = interface(IDAStronglyTypedDataTable)
- ['{6C0D8072-B0E3-4774-A560-8336A4DFBF60}']
+ ['{9604E930-78C1-445E-BB78-C444EC2B5FFF}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -766,7 +776,7 @@ type
{ IFacturasCliente_Refresh }
IFacturasCliente_Refresh = interface(IDAStronglyTypedDataTable)
- ['{C8BA494B-931B-4C73-8E06-1F3846B17070}']
+ ['{7233BE3E-E6CB-4FA8-9947-FEBACA722450}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -786,6 +796,8 @@ type
procedure SetDESCUENTOValue(const aValue: Float);
function GetIMPORTE_DESCUENTOValue: Currency;
procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency);
+ function GetDESCRIPCION_DESCUENTOValue: String;
+ procedure SetDESCRIPCION_DESCUENTOValue(const aValue: String);
function GetIVAValue: Float;
procedure SetIVAValue(const aValue: Float);
function GetIMPORTE_IVAValue: Currency;
@@ -852,6 +864,7 @@ type
property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
property IMPORTE_DESCUENTO: Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue;
+ property DESCRIPCION_DESCUENTO: String read GetDESCRIPCION_DESCUENTOValue write SetDESCRIPCION_DESCUENTOValue;
property IVA: Float read GetIVAValue write SetIVAValue;
property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue;
property RE: Float read GetREValue write SetREValue;
@@ -904,6 +917,8 @@ type
procedure SetDESCUENTOValue(const aValue: Float); virtual;
function GetIMPORTE_DESCUENTOValue: Currency; virtual;
procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); virtual;
+ function GetDESCRIPCION_DESCUENTOValue: String; virtual;
+ procedure SetDESCRIPCION_DESCUENTOValue(const aValue: String); virtual;
function GetIVAValue: Float; virtual;
procedure SetIVAValue(const aValue: Float); virtual;
function GetIMPORTE_IVAValue: Currency; virtual;
@@ -969,6 +984,7 @@ type
property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
property IMPORTE_DESCUENTO: Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue;
+ property DESCRIPCION_DESCUENTO: String read GetDESCRIPCION_DESCUENTOValue write SetDESCRIPCION_DESCUENTOValue;
property IVA: Float read GetIVAValue write SetIVAValue;
property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue;
property RE: Float read GetREValue write SetREValue;
@@ -1152,6 +1168,16 @@ begin
DataTable.Fields[idx_FacturasClienteIMPORTE_DESCUENTO].AsCurrency := aValue;
end;
+function TFacturasClienteDataTableRules.GetDESCRIPCION_DESCUENTOValue: String;
+begin
+ result := DataTable.Fields[idx_FacturasClienteDESCRIPCION_DESCUENTO].AsString;
+end;
+
+procedure TFacturasClienteDataTableRules.SetDESCRIPCION_DESCUENTOValue(const aValue: String);
+begin
+ DataTable.Fields[idx_FacturasClienteDESCRIPCION_DESCUENTO].AsString := aValue;
+end;
+
function TFacturasClienteDataTableRules.GetIVAValue: Float;
begin
result := DataTable.Fields[idx_FacturasClienteIVA].AsFloat;
@@ -1829,6 +1855,16 @@ begin
DataTable.Fields[idx_FacturasCliente_RefreshIMPORTE_DESCUENTO].AsCurrency := aValue;
end;
+function TFacturasCliente_RefreshDataTableRules.GetDESCRIPCION_DESCUENTOValue: String;
+begin
+ result := DataTable.Fields[idx_FacturasCliente_RefreshDESCRIPCION_DESCUENTO].AsString;
+end;
+
+procedure TFacturasCliente_RefreshDataTableRules.SetDESCRIPCION_DESCUENTOValue(const aValue: String);
+begin
+ DataTable.Fields[idx_FacturasCliente_RefreshDESCRIPCION_DESCUENTO].AsString := aValue;
+end;
+
function TFacturasCliente_RefreshDataTableRules.GetIVAValue: Float;
begin
result := DataTable.Fields[idx_FacturasCliente_RefreshIVA].AsFloat;
diff --git a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas
index 2a830b51..745adae5 100644
--- a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas
+++ b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas
@@ -9,17 +9,17 @@ 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 = '{DCB4C31D-2825-4AED-A0D5-085D371E73FF}';
- RID_ListaAnosFacturasDelta = '{BE0BAF1D-C955-44C4-872C-6DD555772691}';
- RID_FacturasClienteDelta = '{91BB9203-1A6A-4FC1-AD02-41A181969867}';
- RID_FacturasCliente_DetallesDelta = '{7DCB2097-1E44-42CC-BA9E-9CF8645A18E3}';
- RID_FacturasCliente_Detalles_RefreshDelta = '{4C1BB5AD-9C14-47AC-8CB9-B298E9CBC9E4}';
- RID_FacturasCliente_RefreshDelta = '{94A51D8A-EC34-4716-8531-4CC62F89C1CD}';
+ RID_DarReferenciaDelta = '{254C7AC1-F65E-444E-9B90-6EB7785F4626}';
+ RID_ListaAnosFacturasDelta = '{B39BA7C5-8427-4866-A863-2A939994969D}';
+ RID_FacturasClienteDelta = '{7EEA294E-8B7C-4997-AF74-F6B3BD16472C}';
+ RID_FacturasCliente_DetallesDelta = '{1DDF9134-3164-4E38-950B-63305DE9398B}';
+ RID_FacturasCliente_Detalles_RefreshDelta = '{98C8D6ED-1DE6-4AD5-886C-13A4B9D9556F}';
+ RID_FacturasCliente_RefreshDelta = '{07965967-879D-4386-9C9A-DD8C2950A6FC}';
type
{ IDarReferenciaDelta }
IDarReferenciaDelta = interface(IDarReferencia)
- ['{DCB4C31D-2825-4AED-A0D5-085D371E73FF}']
+ ['{254C7AC1-F65E-444E-9B90-6EB7785F4626}']
{ Property getters and setters }
function GetOldVALORValue : String;
@@ -48,7 +48,7 @@ type
{ IListaAnosFacturasDelta }
IListaAnosFacturasDelta = interface(IListaAnosFacturas)
- ['{BE0BAF1D-C955-44C4-872C-6DD555772691}']
+ ['{B39BA7C5-8427-4866-A863-2A939994969D}']
{ Property getters and setters }
function GetOldANOValue : String;
@@ -77,7 +77,7 @@ type
{ IFacturasClienteDelta }
IFacturasClienteDelta = interface(IFacturasCliente)
- ['{91BB9203-1A6A-4FC1-AD02-41A181969867}']
+ ['{7EEA294E-8B7C-4997-AF74-F6B3BD16472C}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -88,6 +88,7 @@ type
function GetOldBASE_IMPONIBLEValue : Currency;
function GetOldDESCUENTOValue : Float;
function GetOldIMPORTE_DESCUENTOValue : Currency;
+ function GetOldDESCRIPCION_DESCUENTOValue : String;
function GetOldIVAValue : Float;
function GetOldIMPORTE_IVAValue : Currency;
function GetOldREValue : Float;
@@ -126,6 +127,7 @@ type
property OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue;
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue;
+ property OldDESCRIPCION_DESCUENTO : String read GetOldDESCRIPCION_DESCUENTOValue;
property OldIVA : Float read GetOldIVAValue;
property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue;
property OldRE : Float read GetOldREValue;
@@ -187,6 +189,9 @@ type
function GetIMPORTE_DESCUENTOValue: Currency; virtual;
function GetOldIMPORTE_DESCUENTOValue: Currency; virtual;
procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); virtual;
+ function GetDESCRIPCION_DESCUENTOValue: String; virtual;
+ function GetOldDESCRIPCION_DESCUENTOValue: String; virtual;
+ procedure SetDESCRIPCION_DESCUENTOValue(const aValue: String); virtual;
function GetIVAValue: Float; virtual;
function GetOldIVAValue: Float; virtual;
procedure SetIVAValue(const aValue: Float); virtual;
@@ -288,6 +293,8 @@ type
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
property IMPORTE_DESCUENTO : Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue;
property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue;
+ property DESCRIPCION_DESCUENTO : String read GetDESCRIPCION_DESCUENTOValue write SetDESCRIPCION_DESCUENTOValue;
+ property OldDESCRIPCION_DESCUENTO : String read GetOldDESCRIPCION_DESCUENTOValue;
property IVA : Float read GetIVAValue write SetIVAValue;
property OldIVA : Float read GetOldIVAValue;
property IMPORTE_IVA : Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue;
@@ -351,7 +358,7 @@ type
{ IFacturasCliente_DetallesDelta }
IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
- ['{7DCB2097-1E44-42CC-BA9E-9CF8645A18E3}']
+ ['{1DDF9134-3164-4E38-950B-63305DE9398B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer;
@@ -471,7 +478,7 @@ type
{ IFacturasCliente_Detalles_RefreshDelta }
IFacturasCliente_Detalles_RefreshDelta = interface(IFacturasCliente_Detalles_Refresh)
- ['{4C1BB5AD-9C14-47AC-8CB9-B298E9CBC9E4}']
+ ['{98C8D6ED-1DE6-4AD5-886C-13A4B9D9556F}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer;
@@ -591,7 +598,7 @@ type
{ IFacturasCliente_RefreshDelta }
IFacturasCliente_RefreshDelta = interface(IFacturasCliente_Refresh)
- ['{94A51D8A-EC34-4716-8531-4CC62F89C1CD}']
+ ['{07965967-879D-4386-9C9A-DD8C2950A6FC}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -602,6 +609,7 @@ type
function GetOldBASE_IMPONIBLEValue : Currency;
function GetOldDESCUENTOValue : Float;
function GetOldIMPORTE_DESCUENTOValue : Currency;
+ function GetOldDESCRIPCION_DESCUENTOValue : String;
function GetOldIVAValue : Float;
function GetOldIMPORTE_IVAValue : Currency;
function GetOldREValue : Float;
@@ -640,6 +648,7 @@ type
property OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue;
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue;
+ property OldDESCRIPCION_DESCUENTO : String read GetOldDESCRIPCION_DESCUENTOValue;
property OldIVA : Float read GetOldIVAValue;
property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue;
property OldRE : Float read GetOldREValue;
@@ -701,6 +710,9 @@ type
function GetIMPORTE_DESCUENTOValue: Currency; virtual;
function GetOldIMPORTE_DESCUENTOValue: Currency; virtual;
procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); virtual;
+ function GetDESCRIPCION_DESCUENTOValue: String; virtual;
+ function GetOldDESCRIPCION_DESCUENTOValue: String; virtual;
+ procedure SetDESCRIPCION_DESCUENTOValue(const aValue: String); virtual;
function GetIVAValue: Float; virtual;
function GetOldIVAValue: Float; virtual;
procedure SetIVAValue(const aValue: Float); virtual;
@@ -802,6 +814,8 @@ type
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
property IMPORTE_DESCUENTO : Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue;
property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue;
+ property DESCRIPCION_DESCUENTO : String read GetDESCRIPCION_DESCUENTOValue write SetDESCRIPCION_DESCUENTOValue;
+ property OldDESCRIPCION_DESCUENTO : String read GetOldDESCRIPCION_DESCUENTOValue;
property IVA : Float read GetIVAValue write SetIVAValue;
property OldIVA : Float read GetOldIVAValue;
property IMPORTE_IVA : Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue;
@@ -1068,6 +1082,21 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteIMPORTE_DESCUENTO] := aValue;
end;
+function TFacturasClienteBusinessProcessorRules.GetDESCRIPCION_DESCUENTOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDESCRIPCION_DESCUENTO];
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetOldDESCRIPCION_DESCUENTOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDESCRIPCION_DESCUENTO];
+end;
+
+procedure TFacturasClienteBusinessProcessorRules.SetDESCRIPCION_DESCUENTOValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDESCRIPCION_DESCUENTO] := aValue;
+end;
+
function TFacturasClienteBusinessProcessorRules.GetIVAValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteIVA];
@@ -2066,6 +2095,21 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_RefreshIMPORTE_DESCUENTO] := aValue;
end;
+function TFacturasCliente_RefreshBusinessProcessorRules.GetDESCRIPCION_DESCUENTOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_RefreshDESCRIPCION_DESCUENTO];
+end;
+
+function TFacturasCliente_RefreshBusinessProcessorRules.GetOldDESCRIPCION_DESCUENTOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasCliente_RefreshDESCRIPCION_DESCUENTO];
+end;
+
+procedure TFacturasCliente_RefreshBusinessProcessorRules.SetDESCRIPCION_DESCUENTOValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_RefreshDESCRIPCION_DESCUENTO] := aValue;
+end;
+
function TFacturasCliente_RefreshBusinessProcessorRules.GetIVAValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_RefreshIVA];
diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm
index fd5bbd26..60ccea9e 100644
--- a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm
+++ b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm
@@ -104,27 +104,28 @@ object RptFacturasCliente: TRptFacturasCliente
'SELECT'#10' V_FACTURAS_CLIENTE.ID, V_FACTURAS_CLIENTE.REFERENCIA,' +
' V_FACTURAS_CLIENTE.FECHA_FACTURA,'#10' V_FACTURAS_CLIENTE.BASE_I' +
'MPONIBLE, V_FACTURAS_CLIENTE.DESCUENTO, V_FACTURAS_CLIENTE.IMPOR' +
- 'TE_DESCUENTO,'#10' V_FACTURAS_CLIENTE.IVA, V_FACTURAS_CLIENTE.IMP' +
- 'ORTE_IVA,'#10' V_FACTURAS_CLIENTE.RE, V_FACTURAS_CLIENTE.IMPORTE_' +
- 'RE,'#10' V_FACTURAS_CLIENTE.IMPORTE_TOTAL,'#10' V_FACTURAS_CLIENTE' +
- '.OBSERVACIONES, FORMAS_PAGO.DESCRIPCION AS FORMA_PAGO, V_FACTURA' +
- 'S_CLIENTE.ID_CLIENTE,'#10' V_FACTURAS_CLIENTE.NIF_CIF, V_FACTURAS' +
- '_CLIENTE.NOMBRE, V_FACTURAS_CLIENTE.CALLE,'#10' V_FACTURAS_CLIENT' +
- 'E.PROVINCIA, V_FACTURAS_CLIENTE.CODIGO_POSTAL, V_FACTURAS_CLIENT' +
- 'E.POBLACION,'#10' CONTACTOS_DATOS_BANCO.TITULAR,'#10' CONTACTOS_DA' +
- 'TOS_BANCO.ENTIDAD,'#10' CONTACTOS_DATOS_BANCO.SUCURSAL,'#10' CONTA' +
- 'CTOS_DATOS_BANCO.DC,'#10' CONTACTOS_DATOS_BANCO.CUENTA,'#10' ID_EM' +
- 'PRESA, EMPRESAS.NIF_CIF as NIF_CIF_EMPRESA, EMPRESAS.RAZON_SOCIA' +
- 'L,'#10' EMPRESAS.CALLE as CALLE_EMPRESA, EMPRESAS.POBLACION as PO' +
- 'BLACION_EMPRESA,'#10' EMPRESAS.PROVINCIA as PROVINCIA_EMPRESA, EM' +
- 'PRESAS.CODIGO_POSTAL as CODIGO_POSTAL_EMPRESA,'#10' EMPRESAS.TELE' +
- 'FONO_1, EMPRESAS.FAX, EMPRESAS.MOVIL_1, EMPRESAS.EMAIL_1,'#10' EM' +
- 'PRESAS.PAGINA_WEB, EMPRESAS.REGISTRO_MERCANTIL, EMPRESAS.LOGOTIP' +
- 'O'#10'FROM V_FACTURAS_CLIENTE'#10'LEFT JOIN EMPRESAS ON EMPRESAS.ID = ID' +
- '_EMPRESA'#10'LEFT JOIN FORMAS_PAGO ON (FORMAS_PAGO.ID = V_FACTURAS_C' +
- 'LIENTE.ID_FORMA_PAGO)'#10'LEFT JOIN CONTACTOS_DATOS_BANCO ON (CONTAC' +
- 'TOS_DATOS_BANCO.ID_CONTACTO = V_FACTURAS_CLIENTE.ID_CLIENTE)'#10'WHE' +
- 'RE V_FACTURAS_CLIENTE.ID = :ID'
+ 'TE_DESCUENTO,'#10' V_FACTURAS_CLIENTE.DESCRIPCION_DESCUENTO,'#10' ' +
+ 'V_FACTURAS_CLIENTE.IVA, V_FACTURAS_CLIENTE.IMPORTE_IVA,'#10' V_FA' +
+ 'CTURAS_CLIENTE.RE, V_FACTURAS_CLIENTE.IMPORTE_RE,'#10' V_FACTURAS' +
+ '_CLIENTE.IMPORTE_TOTAL,'#10' V_FACTURAS_CLIENTE.OBSERVACIONES, FO' +
+ 'RMAS_PAGO.DESCRIPCION AS FORMA_PAGO, V_FACTURAS_CLIENTE.ID_CLIEN' +
+ 'TE,'#10' V_FACTURAS_CLIENTE.NIF_CIF, V_FACTURAS_CLIENTE.NOMBRE, V' +
+ '_FACTURAS_CLIENTE.CALLE,'#10' V_FACTURAS_CLIENTE.PROVINCIA, V_FAC' +
+ 'TURAS_CLIENTE.CODIGO_POSTAL, V_FACTURAS_CLIENTE.POBLACION,'#10' C' +
+ 'ONTACTOS_DATOS_BANCO.TITULAR,'#10' CONTACTOS_DATOS_BANCO.ENTIDAD,' +
+ #10' CONTACTOS_DATOS_BANCO.SUCURSAL,'#10' CONTACTOS_DATOS_BANCO.D' +
+ 'C,'#10' CONTACTOS_DATOS_BANCO.CUENTA,'#10' ID_EMPRESA, EMPRESAS.NI' +
+ 'F_CIF as NIF_CIF_EMPRESA, EMPRESAS.RAZON_SOCIAL,'#10' EMPRESAS.CA' +
+ 'LLE as CALLE_EMPRESA, EMPRESAS.POBLACION as POBLACION_EMPRESA,'#10' ' +
+ ' EMPRESAS.PROVINCIA as PROVINCIA_EMPRESA, EMPRESAS.CODIGO_POST' +
+ 'AL as CODIGO_POSTAL_EMPRESA,'#10' EMPRESAS.TELEFONO_1, EMPRESAS.F' +
+ 'AX, EMPRESAS.MOVIL_1, EMPRESAS.EMAIL_1,'#10' EMPRESAS.PAGINA_WEB,' +
+ ' EMPRESAS.REGISTRO_MERCANTIL, EMPRESAS.LOGOTIPO'#10'FROM V_FACTURAS_' +
+ 'CLIENTE'#10'LEFT JOIN EMPRESAS ON EMPRESAS.ID = ID_EMPRESA'#10'LEFT JOIN' +
+ ' FORMAS_PAGO ON (FORMAS_PAGO.ID = V_FACTURAS_CLIENTE.ID_FORMA_PA' +
+ 'GO)'#10'LEFT JOIN CONTACTOS_DATOS_BANCO ON (CONTACTOS_DATOS_BANCO.ID' +
+ '_CONTACTO = V_FACTURAS_CLIENTE.ID_CLIENTE)'#10'WHERE V_FACTURAS_CLIE' +
+ 'NTE.ID = :ID'
StatementType = stSQL
ColumnMappings = <
item
@@ -282,6 +283,10 @@ object RptFacturasCliente: TRptFacturasCliente
item
DatasetField = 'CUENTA'
TableField = 'CUENTA'
+ end
+ item
+ DatasetField = 'DESCRIPCION_DESCUENTO'
+ TableField = 'DESCRIPCION_DESCUENTO'
end>
end>
Name = 'InformeFacturasCliente'
@@ -347,6 +352,18 @@ object RptFacturasCliente: TRptFacturasCliente
Lookup = False
LookupCache = False
end
+ item
+ Name = 'DESCRIPCION_DESCUENTO'
+ DataType = datString
+ Size = 255
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
item
Name = 'DESCUENTO'
DataType = datFloat
@@ -1253,7 +1270,7 @@ object RptFacturasCliente: TRptFacturasCliente
PrintOptions.Printer = 'Default'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 37871.995398692100000000
- ReportOptions.LastChange = 39701.539507187500000000
+ ReportOptions.LastChange = 40092.714477893520000000
ReportOptions.VersionBuild = '1'
ReportOptions.VersionMajor = '12'
ReportOptions.VersionMinor = '13'
@@ -1325,6 +1342,7 @@ object RptFacturasCliente: TRptFacturasCliente
'var'
' Cadena: String;'
'begin'
+ ' { '
' DatosEmpresa.Lines.Clear;'
' DatosEmpresa.Lines.Add();'
' DatosEmpresa.Lines.Add();'
@@ -1348,6 +1366,7 @@ object RptFacturasCliente: TRptFacturasCliente
' Cadena := Cadena + '#39' - '#39' + ;'
' DatosEmpresa.Lines.Add(Cadena);'
+ ' } '
'end;'
''
'procedure Memo15OnBeforePrint(Sender: TfrxComponent);'
@@ -1359,18 +1378,6 @@ object RptFacturasCliente: TRptFacturasCliente
' Memo15.Lines.Add('#39'FACTURA'#39')'
'end;'
''
- 'procedure Memo20OnBeforePrint(Sender: TfrxComponent);'
- 'begin'
- ' if (StrToFloat() = 0) then'
- ' begin'
- ' Memo20.Lines.Clear;'
- ' Memo28.Lines.Clear;'
- ' Memo21.Lines.Clear;'
- ' Memo29.Lines.Clear;'
- ' end;'
- ''
- 'end;'
- ''
'procedure Memo11OnBeforePrint(Sender: TfrxComponent);'
'var'
' Cadena : String;'
@@ -1402,9 +1409,40 @@ object RptFacturasCliente: TRptFacturasCliente
'procedure Picture1OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if then'
- ' Picture1.Visible := True'
+ ' begin '
+ ' Picture1.Visible := True; '
+ ' Picture2.Visible := True; '
+ ' Picture3.Visible := True; '
+ ' Picture4.Visible := True; '
+ ' Picture5.Visible := True; '
+ ' Picture6.Visible := True; '
+ ' Memo12.Visible := True;'
+
+ ' Memo14.Visible := True; ' +
+ ' '
+ ' end'
' else'
- ' Picture1.Visible := False; '
+ ' begin '
+ ' Picture1.Visible := False;'
+ ' Picture2.Visible := False;'
+ ' Picture3.Visible := False;'
+ ' Picture4.Visible := False;'
+ ' Picture5.Visible := False;'
+ ' Picture6.Visible := False;'
+ ' Memo12.Visible := False;'
+
+ ' Memo14.Visible := False; ' +
+ ' '
+ ' end'
+ 'end;'
+ ''
+ 'procedure Memo21OnBeforePrint(Sender: TfrxComponent);'
+ 'begin'
+ ' if (StrToFloat() = 0) then'
+ ' begin'
+ ' Memo21.Lines.Clear;'
+ ' Memo29.Lines.Clear;'
+ ' end;'
'end;'
''
'begin'
diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas
index 53d19779..30963eda 100644
--- a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas
+++ b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas
@@ -28,10 +28,10 @@ type
DADataVencimientos: TDADataSource;
tbl_Vencimientos: TDACDSDataTable;
frxDBDataset1: TfrxDBDataset;
- schReport: TDASchema;
- DataDictionary: TDADataDictionary;
frxReport: TfrxReport;
frxPDFExport1: TfrxPDFExport;
+ schReport: TDASchema;
+ DataDictionary: TDADataDictionary;
procedure DataModuleCreate(Sender: TObject);
procedure frxReportGetValue(const VarName: string; var Value: Variant);
private
diff --git a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
index 8b129ddf..194fbb13 100644
--- a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
+++ b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
@@ -104,13 +104,14 @@ object srvFacturasCliente: TsrvFacturasCliente
TargetTable = 'V_FACTURAS_CLIENTE'
SQL =
'SELECT '#10' ID, ID_EMPRESA, REFERENCIA, TIPO, FECHA_FACTURA, SIT' +
- 'UACION, BASE_IMPONIBLE,'#10' DESCUENTO, IMPORTE_DESCUENTO, IVA, I' +
- 'MPORTE_IVA, RE, IMPORTE_RE,'#10' IMPORTE_TOTAL, OBSERVACIONES, ID' +
- '_CLIENTE, NIF_CIF, NOMBRE, CALLE,'#10' POBLACION, PROVINCIA, CODI' +
- 'GO_POSTAL, FECHA_ALTA, FECHA_MODIFICACION,'#10' USUARIO, ID_FORMA' +
- '_PAGO, RECARGO_EQUIVALENCIA, ID_TIPO_IVA,'#10' IMPORTE_NETO, IMPO' +
- 'RTE_PORTE, ID_COMISION_LIQUIDADA, REFERENCIA_COMISION,'#10' ID_AG' +
- 'ENTE, NUM_COPIAS, NUM_CORREOS'#10' FROM'#10' V_FACTURAS_CLIENTE'
+ 'UACION, BASE_IMPONIBLE,'#10' DESCUENTO, IMPORTE_DESCUENTO, DESCRI' +
+ 'PCION_DESCUENTO, IVA, IMPORTE_IVA, RE, IMPORTE_RE,'#10' IMPORTE_T' +
+ 'OTAL, OBSERVACIONES, ID_CLIENTE, NIF_CIF, NOMBRE, CALLE,'#10' POB' +
+ 'LACION, PROVINCIA, CODIGO_POSTAL, FECHA_ALTA, FECHA_MODIFICACION' +
+ ','#10' USUARIO, ID_FORMA_PAGO, RECARGO_EQUIVALENCIA, ID_TIPO_IVA,' +
+ #10' IMPORTE_NETO, IMPORTE_PORTE, ID_COMISION_LIQUIDADA, REFEREN' +
+ 'CIA_COMISION,'#10' ID_AGENTE, NUM_COPIAS, NUM_CORREOS'#10' FROM'#10' ' +
+ 'V_FACTURAS_CLIENTE'
StatementType = stSQL
ColumnMappings = <
item
@@ -252,6 +253,10 @@ object srvFacturasCliente: TsrvFacturasCliente
item
DatasetField = 'NUM_CORREOS'
TableField = 'NUM_CORREOS'
+ end
+ item
+ DatasetField = 'DESCRIPCION_DESCUENTO'
+ TableField = 'DESCRIPCION_DESCUENTO'
end>
end>
Name = 'FacturasCliente'
@@ -349,6 +354,18 @@ object srvFacturasCliente: TsrvFacturasCliente
Lookup = False
LookupCache = False
end
+ item
+ Name = 'DESCRIPCION_DESCUENTO'
+ DataType = datString
+ Size = 255
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
item
Name = 'IVA'
DataType = datFloat
@@ -1133,14 +1150,14 @@ object srvFacturasCliente: TsrvFacturasCliente
TargetTable = 'V_FACTURAS_CLIENTE'
SQL =
'SELECT '#10' ID, ID_EMPRESA, REFERENCIA, TIPO, FECHA_FACTURA, SIT' +
- 'UACION, BASE_IMPONIBLE,'#10' DESCUENTO, IMPORTE_DESCUENTO, IVA, I' +
- 'MPORTE_IVA, RE, '#10' IMPORTE_RE, IMPORTE_TOTAL, OBSERVACIONES, I' +
- 'D_CLIENTE, '#10' NIF_CIF, NOMBRE, CALLE, POBLACION, PROVINCIA, CO' +
- 'DIGO_POSTAL, '#10' FECHA_ALTA, FECHA_MODIFICACION, USUARIO, ID_FO' +
- 'RMA_PAGO, '#10' RECARGO_EQUIVALENCIA, ID_TIPO_IVA, IMPORTE_NETO, ' +
- 'IMPORTE_PORTE, ID_COMISION_LIQUIDADA,'#10' REFERENCIA_COMISION, I' +
- 'D_AGENTE, NUM_COPIAS, NUM_CORREOS'#10' FROM'#10' V_FACTURAS_CLIENTE'#10 +
- ' WHERE ID = :ID'
+ 'UACION, BASE_IMPONIBLE,'#10' DESCUENTO, IMPORTE_DESCUENTO, DESCRI' +
+ 'PCION_DESCUENTO, IVA, IMPORTE_IVA, RE,'#10' IMPORTE_RE, IMPORTE_T' +
+ 'OTAL, OBSERVACIONES, ID_CLIENTE, '#10' NIF_CIF, NOMBRE, CALLE, PO' +
+ 'BLACION, PROVINCIA, CODIGO_POSTAL, '#10' FECHA_ALTA, FECHA_MODIFI' +
+ 'CACION, USUARIO, ID_FORMA_PAGO, '#10' RECARGO_EQUIVALENCIA, ID_TI' +
+ 'PO_IVA, IMPORTE_NETO, IMPORTE_PORTE, ID_COMISION_LIQUIDADA,'#10' ' +
+ 'REFERENCIA_COMISION, ID_AGENTE, NUM_COPIAS, NUM_CORREOS'#10' FROM'#10' ' +
+ ' V_FACTURAS_CLIENTE'#10' WHERE ID = :ID'
StatementType = stSQL
ColumnMappings = <
item
@@ -1282,6 +1299,10 @@ object srvFacturasCliente: TsrvFacturasCliente
item
DatasetField = 'NUM_CORREOS'
TableField = 'NUM_CORREOS'
+ end
+ item
+ DatasetField = 'DESCRIPCION_DESCUENTO'
+ TableField = 'DESCRIPCION_DESCUENTO'
end>
end>
Name = 'FacturasCliente_Refresh'
@@ -1379,6 +1400,18 @@ object srvFacturasCliente: TsrvFacturasCliente
Lookup = False
LookupCache = False
end
+ item
+ Name = 'DESCRIPCION_DESCUENTO'
+ DataType = datString
+ Size = 255
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
item
Name = 'IVA'
DataType = datFloat
@@ -1999,6 +2032,14 @@ object srvFacturasCliente: TsrvFacturasCliente
Value = ''
ParamType = daptInput
end
+ item
+ Name = 'DESCRIPCION_DESCUENTO'
+ DataType = datString
+ Size = 255
+ BlobType = dabtUnknown
+ Value = ''
+ ParamType = daptInput
+ end
item
Name = 'IVA'
DataType = datFloat
@@ -2160,20 +2201,21 @@ object srvFacturasCliente: TsrvFacturasCliente
SQL =
'INSERT INTO FACTURAS_CLIENTE ('#10' ID,'#10' ID_EMPRESA,'#10' REFER' +
'ENCIA,'#10' FECHA_FACTURA,'#10' BASE_IMPONIBLE,'#10' DESCUENTO,'#10' ' +
- ' IMPORTE_DESCUENTO,'#10' IVA,'#10' IMPORTE_IVA,'#10' RE,'#10' IMPORT' +
- 'E_RE,'#10' IMPORTE_TOTAL,'#10' OBSERVACIONES,'#10' ID_CLIENTE,'#10' ' +
- 'NIF_CIF,'#10' NOMBRE,'#10' CALLE,'#10' POBLACION,'#10' PROVINCIA,'#10' ' +
- ' CODIGO_POSTAL,'#10' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' USU' +
- 'ARIO,'#10' ID_FORMA_PAGO,'#10' RECARGO_EQUIVALENCIA,'#10' ID_TIPO_I' +
- 'VA,'#10' IMPORTE_NETO,'#10' IMPORTE_PORTE)'#10' VALUES ('#10' :ID,'#10' ' +
- ' :ID_EMPRESA,'#10' :REFERENCIA,'#10' :FECHA_FACTURA,'#10' :BASE_IMP' +
- 'ONIBLE,'#10' :DESCUENTO,'#10' :IMPORTE_DESCUENTO,'#10' :IVA,'#10' :I' +
- 'MPORTE_IVA,'#10' :RE,'#10' :IMPORTE_RE,'#10' :IMPORTE_TOTAL,'#10' :O' +
- 'BSERVACIONES,'#10' :ID_CLIENTE,'#10' :NIF_CIF,'#10' :NOMBRE,'#10' :C' +
- 'ALLE,'#10' :POBLACION,'#10' :PROVINCIA,'#10' :CODIGO_POSTAL,'#10' :F' +
- 'ECHA_ALTA,'#10' :FECHA_MODIFICACION,'#10' :USUARIO,'#10' :ID_FORMA_' +
- 'PAGO,'#10' :RECARGO_EQUIVALENCIA,'#10' :ID_TIPO_IVA,'#10' :IMPORTE_' +
- 'NETO,'#10' :IMPORTE_PORTE);'
+ ' IMPORTE_DESCUENTO,'#10' DESCRIPCION_DESCUENTO,'#10' IVA,'#10' IMPO' +
+ 'RTE_IVA,'#10' RE,'#10' IMPORTE_RE,'#10' IMPORTE_TOTAL,'#10' OBSERVAC' +
+ 'IONES,'#10' ID_CLIENTE,'#10' NIF_CIF,'#10' NOMBRE,'#10' CALLE,'#10' P' +
+ 'OBLACION,'#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_POR' +
+ 'TE)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' :REFERENCIA,'#10' :F' +
+ 'ECHA_FACTURA,'#10' :BASE_IMPONIBLE,'#10' :DESCUENTO,'#10' :IMPORTE_' +
+ 'DESCUENTO,'#10' :DESCRIPCION_DESCUENTO,'#10' :IVA,'#10' :IMPORTE_IV' +
+ 'A,'#10' :RE,'#10' :IMPORTE_RE,'#10' :IMPORTE_TOTAL,'#10' :OBSERVACIO' +
+ 'NES,'#10' :ID_CLIENTE,'#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);'
StatementType = stSQL
ColumnMappings = <>
end>
@@ -2224,6 +2266,14 @@ object srvFacturasCliente: TsrvFacturasCliente
Value = ''
ParamType = daptInput
end
+ item
+ Name = 'DESCRIPCION_DESCUENTO'
+ DataType = datString
+ Size = 255
+ BlobType = dabtUnknown
+ Value = ''
+ ParamType = daptInput
+ end
item
Name = 'IVA'
DataType = datFloat
@@ -2393,18 +2443,18 @@ object srvFacturasCliente: TsrvFacturasCliente
'UPDATE FACTURAS_CLIENTE'#10' SET'#10' ID_EMPRESA = :ID_EMPRESA,'#10' ' +
'REFERENCIA = :REFERENCIA,'#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 = :IMPO' +
- 'RTE_RE,'#10' IMPORTE_TOTAL = :IMPORTE_TOTAL,'#10' OBSERVACIONES = ' +
- ':OBSERVACIONES,'#10' ID_CLIENTE = :ID_CLIENTE,'#10' NIF_CIF = :NIF' +
- '_CIF,'#10' NOMBRE = :NOMBRE,'#10' CALLE = :CALLE,'#10' POBLACION = ' +
- ':POBLACION,'#10' PROVINCIA = :PROVINCIA,'#10' CODIGO_POSTAL = :COD' +
- 'IGO_POSTAL,'#10' FECHA_ALTA = :FECHA_ALTA,'#10' FECHA_MODIFICACION' +
- ' = :FECHA_MODIFICACION,'#10' USUARIO = :USUARIO,'#10' ID_FORMA_PAG' +
- 'O = :ID_FORMA_PAGO,'#10' RECARGO_EQUIVALENCIA = :RECARGO_EQUIVALE' +
- 'NCIA,'#10' ID_TIPO_IVA = :ID_TIPO_IVA,'#10' IMPORTE_NETO = :IMPORT' +
- 'E_NETO,'#10' IMPORTE_PORTE = :IMPORTE_PORTE'#10' WHERE'#10' (ID = :OLD_' +
- 'ID);'
+ ' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO,'#10' DESCRIPCION_DESC' +
+ 'UENTO = :DESCRIPCION_DESCUENTO,'#10' IVA = :IVA,'#10' IMPORTE_IVA ' +
+ '= :IMPORTE_IVA,'#10' RE = :RE,'#10' IMPORTE_RE = :IMPORTE_RE,'#10' ' +
+ 'IMPORTE_TOTAL = :IMPORTE_TOTAL,'#10' OBSERVACIONES = :OBSERVACION' +
+ 'ES,'#10' ID_CLIENTE = :ID_CLIENTE,'#10' NIF_CIF = :NIF_CIF,'#10' NO' +
+ 'MBRE = :NOMBRE,'#10' CALLE = :CALLE,'#10' POBLACION = :POBLACION,'#10 +
+ ' PROVINCIA = :PROVINCIA,'#10' CODIGO_POSTAL = :CODIGO_POSTAL,'#10 +
+ ' FECHA_ALTA = :FECHA_ALTA,'#10' FECHA_MODIFICACION = :FECHA_MO' +
+ 'DIFICACION,'#10' USUARIO = :USUARIO,'#10' ID_FORMA_PAGO = :ID_FORM' +
+ 'A_PAGO,'#10' RECARGO_EQUIVALENCIA = :RECARGO_EQUIVALENCIA,'#10' ID' +
+ '_TIPO_IVA = :ID_TIPO_IVA,'#10' IMPORTE_NETO = :IMPORTE_NETO,'#10' ' +
+ 'IMPORTE_PORTE = :IMPORTE_PORTE'#10' WHERE'#10' (ID = :OLD_ID);'
StatementType = stSQL
ColumnMappings = <>
end>
diff --git a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dpk b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dpk
index 6b92d5b8..44d80c33 100644
--- a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dpk
+++ b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dpk
@@ -89,7 +89,9 @@ requires
Articulos_view,
FormasPago_model,
FormasPago_controller,
- AlbCli_FacCli_relation;
+ AlbCli_FacCli_relation,
+ dxGDIPlusD10,
+ dxLayoutControlD10;
contains
uFacturasClienteViewRegister in 'uFacturasClienteViewRegister.pas',
@@ -102,6 +104,7 @@ contains
uEditorElegirArticulosFacturaCliente in 'uEditorElegirArticulosFacturaCliente.pas' {fEditorElegirArticulosFacturaCliente: TForm},
uViewElegirArticulosFacturasCliente in 'uViewElegirArticulosFacturasCliente.pas' {frViewElegirArticulosFacturasCliente: TFrame},
uEditorElegirFacturasCliente in 'uEditorElegirFacturasCliente.pas' {fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente},
- uDialogListaFacturasEnvioEMail in 'uDialogListaFacturasEnvioEMail.pas' {fDialogListaFacturasEnvioEMail};
+ uDialogListaFacturasEnvioEMail in 'uDialogListaFacturasEnvioEMail.pas' {fDialogListaFacturasEnvioEMail},
+ uViewTotalesFacturaCliente in 'uViewTotalesFacturaCliente.pas' {frViewTotalesFacturaCliente: TFrame};
end.
diff --git a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.res b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.res
index 8b251f31..1641339f 100644
Binary files a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.res and b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.res differ
diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm
index d44da54f..74581bba 100644
--- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm
+++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm
@@ -2,20 +2,20 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Left = 454
Top = 208
Caption = 'Nueva factura de cliente'
- ClientHeight = 575
- ClientWidth = 788
+ ClientHeight = 718
+ ClientWidth = 891
Position = poScreenCenter
OnClose = CustomEditorClose
- ExplicitWidth = 796
- ExplicitHeight = 602
+ ExplicitWidth = 899
+ ExplicitHeight = 745
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
- Width = 788
+ Width = 891
Caption = 'Nueva factura de cliente'
- ExplicitWidth = 788
+ ExplicitWidth = 789
inherited Image1: TImage
- Left = 761
+ Left = 864
Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
0000180806000000E0773DF80000000970485973000017120000171201679FD2
@@ -39,8 +39,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end
end
inherited TBXDock: TTBXDock
- Width = 788
- ExplicitWidth = 788
+ Width = 891
+ ExplicitWidth = 789
inherited tbxMain: TTBXToolbar
ExplicitWidth = 613
inherited TBXItem2: TTBXItem
@@ -60,7 +60,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end
end
inherited tbxMenu: TTBXToolbar
- ExplicitWidth = 788
+ ExplicitWidth = 891
inherited TBXSubmenuItem4: TTBXSubmenuItem
inherited TBXItem8: TTBXItem
Visible = False
@@ -82,21 +82,21 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end
end
inherited pgPaginas: TPageControl
- Width = 788
- Height = 317
+ Width = 891
+ Height = 434
OnChanging = pgPaginasChanging
- ExplicitWidth = 788
- ExplicitHeight = 317
+ ExplicitWidth = 789
+ ExplicitHeight = 308
inherited pagGeneral: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
- ExplicitWidth = 780
- ExplicitHeight = 289
+ ExplicitWidth = 781
+ ExplicitHeight = 280
inline frViewFacturaCliente1: TfrViewFacturaCliente
Left = 0
Top = 0
- Width = 780
- Height = 289
+ Width = 883
+ Height = 406
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@@ -106,16 +106,16 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ParentFont = False
TabOrder = 0
ReadOnly = False
- ExplicitWidth = 780
- ExplicitHeight = 289
+ ExplicitWidth = 781
+ ExplicitHeight = 280
inherited dxLayoutControl1: TdxLayoutControl
- Width = 780
- Height = 289
- ExplicitWidth = 780
- ExplicitHeight = 289
+ Width = 883
+ Height = 406
+ ExplicitWidth = 781
+ ExplicitHeight = 280
DesignSize = (
- 780
- 289)
+ 883
+ 406)
inherited eReferencia: TcxDBTextEdit
ExplicitWidth = 393
Width = 393
@@ -131,9 +131,9 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Width = 473
end
inherited frViewClienteFactura: TfrViewDatosYSeleccionCliente
- Left = 474
+ Left = 536
Width = 332
- ExplicitLeft = 474
+ ExplicitLeft = 536
ExplicitWidth = 332
inherited dxLayoutControl1: TdxLayoutControl
Width = 332
@@ -165,7 +165,13 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Width = 327
end
inherited edtCodigoPostal: TcxDBTextEdit
+ Left = 233
DataBinding.DataSource = frViewFacturaCliente1.DADataSource
+ ExplicitLeft = 233
+ end
+ inherited Button3: TBitBtn
+ Left = 123
+ ExplicitLeft = 123
end
end
end
@@ -174,8 +180,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Width = 255
end
inherited bFormasPago: TButton
- Left = 314
- ExplicitLeft = 314
+ Left = 376
+ ExplicitLeft = 376
end
end
end
@@ -183,11 +189,13 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
object pagContenido: TTabSheet
Caption = 'Contenido'
ImageIndex = 1
+ ExplicitWidth = 781
+ ExplicitHeight = 280
inline frViewDetallesFacturaCliente1: TfrViewDetallesFacturaCliente
Left = 0
Top = 0
- Width = 780
- Height = 289
+ Width = 883
+ Height = 406
Align = alClient
BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET
@@ -199,61 +207,108 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ParentFont = False
TabOrder = 0
ReadOnly = False
- ExplicitWidth = 780
- ExplicitHeight = 289
+ ExplicitWidth = 781
+ ExplicitHeight = 280
inherited ToolBar1: TToolBar
- Width = 780
- ExplicitWidth = 780
+ Width = 883
+ Height = 24
+ ExplicitWidth = 883
+ inherited ToolButton14: TToolButton [1]
+ Left = 109
+ Top = 2
+ ExplicitLeft = 109
+ ExplicitTop = 2
+ end
+ inherited ToolButton2: TToolButton [2]
+ Left = 143
+ end
+ inherited ToolButton3: TToolButton [3]
+ Left = 257
+ end
+ inherited ToolButton4: TToolButton [4]
+ Left = 312
+ Wrap = False
+ end
+ inherited FontName: TJvFontComboBox
+ Left = 368
+ Top = 2
+ ExplicitLeft = 368
+ ExplicitTop = 2
+ end
inherited FontSize: TEdit
- Width = 58
- ExplicitWidth = 58
+ Left = 513
+ Top = 2
+ Width = 73
+ ExplicitLeft = 513
+ ExplicitTop = 2
+ ExplicitWidth = 73
end
inherited UpDown1: TUpDown
- Left = 252
- ExplicitLeft = 252
+ Left = 586
+ Top = 2
+ ExplicitLeft = 586
+ ExplicitTop = 2
end
inherited ToolButton13: TToolButton
- Left = 269
- ExplicitLeft = 269
+ Left = 603
+ Top = 2
+ ExplicitLeft = 603
+ ExplicitTop = 2
end
inherited ToolButton6: TToolButton
- Left = 277
- ExplicitLeft = 277
+ Left = 611
+ Top = 2
+ ExplicitLeft = 611
+ ExplicitTop = 2
end
inherited ToolButton7: TToolButton
- Left = 311
- ExplicitLeft = 311
+ Left = 645
+ Top = 2
+ ExplicitLeft = 645
+ ExplicitTop = 2
end
inherited ToolButton8: TToolButton
- Left = 345
- ExplicitLeft = 345
+ Left = 679
+ Top = 2
+ ExplicitLeft = 679
+ ExplicitTop = 2
end
inherited ToolButton12: TToolButton
- Left = 379
- ExplicitLeft = 379
+ Left = 713
+ Top = 2
+ ExplicitLeft = 713
+ ExplicitTop = 2
end
inherited ToolButton9: TToolButton
- Left = 387
- ExplicitLeft = 387
+ Left = 721
+ Top = 2
+ ExplicitLeft = 721
+ ExplicitTop = 2
end
inherited ToolButton10: TToolButton
- Left = 421
- ExplicitLeft = 421
+ Left = 755
+ Top = 2
+ ExplicitLeft = 755
+ ExplicitTop = 2
end
inherited ToolButton11: TToolButton
- Left = 455
- ExplicitLeft = 455
+ Left = 789
+ Top = 2
+ ExplicitLeft = 789
+ ExplicitTop = 2
end
end
inherited cxGrid: TcxGrid
- Width = 780
- Height = 217
- ExplicitWidth = 780
- ExplicitHeight = 217
+ Top = 50
+ Width = 883
+ Height = 356
+ ExplicitWidth = 781
+ ExplicitHeight = 208
end
inherited TBXDock1: TTBXDock
- Width = 780
- ExplicitWidth = 780
+ Top = 24
+ Width = 883
+ ExplicitWidth = 781
inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 548
end
@@ -262,20 +317,20 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end
end
inherited StatusBar: TJvStatusBar
- Top = 556
- Width = 788
+ Top = 699
+ Width = 891
Panels = <
item
Width = 200
end>
- ExplicitTop = 556
- ExplicitWidth = 788
+ ExplicitTop = 573
+ ExplicitWidth = 789
end
- inline frViewTotales1: TfrViewTotales [4]
+ inline frViewTotales1: TfrViewTotalesFacturaCliente [4]
Left = 0
- Top = 393
- Width = 788
- Height = 163
+ Top = 510
+ Width = 891
+ Height = 189
Align = alBottom
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@@ -285,13 +340,15 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ParentFont = False
TabOrder = 4
ReadOnly = False
- ExplicitTop = 393
- ExplicitWidth = 788
- ExplicitHeight = 163
+ ExplicitTop = 384
+ ExplicitWidth = 789
+ ExplicitHeight = 189
inherited dxLayoutControl1: TdxLayoutControl
- Width = 788
+ Width = 891
+ Height = 218
LookAndFeel = frViewFacturaCliente1.dxLayoutOfficeLookAndFeel1
- ExplicitWidth = 788
+ ExplicitWidth = 789
+ ExplicitHeight = 218
inherited Bevel1: TBevel
Top = 111
Width = 73
@@ -299,18 +356,18 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitWidth = 73
end
inherited Bevel3: TBevel
- Left = 441
+ Left = 495
Top = 30
Height = 122
- ExplicitLeft = 441
+ ExplicitLeft = 495
ExplicitTop = 30
ExplicitHeight = 122
end
inherited Bevel4: TBevel
- Left = 553
+ Left = 607
Top = 111
Width = 186
- ExplicitLeft = 553
+ ExplicitLeft = 607
ExplicitTop = 111
ExplicitWidth = 186
end
@@ -322,19 +379,19 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Width = 93
end
inherited ImporteIVA: TcxDBCurrencyEdit
- Left = 624
+ Left = 678
Top = 57
Style.IsFontAssigned = True
- ExplicitLeft = 624
+ ExplicitLeft = 678
ExplicitTop = 57
ExplicitWidth = 137
Width = 137
end
inherited ImporteTotal: TcxDBCurrencyEdit
- Left = 554
+ Left = 608
Top = 131
Style.IsFontAssigned = True
- ExplicitLeft = 554
+ ExplicitLeft = 608
ExplicitTop = 131
ExplicitWidth = 137
Width = 137
@@ -346,34 +403,34 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitTop = 131
end
inherited edtIVA: TcxDBSpinEdit
- Left = 553
+ Left = 607
Top = 57
Style.IsFontAssigned = True
- ExplicitLeft = 553
+ ExplicitLeft = 607
ExplicitTop = 57
end
inherited ImporteBase: TcxDBCurrencyEdit
- Left = 553
+ Left = 607
Top = 30
Style.IsFontAssigned = True
- ExplicitLeft = 553
+ ExplicitLeft = 607
ExplicitTop = 30
ExplicitWidth = 92
Width = 92
end
inherited edtRE: TcxDBSpinEdit
- Left = 553
+ Left = 607
Top = 84
Properties.AssignedValues.MinValue = True
Style.IsFontAssigned = True
- ExplicitLeft = 553
+ ExplicitLeft = 607
ExplicitTop = 84
end
inherited ImporteRE: TcxDBCurrencyEdit
- Left = 624
+ Left = 678
Top = 84
Style.IsFontAssigned = True
- ExplicitLeft = 624
+ ExplicitLeft = 678
ExplicitTop = 84
ExplicitWidth = 56
Width = 56
@@ -386,14 +443,14 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Width = 147
end
inherited ePorte: TcxDBCurrencyEdit
- Top = 158
+ Top = 185
DataBinding.DataSource = dsDataTable
Properties.OnValidate = frViewTotales1ePortePropertiesValidate
Style.IsFontAssigned = True
OnEditing = frViewTotales1ePorteEditing
- ExplicitTop = 158
- ExplicitWidth = 147
- Width = 147
+ ExplicitTop = 185
+ ExplicitWidth = 327
+ Width = 327
end
inherited eIVA: TcxDBLookupComboBox
Top = 57
@@ -404,10 +461,10 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Width = 134
end
inherited bTiposIVA: TButton
- Left = 293
+ Left = 347
Top = 57
OnClick = frViewTotales1bTiposIVAClick
- ExplicitLeft = 293
+ ExplicitLeft = 347
ExplicitTop = 57
end
inherited cbRecargoEquivalencia: TcxDBCheckBox
@@ -416,24 +473,19 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitWidth = 314
Width = 314
end
+ inherited eDescripciondescuento: TcxDBTextEdit
+ Top = 158
+ Style.IsFontAssigned = True
+ ExplicitTop = 158
+ ExplicitWidth = 327
+ Width = 327
+ end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup
inherited dxLayoutControl1Group2: TdxLayoutGroup
- inherited dxLayoutControl1Item8: TdxLayoutItem
- Visible = False
- end
inherited dxLayoutControl1Item10: TdxLayoutItem
Visible = False
end
- inherited dxLayoutControl1Group7: TdxLayoutGroup
- Visible = False
- inherited dxLayoutControl1Item4: TdxLayoutItem
- Visible = False
- end
- inherited dxLayoutControl1Item1: TdxLayoutItem
- Visible = False
- end
- end
inherited dxLayoutControl1Item9: TdxLayoutItem
Visible = False
end
diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas
index 9b5c9955..a716c272 100644
--- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas
+++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas
@@ -8,21 +8,21 @@ uses
JvAppRegistryStorage, JvComponent, JvFormPlacement, ImgList,
PngImageList, StdActns, ActnList, ComCtrls, TBX, TB2Item, TB2Dock,
TB2Toolbar, ExtCtrls, JvExControls, JvNavigationPane,
- uViewFacturaCliente, uCustomView, uViewBase, uViewTotales,
+ uViewFacturaCliente, uCustomView, uViewBase, uViewTotalesFacturaCliente,
StdCtrls, pngimage, AppEvnts, JvComponentBase,
uBizFacturasCliente,
uIEditorFacturaCliente, uFacturasClienteController, uViewDetallesBase,
uViewDetallesFacturaCliente, dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar,
- uViewDetallesDTO, uViewDetallesArticulos, uTiposIVAController;
+ uViewDetallesDTO, uViewDetallesArticulos, uTiposIVAController, uViewTotales;
type
TfEditorFacturaCliente = class(TfEditorDBItem, IEditorFacturaCliente)
frViewDetallesFacturaCliente1: TfrViewDetallesFacturaCliente;
frViewFacturaCliente1: TfrViewFacturaCliente;
- frViewTotales1: TfrViewTotales;
+ frViewTotales1: TfrViewTotalesFacturaCliente;
actEnviarEMail: TAction;
TBXSubmenuItem2: TTBXSubmenuItem;
TBXItem7: TTBXItem;
diff --git a/Source/Modulos/Facturas de cliente/Views/uViewTotalesFacturaCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uViewTotalesFacturaCliente.dfm
new file mode 100644
index 00000000..1e83699e
--- /dev/null
+++ b/Source/Modulos/Facturas de cliente/Views/uViewTotalesFacturaCliente.dfm
@@ -0,0 +1,139 @@
+inherited frViewTotalesFacturaCliente: TfrViewTotalesFacturaCliente
+ Width = 853
+ Height = 231
+ ExplicitHeight = 231
+ inherited dxLayoutControl1: TdxLayoutControl
+ Width = 853
+ inherited Bevel1: TBevel
+ Width = 73
+ ExplicitWidth = 73
+ end
+ inherited Bevel3: TBevel
+ Left = 413
+ Height = 122
+ ExplicitLeft = 413
+ ExplicitHeight = 122
+ end
+ inherited Bevel4: TBevel
+ Left = 525
+ Width = 192
+ ExplicitLeft = 525
+ ExplicitWidth = 192
+ end
+ inherited ImporteDto: TcxDBCurrencyEdit
+ Style.IsFontAssigned = True
+ ExplicitWidth = 93
+ Width = 93
+ end
+ inherited ImporteIVA: TcxDBCurrencyEdit
+ Left = 596
+ Style.IsFontAssigned = True
+ TabOrder = 10
+ ExplicitLeft = 596
+ ExplicitWidth = 137
+ Width = 137
+ end
+ inherited ImporteTotal: TcxDBCurrencyEdit
+ Left = 526
+ Style.IsFontAssigned = True
+ TabOrder = 13
+ ExplicitLeft = 526
+ ExplicitWidth = 137
+ Width = 137
+ end
+ inherited edtDescuento: TcxDBSpinEdit
+ Style.IsFontAssigned = True
+ end
+ inherited edtIVA: TcxDBSpinEdit
+ Left = 525
+ Style.IsFontAssigned = True
+ TabOrder = 9
+ ExplicitLeft = 525
+ end
+ inherited ImporteBase: TcxDBCurrencyEdit
+ Left = 525
+ Style.IsFontAssigned = True
+ TabOrder = 8
+ ExplicitLeft = 525
+ ExplicitWidth = 92
+ Width = 92
+ end
+ inherited edtRE: TcxDBSpinEdit
+ Left = 525
+ Style.IsFontAssigned = True
+ TabOrder = 11
+ ExplicitLeft = 525
+ end
+ inherited ImporteRE: TcxDBCurrencyEdit
+ Left = 596
+ Style.IsFontAssigned = True
+ TabOrder = 12
+ ExplicitLeft = 596
+ ExplicitWidth = 56
+ Width = 56
+ end
+ inherited eImporteNeto: TcxDBCurrencyEdit
+ Style.IsFontAssigned = True
+ ExplicitWidth = 147
+ Width = 147
+ end
+ inherited ePorte: TcxDBCurrencyEdit
+ Top = 183
+ Style.IsFontAssigned = True
+ TabOrder = 7
+ ExplicitTop = 183
+ end
+ inherited eIVA: TcxDBLookupComboBox
+ ExplicitWidth = 81
+ Width = 81
+ end
+ inherited bTiposIVA: TButton
+ Left = 265
+ ExplicitLeft = 265
+ end
+ inherited cbRecargoEquivalencia: TcxDBCheckBox
+ ExplicitWidth = 219
+ Width = 219
+ end
+ object eDescripciondescuento: TcxDBTextEdit [16]
+ Left = 104
+ Top = 156
+ AutoSize = False
+ DataBinding.DataField = 'DESCRIPCION_DESCUENTO'
+ DataBinding.DataSource = DADataSource
+ ParentFont = False
+ Properties.Alignment.Horz = taRightJustify
+ Properties.ReadOnly = False
+ Properties.UseLeftAlignmentOnEditing = False
+ Style.BorderColor = clWindowFrame
+ Style.BorderStyle = ebs3D
+ Style.Font.Charset = DEFAULT_CHARSET
+ Style.Font.Color = clWindowText
+ Style.Font.Height = -11
+ Style.Font.Name = 'Tahoma'
+ Style.Font.Style = []
+ Style.HotTrack = False
+ Style.LookAndFeel.NativeStyle = True
+ Style.TextColor = clWindowText
+ Style.IsFontAssigned = True
+ StyleDisabled.LookAndFeel.NativeStyle = True
+ StyleDisabled.TextColor = clWindowText
+ StyleFocused.LookAndFeel.NativeStyle = True
+ StyleHot.LookAndFeel.NativeStyle = True
+ TabOrder = 6
+ Height = 21
+ Width = 158
+ end
+ inherited dxLayoutControl1Group_Root: TdxLayoutGroup
+ inherited dxLayoutControl1Group1: TdxLayoutGroup
+ inherited dxLayoutControl1Group2: TdxLayoutGroup
+ object dxLayoutControl1Item17: TdxLayoutItem [5]
+ Caption = 'Descripci'#243'n:'
+ Control = eDescripciondescuento
+ ControlOptions.ShowBorder = False
+ end
+ end
+ end
+ end
+ end
+end
diff --git a/Source/Modulos/Facturas de cliente/Views/uViewTotalesFacturaCliente.pas b/Source/Modulos/Facturas de cliente/Views/uViewTotalesFacturaCliente.pas
new file mode 100644
index 00000000..37c0e5c1
--- /dev/null
+++ b/Source/Modulos/Facturas de cliente/Views/uViewTotalesFacturaCliente.pas
@@ -0,0 +1,29 @@
+unit uViewTotalesFacturaCliente;
+
+interface
+
+uses
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+ Dialogs, uViewTotales, cxGraphics, dxLayoutLookAndFeels, DB, uDADataTable,
+ dxLayoutControl, cxCheckBox, cxDBEdit, StdCtrls, cxDropDownEdit, cxLookupEdit,
+ cxDBLookupEdit, cxDBLookupComboBox, cxMaskEdit, cxSpinEdit, cxContainer,
+ cxEdit, cxTextEdit, cxCurrencyEdit, ExtCtrls, cxControls;
+
+type
+ TfrViewTotalesFacturaCliente = class(TfrViewTotales)
+ dxLayoutControl1Item17: TdxLayoutItem;
+ eDescripciondescuento: TcxDBTextEdit;
+ private
+ { Private declarations }
+ public
+ { Public declarations }
+ end;
+
+var
+ frViewTotalesFacturaCliente: TfrViewTotalesFacturaCliente;
+
+implementation
+
+{$R *.dfm}
+
+end.
diff --git a/Source/Servidor/FactuGES_Server.bdsproj b/Source/Servidor/FactuGES_Server.bdsproj
index e69ce483..a4ecbefa 100644
--- a/Source/Servidor/FactuGES_Server.bdsproj
+++ b/Source/Servidor/FactuGES_Server.bdsproj
@@ -1,4 +1,4 @@
-
+