diff --git a/Build/Build.fbpInf b/Build/Build.fbpInf
index dc27a154..2674cc09 100644
--- a/Build/Build.fbpInf
+++ b/Build/Build.fbpInf
@@ -6,7 +6,7 @@
-
+
diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql
index 2c06bcbd..c25c43be 100644
--- a/Database/scripts/factuges.sql
+++ b/Database/scripts/factuges.sql
@@ -690,7 +690,8 @@ CREATE TABLE FACTURAS_CLIENTE (
DATOS_BANCARIOS VARCHAR(255),
CLIENTE_FINAL VARCHAR(255),
RETENCION TIPO_PORCENTAJE,
- IMPORTE_RETENCION TIPO_IMPORTE
+ IMPORTE_RETENCION TIPO_IMPORTE,
+ CERTIFICADO_ISO TIPO_BOOLEANO
);
CREATE TABLE FACTURAS_CLIENTE_DETALLES (
@@ -1046,7 +1047,8 @@ CREATE TABLE PRESUPUESTOS_CLIENTE (
PERSONA_CONTACTO VARCHAR(255),
ID_DIRECCION TIPO_ID,
DESCRIPCION_BONIFICACION VARCHAR(255) COLLATE ES_ES,
- IMPORTE_BONIFICACION TIPO_IMPORTE
+ IMPORTE_BONIFICACION TIPO_IMPORTE,
+ CERTIFICADO_ISO TIPO_BOOLEANO
);
CREATE TABLE PRESUPUESTOS_CLIENTE_DETALLES (
@@ -2053,47 +2055,48 @@ GROUP BY ID_FACTURA
/* View: V_FACTURAS_CLIENTE */
CREATE VIEW V_FACTURAS_CLIENTE(
- ID,
- ID_EMPRESA,
- REFERENCIA,
- TIPO,
- ID_COMISION_LIQUIDADA,
- FECHA_FACTURA,
- FECHA_VENCIMIENTO,
- FECHA_RETENCION,
- SITUACION,
- BASE_IMPONIBLE,
- DESCUENTO,
- IMPORTE_DESCUENTO,
- IVA,
- IMPORTE_IVA,
- RE,
- IMPORTE_RE,
- IMPORTE_TOTAL,
- OBSERVACIONES,
- ID_CLIENTE,
- NIF_CIF,
- NOMBRE,
- ID_DIRECCION,
- CALLE,
- POBLACION,
- PROVINCIA,
- CODIGO_POSTAL,
- DATOS_BANCARIOS,
- CLIENTE_FINAL,
- FECHA_ALTA,
- FECHA_MODIFICACION,
- USUARIO,
- ID_FORMA_PAGO,
- RECARGO_EQUIVALENCIA,
- ID_TIPO_IVA,
- IMPORTE_NETO,
- IMPORTE_PORTE,
- ID_AGENTE,
- REFERENCIA_COMISION,
- RETENCION,
- IMPORTE_RETENCION)
- AS
+ ID,
+ ID_EMPRESA,
+ REFERENCIA,
+ TIPO,
+ ID_COMISION_LIQUIDADA,
+ FECHA_FACTURA,
+ FECHA_VENCIMIENTO,
+ FECHA_RETENCION,
+ SITUACION,
+ BASE_IMPONIBLE,
+ DESCUENTO,
+ IMPORTE_DESCUENTO,
+ IVA,
+ IMPORTE_IVA,
+ RE,
+ IMPORTE_RE,
+ IMPORTE_TOTAL,
+ OBSERVACIONES,
+ ID_CLIENTE,
+ NIF_CIF,
+ NOMBRE,
+ ID_DIRECCION,
+ CALLE,
+ POBLACION,
+ PROVINCIA,
+ CODIGO_POSTAL,
+ DATOS_BANCARIOS,
+ CLIENTE_FINAL,
+ FECHA_ALTA,
+ FECHA_MODIFICACION,
+ USUARIO,
+ ID_FORMA_PAGO,
+ RECARGO_EQUIVALENCIA,
+ ID_TIPO_IVA,
+ IMPORTE_NETO,
+ IMPORTE_PORTE,
+ ID_AGENTE,
+ REFERENCIA_COMISION,
+ RETENCION,
+ IMPORTE_RETENCION,
+ CERTIFICADO_ISO)
+AS
SELECT FACTURAS_CLIENTE.ID,
FACTURAS_CLIENTE.ID_EMPRESA,
FACTURAS_CLIENTE.REFERENCIA,
@@ -2133,14 +2136,15 @@ SELECT FACTURAS_CLIENTE.ID,
CLIENTES_DATOS.ID_AGENTE,
COMISIONES_LIQUIDADAS.REFERENCIA,
FACTURAS_CLIENTE.RETENCION,
- FACTURAS_CLIENTE.IMPORTE_RETENCION
+ FACTURAS_CLIENTE.IMPORTE_RETENCION,
+ FACTURAS_CLIENTE.CERTIFICADO_ISO
FROM V_FAC_CLI_SITUACION
LEFT JOIN FACTURAS_CLIENTE
ON (FACTURAS_CLIENTE.ID = V_FAC_CLI_SITUACION.ID_FACTURA)
LEFT JOIN COMISIONES_LIQUIDADAS
ON (COMISIONES_LIQUIDADAS.ID = FACTURAS_CLIENTE.ID_COMISION_LIQUIDADA)
LEFT JOIN CLIENTES_DATOS
- ON (CLIENTES_DATOS.ID_CLIENTE = FACTURAS_CLIENTE.ID_CLIENTE);
+ ON (CLIENTES_DATOS.ID_CLIENTE = FACTURAS_CLIENTE.ID_CLIENTE)
;
@@ -3068,7 +3072,8 @@ CREATE VIEW V_PRESUPUESTOS_CLIENTE(
FACTURA,
PERSONA_CONTACTO,
DESCRIPCION_BONIFICACION,
- IMPORTE_BONIFICACION)
+ IMPORTE_BONIFICACION,
+ CERTIFICADO_ISO)
AS
SELECT
PRESUPUESTOS_CLIENTE.ID,
@@ -3105,7 +3110,8 @@ SELECT
FACTURAS_CLIENTE.REFERENCIA,
PRESUPUESTOS_CLIENTE.PERSONA_CONTACTO,
PRESUPUESTOS_CLIENTE.DESCRIPCION_BONIFICACION,
- PRESUPUESTOS_CLIENTE.IMPORTE_BONIFICACION
+ PRESUPUESTOS_CLIENTE.IMPORTE_BONIFICACION,
+ PRESUPUESTOS_CLIENTE.CERTIFICADO_ISO
FROM
PRESUPUESTOS_CLIENTE
INNER JOIN CONTACTOS ON (CONTACTOS.ID = PRESUPUESTOS_CLIENTE.ID_CLIENTE)
diff --git a/Resources/Iconos/Facturas de cliente/16x16/ISO16.png b/Resources/Iconos/Facturas de cliente/16x16/ISO16.png
new file mode 100644
index 00000000..bdf0f639
Binary files /dev/null and b/Resources/Iconos/Facturas de cliente/16x16/ISO16.png differ
diff --git a/Resources/Iconos/Facturas de cliente/24x24/ISO24.png b/Resources/Iconos/Facturas de cliente/24x24/ISO24.png
new file mode 100644
index 00000000..5a4833a7
Binary files /dev/null and b/Resources/Iconos/Facturas de cliente/24x24/ISO24.png differ
diff --git a/Resources/Iconos/Facturas de cliente/28x28/ISO28.png b/Resources/Iconos/Facturas de cliente/28x28/ISO28.png
new file mode 100644
index 00000000..690013de
Binary files /dev/null and b/Resources/Iconos/Facturas de cliente/28x28/ISO28.png differ
diff --git a/Resources/Iconos/Presupuestos/16x16/BudgetISO.png b/Resources/Iconos/Presupuestos/16x16/BudgetISO.png
new file mode 100644
index 00000000..d4427ddc
Binary files /dev/null and b/Resources/Iconos/Presupuestos/16x16/BudgetISO.png differ
diff --git a/Resources/Iconos/Presupuestos/24x24/BudgetISO.png b/Resources/Iconos/Presupuestos/24x24/BudgetISO.png
new file mode 100644
index 00000000..b22e444b
Binary files /dev/null and b/Resources/Iconos/Presupuestos/24x24/BudgetISO.png differ
diff --git a/Resources/Iconos/Presupuestos/28x28/BudgetISO.png b/Resources/Iconos/Presupuestos/28x28/BudgetISO.png
new file mode 100644
index 00000000..284bf765
Binary files /dev/null and b/Resources/Iconos/Presupuestos/28x28/BudgetISO.png differ
diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc
index 109b869f..a0d22c5b 100644
--- a/Source/Cliente/FactuGES.rc
+++ b/Source/Cliente/FactuGES.rc
@@ -1,4 +1,4 @@
-MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Factuges.ico"
+MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Factuges.ico"
1 VERSIONINFO
FILEVERSION 2,0,5,0
PRODUCTVERSION 2,0,5,0
diff --git a/Source/GUIBase/uViewFiltroBase.dfm b/Source/GUIBase/uViewFiltroBase.dfm
index afdf9307..d35130c8 100644
--- a/Source/GUIBase/uViewFiltroBase.dfm
+++ b/Source/GUIBase/uViewFiltroBase.dfm
@@ -76,7 +76,7 @@ inherited frViewFiltroBase: TfrViewFiltroBase
Width = 100
end
object edtFechaFinFiltro: TcxDateEdit
- Left = 198
+ Left = 143
Top = 37
Properties.OnChange = OnCamposFiltroChange
Style.BorderColor = clWindowFrame
@@ -100,7 +100,7 @@ inherited frViewFiltroBase: TfrViewFiltroBase
Width = 100
end
object eLista: TcxComboBox
- Left = 331
+ Left = 242
Top = 37
Properties.DropDownListStyle = lsEditFixedList
Properties.OnChange = OnCamposFiltroChange
@@ -116,6 +116,23 @@ inherited frViewFiltroBase: TfrViewFiltroBase
TabOrder = 3
Width = 215
end
+ object eLista2: TcxComboBox
+ Left = 416
+ Top = 37
+ Properties.DropDownListStyle = lsEditFixedList
+ Properties.OnChange = OnCamposFiltroChange
+ Style.BorderColor = clWindowFrame
+ Style.BorderStyle = ebs3D
+ Style.HotTrack = False
+ Style.LookAndFeel.SkinName = ''
+ Style.ButtonStyle = bts3D
+ Style.PopupBorderStyle = epbsFrame3D
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ TabOrder = 4
+ Width = 207
+ end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
Hidden = True
@@ -152,6 +169,14 @@ inherited frViewFiltroBase: TfrViewFiltroBase
Control = eLista
ControlOptions.ShowBorder = False
end
+ object dxLayoutControl1Item5: TdxLayoutItem
+ AutoAligns = [aaVertical]
+ AlignHorz = ahClient
+ Caption = 'Lista2:'
+ Visible = False
+ Control = eLista2
+ ControlOptions.ShowBorder = False
+ end
end
end
end
diff --git a/Source/GUIBase/uViewFiltroBase.pas b/Source/GUIBase/uViewFiltroBase.pas
index 3c3902ce..71fa8c5b 100644
--- a/Source/GUIBase/uViewFiltroBase.pas
+++ b/Source/GUIBase/uViewFiltroBase.pas
@@ -45,6 +45,8 @@ type
TBXAlignmentPanel1: TTBXAlignmentPanel;
dxLayoutControl1Item4: TdxLayoutItem;
eLista: TcxComboBox;
+ dxLayoutControl1Item5: TdxLayoutItem;
+ eLista2: TcxComboBox;
procedure OnCamposFiltroChange(Sender: TObject);
procedure actQuitarFiltroExecute(Sender: TObject);
diff --git a/Source/Informes/1/AlbaranCliente.rdx b/Source/Informes/1/AlbaranCliente.rdx
index af8deeb7..08f30ebe 100644
Binary files a/Source/Informes/1/AlbaranCliente.rdx and b/Source/Informes/1/AlbaranCliente.rdx differ
diff --git a/Source/Informes/1/AlbaranProveedor.rdx b/Source/Informes/1/AlbaranProveedor.rdx
index 191d2a53..b2f6d954 100644
Binary files a/Source/Informes/1/AlbaranProveedor.rdx and b/Source/Informes/1/AlbaranProveedor.rdx differ
diff --git a/Source/Informes/1/FacturaCliente.rdx b/Source/Informes/1/FacturaCliente.rdx
index 38cfc905..0b478cdd 100644
Binary files a/Source/Informes/1/FacturaCliente.rdx and b/Source/Informes/1/FacturaCliente.rdx differ
diff --git a/Source/Informes/1/InfAlbaranCliente.fr3 b/Source/Informes/1/InfAlbaranCliente.fr3
index fd65952f..045a5d90 100644
--- a/Source/Informes/1/InfAlbaranCliente.fr3
+++ b/Source/Informes/1/InfAlbaranCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -16,7 +16,7 @@
-
+
diff --git a/Source/Informes/1/InfAlbaranProveedor.fr3 b/Source/Informes/1/InfAlbaranProveedor.fr3
index a129eddc..e1d64d40 100644
--- a/Source/Informes/1/InfAlbaranProveedor.fr3
+++ b/Source/Informes/1/InfAlbaranProveedor.fr3
@@ -1,9 +1,9 @@
-
+
-
+
diff --git a/Source/Informes/1/InfFacturaCliente.fr3 b/Source/Informes/1/InfFacturaCliente.fr3
index 5a2cfc1c..c1171896 100644
--- a/Source/Informes/1/InfFacturaCliente.fr3
+++ b/Source/Informes/1/InfFacturaCliente.fr3
@@ -1,9 +1,9 @@
-
+
-
+
diff --git a/Source/Informes/1/InfPedidoProveedor.fr3 b/Source/Informes/1/InfPedidoProveedor.fr3
index 4b4f5a47..3f4ccb2c 100644
--- a/Source/Informes/1/InfPedidoProveedor.fr3
+++ b/Source/Informes/1/InfPedidoProveedor.fr3
@@ -1,9 +1,9 @@
-
+
-
+
diff --git a/Source/Informes/1/InfPresupuestoCliente.fr3 b/Source/Informes/1/InfPresupuestoCliente.fr3
index e7ac4699..e2124ff0 100644
--- a/Source/Informes/1/InfPresupuestoCliente.fr3
+++ b/Source/Informes/1/InfPresupuestoCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -42,7 +42,7 @@
-
+
diff --git a/Source/Informes/1/PedidoProveedor.rdx b/Source/Informes/1/PedidoProveedor.rdx
index 8cbe405e..459cce5a 100644
Binary files a/Source/Informes/1/PedidoProveedor.rdx and b/Source/Informes/1/PedidoProveedor.rdx differ
diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm
index ead79606..b8d6e984 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm
+++ b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm
@@ -236,8 +236,6 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 638
- ExplicitWidth = 215
- Width = 215
end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas
index fb0e00ac..282aa491 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas
+++ b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas
@@ -229,7 +229,8 @@ begin
if (ARecord.Values[Sender.Index] = '1') then
begin
AIsHintMultiLine := True;
- AHintText := ARecord.Values[cxGridViewINCIDENCIAS.Index]
+ if not VarIsNull(ARecord.Values[cxGridViewINCIDENCIAS.Index]) then
+ AHintText := ARecord.Values[cxGridViewINCIDENCIAS.Index];
end;
end;
diff --git a/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.dfm b/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.dfm
index 81f5c656..98fa1e86 100644
--- a/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.dfm
+++ b/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.dfm
@@ -171,24 +171,22 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
Width = 188
end
inherited edtFechaFinFiltro: TcxDateEdit
- Left = 292
+ Left = 210
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 292
+ ExplicitLeft = 210
ExplicitWidth = 294
Width = 294
end
inherited eLista: TcxComboBox
- Left = 623
+ Left = 447
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 623
- ExplicitWidth = 215
- Width = 215
+ ExplicitLeft = 447
end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
diff --git a/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.pas b/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.pas
index 97b2d5ac..7f0adba7 100644
--- a/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.pas
+++ b/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.pas
@@ -12,7 +12,7 @@ uses
uDADataTable, cxGridLevel, cxClasses, cxControls, cxGridCustomView, Classes,
cxGrid, uBizAlbaranesProveedor, cxCurrencyEdit, Forms, uViewFiltroBase,
ActnList, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, cxTextEdit,
- uDAInterfaces;
+ uDAInterfaces, uCustomView, uViewBase;
type
IViewAlbaranesProveedor = interface(IViewGrid)
@@ -192,7 +192,8 @@ begin
if (ARecord.Values[Sender.Index] = '1') then
begin
AIsHintMultiLine := True;
- AHintText := ARecord.Values[cxGridViewINCIDENCIAS.Index]
+ if not VarIsNull(ARecord.Values[cxGridViewINCIDENCIAS.Index]) then
+ AHintText := ARecord.Values[cxGridViewINCIDENCIAS.Index];
end;
end;
diff --git a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm
index 8d81c393..02b1e0e7 100644
--- a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm
+++ b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm
@@ -265,11 +265,15 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
end
item
Name = 'RETENCION'
- DataType = datFloat
+ DataType = datCurrency
end
item
Name = 'IMPORTE_RETENCION'
DataType = datCurrency
+ end
+ item
+ Name = 'CERTIFICADO_ISO'
+ DataType = datSmallInt
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
diff --git a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
index 1991ae5c..c8b1759f 100644
--- a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
+++ b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
@@ -3,15 +3,15 @@ unit schFacturasClienteClient_Intf;
interface
uses
- Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
+ Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
- RID_ListaAnosFacturas = '{FD7D4D74-BB5E-4F18-9F1A-AAF12EB25DC9}';
- RID_FacturasCliente = '{C2CB3D1C-C182-4CE2-AA95-14AE2D5FFC12}';
- RID_FacturasCliente_Detalles = '{CAE1BB94-5B84-483D-8C3A-1300951E64F2}';
+ RID_ListaAnosFacturas = '{2BE0816C-FC37-48FE-821C-2E95BF7FE692}';
+ RID_FacturasCliente = '{D5524FA0-4AEE-4B36-A0C4-C5FC20DA3080}';
+ RID_FacturasCliente_Detalles = '{E3866D80-EDE0-4C5D-82A8-50B6970312D3}';
{ Data table names }
nme_ListaAnosFacturas = 'ListaAnosFacturas';
@@ -65,6 +65,7 @@ const
fld_FacturasClienteREFERENCIA_COMISION = 'REFERENCIA_COMISION';
fld_FacturasClienteRETENCION = 'RETENCION';
fld_FacturasClienteIMPORTE_RETENCION = 'IMPORTE_RETENCION';
+ fld_FacturasClienteCERTIFICADO_ISO = 'CERTIFICADO_ISO';
{ FacturasCliente field indexes }
idx_FacturasClienteID = 0;
@@ -107,6 +108,7 @@ const
idx_FacturasClienteREFERENCIA_COMISION = 37;
idx_FacturasClienteRETENCION = 38;
idx_FacturasClienteIMPORTE_RETENCION = 39;
+ idx_FacturasClienteCERTIFICADO_ISO = 40;
{ FacturasCliente_Detalles fields }
fld_FacturasCliente_DetallesID = 'ID';
@@ -145,7 +147,7 @@ const
type
{ IListaAnosFacturas }
IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
- ['{CD6D3B14-759E-4A7A-A148-CB8DDBFA0D92}']
+ ['{36AA5910-CD3F-4B7B-8E88-3FCD9B019983}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@@ -159,7 +161,7 @@ type
end;
{ TListaAnosFacturasDataTableRules }
- TListaAnosFacturasDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosFacturas)
+ TListaAnosFacturasDataTableRules = class(TDADataTableRules, IListaAnosFacturas)
private
protected
{ Property getters and setters }
@@ -180,7 +182,7 @@ type
{ IFacturasCliente }
IFacturasCliente = interface(IDAStronglyTypedDataTable)
- ['{6E9731DA-0B33-43DF-9128-37F89A8D1645}']
+ ['{3CA669F5-C2C0-425D-A432-7CA926F1EF4D}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -333,14 +335,18 @@ type
procedure SetREFERENCIA_COMISIONValue(const aValue: String);
function GetREFERENCIA_COMISIONIsNull: Boolean;
procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean);
- function GetRETENCIONValue: Float;
- procedure SetRETENCIONValue(const aValue: Float);
+ function GetRETENCIONValue: Currency;
+ procedure SetRETENCIONValue(const aValue: Currency);
function GetRETENCIONIsNull: Boolean;
procedure SetRETENCIONIsNull(const aValue: Boolean);
function GetIMPORTE_RETENCIONValue: Currency;
procedure SetIMPORTE_RETENCIONValue(const aValue: Currency);
function GetIMPORTE_RETENCIONIsNull: Boolean;
procedure SetIMPORTE_RETENCIONIsNull(const aValue: Boolean);
+ function GetCERTIFICADO_ISOValue: SmallInt;
+ procedure SetCERTIFICADO_ISOValue(const aValue: SmallInt);
+ function GetCERTIFICADO_ISOIsNull: Boolean;
+ procedure SetCERTIFICADO_ISOIsNull(const aValue: Boolean);
{ Properties }
@@ -420,14 +426,16 @@ type
property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
property REFERENCIA_COMISION: String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue;
property REFERENCIA_COMISIONIsNull: Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull;
- property RETENCION: Float read GetRETENCIONValue write SetRETENCIONValue;
+ property RETENCION: Currency read GetRETENCIONValue write SetRETENCIONValue;
property RETENCIONIsNull: Boolean read GetRETENCIONIsNull write SetRETENCIONIsNull;
property IMPORTE_RETENCION: Currency read GetIMPORTE_RETENCIONValue write SetIMPORTE_RETENCIONValue;
property IMPORTE_RETENCIONIsNull: Boolean read GetIMPORTE_RETENCIONIsNull write SetIMPORTE_RETENCIONIsNull;
+ property CERTIFICADO_ISO: SmallInt read GetCERTIFICADO_ISOValue write SetCERTIFICADO_ISOValue;
+ property CERTIFICADO_ISOIsNull: Boolean read GetCERTIFICADO_ISOIsNull write SetCERTIFICADO_ISOIsNull;
end;
{ TFacturasClienteDataTableRules }
- TFacturasClienteDataTableRules = class(TIntfObjectDADataTableRules, IFacturasCliente)
+ TFacturasClienteDataTableRules = class(TDADataTableRules, IFacturasCliente)
private
f_OBSERVACIONES: IROStrings;
procedure OBSERVACIONES_OnChange(Sender: TObject);
@@ -584,14 +592,18 @@ type
procedure SetREFERENCIA_COMISIONValue(const aValue: String); virtual;
function GetREFERENCIA_COMISIONIsNull: Boolean; virtual;
procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean); virtual;
- function GetRETENCIONValue: Float; virtual;
- procedure SetRETENCIONValue(const aValue: Float); virtual;
+ function GetRETENCIONValue: Currency; virtual;
+ procedure SetRETENCIONValue(const aValue: Currency); virtual;
function GetRETENCIONIsNull: Boolean; virtual;
procedure SetRETENCIONIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_RETENCIONValue: Currency; virtual;
procedure SetIMPORTE_RETENCIONValue(const aValue: Currency); virtual;
function GetIMPORTE_RETENCIONIsNull: Boolean; virtual;
procedure SetIMPORTE_RETENCIONIsNull(const aValue: Boolean); virtual;
+ function GetCERTIFICADO_ISOValue: SmallInt; virtual;
+ procedure SetCERTIFICADO_ISOValue(const aValue: SmallInt); virtual;
+ function GetCERTIFICADO_ISOIsNull: Boolean; virtual;
+ procedure SetCERTIFICADO_ISOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@@ -670,10 +682,12 @@ type
property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
property REFERENCIA_COMISION: String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue;
property REFERENCIA_COMISIONIsNull: Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull;
- property RETENCION: Float read GetRETENCIONValue write SetRETENCIONValue;
+ property RETENCION: Currency read GetRETENCIONValue write SetRETENCIONValue;
property RETENCIONIsNull: Boolean read GetRETENCIONIsNull write SetRETENCIONIsNull;
property IMPORTE_RETENCION: Currency read GetIMPORTE_RETENCIONValue write SetIMPORTE_RETENCIONValue;
property IMPORTE_RETENCIONIsNull: Boolean read GetIMPORTE_RETENCIONIsNull write SetIMPORTE_RETENCIONIsNull;
+ property CERTIFICADO_ISO: SmallInt read GetCERTIFICADO_ISOValue write SetCERTIFICADO_ISOValue;
+ property CERTIFICADO_ISOIsNull: Boolean read GetCERTIFICADO_ISOIsNull write SetCERTIFICADO_ISOIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@@ -683,7 +697,7 @@ type
{ IFacturasCliente_Detalles }
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
- ['{7562C65C-C3D3-4104-BAAE-5F11D0C87BF4}']
+ ['{1B150346-57B9-49D8-8074-3E0886CCB78B}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -781,7 +795,7 @@ type
end;
{ TFacturasCliente_DetallesDataTableRules }
- TFacturasCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IFacturasCliente_Detalles)
+ TFacturasCliente_DetallesDataTableRules = class(TDADataTableRules, IFacturasCliente_Detalles)
private
protected
{ Property getters and setters }
@@ -1737,14 +1751,14 @@ begin
DataTable.Fields[idx_FacturasClienteREFERENCIA_COMISION].AsVariant := Null;
end;
-function TFacturasClienteDataTableRules.GetRETENCIONValue: Float;
+function TFacturasClienteDataTableRules.GetRETENCIONValue: Currency;
begin
- result := DataTable.Fields[idx_FacturasClienteRETENCION].AsFloat;
+ result := DataTable.Fields[idx_FacturasClienteRETENCION].AsCurrency;
end;
-procedure TFacturasClienteDataTableRules.SetRETENCIONValue(const aValue: Float);
+procedure TFacturasClienteDataTableRules.SetRETENCIONValue(const aValue: Currency);
begin
- DataTable.Fields[idx_FacturasClienteRETENCION].AsFloat := aValue;
+ DataTable.Fields[idx_FacturasClienteRETENCION].AsCurrency := aValue;
end;
function TFacturasClienteDataTableRules.GetRETENCIONIsNull: boolean;
@@ -1779,6 +1793,27 @@ begin
DataTable.Fields[idx_FacturasClienteIMPORTE_RETENCION].AsVariant := Null;
end;
+function TFacturasClienteDataTableRules.GetCERTIFICADO_ISOValue: SmallInt;
+begin
+ result := DataTable.Fields[idx_FacturasClienteCERTIFICADO_ISO].AsSmallInt;
+end;
+
+procedure TFacturasClienteDataTableRules.SetCERTIFICADO_ISOValue(const aValue: SmallInt);
+begin
+ DataTable.Fields[idx_FacturasClienteCERTIFICADO_ISO].AsSmallInt := aValue;
+end;
+
+function TFacturasClienteDataTableRules.GetCERTIFICADO_ISOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasClienteCERTIFICADO_ISO].IsNull;
+end;
+
+procedure TFacturasClienteDataTableRules.SetCERTIFICADO_ISOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasClienteCERTIFICADO_ISO].AsVariant := Null;
+end;
+
{ TFacturasCliente_DetallesDataTableRules }
constructor TFacturasCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);
diff --git a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas
index f6dfc500..097d38c1 100644
--- a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas
+++ b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas
@@ -9,14 +9,14 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
- RID_ListaAnosFacturasDelta = '{918AF647-D101-44B9-AC18-3D64BE3A714A}';
- RID_FacturasClienteDelta = '{566BE766-12BF-4272-8214-8550BD00F7E3}';
- RID_FacturasCliente_DetallesDelta = '{B1AB58CB-D6F2-4108-AB5F-B352E9C27B9F}';
+ RID_ListaAnosFacturasDelta = '{5F59F46F-6D99-47EF-97B7-62E578F5EC77}';
+ RID_FacturasClienteDelta = '{210A006E-9750-4D37-9655-232A93590F32}';
+ RID_FacturasCliente_DetallesDelta = '{DBBBA305-DC20-44F9-BD34-E330F919C098}';
type
{ IListaAnosFacturasDelta }
IListaAnosFacturasDelta = interface(IListaAnosFacturas)
- ['{918AF647-D101-44B9-AC18-3D64BE3A714A}']
+ ['{5F59F46F-6D99-47EF-97B7-62E578F5EC77}']
{ Property getters and setters }
function GetOldANOValue : String;
@@ -50,7 +50,7 @@ type
{ IFacturasClienteDelta }
IFacturasClienteDelta = interface(IFacturasCliente)
- ['{566BE766-12BF-4272-8214-8550BD00F7E3}']
+ ['{210A006E-9750-4D37-9655-232A93590F32}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -90,8 +90,9 @@ type
function GetOldIMPORTE_PORTEValue : Currency;
function GetOldID_AGENTEValue : Integer;
function GetOldREFERENCIA_COMISIONValue : String;
- function GetOldRETENCIONValue : Float;
+ function GetOldRETENCIONValue : Currency;
function GetOldIMPORTE_RETENCIONValue : Currency;
+ function GetOldCERTIFICADO_ISOValue : SmallInt;
{ Properties }
property OldID : Integer read GetOldIDValue;
@@ -132,8 +133,9 @@ type
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
property OldREFERENCIA_COMISION : String read GetOldREFERENCIA_COMISIONValue;
- property OldRETENCION : Float read GetOldRETENCIONValue;
+ property OldRETENCION : Currency read GetOldRETENCIONValue;
property OldIMPORTE_RETENCION : Currency read GetOldIMPORTE_RETENCIONValue;
+ property OldCERTIFICADO_ISO : SmallInt read GetOldCERTIFICADO_ISOValue;
end;
{ TFacturasClienteBusinessProcessorRules }
@@ -370,11 +372,11 @@ type
function GetOldREFERENCIA_COMISIONIsNull: Boolean; virtual;
procedure SetREFERENCIA_COMISIONValue(const aValue: String); virtual;
procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean); virtual;
- function GetRETENCIONValue: Float; virtual;
+ function GetRETENCIONValue: Currency; virtual;
function GetRETENCIONIsNull: Boolean; virtual;
- function GetOldRETENCIONValue: Float; virtual;
+ function GetOldRETENCIONValue: Currency; virtual;
function GetOldRETENCIONIsNull: Boolean; virtual;
- procedure SetRETENCIONValue(const aValue: Float); virtual;
+ procedure SetRETENCIONValue(const aValue: Currency); virtual;
procedure SetRETENCIONIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_RETENCIONValue: Currency; virtual;
function GetIMPORTE_RETENCIONIsNull: Boolean; virtual;
@@ -382,6 +384,12 @@ type
function GetOldIMPORTE_RETENCIONIsNull: Boolean; virtual;
procedure SetIMPORTE_RETENCIONValue(const aValue: Currency); virtual;
procedure SetIMPORTE_RETENCIONIsNull(const aValue: Boolean); virtual;
+ function GetCERTIFICADO_ISOValue: SmallInt; virtual;
+ function GetCERTIFICADO_ISOIsNull: Boolean; virtual;
+ function GetOldCERTIFICADO_ISOValue: SmallInt; virtual;
+ function GetOldCERTIFICADO_ISOIsNull: Boolean; virtual;
+ procedure SetCERTIFICADO_ISOValue(const aValue: SmallInt); virtual;
+ procedure SetCERTIFICADO_ISOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@@ -536,14 +544,18 @@ type
property REFERENCIA_COMISIONIsNull : Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull;
property OldREFERENCIA_COMISION : String read GetOldREFERENCIA_COMISIONValue;
property OldREFERENCIA_COMISIONIsNull : Boolean read GetOldREFERENCIA_COMISIONIsNull;
- property RETENCION : Float read GetRETENCIONValue write SetRETENCIONValue;
+ property RETENCION : Currency read GetRETENCIONValue write SetRETENCIONValue;
property RETENCIONIsNull : Boolean read GetRETENCIONIsNull write SetRETENCIONIsNull;
- property OldRETENCION : Float read GetOldRETENCIONValue;
+ property OldRETENCION : Currency read GetOldRETENCIONValue;
property OldRETENCIONIsNull : Boolean read GetOldRETENCIONIsNull;
property IMPORTE_RETENCION : Currency read GetIMPORTE_RETENCIONValue write SetIMPORTE_RETENCIONValue;
property IMPORTE_RETENCIONIsNull : Boolean read GetIMPORTE_RETENCIONIsNull write SetIMPORTE_RETENCIONIsNull;
property OldIMPORTE_RETENCION : Currency read GetOldIMPORTE_RETENCIONValue;
property OldIMPORTE_RETENCIONIsNull : Boolean read GetOldIMPORTE_RETENCIONIsNull;
+ property CERTIFICADO_ISO : SmallInt read GetCERTIFICADO_ISOValue write SetCERTIFICADO_ISOValue;
+ property CERTIFICADO_ISOIsNull : Boolean read GetCERTIFICADO_ISOIsNull write SetCERTIFICADO_ISOIsNull;
+ property OldCERTIFICADO_ISO : SmallInt read GetOldCERTIFICADO_ISOValue;
+ property OldCERTIFICADO_ISOIsNull : Boolean read GetOldCERTIFICADO_ISOIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -553,7 +565,7 @@ type
{ IFacturasCliente_DetallesDelta }
IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
- ['{B1AB58CB-D6F2-4108-AB5F-B352E9C27B9F}']
+ ['{DBBBA305-DC20-44F9-BD34-E330F919C098}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer;
@@ -1998,7 +2010,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_COMISION] := Null;
end;
-function TFacturasClienteBusinessProcessorRules.GetRETENCIONValue: Float;
+function TFacturasClienteBusinessProcessorRules.GetRETENCIONValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteRETENCION];
end;
@@ -2008,7 +2020,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteRETENCION]);
end;
-function TFacturasClienteBusinessProcessorRules.GetOldRETENCIONValue: Float;
+function TFacturasClienteBusinessProcessorRules.GetOldRETENCIONValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteRETENCION];
end;
@@ -2018,7 +2030,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteRETENCION]);
end;
-procedure TFacturasClienteBusinessProcessorRules.SetRETENCIONValue(const aValue: Float);
+procedure TFacturasClienteBusinessProcessorRules.SetRETENCIONValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteRETENCION] := aValue;
end;
@@ -2060,6 +2072,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteIMPORTE_RETENCION] := Null;
end;
+function TFacturasClienteBusinessProcessorRules.GetCERTIFICADO_ISOValue: SmallInt;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteCERTIFICADO_ISO];
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetCERTIFICADO_ISOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteCERTIFICADO_ISO]);
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetOldCERTIFICADO_ISOValue: SmallInt;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteCERTIFICADO_ISO];
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetOldCERTIFICADO_ISOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteCERTIFICADO_ISO]);
+end;
+
+procedure TFacturasClienteBusinessProcessorRules.SetCERTIFICADO_ISOValue(const aValue: SmallInt);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteCERTIFICADO_ISO] := aValue;
+end;
+
+procedure TFacturasClienteBusinessProcessorRules.SetCERTIFICADO_ISOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteCERTIFICADO_ISO] := Null;
+end;
+
{ TFacturasCliente_DetallesBusinessProcessorRules }
constructor TFacturasCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm
index 690923db..50fbd9fd 100644
--- a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm
+++ b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm
@@ -240,9 +240,10 @@ object RptFacturasCliente: TRptFacturasCliente
'rgo_equivalencia, v_facturas_cliente.importe_neto,'#10' v_facturas' +
'_cliente.importe_porte, formas_pago.descripcion as FORMA_PAGO,'#10' ' +
' v_facturas_cliente.DATOS_BANCARIOS, v_facturas_cliente.RETENCI' +
- 'ON, v_facturas_cliente.IMPORTE_RETENCION'#10'from v_facturas_cliente' +
- #10' left outer join formas_pago on (formas_pago.id = v_facturas_' +
- 'cliente.id_forma_pago)'#10'WHERE V_FACTURAS_CLIENTE.ID = :ID'#10
+ 'ON, v_facturas_cliente.IMPORTE_RETENCION,'#10' v_facturas_cliente.' +
+ 'CERTIFICADO_ISO'#10'from v_facturas_cliente'#10' left outer join forma' +
+ 's_pago on (formas_pago.id = v_facturas_cliente.id_forma_pago)'#10'WH' +
+ 'ERE V_FACTURAS_CLIENTE.ID = :ID'#10
StatementType = stSQL
ColumnMappings = <
item
@@ -364,6 +365,10 @@ object RptFacturasCliente: TRptFacturasCliente
item
DatasetField = 'IMPORTE_RETENCION'
TableField = 'IMPORTE_RETENCION'
+ end
+ item
+ DatasetField = 'CERTIFICADO_ISO'
+ TableField = 'CERTIFICADO_ISO'
end>
end>
Name = 'InformeFacturasCliente'
@@ -411,7 +416,7 @@ object RptFacturasCliente: TRptFacturasCliente
end
item
Name = 'DESCUENTO'
- DataType = datFloat
+ DataType = datCurrency
DictionaryEntry = 'FacturasCliente_DESCUENTO'
end
item
@@ -421,7 +426,7 @@ object RptFacturasCliente: TRptFacturasCliente
end
item
Name = 'IVA'
- DataType = datFloat
+ DataType = datCurrency
DictionaryEntry = 'FacturasCliente_IVA'
end
item
@@ -431,7 +436,7 @@ object RptFacturasCliente: TRptFacturasCliente
end
item
Name = 'RE'
- DataType = datFloat
+ DataType = datCurrency
end
item
Name = 'IMPORTE_RE'
@@ -512,11 +517,15 @@ object RptFacturasCliente: TRptFacturasCliente
end
item
Name = 'RETENCION'
- DataType = datFloat
+ DataType = datCurrency
end
item
Name = 'IMPORTE_RETENCION'
DataType = datCurrency
+ end
+ item
+ Name = 'CERTIFICADO_ISO'
+ DataType = datSmallInt
end>
ReadOnly = True
end
@@ -2988,7 +2997,7 @@ object RptFacturasCliente: TRptFacturasCliente
end
item
Name = 'DESCUENTO'
- DataType = datFloat
+ DataType = datCurrency
DictionaryEntry = 'FacturasCliente_DESCUENTO'
end
item
@@ -2998,7 +3007,7 @@ object RptFacturasCliente: TRptFacturasCliente
end
item
Name = 'IVA'
- DataType = datFloat
+ DataType = datCurrency
DictionaryEntry = 'FacturasCliente_IVA'
end
item
@@ -3008,7 +3017,7 @@ object RptFacturasCliente: TRptFacturasCliente
end
item
Name = 'RE'
- DataType = datFloat
+ DataType = datCurrency
end
item
Name = 'IMPORTE_RE'
@@ -3089,11 +3098,15 @@ object RptFacturasCliente: TRptFacturasCliente
end
item
Name = 'RETENCION'
- DataType = datFloat
+ DataType = datCurrency
end
item
Name = 'IMPORTE_RETENCION'
DataType = datCurrency
+ end
+ item
+ Name = 'CERTIFICADO_ISO'
+ DataType = datSmallInt
end>
Params = <
item
diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.dfm b/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.dfm
index 1a6065c4..cd414ab9 100644
--- a/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.dfm
+++ b/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.dfm
@@ -33,9 +33,10 @@ object RptWordFacturaCliente: TRptWordFacturaCliente
'rte_neto,'#10' v_facturas_cliente.importe_porte, formas_pago.descr' +
'ipcion as FORMA_PAGO,'#10' v_facturas_cliente.datos_bancarios, v_f' +
'acturas_cliente.fecha_vencimiento,'#10' v_facturas_cliente.retenci' +
- 'on, v_facturas_cliente.importe_retencion'#10'from v_facturas_cliente' +
- #10' left outer join formas_pago on (formas_pago.id = v_facturas_' +
- 'cliente.id_forma_pago)'#10'WHERE V_FACTURAS_CLIENTE.ID = :ID'#10
+ 'on, v_facturas_cliente.importe_retencion,'#10' v_facturas_cliente.' +
+ 'certificado_iso'#10'from v_facturas_cliente'#10' left outer join forma' +
+ 's_pago on (formas_pago.id = v_facturas_cliente.id_forma_pago)'#10'WH' +
+ 'ERE V_FACTURAS_CLIENTE.ID = :ID'#10
StatementType = stSQL
ColumnMappings = <
item
@@ -157,6 +158,10 @@ object RptWordFacturaCliente: TRptWordFacturaCliente
item
DatasetField = 'IMPORTE_RETENCION'
TableField = 'IMPORTE_RETENCION'
+ end
+ item
+ DatasetField = 'CERTIFICADO_ISO'
+ TableField = 'CERTIFICADO_ISO'
end>
end>
Name = 'Informe_Cabecera'
@@ -196,7 +201,7 @@ object RptWordFacturaCliente: TRptWordFacturaCliente
end
item
Name = 'DESCUENTO'
- DataType = datFloat
+ DataType = datCurrency
end
item
Name = 'IMPORTE_DESCUENTO'
@@ -204,7 +209,7 @@ object RptWordFacturaCliente: TRptWordFacturaCliente
end
item
Name = 'IVA'
- DataType = datFloat
+ DataType = datCurrency
end
item
Name = 'IMPORTE_IVA'
@@ -212,7 +217,7 @@ object RptWordFacturaCliente: TRptWordFacturaCliente
end
item
Name = 'RE'
- DataType = datFloat
+ DataType = datCurrency
end
item
Name = 'IMPORTE_RE'
@@ -288,11 +293,15 @@ object RptWordFacturaCliente: TRptWordFacturaCliente
end
item
Name = 'RETENCION'
- DataType = datFloat
+ DataType = datCurrency
end
item
Name = 'IMPORTE_RETENCION'
DataType = datCurrency
+ end
+ item
+ Name = 'CERTIFICADO_ISO'
+ DataType = datSmallInt
end>
ReadOnly = True
end
@@ -535,7 +544,7 @@ object RptWordFacturaCliente: TRptWordFacturaCliente
end
item
Name = 'DESCUENTO'
- DataType = datFloat
+ DataType = datCurrency
end
item
Name = 'IMPORTE_DESCUENTO'
@@ -543,7 +552,7 @@ object RptWordFacturaCliente: TRptWordFacturaCliente
end
item
Name = 'IVA'
- DataType = datFloat
+ DataType = datCurrency
end
item
Name = 'IMPORTE_IVA'
@@ -551,7 +560,7 @@ object RptWordFacturaCliente: TRptWordFacturaCliente
end
item
Name = 'RE'
- DataType = datFloat
+ DataType = datCurrency
end
item
Name = 'IMPORTE_RE'
@@ -627,11 +636,15 @@ object RptWordFacturaCliente: TRptWordFacturaCliente
end
item
Name = 'RETENCION'
- DataType = datFloat
+ DataType = datCurrency
end
item
Name = 'IMPORTE_RETENCION'
DataType = datCurrency
+ end
+ item
+ Name = 'CERTIFICADO_ISO'
+ DataType = datSmallInt
end>
Params = <
item
diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.pas b/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.pas
index c5108761..3a90fc71 100644
--- a/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.pas
+++ b/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.pas
@@ -315,6 +315,11 @@ begin
if not FVerSello then
ReplaceBookmark('Sello', '');
+ if (tbl_Cabecera.FieldByName('CERTIFICADO_ISO').AsInteger <> 1) then
+ begin
+ ReplaceBookmark('ISO', '');
+ end;
+
Close;
end;
diff --git a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
index 15d98fad..887b27cd 100644
--- a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
+++ b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
@@ -207,6 +207,10 @@ object srvFacturasCliente: TsrvFacturasCliente
item
DatasetField = 'FECHA_RETENCION'
TableField = 'FECHA_RETENCION'
+ end
+ item
+ DatasetField = 'CERTIFICADO_ISO'
+ TableField = 'CERTIFICADO_ISO'
end>
end>
Name = 'FacturasCliente'
@@ -416,11 +420,15 @@ object srvFacturasCliente: TsrvFacturasCliente
end
item
Name = 'RETENCION'
- DataType = datFloat
+ DataType = datCurrency
end
item
Name = 'IMPORTE_RETENCION'
DataType = datCurrency
+ end
+ item
+ Name = 'CERTIFICADO_ISO'
+ DataType = datSmallInt
end>
end
item
@@ -806,138 +814,187 @@ object srvFacturasCliente: TsrvFacturasCliente
end
item
Name = 'ID_EMPRESA'
+ DataType = datInteger
Value = ''
end
item
Name = 'REFERENCIA'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'FECHA_FACTURA'
+ DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_VENCIMIENTO'
+ DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_RETENCION'
+ DataType = datDateTime
Value = ''
end
item
Name = 'BASE_IMPONIBLE'
+ DataType = datCurrency
Value = ''
end
item
Name = 'DESCUENTO'
+ DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_DESCUENTO'
+ DataType = datCurrency
Value = ''
end
item
Name = 'IVA'
+ DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_IVA'
+ DataType = datCurrency
Value = ''
end
item
Name = 'RE'
+ DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_RE'
+ DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_TOTAL'
+ DataType = datCurrency
Value = ''
end
item
Name = 'OBSERVACIONES'
+ DataType = datMemo
Value = ''
end
item
Name = 'ID_CLIENTE'
+ DataType = datInteger
Value = ''
end
item
Name = 'NIF_CIF'
+ DataType = datString
+ Size = 15
Value = ''
end
item
Name = 'NOMBRE'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'ID_DIRECCION'
+ DataType = datInteger
Value = ''
end
item
Name = 'CALLE'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'POBLACION'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'PROVINCIA'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'CODIGO_POSTAL'
+ DataType = datString
+ Size = 10
Value = ''
end
item
Name = 'FECHA_ALTA'
+ DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_MODIFICACION'
+ DataType = datDateTime
Value = ''
end
item
Name = 'USUARIO'
+ DataType = datString
+ Size = 30
Value = ''
end
item
Name = 'ID_FORMA_PAGO'
+ DataType = datInteger
Value = ''
end
item
Name = 'RECARGO_EQUIVALENCIA'
+ DataType = datSmallInt
Value = ''
end
item
Name = 'ID_TIPO_IVA'
+ DataType = datInteger
Value = ''
end
item
Name = 'IMPORTE_NETO'
+ DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_PORTE'
+ DataType = datCurrency
Value = ''
end
item
Name = 'DATOS_BANCARIOS'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'CLIENTE_FINAL'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'RETENCION'
+ DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_RETENCION'
+ DataType = datCurrency
+ Value = ''
+ end
+ item
+ Name = 'CERTIFICADO_ISO'
+ DataType = datSmallInt
Value = ''
end>
Statements = <
@@ -955,17 +1012,18 @@ object srvFacturasCliente: TsrvFacturasCliente
'CODIGO_POSTAL,'#10' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' USUAR' +
'IO,'#10' ID_FORMA_PAGO,'#10' RECARGO_EQUIVALENCIA,'#10' ID_TIPO_IVA' +
','#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10' DATOS_BANCARIOS,'#10' ' +
- 'CLIENTE_FINAL,'#10' RETENCION,'#10' IMPORTE_RETENCION)'#10' VALUES ('#10 +
- ' :ID,'#10' :ID_EMPRESA,'#10' :REFERENCIA,'#10' :FECHA_FACTURA,'#10' ' +
- ' :FECHA_VENCIMIENTO,'#10' :FECHA_RETENCION,'#10' :BASE_IMPONIBLE' +
- ','#10' :DESCUENTO,'#10' :IMPORTE_DESCUENTO,'#10' :IVA,'#10' :IMPORTE' +
- '_IVA,'#10' :RE,'#10' :IMPORTE_RE,'#10' :IMPORTE_TOTAL,'#10' :OBSERVA' +
- 'CIONES,'#10' :ID_CLIENTE,'#10' :NIF_CIF,'#10' :NOMBRE,'#10' :ID_DIRE' +
- 'CCION,'#10' :CALLE,'#10' :POBLACION,'#10' :PROVINCIA,'#10' :CODIGO_P' +
- 'OSTAL,'#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,'#10' :DATOS_BANCARIOS,'#10' ' +
- ' :CLIENTE_FINAL,'#10' :RETENCION,'#10' :IMPORTE_RETENCION);'#10
+ 'CLIENTE_FINAL,'#10' RETENCION,'#10' IMPORTE_RETENCION,'#10' CERTIFI' +
+ 'CADO_ISO)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' :REFERENCIA,'#10 +
+ ' :FECHA_FACTURA,'#10' :FECHA_VENCIMIENTO,'#10' :FECHA_RETENCION' +
+ ','#10' :BASE_IMPONIBLE,'#10' :DESCUENTO,'#10' :IMPORTE_DESCUENTO,'#10' ' +
+ ' :IVA,'#10' :IMPORTE_IVA,'#10' :RE,'#10' :IMPORTE_RE,'#10' :IMPORT' +
+ 'E_TOTAL,'#10' :OBSERVACIONES,'#10' :ID_CLIENTE,'#10' :NIF_CIF,'#10' ' +
+ ':NOMBRE,'#10' :ID_DIRECCION,'#10' :CALLE,'#10' :POBLACION,'#10' :PRO' +
+ 'VINCIA,'#10' :CODIGO_POSTAL,'#10' :FECHA_ALTA,'#10' :FECHA_MODIFICA' +
+ 'CION,'#10' :USUARIO,'#10' :ID_FORMA_PAGO,'#10' :RECARGO_EQUIVALENCI' +
+ 'A,'#10' :ID_TIPO_IVA,'#10' :IMPORTE_NETO,'#10' :IMPORTE_PORTE,'#10' ' +
+ ':DATOS_BANCARIOS,'#10' :CLIENTE_FINAL,'#10' :RETENCION,'#10' :IMPOR' +
+ 'TE_RETENCION,'#10' :CERTIFICADO_ISO);'#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -975,138 +1033,187 @@ object srvFacturasCliente: TsrvFacturasCliente
Params = <
item
Name = 'ID_EMPRESA'
+ DataType = datInteger
Value = ''
end
item
Name = 'REFERENCIA'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'FECHA_FACTURA'
+ DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_VENCIMIENTO'
+ DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_RETENCION'
+ DataType = datDateTime
Value = ''
end
item
Name = 'BASE_IMPONIBLE'
+ DataType = datCurrency
Value = ''
end
item
Name = 'DESCUENTO'
+ DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_DESCUENTO'
+ DataType = datCurrency
Value = ''
end
item
Name = 'IVA'
+ DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_IVA'
+ DataType = datCurrency
Value = ''
end
item
Name = 'RE'
+ DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_RE'
+ DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_TOTAL'
+ DataType = datCurrency
Value = ''
end
item
Name = 'OBSERVACIONES'
+ DataType = datMemo
Value = ''
end
item
Name = 'ID_CLIENTE'
+ DataType = datInteger
Value = ''
end
item
Name = 'NIF_CIF'
+ DataType = datString
+ Size = 15
Value = ''
end
item
Name = 'NOMBRE'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'ID_DIRECCION'
+ DataType = datInteger
Value = ''
end
item
Name = 'CALLE'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'POBLACION'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'PROVINCIA'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'CODIGO_POSTAL'
+ DataType = datString
+ Size = 10
Value = ''
end
item
Name = 'FECHA_ALTA'
+ DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_MODIFICACION'
+ DataType = datDateTime
Value = ''
end
item
Name = 'USUARIO'
+ DataType = datString
+ Size = 30
Value = ''
end
item
Name = 'ID_FORMA_PAGO'
+ DataType = datInteger
Value = ''
end
item
Name = 'RECARGO_EQUIVALENCIA'
+ DataType = datSmallInt
Value = ''
end
item
Name = 'ID_TIPO_IVA'
+ DataType = datInteger
Value = ''
end
item
Name = 'IMPORTE_NETO'
+ DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_PORTE'
+ DataType = datCurrency
Value = ''
end
item
Name = 'DATOS_BANCARIOS'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'CLIENTE_FINAL'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'RETENCION'
+ DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_RETENCION'
+ DataType = datCurrency
+ Value = ''
+ end
+ item
+ Name = 'CERTIFICADO_ISO'
+ DataType = datSmallInt
Value = ''
end
item
@@ -1135,8 +1242,8 @@ object srvFacturasCliente: TsrvFacturasCliente
'ID_TIPO_IVA = :ID_TIPO_IVA,'#10' IMPORTE_NETO = :IMPORTE_NETO,'#10' ' +
' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' DATOS_BANCARIOS = :DATOS_B' +
'ANCARIOS,'#10' CLIENTE_FINAL = :CLIENTE_FINAL,'#10' RETENCION = :R' +
- 'ETENCION,'#10' IMPORTE_RETENCION = :IMPORTE_RETENCION'#10' WHERE'#10' (' +
- 'ID = :OLD_ID);'#10
+ 'ETENCION,'#10' IMPORTE_RETENCION = :IMPORTE_RETENCION,'#10' CERTIF' +
+ 'ICADO_ISO = :CERTIFICADO_ISO'#10' WHERE'#10' (ID = :OLD_ID);'#10
StatementType = stSQL
ColumnMappings = <>
end>
diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm
index c3d06807..1daa7633 100644
--- a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm
+++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm
@@ -1,6 +1,6 @@
inherited frViewFacturaCliente: TfrViewFacturaCliente
- Width = 1146
- Height = 511
+ Width = 616
+ Height = 474
Align = alClient
OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy
@@ -9,8 +9,8 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
- Width = 1146
- Height = 511
+ Width = 616
+ Height = 474
Align = alClient
ParentBackground = True
TabOrder = 0
@@ -20,10 +20,10 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
ExplicitWidth = 451
ExplicitHeight = 304
DesignSize = (
- 1146
- 511)
+ 616
+ 474)
object Label1: TLabel
- Left = 617
+ Left = 354
Top = 193
Width = 311
Height = 26
@@ -100,13 +100,13 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
- TabOrder = 9
+ TabOrder = 10
Height = 345
Width = 355
end
object cbFormaPago: TcxDBLookupComboBox
Left = 146
- Top = 103
+ Top = 130
DataBinding.DataField = 'ID_FORMA_PAGO'
DataBinding.DataSource = DADataSource
Properties.ImmediatePost = True
@@ -138,21 +138,21 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
- TabOrder = 2
+ TabOrder = 3
Width = 269
end
object bFormasPago: TButton
- Left = 435
- Top = 103
+ Left = 172
+ Top = 130
Width = 132
Height = 23
Caption = 'Ver las formas de pago...'
- TabOrder = 3
+ TabOrder = 4
OnClick = bFormasPagoClick
end
object cbCuentaBancaria: TcxDBComboBox
Left = 146
- Top = 159
+ Top = 186
DataBinding.DataField = 'DATOS_BANCARIOS'
DataBinding.DataSource = DADataSource
Properties.DropDownListStyle = lsFixedList
@@ -169,11 +169,11 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- TabOrder = 5
+ TabOrder = 6
Width = 165
end
object cbClienteFinal: TcxDBTextEdit
- Left = 617
+ Left = 354
Top = 227
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'CLIENTE_FINAL'
@@ -197,19 +197,19 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
- TabOrder = 7
+ TabOrder = 8
Width = 339
end
object bElegirClienteFinal: TButton
- Left = 1090
+ Left = 560
Top = 225
Width = 23
Height = 25
Action = actElegirClienteFinal
- TabOrder = 8
+ TabOrder = 9
end
inline frViewDatosYSeleccionClienteFacturaCliente1: TfrViewDatosYSeleccionClienteFacturaCliente
- Left = 606
+ Left = 343
Top = 30
Width = 505
Height = 138
@@ -219,39 +219,42 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
- TabOrder = 6
+ TabOrder = 7
ReadOnly = False
- ExplicitLeft = 606
+ ExplicitLeft = 343
ExplicitTop = 30
inherited dxLayoutControl1: TdxLayoutControl
- ExplicitWidth = 101
inherited edtlNombre: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
+ ExplicitWidth = 224
+ Width = 224
end
inherited edtNIFCIF: TcxDBTextEdit
- Left = 405
+ Left = 171
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 405
+ ExplicitLeft = 171
end
inherited Button3: TBitBtn
- Left = 316
- ExplicitLeft = 316
+ Left = 82
+ ExplicitLeft = 82
end
inherited edtDireccion: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
+ ExplicitWidth = 121
+ Width = 121
end
inherited Button4: TButton
- Left = 485
- ExplicitLeft = 485
+ Left = 251
+ ExplicitLeft = 251
end
end
inherited ActionList1: TActionList
@@ -269,7 +272,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
end
object edtFechaVemcimiento: TcxDBDateEdit
Left = 146
- Top = 132
+ Top = 159
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_VENCIMIENTO'
DataBinding.DataSource = DADataSource
@@ -290,9 +293,29 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
- TabOrder = 4
+ TabOrder = 5
Width = 275
end
+ object eCertificadoISO: TcxDBCheckBox
+ Left = 22
+ Top = 84
+ Caption = 'Certificaci'#243'n ISO'
+ DataBinding.DataField = 'CERTIFICADO_ISO'
+ DataBinding.DataSource = DADataSource
+ Properties.ValueChecked = 1
+ Properties.ValueUnchecked = 0
+ Style.LookAndFeel.Kind = lfStandard
+ Style.LookAndFeel.NativeStyle = True
+ StyleDisabled.LookAndFeel.Kind = lfStandard
+ StyleDisabled.LookAndFeel.NativeStyle = True
+ StyleFocused.LookAndFeel.Kind = lfStandard
+ StyleFocused.LookAndFeel.NativeStyle = True
+ StyleHot.LookAndFeel.Kind = lfStandard
+ StyleHot.LookAndFeel.NativeStyle = True
+ TabOrder = 2
+ Transparent = True
+ Width = 428
+ end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
Hidden = True
@@ -320,6 +343,11 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Control = edtFecha
ControlOptions.ShowBorder = False
end
+ object dxLayoutControl1Item11: TdxLayoutItem
+ ShowCaption = False
+ Control = eCertificadoISO
+ ControlOptions.ShowBorder = False
+ end
object dxLayoutControl1Group6: TdxLayoutGroup
Caption = 'Forma de pago'
object dxLayoutControl1Group4: TdxLayoutGroup
diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas
index ff51ba47..39a238e6 100644
--- a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas
+++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas
@@ -10,7 +10,8 @@ uses
cxMemo, cxMaskEdit, cxDropDownEdit, cxCalendar, cxSpinEdit, StdCtrls, Mask,
DBCtrls, cxGraphics, dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit,
cxDBLookupComboBox, uFormasPagoController, uDAInterfaces, uBizFormasPago,
- ActnList, uViewDatosYSeleccionClienteFacturaCliente, uFacturasClienteController;
+ ActnList, uViewDatosYSeleccionClienteFacturaCliente, uFacturasClienteController,
+ cxCheckBox;
type
IViewFacturaCliente = interface(IViewBase)
@@ -66,6 +67,8 @@ type
ledtFechaVencimiento: TdxLayoutItem;
edtFechaVemcimiento: TcxDBDateEdit;
dxLayoutControl1Group3: TdxLayoutGroup;
+ dxLayoutControl1Item11: TdxLayoutItem;
+ eCertificadoISO: TcxDBCheckBox;
procedure bFormasPagoClick(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
procedure CustomViewCreate(Sender: TObject);
diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm
index efe93457..1ca37072 100644
--- a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm
+++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm
@@ -141,6 +141,20 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
VisibleForCustomization = False
Width = 54
end
+ object cxGridViewCERTIFICADO_ISO: TcxGridDBColumn
+ DataBinding.FieldName = 'CERTIFICADO_ISO'
+ PropertiesClassName = 'TcxImageComboBoxProperties'
+ Properties.Items = <
+ item
+ Description = 'No ISO'
+ ImageIndex = 0
+ Value = 0
+ end
+ item
+ Description = 'ISO'
+ Value = 1
+ end>
+ end
end
inherited cxGridLevel: TcxGridLevel
Caption = 'Todas'
@@ -180,25 +194,35 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
Width = 144
end
inherited edtFechaFinFiltro: TcxDateEdit
- Left = 248
+ Left = 185
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 248
+ ExplicitLeft = 185
ExplicitWidth = 273
Width = 273
end
inherited eLista: TcxComboBox
- Left = 558
+ Left = 414
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 558
+ ExplicitLeft = 414
ExplicitWidth = 97
Width = 97
end
+ inherited eLista2: TcxComboBox
+ Left = 518
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitLeft = 518
+ ExplicitWidth = 207
+ Width = 207
+ end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 665
@@ -259,6 +283,8 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
end
end
inherited ActionList1: TActionList
+ Left = 152
+ Top = 320
object actCliente: TAction
Caption = 'Cliente'
OnExecute = actClienteExecute
@@ -270,6 +296,117 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
OnUpdate = actProvinciaUpdate
end
end
+ inherited GridPNGImageList: TPngImageList
+ PngImages = <
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 61000000097048597300000B1300000B1301009A9C1800000A4F694343505068
+ 6F746F73686F70204943432070726F66696C65000078DA9D53675453E9163DF7
+ DEF4424B8880944B6F5215082052428B801491262A2109104A8821A1D91551C1
+ 114545041BC8A088038E8E808C15512C0C8A0AD807E421A28E83A3888ACAFBE1
+ 7BA36BD6BCF7E6CDFEB5D73EE7ACF39DB3CF07C0080C9648335135800CA9421E
+ 11E083C7C4C6E1E42E40810A2470001008B3642173FD230100F87E3C3C2B22C0
+ 07BE000178D30B0800C04D9BC0301C87FF0FEA42995C01808401C07491384B08
+ 801400407A8E42A600404601809D98265300A0040060CB6362E300502D006027
+ 7FE6D300809DF8997B01005B94211501A09100201365884400683B00ACCF568A
+ 450058300014664BC43900D82D00304957664800B0B700C0CE100BB200080C00
+ 305188852900047B0060C8232378008499001446F2573CF12BAE10E72A000078
+ 99B23CB9243945815B082D710757572E1E28CE49172B14366102619A402EC279
+ 99193281340FE0F3CC0000A0911511E083F3FD78CE0EAECECE368EB60E5F2DEA
+ BF06FF226262E3FEE5CFAB70400000E1747ED1FE2C2FB31A803B06806DFEA225
+ EE04685E0BA075F78B66B20F40B500A0E9DA57F370F87E3C3C45A190B9D9D9E5
+ E4E4D84AC4425B61CA577DFE67C25FC057FD6CF97E3CFCF7F5E0BEE22481325D
+ 814704F8E0C2CCF44CA51CCF92098462DCE68F47FCB70BFFFC1DD322C44962B9
+ 582A14E35112718E449A8CF332A52289429229C525D2FF64E2DF2CFB033EDF35
+ 00B06A3E017B912DA85D6303F64B27105874C0E2F70000F2BB6FC1D428080380
+ 6883E1CF77FFEF3FFD47A02500806649927100005E44242E54CAB33FC7080000
+ 44A0812AB0411BF4C1182CC0061CC105DCC10BFC6036844224C4C24210420A64
+ 801C726029AC82422886CDB01D2A602FD4401D34C051688693700E2EC255B80E
+ 3D700FFA61089EC128BC81090441C808136121DA8801628A58238E08179985F8
+ 21C14804128B2420C9881451224B91354831528A542055481DF23D720239875C
+ 46BA913BC8003282FC86BC47319481B2513DD40CB543B9A8371A8446A20BD064
+ 74319A8F16A09BD072B41A3D8C36A1E7D0AB680FDA8F3E43C730C0E8180733C4
+ 6C302EC6C342B1382C099363CBB122AC0CABC61AB056AC03BB89F563CFB17704
+ 128145C0093604774220611E4148584C584ED848A8201C243411DA0937090384
+ 51C2272293A84BB426BA11F9C4186232318758482C23D6128F132F107B8843C4
+ 37241289433227B9900249B1A454D212D246D26E5223E92CA99B34481A2393C9
+ DA646BB20739942C202BC885E49DE4C3E433E41BE421F25B0A9D624071A4F853
+ E22852CA6A4A19E510E534E5066598324155A39A52DDA8A15411358F5A42ADA1
+ B652AF5187A81334759A39CD8316494BA5ADA295D31A681768F769AFE874BA11
+ DD951E4E97D057D2CBE947E897E803F4770C0D861583C7886728199B18071867
+ 197718AF984CA619D38B19C754303731EB98E7990F996F55582AB62A7C1591CA
+ 0A954A9526951B2A2F54A9AAA6AADEAA0B55F355CB548FA95E537DAE46553353
+ E3A909D496AB55AA9D50EB531B5367A93BA887AA67A86F543FA47E59FD890659
+ C34CC34F43A451A0B15FE3BCC6200B6319B3782C216B0DAB86758135C426B1CD
+ D97C762ABB98FD1DBB8B3DAAA9A13943334A3357B352F394663F07E39871F89C
+ 744E09E728A797F37E8ADE14EF29E2291BA6344CB931655C6BAA96979658AB48
+ AB51AB47EBBD36AEEDA79DA6BD45BB59FB810E41C74A275C2747678FCE059DE7
+ 53D953DDA70AA7164D3D3AF5AE2EAA6BA51BA1BB4477BF6EA7EE989EBE5E809E
+ 4C6FA7DE79BDE7FA1C7D2FFD54FD6DFAA7F5470C5806B30C2406DB0CCE183CC5
+ 35716F3C1D2FC7DBF151435DC34043A561956197E18491B9D13CA3D5468D460F
+ 8C69C65CE324E36DC66DC6A326062621264B4DEA4DEE9A524DB9A629A63B4C3B
+ 4CC7CDCCCDA2CDD699359B3D31D732E79BE79BD79BDFB7605A785A2CB6A8B6B8
+ 6549B2E45AA659EEB6BC6E855A3959A558555A5DB346AD9DAD25D6BBADBBA711
+ A7B94E934EAB9ED667C3B0F1B6C9B6A9B719B0E5D806DBAEB66DB67D61676217
+ 67B7C5AEC3EE93BD937DBA7D8DFD3D070D87D90EAB1D5A1D7E73B472143A563A
+ DE9ACE9CEE3F7DC5F496E92F6758CF10CFD833E3B613CB29C4699D539BD34767
+ 1767B97383F3888B894B82CB2E973E2E9B1BC6DDC8BDE44A74F5715DE17AD2F5
+ 9D9BB39BC2EDA8DBAFEE36EE69EE87DC9FCC349F299E593373D0C3C843E051E5
+ D13F0B9F95306BDFAC7E4F434F8167B5E7232F632F9157ADD7B0B7A577AAF761
+ EF173EF63E729FE33EE33C37DE32DE595FCC37C0B7C8B7CB4FC36F9E5F85DF43
+ 7F23FF64FF7AFFD100A78025016703898141815B02FBF87A7C21BF8E3F3ADB65
+ F6B2D9ED418CA0B94115418F82AD82E5C1AD2168C8EC90AD21F7E798CE91CE69
+ 0E85507EE8D6D00761E6618BC37E0C2785878557863F8E7088581AD131973577
+ D1DC4373DF44FA449644DE9B67314F39AF2D4A352A3EAA2E6A3CDA37BA34BA3F
+ C62E6659CCD5589D58496C4B1C392E2AAE366E6CBEDFFCEDF387E29DE20BE37B
+ 17982FC85D7079A1CEC2F485A716A92E122C3A96404C884E3894F041102AA816
+ 8C25F21377258E0A79C21DC267222FD136D188D8435C2A1E4EF2482A4D7A92EC
+ 91BC357924C533A52CE5B98427A990BC4C0D4CDD9B3A9E169A76206D323D3ABD
+ 31839291907142AA214D93B667EA67E66676CBAC6585B2FEC56E8BB72F1E9507
+ C96BB390AC05592D0AB642A6E8545A28D72A07B267655766BFCD89CA3996AB9E
+ 2BCDEDCCB3CADB90379CEF9FFFED12C212E192B6A5864B572D1D58E6BDAC6A39
+ B23C7179DB0AE315052B865606AC3CB88AB62A6DD54FABED5797AE7EBD267A4D
+ 6B815EC1CA82C1B5016BEB0B550AE5857DEBDCD7ED5D4F582F59DFB561FA869D
+ 1B3E15898AAE14DB1797157FD828DC78E51B876FCABF99DC94B4A9ABC4B964CF
+ 66D266E9E6DE2D9E5B0E96AA97E6970E6E0DD9DAB40DDF56B4EDF5F645DB2F97
+ CD28DBBB83B643B9A3BF3CB8BC65A7C9CECD3B3F54A454F454FA5436EED2DDB5
+ 61D7F86ED1EE1B7BBCF634ECD5DB5BBCF7FD3EC9BEDB5501554DD566D565FB49
+ FBB3F73FAE89AAE9F896FB6D5DAD4E6D71EDC703D203FD07230EB6D7B9D4D51D
+ D23D54528FD62BEB470EC71FBEFE9DEF772D0D360D558D9CC6E223704479E4E9
+ F709DFF71E0D3ADA768C7BACE107D31F761D671D2F6A429AF29A469B539AFB5B
+ 625BBA4FCC3ED1D6EADE7AFC47DB1F0F9C343C59794AF354C969DAE982D39367
+ F2CF8C9D959D7D7E2EF9DC60DBA2B67BE763CEDF6A0F6FEFBA1074E1D245FF8B
+ E73BBC3BCE5CF2B874F2B2DBE51357B8579AAF3A5F6DEA74EA3CFE93D34FC7BB
+ 9CBB9AAEB95C6BB9EE7ABDB57B66F7E91B9E37CEDDF4BD79F116FFD6D59E393D
+ DDBDF37A6FF7C5F7F5DF16DD7E7227FDCECBBBD97727EEADBC4FBC5FF440ED41
+ D943DD87D53F5BFEDCD8EFDC7F6AC077A0F3D1DC47F7068583CFFE91F58F0F43
+ 058F998FCB860D86EB9E383E3939E23F72FDE9FCA743CF64CF269E17FEA2FECB
+ AE17162F7EF8D5EBD7CED198D1A197F29793BF6D7CA5FDEAC0EB19AFDBC6C2C6
+ 1EBEC97833315EF456FBEDC177DC771DEFA3DF0F4FE47C207F28FF68F9B1F553
+ D0A7FB93199393FF040398F3FC63332DDB000000434944415478DA63FCFFFF3F
+ 03258011D900464646ACA601D530126D00BA6298A1B80C21CA0090183639925C
+ 80CB3B040DC0E69A510306BD010C04005E03C801036F00008D248BE16F9028BA
+ 0000000049454E44AE426082}
+ Name = 'Icono_header'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 610000001974455874536F6674776172650041646F626520496D616765526561
+ 647971C9653C000000A84944415478DA63FCFFFF3F03258071D4002A19C0C8C8
+ E8006437007100101F00627D20FE08C40540BC004A83B03C106F04E204A0BE0F
+ D80C00E1FD40AC08350C841380F83E103B02F10320DE00C2407D0D845CB0112A
+ E60035C400EA6AB018509F032E1708406D82696E803A5F016A00C84B02407D01
+ D80C98005530016AA301D4900B50973D80BA0614061B900D50802A5C80E4F70F
+ 50FE05A8ED0550D7C1C26030A5830135000053DD66E13698B95A000000004945
+ 4E44AE426082}
+ Name = 'PngImage1'
+ Background = clWindow
+ end>
+ Bitmap = {}
+ end
object PngImageList: TPngImageList
PngImages = <
item
diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas
index 7fc4f334..a7f0f404 100644
--- a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas
+++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas
@@ -58,6 +58,7 @@ type
cxGridViewTIPO: TcxGridDBColumn;
cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn;
cxGridViewIMPORTE_RETENCION: TcxGridDBColumn;
+ cxGridViewCERTIFICADO_ISO: TcxGridDBColumn;
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
out AStyle: TcxStyle);
@@ -69,6 +70,9 @@ type
procedure cxGridViewDataControllerCompare(
ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2,
AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer);
+ procedure cxGridViewICONOCustomDrawCell(Sender: TcxCustomGridTableView;
+ ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
+ var ADone: Boolean);
private
//Filtros relativos a la vista
@@ -203,6 +207,25 @@ begin
Compare := VarCompare(V1, V2);
end;
+procedure TfrViewFacturasCliente.cxGridViewICONOCustomDrawCell(
+ Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
+ AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+var
+ R : TRect;
+begin
+ inherited;
+ R := AViewInfo.ContentBounds;
+ ACanvas.FillRect(R);
+
+ if (cxGridView.DataController.DisplayTexts[AViewInfo.GridRecord.RecordIndex,
+ cxGridViewCERTIFICADO_ISO.Index] = 'ISO') then
+ ACanvas.DrawImage(GridPNGImageList, R.Left + 2, R.Top + 2, 1);
+// else
+// ACanvas.DrawImage(GridPNGImageList, R.Left + 2, R.Top + 2, 0);
+
+ ADone := True;
+end;
+
procedure TfrViewFacturasCliente.cxGridViewStylesGetContentStyle(
Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
diff --git a/Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.pas b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.pas
index 335d49da..6ba73109 100644
--- a/Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.pas
+++ b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.pas
@@ -213,7 +213,8 @@ begin
if (ARecord.DisplayTexts[Sender.Index] <> 'Sin incidencias') then
begin
AIsHintMultiLine := True;
- AHintText := ARecord.Values[cxGridViewINCIDENCIAS.Index]
+ if not VarIsNull(ARecord.Values[cxGridViewINCIDENCIAS.Index]) then
+ AHintText := ARecord.Values[cxGridViewINCIDENCIAS.Index];
end;
end;
diff --git a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas
index f4dab920..e456572d 100644
--- a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas
+++ b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas
@@ -57,8 +57,8 @@ type
function EsModificable(APresupuesto : IBizPresupuestoCliente): Boolean;
function EsEliminable(APresupuesto : IBizPresupuestoCliente): Boolean;
- procedure Preview(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; Const AVerSello: Integer = 1; Const AVerISO: Integer = 1);
- procedure Print(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; Const AVerSello: Integer = 1; Const AVerISO: Integer = 1);
+ procedure Preview(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; Const AVerSello: Integer = 1);
+ procedure Print(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; Const AVerSello: Integer = 1);
function GenerarCertificados(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false): Boolean;
function CambiarSituacion(APresupuesto : IBizPresupuestoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean;
@@ -140,8 +140,8 @@ type
function EsModificable(APresupuesto : IBizPresupuestoCliente): Boolean;
function EsEliminable(APresupuesto : IBizPresupuestoCliente): Boolean;
- procedure Preview(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; Const AVerSello: Integer = 1; Const AVerISO: Integer = 1);
- procedure Print(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; Const AVerSello: Integer = 1; Const AVerISO: Integer = 1);
+ procedure Preview(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; Const AVerSello: Integer = 1);
+ procedure Print(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; Const AVerSello: Integer = 1);
function GenerarCertificados(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false): Boolean;
function CambiarSituacion(APresupuesto : IBizPresupuestoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean;
@@ -1049,7 +1049,7 @@ begin
}
end;
-procedure TPresupuestosClienteController.Preview(APresupuesto: IBizPresupuestoCliente; AllItems: Boolean = false; Const AVerSello: Integer = 1; Const AVerISO: Integer = 1);
+procedure TPresupuestosClienteController.Preview(APresupuesto: IBizPresupuestoCliente; AllItems: Boolean = false; Const AVerSello: Integer = 1);
var
AReportController : IPresupuestosClienteReportController;
ID_Presupuestos: TIntegerList;
@@ -1075,14 +1075,14 @@ begin
else
ID_Presupuestos.Add(APresupuesto.ID);
- AReportController.Preview(ID_Presupuestos, AVerSello, AVerISO);
+ AReportController.Preview(ID_Presupuestos, AVerSello);
finally
AReportController := NIL;
FreeAndNil(ID_Presupuestos);
end;
end;
-procedure TPresupuestosClienteController.Print(APresupuesto: IBizPresupuestoCliente; AllItems: Boolean = false; Const AVerSello: Integer= 1; Const AVerISO: Integer = 1);
+procedure TPresupuestosClienteController.Print(APresupuesto: IBizPresupuestoCliente; AllItems: Boolean = false; Const AVerSello: Integer= 1);
var
AReportController : IPresupuestosClienteReportController;
ID_Presupuestos: TIntegerList;
@@ -1107,7 +1107,7 @@ begin
else
ID_Presupuestos.Add(APresupuesto.ID);
- AReportController.Print(ID_Presupuestos, AVerSello, AVerISO);
+ AReportController.Print(ID_Presupuestos, AVerSello);
finally
AReportController := NIL;
diff --git a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteReportController.pas b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteReportController.pas
index c48ea78c..babbe54c 100644
--- a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteReportController.pas
+++ b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteReportController.pas
@@ -10,10 +10,10 @@ uses
type
IPresupuestosClienteReportController = interface(IControllerBase)
['{41AE4B36-6114-4DDE-8BCF-288AA0E12449}']
- procedure Preview(const AListaID : TIntegerList; Const AVerSello: Integer; Const AVerISO: Integer = 1);
- procedure Print(const AListaID : TIntegerList; Const AVerSello: Integer; Const AVerISO: Integer = 1);
- function ExportToWord(const AID: Integer; const AFileName : String = ''; Const AVerSello: Integer=1; Const AVerISO: Integer = 1): Boolean;
- function ExportToPDF(const AID: Integer; const AFileName : String = ''; Const AVerSello: Integer=1; Const AVerISO: Integer = 1): Boolean;
+ procedure Preview(const AListaID : TIntegerList; Const AVerSello: Integer);
+ procedure Print(const AListaID : TIntegerList; Const AVerSello: Integer);
+ function ExportToWord(const AID: Integer; const AFileName : String = ''; Const AVerSello: Integer=1): Boolean;
+ function ExportToPDF(const AID: Integer; const AFileName : String = ''; Const AVerSello: Integer=1): Boolean;
function GenerarCertificados(const AID: Integer; const AFileName : String): Boolean;
end;
@@ -25,10 +25,10 @@ type
constructor Create; override;
destructor Destroy; override;
- procedure Preview(const AListaID : TIntegerList; Const AVerSello: Integer; Const AVerISO: Integer = 1);
- procedure Print(const AListaID : TIntegerList; Const AVerSello: Integer; Const AVerISO: Integer = 1);
- function ExportToWord(const AID: Integer; const AFileName : String = ''; Const AVerSello: Integer=1; Const AVerISO: Integer = 1): Boolean;
- function ExportToPDF(const AID: Integer; const AFileName : String = ''; Const AVerSello: Integer=1; Const AVerISO: Integer = 1): Boolean;
+ procedure Preview(const AListaID : TIntegerList; Const AVerSello: Integer);
+ procedure Print(const AListaID : TIntegerList; Const AVerSello: Integer);
+ function ExportToWord(const AID: Integer; const AFileName : String = ''; Const AVerSello: Integer=1): Boolean;
+ function ExportToPDF(const AID: Integer; const AFileName : String = ''; Const AVerSello: Integer=1): Boolean;
function GenerarCertificados(const AID: Integer; const AFileName : String): Boolean;
end;
@@ -61,7 +61,7 @@ begin
inherited;
end;
-function TPresupuestosClienteReportController.ExportToPDF(const AID: Integer; const AFileName: String; Const AVerSello: Integer; Const AVerISO: Integer): Boolean;
+function TPresupuestosClienteReportController.ExportToPDF(const AID: Integer; const AFileName: String; Const AVerSello: Integer): Boolean;
var
AStream: Binary;
begin
@@ -71,7 +71,7 @@ begin
ShowHourglassCursor;
try
- AStream := FDataModule.GetRptPDFPresupuesto(AID, AVerSello, AVerISO);
+ AStream := FDataModule.GetRptPDFPresupuesto(AID, AVerSello);
try
AStream.SaveToFile(AFileName);
Result := True;
@@ -83,7 +83,7 @@ begin
end;
end;
-function TPresupuestosClienteReportController.ExportToWord(const AID: Integer; const AFileName : String; Const AVerSello: Integer; Const AVerISO: Integer) : Boolean;
+function TPresupuestosClienteReportController.ExportToWord(const AID: Integer; const AFileName : String; Const AVerSello: Integer) : Boolean;
var
AStream: Binary;
AFile : String;
@@ -95,7 +95,7 @@ begin
ShowHourglassCursor;
try
- AStream := FDataModule.GetRptWordPresupuesto(AID, AVerSello, AVerISO);
+ AStream := FDataModule.GetRptWordPresupuesto(AID, AVerSello);
try
AStream.SaveToFile(AFile);
Result := True;
@@ -133,7 +133,7 @@ begin
end;
end;
-procedure TPresupuestosClienteReportController.Preview(const AListaID : TIntegerList; Const AVerSello: Integer; Const AVerISO: Integer = 1);
+procedure TPresupuestosClienteReportController.Preview(const AListaID : TIntegerList; Const AVerSello: Integer);
var
AStream: Binary;
AEditor : IEditorPresupuestosClientePreview;
@@ -142,7 +142,7 @@ begin
ShowHourglassCursor;
try
- AStream := FDataModule.GetRptPresupuestos(AListaID, AVerSello, AVerISO);
+ AStream := FDataModule.GetRptPresupuestos(AListaID, AVerSello);
try
CreateEditor('EditorPresupuestosClientePreview', IEditorPresupuestosClientePreview, AEditor);
if Assigned(AEditor) then
@@ -166,7 +166,7 @@ begin
end;
end;
-procedure TPresupuestosClienteReportController.Print(const AListaID : TIntegerList; Const AVerSello: Integer; Const AVerISO: Integer = 1);
+procedure TPresupuestosClienteReportController.Print(const AListaID : TIntegerList; Const AVerSello: Integer);
var
AStream: Binary;
AEditor : IEditorPresupuestosClientePreview;
@@ -175,7 +175,7 @@ begin
ShowHourglassCursor;
try
- AStream := FDataModule.GetRptPresupuestos(AListaID, AVerSello, AVerISO);
+ AStream := FDataModule.GetRptPresupuestos(AListaID, AVerSello);
try
CreateEditor('EditorPresupuestosClientePreview', IEditorPresupuestosClientePreview, AEditor);
if Assigned(AEditor) then
diff --git a/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm b/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm
index 549b421b..3999860c 100644
--- a/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm
+++ b/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm
@@ -242,6 +242,10 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
Name = 'IMPORTE_BONIFICACION'
DataType = datCurrency
ServerAutoRefresh = True
+ end
+ item
+ Name = 'CERTIFICADO_ISO'
+ DataType = datSmallInt
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
diff --git a/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.pas b/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.pas
index 03039be8..b617682b 100644
--- a/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.pas
+++ b/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.pas
@@ -41,10 +41,10 @@ type
function NewItem : IBizPresupuestoCliente;
// Report
- function GetRptPresupuestos(const AListaID: TIntegerList; Const AVerSello: Integer; Const AVerISO: Integer): Binary;
- function GetRptWordPresupuesto(const AID: Integer; Const AVerSello: Integer; Const AVerISO: Integer): Binary;
+ function GetRptPresupuestos(const AListaID: TIntegerList; Const AVerSello: Integer): Binary;
+ function GetRptWordPresupuesto(const AID: Integer; Const AVerSello: Integer): Binary;
function GetRptWordCertificadoTrabajos(const AID: Integer): Binary;
- function GetRptPDFPresupuesto(const AID: Integer; Const AVerSello: Integer; Const AVerISO: Integer): Binary;
+ function GetRptPDFPresupuesto(const AID: Integer; Const AVerSello: Integer): Binary;
function GetAnosItems : TStringList;
end;
@@ -70,26 +70,26 @@ begin
RORemoteService.Message := dmConexion.Message;
end;
-function TDataModulePresupuestosCliente.GetRptPDFPresupuesto(const AID: Integer; Const AVerSello: Integer; Const AVerISO: Integer): Binary;
+function TDataModulePresupuestosCliente.GetRptPDFPresupuesto(const AID: Integer; Const AVerSello: Integer): Binary;
var
AParam : TIntegerArray;
begin
AParam := TIntegerArray.Create;
try
AParam.Add(AID);
- Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInformeEnPDF(AParam, AVerSello, AVerISO)
+ Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInformeEnPDF(AParam, AVerSello)
finally
FreeANDNIL(AParam)
end;
end;
-function TDataModulePresupuestosCliente.GetRptPresupuestos(const AListaID: TIntegerList; Const AVerSello: Integer; Const AVerISO: Integer): Binary;
+function TDataModulePresupuestosCliente.GetRptPresupuestos(const AListaID: TIntegerList; Const AVerSello: Integer): Binary;
var
AParam : TIntegerArray;
begin
AParam := AListaID.ToIntegerArray;
try
- Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInforme(AParam, AVerSello, AVerISO)
+ Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInforme(AParam, AVerSello)
finally
FreeANDNIL(AParam)
end;
@@ -101,9 +101,9 @@ begin
Result := (RORemoteService as IsrvPresupuestosCliente).GenerarCertificadoTrabajosEnWord(AID)
end;
-function TDataModulePresupuestosCliente.GetRptWordPresupuesto(const AID: Integer; Const AVerSello: Integer; Const AVerISO: Integer): Binary;
+function TDataModulePresupuestosCliente.GetRptWordPresupuesto(const AID: Integer; Const AVerSello: Integer): Binary;
begin
- Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInformeEnWord(AID, AVerSello, AVerISO)
+ Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInformeEnWord(AID, AVerSello)
end;
function TDataModulePresupuestosCliente.NewItem: IBizPresupuestoCliente;
diff --git a/Source/Modulos/Presupuestos de cliente/Model/Data/uIDataModulePresupuestosClienteReport.pas b/Source/Modulos/Presupuestos de cliente/Model/Data/uIDataModulePresupuestosClienteReport.pas
index f3a5c117..0234c20b 100644
--- a/Source/Modulos/Presupuestos de cliente/Model/Data/uIDataModulePresupuestosClienteReport.pas
+++ b/Source/Modulos/Presupuestos de cliente/Model/Data/uIDataModulePresupuestosClienteReport.pas
@@ -8,10 +8,10 @@ uses
type
IDataModulePresupuestosClienteReport = interface
['{70CEBB06-376F-4363-B80F-DDA4324E0F85}']
- function GetRptPresupuestos(const AListaID: TIntegerList; Const AVerSello: Integer; Const AVerISO: Integer): Binary;
- function GetRptWordPresupuesto(const AID: Integer; Const AVerSello: Integer; Const AVerISO: Integer): Binary;
+ function GetRptPresupuestos(const AListaID: TIntegerList; Const AVerSello: Integer): Binary;
+ function GetRptWordPresupuesto(const AID: Integer; Const AVerSello: Integer): Binary;
function GetRptWordCertificadoTrabajos(const AID: Integer): Binary;
- function GetRptPDFPresupuesto(const AID: Integer; Const AVerSello: Integer; Const AVerISO: Integer): Binary;
+ function GetRptPDFPresupuesto(const AID: Integer; Const AVerSello: Integer): Binary;
end;
implementation
diff --git a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas
index 770c1cbc..724fc26d 100644
--- a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas
+++ b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas
@@ -3,15 +3,15 @@ unit schPresupuestosClienteClient_Intf;
interface
uses
- Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
+ Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
- RID_ListaAnosPresupuestos = '{B4D25BFF-BFAC-4141-925F-82DC23A4D3A2}';
- RID_PresupuestosCliente = '{BAEC8917-A7DC-4606-AE7E-B8B8748290B1}';
- RID_PresupuestosCliente_Detalles = '{C1C9402A-CDC5-4B77-BE8A-5907A6423EEC}';
+ RID_ListaAnosPresupuestos = '{D73FB601-4855-412C-B145-BC927DE770D2}';
+ RID_PresupuestosCliente = '{A2898E4B-6B5C-443D-A744-9FAD9690292D}';
+ RID_PresupuestosCliente_Detalles = '{160328C6-D0E9-44C5-B1F0-407C54645451}';
{ Data table names }
nme_ListaAnosPresupuestos = 'ListaAnosPresupuestos';
@@ -60,6 +60,7 @@ const
fld_PresupuestosClientePERSONA_CONTACTO = 'PERSONA_CONTACTO';
fld_PresupuestosClienteDESCRIPCION_BONIFICACION = 'DESCRIPCION_BONIFICACION';
fld_PresupuestosClienteIMPORTE_BONIFICACION = 'IMPORTE_BONIFICACION';
+ fld_PresupuestosClienteCERTIFICADO_ISO = 'CERTIFICADO_ISO';
{ PresupuestosCliente field indexes }
idx_PresupuestosClienteID = 0;
@@ -97,6 +98,7 @@ const
idx_PresupuestosClientePERSONA_CONTACTO = 32;
idx_PresupuestosClienteDESCRIPCION_BONIFICACION = 33;
idx_PresupuestosClienteIMPORTE_BONIFICACION = 34;
+ idx_PresupuestosClienteCERTIFICADO_ISO = 35;
{ PresupuestosCliente_Detalles fields }
fld_PresupuestosCliente_DetallesID = 'ID';
@@ -135,7 +137,7 @@ const
type
{ IListaAnosPresupuestos }
IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable)
- ['{AA0035CA-BE66-4730-A30B-E09CE7BB0325}']
+ ['{031EC815-C5C0-4E17-AC6F-D5356025BCE1}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@@ -170,7 +172,7 @@ type
{ IPresupuestosCliente }
IPresupuestosCliente = interface(IDAStronglyTypedDataTable)
- ['{294F97CB-1951-4F11-A7D9-2433A2E0237F}']
+ ['{E25A2981-6860-472F-80BA-2CA9D82D18FE}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -308,6 +310,10 @@ type
procedure SetIMPORTE_BONIFICACIONValue(const aValue: Currency);
function GetIMPORTE_BONIFICACIONIsNull: Boolean;
procedure SetIMPORTE_BONIFICACIONIsNull(const aValue: Boolean);
+ function GetCERTIFICADO_ISOValue: SmallInt;
+ procedure SetCERTIFICADO_ISOValue(const aValue: SmallInt);
+ function GetCERTIFICADO_ISOIsNull: Boolean;
+ procedure SetCERTIFICADO_ISOIsNull(const aValue: Boolean);
{ Properties }
@@ -381,6 +387,8 @@ type
property DESCRIPCION_BONIFICACIONIsNull: Boolean read GetDESCRIPCION_BONIFICACIONIsNull write SetDESCRIPCION_BONIFICACIONIsNull;
property IMPORTE_BONIFICACION: Currency read GetIMPORTE_BONIFICACIONValue write SetIMPORTE_BONIFICACIONValue;
property IMPORTE_BONIFICACIONIsNull: Boolean read GetIMPORTE_BONIFICACIONIsNull write SetIMPORTE_BONIFICACIONIsNull;
+ property CERTIFICADO_ISO: SmallInt read GetCERTIFICADO_ISOValue write SetCERTIFICADO_ISOValue;
+ property CERTIFICADO_ISOIsNull: Boolean read GetCERTIFICADO_ISOIsNull write SetCERTIFICADO_ISOIsNull;
end;
{ TPresupuestosClienteDataTableRules }
@@ -532,6 +540,10 @@ type
procedure SetIMPORTE_BONIFICACIONValue(const aValue: Currency); virtual;
function GetIMPORTE_BONIFICACIONIsNull: Boolean; virtual;
procedure SetIMPORTE_BONIFICACIONIsNull(const aValue: Boolean); virtual;
+ function GetCERTIFICADO_ISOValue: SmallInt; virtual;
+ procedure SetCERTIFICADO_ISOValue(const aValue: SmallInt); virtual;
+ function GetCERTIFICADO_ISOIsNull: Boolean; virtual;
+ procedure SetCERTIFICADO_ISOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@@ -604,6 +616,8 @@ type
property DESCRIPCION_BONIFICACIONIsNull: Boolean read GetDESCRIPCION_BONIFICACIONIsNull write SetDESCRIPCION_BONIFICACIONIsNull;
property IMPORTE_BONIFICACION: Currency read GetIMPORTE_BONIFICACIONValue write SetIMPORTE_BONIFICACIONValue;
property IMPORTE_BONIFICACIONIsNull: Boolean read GetIMPORTE_BONIFICACIONIsNull write SetIMPORTE_BONIFICACIONIsNull;
+ property CERTIFICADO_ISO: SmallInt read GetCERTIFICADO_ISOValue write SetCERTIFICADO_ISOValue;
+ property CERTIFICADO_ISOIsNull: Boolean read GetCERTIFICADO_ISOIsNull write SetCERTIFICADO_ISOIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@@ -613,7 +627,7 @@ type
{ IPresupuestosCliente_Detalles }
IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable)
- ['{6E73582D-E1A0-40EA-A96A-1993F55F76A8}']
+ ['{67B4300E-97EF-4FEA-BD7E-7B3C3DD4FB54}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -1619,6 +1633,27 @@ begin
DataTable.Fields[idx_PresupuestosClienteIMPORTE_BONIFICACION].AsVariant := Null;
end;
+function TPresupuestosClienteDataTableRules.GetCERTIFICADO_ISOValue: SmallInt;
+begin
+ result := DataTable.Fields[idx_PresupuestosClienteCERTIFICADO_ISO].AsSmallInt;
+end;
+
+procedure TPresupuestosClienteDataTableRules.SetCERTIFICADO_ISOValue(const aValue: SmallInt);
+begin
+ DataTable.Fields[idx_PresupuestosClienteCERTIFICADO_ISO].AsSmallInt := aValue;
+end;
+
+function TPresupuestosClienteDataTableRules.GetCERTIFICADO_ISOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_PresupuestosClienteCERTIFICADO_ISO].IsNull;
+end;
+
+procedure TPresupuestosClienteDataTableRules.SetCERTIFICADO_ISOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_PresupuestosClienteCERTIFICADO_ISO].AsVariant := Null;
+end;
+
{ TPresupuestosCliente_DetallesDataTableRules }
constructor TPresupuestosCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);
diff --git a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas
index ff55564b..2939f4fc 100644
--- a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas
+++ b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_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_ListaAnosPresupuestosDelta = '{B819407B-3A58-42FE-99D1-D735F8094AD1}';
- RID_PresupuestosClienteDelta = '{A00D261A-A215-445D-9DCC-C024662EA398}';
- RID_PresupuestosCliente_DetallesDelta = '{8943CBEB-C17F-4C81-B0D7-E1FBF3B8445C}';
+ RID_ListaAnosPresupuestosDelta = '{52C49635-F38B-4B6E-B3D1-79EF81B7D611}';
+ RID_PresupuestosClienteDelta = '{779086A7-A3B9-42A6-A854-7AA3661376B9}';
+ RID_PresupuestosCliente_DetallesDelta = '{D21AC7F0-E4A5-48D5-8165-2CF2EEBFA6D6}';
type
{ IListaAnosPresupuestosDelta }
IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos)
- ['{B819407B-3A58-42FE-99D1-D735F8094AD1}']
+ ['{52C49635-F38B-4B6E-B3D1-79EF81B7D611}']
{ Property getters and setters }
function GetOldANOValue : String;
@@ -50,7 +50,7 @@ type
{ IPresupuestosClienteDelta }
IPresupuestosClienteDelta = interface(IPresupuestosCliente)
- ['{A00D261A-A215-445D-9DCC-C024662EA398}']
+ ['{779086A7-A3B9-42A6-A854-7AA3661376B9}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -87,6 +87,7 @@ type
function GetOldPERSONA_CONTACTOValue : String;
function GetOldDESCRIPCION_BONIFICACIONValue : String;
function GetOldIMPORTE_BONIFICACIONValue : Currency;
+ function GetOldCERTIFICADO_ISOValue : SmallInt;
{ Properties }
property OldID : Integer read GetOldIDValue;
@@ -124,6 +125,7 @@ type
property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
property OldDESCRIPCION_BONIFICACION : String read GetOldDESCRIPCION_BONIFICACIONValue;
property OldIMPORTE_BONIFICACION : Currency read GetOldIMPORTE_BONIFICACIONValue;
+ property OldCERTIFICADO_ISO : SmallInt read GetOldCERTIFICADO_ISOValue;
end;
{ TPresupuestosClienteBusinessProcessorRules }
@@ -345,6 +347,12 @@ type
function GetOldIMPORTE_BONIFICACIONIsNull: Boolean; virtual;
procedure SetIMPORTE_BONIFICACIONValue(const aValue: Currency); virtual;
procedure SetIMPORTE_BONIFICACIONIsNull(const aValue: Boolean); virtual;
+ function GetCERTIFICADO_ISOValue: SmallInt; virtual;
+ function GetCERTIFICADO_ISOIsNull: Boolean; virtual;
+ function GetOldCERTIFICADO_ISOValue: SmallInt; virtual;
+ function GetOldCERTIFICADO_ISOIsNull: Boolean; virtual;
+ procedure SetCERTIFICADO_ISOValue(const aValue: SmallInt); virtual;
+ procedure SetCERTIFICADO_ISOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@@ -487,6 +495,10 @@ type
property IMPORTE_BONIFICACIONIsNull : Boolean read GetIMPORTE_BONIFICACIONIsNull write SetIMPORTE_BONIFICACIONIsNull;
property OldIMPORTE_BONIFICACION : Currency read GetOldIMPORTE_BONIFICACIONValue;
property OldIMPORTE_BONIFICACIONIsNull : Boolean read GetOldIMPORTE_BONIFICACIONIsNull;
+ property CERTIFICADO_ISO : SmallInt read GetCERTIFICADO_ISOValue write SetCERTIFICADO_ISOValue;
+ property CERTIFICADO_ISOIsNull : Boolean read GetCERTIFICADO_ISOIsNull write SetCERTIFICADO_ISOIsNull;
+ property OldCERTIFICADO_ISO : SmallInt read GetOldCERTIFICADO_ISOValue;
+ property OldCERTIFICADO_ISOIsNull : Boolean read GetOldCERTIFICADO_ISOIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -496,7 +508,7 @@ type
{ IPresupuestosCliente_DetallesDelta }
IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles)
- ['{8943CBEB-C17F-4C81-B0D7-E1FBF3B8445C}']
+ ['{D21AC7F0-E4A5-48D5-8165-2CF2EEBFA6D6}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PRESUPUESTOValue : Integer;
@@ -1866,6 +1878,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteIMPORTE_BONIFICACION] := Null;
end;
+function TPresupuestosClienteBusinessProcessorRules.GetCERTIFICADO_ISOValue: SmallInt;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteCERTIFICADO_ISO];
+end;
+
+function TPresupuestosClienteBusinessProcessorRules.GetCERTIFICADO_ISOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteCERTIFICADO_ISO]);
+end;
+
+function TPresupuestosClienteBusinessProcessorRules.GetOldCERTIFICADO_ISOValue: SmallInt;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteCERTIFICADO_ISO];
+end;
+
+function TPresupuestosClienteBusinessProcessorRules.GetOldCERTIFICADO_ISOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteCERTIFICADO_ISO]);
+end;
+
+procedure TPresupuestosClienteBusinessProcessorRules.SetCERTIFICADO_ISOValue(const aValue: SmallInt);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteCERTIFICADO_ISO] := aValue;
+end;
+
+procedure TPresupuestosClienteBusinessProcessorRules.SetCERTIFICADO_ISOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteCERTIFICADO_ISO] := Null;
+end;
+
{ TPresupuestosCliente_DetallesBusinessProcessorRules }
constructor TPresupuestosCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
diff --git a/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas b/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas
index 4a8e2121..8dc11ebe 100644
--- a/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas
+++ b/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas
@@ -204,6 +204,7 @@ begin
USUARIO := AppFactuGES.UsuarioActivo.UserName;
FECHA_PRESUPUESTO := DateOf(Date);
INCIDENCIAS_ACTIVAS := 0;
+ CERTIFICADO_ISO := 1;
// INCIDENCIAS := NIL;
REFERENCIA := '';
SITUACION := SITUACION_PRESUPUESTO_PENDIENTE;
diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm b/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm
index 9a9084d8..cbee9611 100644
--- a/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm
+++ b/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm
@@ -469,11 +469,11 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
'ODIGO_POSTAL, CONTACTOS.CODIGO_POSTAL) AS CODIGO_POSTAL,'#10' V_P' +
'RESUPUESTOS_CLIENTE.PERSONA_CONTACTO,'#10' V_PRESUPUESTOS_CLIENTE' +
'.DESCRIPCION_BONIFICACION,'#10' V_PRESUPUESTOS_CLIENTE.IMPORTE_BO' +
- 'NIFICACION'#10'FROM'#10' V_PRESUPUESTOS_CLIENTE'#10' INNER JOIN CONTAC' +
- 'TOS ON (CONTACTOS.ID = V_PRESUPUESTOS_CLIENTE.ID_CLIENTE)'#10' LE' +
- 'FT OUTER JOIN CONTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID' +
- ' = V_PRESUPUESTOS_CLIENTE.ID_DIRECCION)'#10'WHERE'#10' V_PRESUPUESTOS' +
- '_CLIENTE.ID = :ID'#10
+ 'NIFICACION,'#10' V_PRESUPUESTOS_CLIENTE.CERTIFICADO_ISO'#10'FROM'#10' ' +
+ 'V_PRESUPUESTOS_CLIENTE'#10' INNER JOIN CONTACTOS ON (CONTACTOS.ID' +
+ ' = V_PRESUPUESTOS_CLIENTE.ID_CLIENTE)'#10' LEFT OUTER JOIN CONTAC' +
+ 'TOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID = V_PRESUPUESTOS_CL' +
+ 'IENTE.ID_DIRECCION)'#10'WHERE'#10' V_PRESUPUESTOS_CLIENTE.ID = :ID'#10
StatementType = stSQL
ColumnMappings = <
item
@@ -583,6 +583,10 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
item
DatasetField = 'IMPORTE_BONIFICACION'
TableField = 'IMPORTE_BONIFICACION'
+ end
+ item
+ DatasetField = 'CERTIFICADO_ISO'
+ TableField = 'CERTIFICADO_ISO'
end>
end>
Name = 'Informe_Cabecera'
@@ -604,7 +608,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
item
Name = 'REFERENCIA'
DataType = datString
- Size = 255
+ Size = 511
end
item
Name = 'PORTADA'
@@ -628,7 +632,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
end
item
Name = 'DESCUENTO'
- DataType = datFloat
+ DataType = datCurrency
end
item
Name = 'IMPORTE_DESCUENTO'
@@ -640,7 +644,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
end
item
Name = 'IVA'
- DataType = datFloat
+ DataType = datCurrency
end
item
Name = 'ID_CLIENTE'
@@ -707,6 +711,10 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
item
Name = 'IMPORTE_BONIFICACION'
DataType = datCurrency
+ end
+ item
+ Name = 'CERTIFICADO_ISO'
+ DataType = datSmallInt
end>
ReadOnly = True
end
@@ -1707,7 +1715,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
item
Name = 'REFERENCIA'
DataType = datString
- Size = 255
+ Size = 511
end
item
Name = 'PORTADA'
@@ -1731,7 +1739,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
end
item
Name = 'DESCUENTO'
- DataType = datFloat
+ DataType = datCurrency
end
item
Name = 'IMPORTE_DESCUENTO'
@@ -1743,7 +1751,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
end
item
Name = 'IVA'
- DataType = datFloat
+ DataType = datCurrency
end
item
Name = 'ID_CLIENTE'
@@ -1810,6 +1818,10 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
item
Name = 'IMPORTE_BONIFICACION'
DataType = datCurrency
+ end
+ item
+ Name = 'CERTIFICADO_ISO'
+ DataType = datSmallInt
end>
Params = <
item
diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas b/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas
index b7a2656f..3b2379cd 100644
--- a/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas
+++ b/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas
@@ -85,8 +85,6 @@ type
tbl_InformeListadoPresupuestosGrafCompMensual: TDAMemDataTable;
tbl_InformeListadoPresupuestosGrafCompTrimestral: TDAMemDataTable;
tbl_InformeListadoPresupuestosGrafCompSemestral: TDAMemDataTable;
- schReport: TDASchema;
- DataDictionary: TDADataDictionary;
frxDBInformeListadoClientesMayorImporteResumen: TfrxDBDataset;
DADSInformeListadoClientesMayorImporteResumen: TDADataSource;
tbl_InformeListadoClientesMayorImporteResumen: TDAMemDataTable;
@@ -96,6 +94,8 @@ type
tbl_InformeListadoClientesMayorNAnuladosResumen: TDAMemDataTable;
DADSInformeListadoClientesMayorNAnuladosResumen: TDADataSource;
frxDBInformeListadoClientesMayorNAnuladosResumen: TfrxDBDataset;
+ schReport: TDASchema;
+ DataDictionary: TDADataDictionary;
procedure DataModuleCreate(Sender: TObject);
procedure DataModuleDestroy(Sender: TObject);
function frxReportUserFunction(const MethodName: string;
@@ -114,7 +114,7 @@ type
FIntervalo: Variant;
FTopN: Integer;
- procedure _GenerarPresupuesto(const AID : Integer; const VerSello: Integer; const VerISO: Integer);
+ procedure _GenerarPresupuesto(const AID : Integer; const VerSello: Integer);
procedure PrepararTablaInforme(ATabla: TDAMemDataTable);
procedure PrepararTablaResumenInforme(ATabla: IDADataset);
@@ -125,8 +125,8 @@ type
procedure IniciarParametrosInforme;
procedure RecuperarNombresClientes;
public
- function GenerarPresupuesto(const ListaID : TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary;
- function GenerarPresupuestoEnPDF(const ListaID : TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary;
+ function GenerarPresupuesto(const ListaID : TIntegerArray; const VerSello: Integer): Binary;
+ function GenerarPresupuestoEnPDF(const ListaID : TIntegerArray; const VerSello: Integer): Binary;
function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformePresupuestosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; const TopN: Integer; const Serie: Variant): Binary;
end;
@@ -179,7 +179,7 @@ begin
end;
end;
-function TRptPresupuestosCliente.GenerarPresupuestoEnPDF(const ListaID: TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary;
+function TRptPresupuestosCliente.GenerarPresupuestoEnPDF(const ListaID: TIntegerArray; const VerSello: Integer): Binary;
var
i: Integer;
begin
@@ -187,7 +187,7 @@ begin
try
//Vamos generando todos y cada uno de los presupuestos recibidos
for i := 0 to ListaID.Count - 1 do
- _GenerarPresupuesto(ListaID.Items[i], VerSello, VerISO);
+ _GenerarPresupuesto(ListaID.Items[i], VerSello);
frxPDFExport1.Stream := Result;
frxReport.Export(frxPDFExport1)
@@ -599,7 +599,7 @@ begin
end;
end;
-function TRptPresupuestosCliente.GenerarPresupuesto(const ListaID: TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary;
+function TRptPresupuestosCliente.GenerarPresupuesto(const ListaID: TIntegerArray; const VerSello: Integer): Binary;
var
i: Integer;
begin
@@ -607,7 +607,7 @@ begin
try
//Vamos generando todos y cada uno de los presupuestos recibidos
for i := 0 to ListaID.Count - 1 do
- _GenerarPresupuesto(ListaID.Items[i], VerSello, VerISO);
+ _GenerarPresupuesto(ListaID.Items[i], VerSello);
frxReport.PreviewPages.SaveToStream(Result);
finally
@@ -631,7 +631,7 @@ begin
frxReport.PreviewPages.SaveToStream(Result);
end;
-procedure TRptPresupuestosCliente._GenerarPresupuesto(const AID: Integer; const VerSello: Integer; const VerISO: Integer);
+procedure TRptPresupuestosCliente._GenerarPresupuesto(const AID: Integer; const VerSello: Integer);
var
AInforme: Variant;
begin
@@ -662,7 +662,6 @@ begin
frxReport.LoadFromFile(AInforme, True);
frxReport.Variables.Variables['VerSello'] := IntToStr(VerSello);
- frxReport.Variables.Variables['VerISO'] := IntToStr(VerISO);
frxReport.AddFunction('function PONERJUSTIFICACIONCOMPLETA(ARTFText : String): String', 'User Function','');
frxReport.PrepareReport(False);
diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.dfm b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.dfm
index 06633a37..d94ee262 100644
--- a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.dfm
+++ b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.dfm
@@ -38,11 +38,12 @@ object RptWordPresupuestoCliente: TRptWordPresupuestoCliente
'ODIGO_POSTAL, CONTACTOS.CODIGO_POSTAL) AS CODIGO_POSTAL,'#10' V_P' +
'RESUPUESTOS_CLIENTE.PERSONA_CONTACTO,'#10' V_PRESUPUESTOS_CLIENTE' +
'.DESCRIPCION_BONIFICACION,'#10' V_PRESUPUESTOS_CLIENTE.IMPORTE_BO' +
- 'NIFICACION'#10'FROM'#10' V_PRESUPUESTOS_CLIENTE'#10' INNER JOIN CONTAC' +
- 'TOS ON (CONTACTOS.ID = V_PRESUPUESTOS_CLIENTE.ID_CLIENTE)'#10' LE' +
- 'FT OUTER JOIN CONTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID' +
- ' = V_PRESUPUESTOS_CLIENTE.ID_DIRECCION)'#10'WHERE'#10' V_PRESUPUESTOS' +
- '_CLIENTE.ID = :ID'#10
+ 'NIFICACION,'#10' V_PRESUPUESTOS_CLIENTE.CERTIFICADO_ISO'#10'FROM'#10 +
+ ' V_PRESUPUESTOS_CLIENTE'#10' INNER JOIN CONTACTOS ON (CONTACTO' +
+ 'S.ID = V_PRESUPUESTOS_CLIENTE.ID_CLIENTE)'#10' LEFT OUTER JOIN CO' +
+ 'NTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID = V_PRESUPUESTO' +
+ 'S_CLIENTE.ID_DIRECCION)'#10'WHERE'#10' V_PRESUPUESTOS_CLIENTE.ID = :I' +
+ 'D'#10
StatementType = stSQL
ColumnMappings = <
item
@@ -152,6 +153,10 @@ object RptWordPresupuestoCliente: TRptWordPresupuestoCliente
item
DatasetField = 'IMPORTE_BONIFICACION'
TableField = 'IMPORTE_BONIFICACION'
+ end
+ item
+ DatasetField = 'CERTIFICADO_ISO'
+ TableField = 'CERTIFICADO_ISO'
end>
end>
Name = 'Informe_Cabecera'
@@ -173,7 +178,7 @@ object RptWordPresupuestoCliente: TRptWordPresupuestoCliente
item
Name = 'REFERENCIA'
DataType = datString
- Size = 255
+ Size = 511
end
item
Name = 'PORTADA'
@@ -197,7 +202,7 @@ object RptWordPresupuestoCliente: TRptWordPresupuestoCliente
end
item
Name = 'DESCUENTO'
- DataType = datFloat
+ DataType = datCurrency
end
item
Name = 'IMPORTE_DESCUENTO'
@@ -209,7 +214,7 @@ object RptWordPresupuestoCliente: TRptWordPresupuestoCliente
end
item
Name = 'IVA'
- DataType = datFloat
+ DataType = datCurrency
end
item
Name = 'ID_CLIENTE'
@@ -276,6 +281,10 @@ object RptWordPresupuestoCliente: TRptWordPresupuestoCliente
item
Name = 'IMPORTE_BONIFICACION'
DataType = datCurrency
+ end
+ item
+ Name = 'CERTIFICADO_ISO'
+ DataType = datSmallInt
end>
ReadOnly = True
end
@@ -479,7 +488,7 @@ object RptWordPresupuestoCliente: TRptWordPresupuestoCliente
item
Name = 'REFERENCIA'
DataType = datString
- Size = 255
+ Size = 511
end
item
Name = 'PORTADA'
@@ -503,7 +512,7 @@ object RptWordPresupuestoCliente: TRptWordPresupuestoCliente
end
item
Name = 'DESCUENTO'
- DataType = datFloat
+ DataType = datCurrency
end
item
Name = 'IMPORTE_DESCUENTO'
@@ -515,7 +524,7 @@ object RptWordPresupuestoCliente: TRptWordPresupuestoCliente
end
item
Name = 'IVA'
- DataType = datFloat
+ DataType = datCurrency
end
item
Name = 'ID_CLIENTE'
@@ -573,6 +582,19 @@ object RptWordPresupuestoCliente: TRptWordPresupuestoCliente
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
+ end
+ item
+ Name = 'DESCRIPCION_BONIFICACION'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'IMPORTE_BONIFICACION'
+ DataType = datCurrency
+ end
+ item
+ Name = 'CERTIFICADO_ISO'
+ DataType = datSmallInt
end>
Params = <
item
diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas
index 087cd7ae..e54ed101 100644
--- a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas
+++ b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas
@@ -38,7 +38,6 @@ type
FNombreFichero : String;
ListaCapitulos : array[1..1000] of TCapitulo;
FVerSello: Integer;
- FVerISO: Integer;
FTablaInicioContenido: Table;
procedure InsertarConceptos(Tabla : Table);
@@ -51,7 +50,7 @@ type
public
constructor Create (AOwner : TComponent); override;
destructor Destroy; override;
- function Exportar(Codigo, Fichero : String; const VerSello: Integer; const VerISO: Integer): Boolean;
+ function Exportar(Codigo, Fichero : String; const VerSello: Integer): Boolean;
end;
@@ -74,7 +73,6 @@ begin
FImportes := True;
FNumCapitulos := 0;
FVerSello:= 1;
- FVerISO:= 1;
end;
procedure TRptWordPresupuestoCliente.DataModuleCreate(Sender: TObject);
@@ -92,7 +90,7 @@ begin
inherited;
end;
-function TRptWordPresupuestoCliente.Exportar(Codigo, Fichero: String; const VerSello: Integer; const VerISO: Integer): Boolean;
+function TRptWordPresupuestoCliente.Exportar(Codigo, Fichero: String; const VerSello: Integer): Boolean;
begin
if EsCadenaVacia(Fichero) then
RaiseError('Falta indicar el fichero donde se exportará el listado.');
@@ -100,7 +98,6 @@ begin
FNombreFichero := Fichero;
FCodigoPresupuesto := Codigo;
FVerSello := VerSello;
- FVerISO := VerISO;
_GenerarPresupuesto(Codigo);
Result := True;
end;
@@ -283,7 +280,7 @@ begin
else
ReplaceBookmark('Firma1', '');
- if (FVerISO = 0) then
+ if (tbl_Cabecera.FieldByName('CERTIFICADO_ISO').AsInteger <> 1) then
begin
ReplaceBookmark('ISO1', '');
ReplaceBookmark('ISO2', '');
diff --git a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm b/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm
index f176f8e3..f8d85c1f 100644
--- a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm
+++ b/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm
@@ -186,6 +186,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
item
DatasetField = 'IMPORTE_BONIFICACION'
TableField = 'IMPORTE_BONIFICACION'
+ end
+ item
+ DatasetField = 'CERTIFICADO_ISO'
+ TableField = 'CERTIFICADO_ISO'
end>
end>
Name = 'PresupuestosCliente'
@@ -376,6 +380,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Name = 'IMPORTE_BONIFICACION'
DataType = datCurrency
ServerAutoRefresh = True
+ end
+ item
+ Name = 'CERTIFICADO_ISO'
+ DataType = datSmallInt
end>
end
item
@@ -565,118 +573,160 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
end
item
Name = 'ID_EMPRESA'
+ DataType = datInteger
Value = ''
end
item
Name = 'FECHA_PRESUPUESTO'
+ DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_DECISION'
+ DataType = datDateTime
Value = ''
end
item
Name = 'REFERENCIA'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'REFERENCIA_AUX'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'SITUACION'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'ID_CLIENTE'
+ DataType = datInteger
Value = ''
end
item
Name = 'ID_DIRECCION'
+ DataType = datInteger
Value = ''
end
item
Name = 'REFERENCIA_CLIENTE'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'CLIENTE_FINAL'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'PORTADA'
+ DataType = datMemo
Value = ''
end
item
Name = 'MEMORIA'
+ DataType = datMemo
Value = ''
end
item
Name = 'OBSERVACIONES'
+ DataType = datMemo
Value = ''
end
item
Name = 'INCIDENCIAS'
+ DataType = datMemo
Value = ''
end
item
Name = 'INCIDENCIAS_ACTIVAS'
+ DataType = datSmallInt
Value = ''
end
item
Name = 'USUARIO'
+ DataType = datString
+ Size = 30
Value = ''
end
item
Name = 'IMPORTE_NETO'
+ DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_PORTE'
+ DataType = datCurrency
Value = ''
end
item
Name = 'DESCUENTO'
+ DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_DESCUENTO'
+ DataType = datCurrency
Value = ''
end
item
Name = 'BASE_IMPONIBLE'
+ DataType = datCurrency
Value = ''
end
item
Name = 'IVA'
+ DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_IVA'
+ DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_TOTAL'
+ DataType = datCurrency
Value = ''
end
item
Name = 'ID_FORMA_PAGO'
+ DataType = datInteger
Value = ''
end
item
Name = 'ID_FACTURA'
+ DataType = datInteger
Value = ''
end
item
Name = 'PERSONA_CONTACTO'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'DESCRIPCION_BONIFICACION'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'IMPORTE_BONIFICACION'
+ DataType = datCurrency
+ Value = ''
+ end
+ item
+ Name = 'CERTIFICADO_ISO'
+ DataType = datSmallInt
Value = ''
end>
Statements = <
@@ -692,16 +742,16 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
'IDENCIAS_ACTIVAS, FECHA_ALTA,'#10' USUARIO, IMPORTE_NETO, IMPORT' +
'E_PORTE, DESCUENTO, IMPORTE_DESCUENTO, '#10' BASE_IMPONIBLE, IVA' +
', IMPORTE_IVA, IMPORTE_TOTAL, ID_FORMA_PAGO, ID_FACTURA,'#10' PE' +
- 'RSONA_CONTACTO, DESCRIPCION_BONIFICACION, IMPORTE_BONIFICACION)'#10 +
- ' VALUES'#10' (:ID, :ID_EMPRESA, :FECHA_PRESUPUESTO, :FECHA_DECIS' +
- 'ION, :REFERENCIA,'#10' :REFERENCIA_AUX, :SITUACION, :ID_CLIENTE,' +
- ' :ID_DIRECCION, :REFERENCIA_CLIENTE,'#10' :CLIENTE_FINAL, :PORTA' +
- 'DA, :MEMORIA, :OBSERVACIONES, '#10' :INCIDENCIAS, :INCIDENCIAS_A' +
- 'CTIVAS, CURRENT_TIMESTAMP,'#10' :USUARIO, :IMPORTE_NETO, :IMPORT' +
- 'E_PORTE, :DESCUENTO, '#10' :IMPORTE_DESCUENTO, :BASE_IMPONIBLE, ' +
- ':IVA, :IMPORTE_IVA, '#10' :IMPORTE_TOTAL, :ID_FORMA_PAGO, :ID_FA' +
- 'CTURA, :PERSONA_CONTACTO,'#10' :DESCRIPCION_BONIFICACION, :IMPOR' +
- 'TE_BONIFICACION)'#10
+ 'RSONA_CONTACTO, DESCRIPCION_BONIFICACION, IMPORTE_BONIFICACION, ' +
+ 'CERTIFICADO_ISO)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :FECHA_PRESUPUE' +
+ 'STO, :FECHA_DECISION, :REFERENCIA,'#10' :REFERENCIA_AUX, :SITUAC' +
+ 'ION, :ID_CLIENTE, :ID_DIRECCION, :REFERENCIA_CLIENTE,'#10' :CLIE' +
+ 'NTE_FINAL, :PORTADA, :MEMORIA, :OBSERVACIONES, '#10' :INCIDENCIA' +
+ 'S, :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP,'#10' :USUARIO, :IMPO' +
+ 'RTE_NETO, :IMPORTE_PORTE, :DESCUENTO, '#10' :IMPORTE_DESCUENTO, ' +
+ ':BASE_IMPONIBLE, :IVA, :IMPORTE_IVA, '#10' :IMPORTE_TOTAL, :ID_F' +
+ 'ORMA_PAGO, :ID_FACTURA, :PERSONA_CONTACTO,'#10' :DESCRIPCION_BON' +
+ 'IFICACION, :IMPORTE_BONIFICACION, :CERTIFICADO_ISO)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -731,122 +781,165 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Params = <
item
Name = 'ID'
+ DataType = datInteger
Value = ''
end
item
Name = 'ID_EMPRESA'
+ DataType = datInteger
Value = ''
end
item
Name = 'FECHA_PRESUPUESTO'
+ DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_DECISION'
+ DataType = datDateTime
Value = ''
end
item
Name = 'REFERENCIA'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'REFERENCIA_AUX'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'SITUACION'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'ID_CLIENTE'
+ DataType = datInteger
Value = ''
end
item
Name = 'ID_DIRECCION'
+ DataType = datInteger
Value = ''
end
item
Name = 'REFERENCIA_CLIENTE'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'CLIENTE_FINAL'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'PORTADA'
+ DataType = datMemo
Value = ''
end
item
Name = 'MEMORIA'
+ DataType = datMemo
Value = ''
end
item
Name = 'OBSERVACIONES'
+ DataType = datMemo
Value = ''
end
item
Name = 'INCIDENCIAS'
+ DataType = datMemo
Value = ''
end
item
Name = 'INCIDENCIAS_ACTIVAS'
+ DataType = datSmallInt
Value = ''
end
item
Name = 'USUARIO'
+ DataType = datString
+ Size = 30
Value = ''
end
item
Name = 'IMPORTE_NETO'
+ DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_PORTE'
+ DataType = datCurrency
Value = ''
end
item
Name = 'DESCUENTO'
+ DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_DESCUENTO'
+ DataType = datCurrency
Value = ''
end
item
Name = 'BASE_IMPONIBLE'
+ DataType = datCurrency
Value = ''
end
item
Name = 'IVA'
+ DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_IVA'
+ DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_TOTAL'
+ DataType = datCurrency
Value = ''
end
item
Name = 'ID_FORMA_PAGO'
+ DataType = datInteger
Value = ''
end
item
Name = 'ID_FACTURA'
+ DataType = datInteger
Value = ''
end
item
Name = 'PERSONA_CONTACTO'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'DESCRIPCION_BONIFICACION'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'IMPORTE_BONIFICACION'
+ DataType = datCurrency
+ Value = ''
+ end
+ item
+ Name = 'CERTIFICADO_ISO'
+ DataType = datSmallInt
Value = ''
end
item
@@ -876,8 +969,8 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
'OTAL = :IMPORTE_TOTAL, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' ' +
'ID_FACTURA = :ID_FACTURA,'#10' PERSONA_CONTACTO = :PERSONA_CONTAC' +
'TO,'#10' DESCRIPCION_BONIFICACION = :DESCRIPCION_BONIFICACION,'#10' ' +
- ' IMPORTE_BONIFICACION = :IMPORTE_BONIFICACION'#10' WHERE'#10' (ID =' +
- ' :OLD_ID)'#10
+ ' IMPORTE_BONIFICACION = :IMPORTE_BONIFICACION,'#10' CERTIFICADO_' +
+ 'ISO = :CERTIFICADO_ISO'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
diff --git a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.pas b/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.pas
index 395fa094..052162e5 100644
--- a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.pas
+++ b/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.pas
@@ -33,9 +33,9 @@ type
procedure DARemoteServiceCreate(Sender: TObject);
protected
{ IsrvPresupuestosCliente methods }
- function GenerarInforme(const ListaID: TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary;
- function GenerarInformeEnWord(const ID: Integer; const VerSello: Integer; const VerISO: Integer): Binary;
- function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary;
+ function GenerarInforme(const ListaID: TIntegerArray; const VerSello: Integer): Binary;
+ function GenerarInformeEnWord(const ID: Integer; const VerSello: Integer): Binary;
+ function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerSello: Integer): Binary;
function GenerarCertificadoTrabajosEnWord(const ID: Integer): Binary;
end;
@@ -101,31 +101,31 @@ begin
end;
end;
-function TsrvPresupuestosCliente.GenerarInforme(const ListaID: TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary;
+function TsrvPresupuestosCliente.GenerarInforme(const ListaID: TIntegerArray; const VerSello: Integer): Binary;
var
AReportGenerator : TRptPresupuestosCliente;
begin
AReportGenerator := TRptPresupuestosCliente.Create(nil);
try
- Result := AReportGenerator.GenerarPresupuesto(ListaID, VerSello, VerISO);
+ Result := AReportGenerator.GenerarPresupuesto(ListaID, VerSello);
finally
FreeAndNIL(AReportGenerator);
end;
end;
-function TsrvPresupuestosCliente.GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary;
+function TsrvPresupuestosCliente.GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerSello: Integer): Binary;
var
AReportGenerator : TRptPresupuestosCliente;
begin
AReportGenerator := TRptPresupuestosCliente.Create(nil);
try
- Result := AReportGenerator.GenerarPresupuestoEnPDF(ListaID, VerSello, VerISO);
+ Result := AReportGenerator.GenerarPresupuestoEnPDF(ListaID, VerSello);
finally
FreeAndNIL(AReportGenerator);
end;
end;
-function TsrvPresupuestosCliente.GenerarInformeEnWord(const ID: Integer; const VerSello: Integer; const VerISO: Integer): Binary;
+function TsrvPresupuestosCliente.GenerarInformeEnWord(const ID: Integer; const VerSello: Integer): Binary;
var
AReportGenerator : TRptWordPresupuestoCliente;
AFicheroTMP : TFileName;
@@ -135,7 +135,7 @@ begin
AReportGenerator := TRptWordPresupuestoCliente.Create(nil);
try
try
- if AReportGenerator.Exportar(IntToStr(ID), AFicheroTMP, VerSello, VerISO) then
+ if AReportGenerator.Exportar(IntToStr(ID), AFicheroTMP, VerSello) then
begin
Result := Binary.Create;
Result.LoadFromFile(AFicheroTMP);
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uDialogOpcionesImpresionPresupuestosCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uDialogOpcionesImpresionPresupuestosCliente.dfm
index 66ff4b4d..5e99555b 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uDialogOpcionesImpresionPresupuestosCliente.dfm
+++ b/Source/Modulos/Presupuestos de cliente/Views/uDialogOpcionesImpresionPresupuestosCliente.dfm
@@ -1,10 +1,10 @@
inherited fDialogOpcionesImpresionPresupuestosCliente: TfDialogOpcionesImpresionPresupuestosCliente
Caption = 'Opciones para presupuestos de cliente'
- ClientHeight = 298
+ ClientHeight = 257
ClientWidth = 429
OnCreate = FormCreate
ExplicitWidth = 435
- ExplicitHeight = 330
+ ExplicitHeight = 289
PixelsPerInch = 96
TextHeight = 13
inherited Bevel2: TBevel
@@ -14,16 +14,16 @@ inherited fDialogOpcionesImpresionPresupuestosCliente: TfDialogOpcionesImpresion
ExplicitWidth = 418
end
inherited Bevel3: TBevel
- Top = 254
+ Top = 213
Width = 429
ExplicitTop = 196
ExplicitWidth = 418
end
inherited pnlBotones: TPanel
- Top = 256
+ Top = 215
Width = 429
- ExplicitTop = 231
- ExplicitWidth = 437
+ ExplicitTop = 256
+ ExplicitWidth = 429
inherited btnAceptar: TButton
Left = 254
Visible = False
@@ -37,7 +37,7 @@ inherited fDialogOpcionesImpresionPresupuestosCliente: TfDialogOpcionesImpresion
inherited pnlHeader: TPanel
Width = 429
Height = 41
- ExplicitWidth = 437
+ ExplicitWidth = 429
ExplicitHeight = 41
inherited lblInstruccion: TLabel
Width = 379
@@ -47,27 +47,26 @@ inherited fDialogOpcionesImpresionPresupuestosCliente: TfDialogOpcionesImpresion
'Indique si desea logotipo de ISO y que sello desea para el presu' +
'puesto de cliente:'
WordWrap = True
- ExplicitWidth = 390
+ ExplicitWidth = 326
ExplicitHeight = 26
end
inherited Label2: TLabel
Top = 44
Width = 354
- Height = 1
Visible = False
- ExplicitTop = 31
+ ExplicitTop = 44
end
end
inherited pnlCuerpo: TPanel
Top = 43
Width = 429
- Height = 211
- ExplicitTop = 35
- ExplicitWidth = 437
- ExplicitHeight = 194
+ Height = 170
+ ExplicitTop = 43
+ ExplicitWidth = 429
+ ExplicitHeight = 211
object Image1: TImage
Left = 25
- Top = 54
+ Top = 14
Width = 176
Height = 139
Picture.Data = {
@@ -1146,7 +1145,7 @@ inherited fDialogOpcionesImpresionPresupuestosCliente: TfDialogOpcionesImpresion
end
object Image2: TImage
Left = 232
- Top = 54
+ Top = 14
Width = 129
Height = 139
Picture.Data = {
@@ -2268,16 +2267,6 @@ inherited fDialogOpcionesImpresionPresupuestosCliente: TfDialogOpcionesImpresion
OnClick = Image2DblClick
OnDblClick = Image2DblClick
end
- object cbLogotipoISO: TCheckBox
- Left = 25
- Top = 17
- Width = 121
- Height = 17
- Caption = 'Ver certificaci'#243'n ISO'
- Checked = True
- State = cbChecked
- TabOrder = 0
- end
end
inherited ActionList1: TActionList
Top = 16
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uDialogOpcionesImpresionPresupuestosCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uDialogOpcionesImpresionPresupuestosCliente.pas
index b034132f..c37504cd 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uDialogOpcionesImpresionPresupuestosCliente.pas
+++ b/Source/Modulos/Presupuestos de cliente/Views/uDialogOpcionesImpresionPresupuestosCliente.pas
@@ -10,7 +10,6 @@ type
TfDialogOpcionesImpresionPresupuestosCliente = class(TfDialogBase)
Image1: TImage;
Image2: TImage;
- cbLogotipoISO: TCheckBox;
procedure actAceptarExecute(Sender: TObject);
procedure actCancelarExecute(Sender: TObject);
procedure Image1DblClick(Sender: TObject);
@@ -18,18 +17,15 @@ type
procedure Image2DblClick(Sender: TObject);
private
FVerSello: Integer;
- function getVerCertificadoISO: Integer;
- public
- property VerCertificadoISO: Integer read getVerCertificadoISO;
end;
- function ElegirOpcionesImpresionPresupuestoCliente(var AVerSello : Integer;var AVerISO : Integer): Boolean;
+ function ElegirOpcionesImpresionPresupuestoCliente(var AVerSello : Integer): Boolean;
implementation
{$R *.dfm}
-function ElegirOpcionesImpresionPresupuestoCliente(var AVerSello : Integer;var AVerISO : Integer): Boolean;
+function ElegirOpcionesImpresionPresupuestoCliente(var AVerSello : Integer): Boolean;
var
AEditor : TfDialogOpcionesImpresionPresupuestosCliente;
begin
@@ -39,7 +35,6 @@ begin
if Result then
begin
AVerSello := AEditor.FVerSello;
- AVerISO := AEditor.VerCertificadoISO;
end;
finally
AEditor.Release;
@@ -65,13 +60,6 @@ begin
FVerSello := 1;
end;
-function TfDialogOpcionesImpresionPresupuestosCliente.getVerCertificadoISO: Integer;
-begin
- REsult := 0;
- if cbLogotipoISO.Checked then
- Result := 1;
-end;
-
procedure TfDialogOpcionesImpresionPresupuestosCliente.Image1DblClick(
Sender: TObject);
begin
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas
index 20763779..d0d7e751 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas
+++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas
@@ -305,7 +305,6 @@ end;
procedure TfEditorPresupuestoCliente.ImprimirInterno;
var
AVerSello: Integer;
- AVerISO: Integer;
bPrevisualizar: Boolean;
begin
inherited;
@@ -314,11 +313,11 @@ begin
if (AppFactuGES.EmpresaActiva.ID = 1) then
//Preguntamos si desea que en los presupuestos se vea el Sello de Paco u Oscar,
//solo para empresa Tecsitel
- bPrevisualizar := ElegirOpcionesImpresionPresupuestoCliente(AVerSello, AVerISO);
+ bPrevisualizar := ElegirOpcionesImpresionPresupuestoCliente(AVerSello);
if bPrevisualizar and Assigned(FPresupuesto) then
if not Modified then
- FController.Print(FPresupuesto, False, AVerSello, AVerISO);
+ FController.Print(FPresupuesto, False, AVerSello);
end;
procedure TfEditorPresupuestoCliente.OnClienteChanged(Sender: TObject);
@@ -379,7 +378,6 @@ end;
procedure TfEditorPresupuestoCliente.PrevisualizarInterno;
var
AVerSello: Integer;
- AVerISO: Integer;
bPrevisualizar: Boolean;
begin
inherited;
@@ -388,11 +386,11 @@ begin
if (AppFactuGES.EmpresaActiva.ID = 1) then
//Preguntamos si desea que en los presupuestos se vea el Sello de Paco u Oscar,
//solo para empresa Tecsitel
- bPrevisualizar := ElegirOpcionesImpresionPresupuestoCliente(AVerSello, AVerISO);
+ bPrevisualizar := ElegirOpcionesImpresionPresupuestoCliente(AVerSello);
if bPrevisualizar and Assigned(FPresupuesto) then
if not Modified then
- FController.Preview(FPresupuesto, False, AVerSello, AVerISO);
+ FController.Preview(FPresupuesto, False, AVerSello);
end;
function TfEditorPresupuestoCliente.PuedoEnviar: Boolean;
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm
index a16130de..33c4bb67 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm
+++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm
@@ -2,7 +2,6 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
Caption = 'Lista de presupuestos de cliente'
ClientWidth = 805
ExplicitWidth = 813
- ExplicitHeight = 240
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas
index b136df0a..096f7c21 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas
+++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas
@@ -492,7 +492,6 @@ var
APresupuestos: IBizPresupuestoCliente;
AllItems: Boolean;
AVerSello: Integer;
- AVerISO: Integer;
bPrevisualizar: Boolean;
begin
APresupuestos := Nil;
@@ -526,10 +525,10 @@ begin
if (AppFactuGES.EmpresaActiva.ID = 1) then
//Preguntamos si desea que en los presupuestos se vea el Sello de Paco u Oscar,
//solo para empresa Tecsitel
- bPrevisualizar := ElegirOpcionesImpresionPresupuestoCliente(AVerSello, AVerISO);
+ bPrevisualizar := ElegirOpcionesImpresionPresupuestoCliente(AVerSello);
if bPrevisualizar and Assigned(APresupuestos) then
- FController.Print(APresupuestos, AllItems, AVerSello, AVerISO);
+ FController.Print(APresupuestos, AllItems, AVerSello);
end;
end;
end;
@@ -570,7 +569,6 @@ var
APresupuestos: IBizPresupuestoCliente;
AllItems: Boolean;
AVerSello: Integer;
- AVerISO: Integer;
bPrevisualizar: Boolean;
begin
APresupuestos := Nil;
@@ -604,10 +602,10 @@ begin
if (AppFactuGES.EmpresaActiva.ID = 1) then
//Preguntamos si desea que en los presupuestos se vea el Sello de Paco u Oscar,
//solo para empresa Tecsitel
- bPrevisualizar := ElegirOpcionesImpresionPresupuestoCliente(AVerSello, AVerISO);
+ bPrevisualizar := ElegirOpcionesImpresionPresupuestoCliente(AVerSello);
if bPrevisualizar and Assigned(APresupuestos) then
- FController.Preview(APresupuestos, AllItems, AVerSello, AVerISO);
+ FController.Preview(APresupuestos, AllItems, AVerSello);
end;
end;
end;
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosClienteReport.pas b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosClienteReport.pas
index f915fb03..1f42dbb6 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosClienteReport.pas
+++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosClienteReport.pas
@@ -44,11 +44,11 @@ begin
if (AppFactuGES.EmpresaActiva.ID = 1) then
//Preguntamos si desea que en los presupuestos se vea el Sello de Paco u Oscar,
//solo para empresa Tecsitel
- bPrevisualizar := ElegirOpcionesImpresionPresupuestoCliente(AVerSello, AVerISO);
+ bPrevisualizar := ElegirOpcionesImpresionPresupuestoCliente(AVerSello);
if bPrevisualizar then
for I := 0 to ListaID.Count - 1 do
- if (Controller as IPresupuestosClienteReportController).ExportToWord(ListaID[I], '', AVerSello, AVerISO) then
+ if (Controller as IPresupuestosClienteReportController).ExportToWord(ListaID[I], '', AVerSello) then
ShowInfoMessage('El presupuesto se ha exportado correctamente.');
end;
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm
index ce07193f..c9c9413d 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm
+++ b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm
@@ -30,7 +30,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
end
object edtFechaPresupuesto: TcxDBDateEdit
Left = 123
- Top = 82
+ Top = 109
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_PRESUPUESTO'
DataBinding.DataSource = DADataSource
@@ -52,12 +52,12 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
- TabOrder = 3
+ TabOrder = 4
Width = 260
end
object memObservaciones: TcxDBMemo
Left = 22
- Top = 220
+ Top = 247
Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource
@@ -77,7 +77,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
- TabOrder = 8
+ TabOrder = 9
Height = 217
Width = 507
end
@@ -113,7 +113,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
end
object cbFormaPago: TcxDBLookupComboBox
Left = 123
- Top = 163
+ Top = 190
DataBinding.DataField = 'ID_FORMA_PAGO'
DataBinding.DataSource = DADataSource
Properties.KeyFieldNames = 'ID'
@@ -142,21 +142,21 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
- TabOrder = 6
+ TabOrder = 7
Width = 122
end
object bFormasPago: TButton
Left = 318
- Top = 163
+ Top = 190
Width = 132
Height = 21
Caption = 'Ver las formas de pago...'
- TabOrder = 7
+ TabOrder = 8
OnClick = bFormasPagoClick
end
object edtFechaDecision: TcxDBDateEdit
Left = 123
- Top = 109
+ Top = 136
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_DECISION'
DataBinding.DataSource = DADataSource
@@ -177,7 +177,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
- TabOrder = 4
+ TabOrder = 5
Width = 260
end
object eRefCliente: TcxDBTextEdit
@@ -234,12 +234,12 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
- TabOrder = 10
+ TabOrder = 11
Width = 350
end
object cbSituacion: TcxDBImageComboBox
Left = 123
- Top = 136
+ Top = 163
DataBinding.DataField = 'SITUACION'
DataBinding.DataSource = DADataSource
Properties.Items = <
@@ -268,7 +268,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
- TabOrder = 5
+ TabOrder = 6
Width = 260
end
object eReferenciaAux: TcxDBTextEdit
@@ -311,7 +311,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
- TabOrder = 9
+ TabOrder = 10
ReadOnly = False
ExplicitLeft = 480
ExplicitTop = 28
@@ -368,7 +368,27 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
Width = 23
Height = 25
Action = actElegirClienteFinal
- TabOrder = 11
+ TabOrder = 12
+ end
+ object eCertificadoISO: TcxDBCheckBox
+ Left = 22
+ Top = 82
+ Caption = 'Certificaci'#243'n ISO'
+ DataBinding.DataField = 'CERTIFICADO_ISO'
+ DataBinding.DataSource = DADataSource
+ Properties.ValueChecked = 1
+ Properties.ValueUnchecked = 0
+ Style.LookAndFeel.Kind = lfStandard
+ Style.LookAndFeel.NativeStyle = True
+ StyleDisabled.LookAndFeel.Kind = lfStandard
+ StyleDisabled.LookAndFeel.NativeStyle = True
+ StyleFocused.LookAndFeel.Kind = lfStandard
+ StyleFocused.LookAndFeel.NativeStyle = True
+ StyleHot.LookAndFeel.Kind = lfStandard
+ StyleHot.LookAndFeel.NativeStyle = True
+ TabOrder = 3
+ Transparent = True
+ Width = 359
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
@@ -409,6 +429,11 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
Control = eRefCliente
ControlOptions.ShowBorder = False
end
+ object dxLayoutControl1Item13: TdxLayoutItem
+ ShowCaption = False
+ Control = eCertificadoISO
+ ControlOptions.ShowBorder = False
+ end
object dxLayoutControl1Item2: TdxLayoutItem
Caption = 'Fecha presupuesto:'
Control = edtFechaPresupuesto
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas
index 18ada3a2..cc966e36 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas
+++ b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas
@@ -11,7 +11,8 @@ uses
cxTextEdit, cxMaskEdit, cxCalendar, dxLayoutControl, cxControls, cxMemo,
uViewDireccionEntregaPresupuestoCliente, Buttons, ActnList, cxLookupEdit,
cxDBLookupEdit, cxDBLookupComboBox, uFormasPagoController, uDAInterfaces,
- uBizFormasPago, cxButtonEdit, uViewDatosYSeleccionClientePresupuesto;
+ uBizFormasPago, cxButtonEdit, uViewDatosYSeleccionClientePresupuesto,
+ cxCheckBox;
type
IViewPresupuestoCliente = interface(IViewBase)
@@ -66,6 +67,8 @@ type
dxLayoutControl1Item12: TdxLayoutItem;
Label1: TLabel;
dxLayoutControl1Group9: TdxLayoutGroup;
+ dxLayoutControl1Item13: TdxLayoutItem;
+ eCertificadoISO: TcxDBCheckBox;
procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
procedure bFormasPagoClick(Sender: TObject);
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm
index f41ef537..96fc37e8 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm
+++ b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm
@@ -36,6 +36,24 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
DataController.OnCompare = cxGridViewDataControllerCompare
OptionsCustomize.ColumnHidingOnGrouping = False
OptionsView.GroupFooters = gfAlwaysVisible
+ object cxGridViewCERTIFICADO_ISO: TcxGridDBColumn
+ DataBinding.FieldName = 'CERTIFICADO_ISO'
+ PropertiesClassName = 'TcxImageComboBoxProperties'
+ Properties.Images = GridPNGImageList
+ Properties.Items = <
+ item
+ Description = 'No ISO'
+ ImageIndex = 1
+ Value = 0
+ end
+ item
+ Description = 'ISO'
+ ImageIndex = 4
+ Value = 1
+ end>
+ Visible = False
+ VisibleForCustomization = False
+ end
object cxGridViewINCIDENCIASACTIVAS: TcxGridDBColumn
Caption = 'Incidencias'
DataBinding.FieldName = 'INCIDENCIAS_ACTIVAS'
@@ -170,25 +188,31 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
Width = 285
end
inherited edtFechaFinFiltro: TcxDateEdit
- Left = 295
+ Left = 292
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 295
+ ExplicitLeft = 292
ExplicitWidth = 504
Width = 504
end
inherited eLista: TcxComboBox
- Left = 757
+ Left = 750
Properties.OnChange = nil
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 757
- ExplicitWidth = 215
- Width = 215
+ ExplicitLeft = 750
+ end
+ inherited eLista2: TcxComboBox
+ Left = 833
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitLeft = 833
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup
@@ -196,6 +220,10 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
Caption = 'Con/Sin Factura:'
Visible = True
end
+ inherited dxLayoutControl1Item5: TdxLayoutItem
+ Caption = 'ISO:'
+ Visible = True
+ end
end
end
end
@@ -532,6 +560,43 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
CF0000000049454E44AE426082}
Name = 'PngImage3'
Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 610000001974455874536F6674776172650041646F626520496D616765526561
+ 647971C9653C000003914944415478DA4DD27B4C5B551C07F06FEFA3E5F6C56B
+ 0C0B58A924CEB9CD01DA6A702677715B4C5894CC6C7F18CDFC6344D0388D1AC9
+ 626222D3FDC1602E99BA202E13612E6EDD545C743CDA4BE660C056CACA63039C
+ 6D6829A3ACD04B5BFAA097EBED5D829E73929B7BCEF77C92F33B47218A22AC76
+ E7052DADAB2AD19AFC94821417132178A3330044A4D652C8A4B360D294602515
+ C3BCE0D586E3D1E97D2F9555480128D240FF907F70430161F19113E0E311E4AB
+ 0C306799415352620DF8273A8BC9953114EA0DD0470BF0E5D767022DC7EAF2D7
+ 81B1E1B03DD3B4B2F38F583B7CFC1C76E5EFC133D966DC0DDF41B1D60457C885
+ D787AB50A0DB8863B41547EBCFBAFB7EFDF6F17560E86680DB68047B0BDD7810
+ 594259761982C920FA1EFC8522E6513C9BF33C7EBBD70146A9C60BC2ABA86F68
+ F1D8CF9F34AD039323498E2E5A60AB5D07E00B06A1566680509050936A445211
+ 28A4AE2619146616E1107304C74FB67BBADA1BFF03DCB7C179B3FAD91B892E6C
+ A19F435C8C4BE55B034550D0513AF0AB3C184285F155270A0316B47ED3E9E93C
+ F73F60DA9992800136A69F430E0CF0C5BCE935E8681D5ECEDF8BABF7AF404D31
+ 5031B4945D415B738FA7B3AD315D03F121E04871BEDC217621631AE5EA0A4485
+ 880C64489B9ED06DC27868141A5A837BC969F05319F8FDE71BBE1F4E1C795A8A
+ 446560CAB1CACDE53AD845B51BFAF90D48AC25612C36C2D5EFC266C353509A28
+ A848256696BCB8DDE346785939FFD9FB07F748C0AC0CDCBD99E002794E36ACF5
+ A3F304973E19A64627E19B9945848FE0AD770E626BE9167C50FD210C86428C8F
+ 8E894D8D8D75B5B5B5571E028349F908C85EC69F5FF5C8559F70DD91BFE67233
+ F28AF2D077ED3ACC2F5A50B9773FEADEFB28292463F68E8E8EA332E0BCBECCC5
+ 0ADCEC38790DCED31360A42BDB5E5A0A8FC7036BBB154693117C8847F5BB8750
+ B163173E39FCF12ABF1818B0D96C9FCAC0A5AE61AE7CF363AC421FC3F12F1AA0
+ 2469587FBA88DD95BBE1F379A150004F6EDF844B3FFE8257F6BD86D6EFCE8835
+ 356F9F6A6A6A3A2B03D66E87DDB2AD64A7F1912C70B65E08D2FB37198BD1D2FA
+ 3D02293FDEA879138C9E81FDAA0D7EC712085A133AD5F079A5542C8F0C5CEEBE
+ 35A8D7A82CF71782D20312A1A269100401254503290A4B311E8220224F978384
+ 1047F740EF62737DDD5609E065E0F4F9AE0B3DFDBD55432323FEDC9C5C902401
+ 9A2014D2000902D25E319D4B375A456AA5F9BF7BDB9A7748BFC2BFE7F1A7FE88
+ C153E90000000049454E44AE426082}
+ Name = 'PngImage4'
+ Background = clWindow
end>
Bitmap = {}
end
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas
index 6c3a9dbe..aac2d94d 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas
+++ b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas
@@ -11,7 +11,8 @@ uses
cxGridCustomPopupMenu, cxGridPopupMenu, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk,
uDADataTable, cxGridLevel, cxClasses, cxControls, cxGridCustomView, Classes,
cxGrid, uBizPresupuestosCliente, cxCurrencyEdit, Forms, uViewFiltroBase, ActnList, TB2Item,
- TBX, TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces, Windows;
+ TBX, TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces, Windows,
+ uCustomView, uViewBase;
type
IViewPresupuestosCliente = interface(IViewGrid)
@@ -46,6 +47,7 @@ type
cxGridViewNIF_CIF: TcxGridDBColumn;
cxGridViewINCIDENCIAS: TcxGridDBColumn;
cxStyleRECHAZADO: TcxStyle;
+ cxGridViewCERTIFICADO_ISO: TcxGridDBColumn;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
TcxGridLevel);
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
@@ -68,6 +70,9 @@ type
AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer);
procedure OnFiltroListaPropertiesChange(Sender: TObject);
procedure OnFiltroListaPropertiesInitPopup(Sender: TObject);
+ procedure OnFiltroListaISOPropertiesChange(Sender: TObject);
+ procedure OnFiltroListaISOPropertiesInitPopup(Sender: TObject);
+
procedure CustomViewDestroy(Sender: TObject);
procedure CustomViewShow(Sender: TObject);
procedure frViewFiltroBase1actQuitarFiltroExecute(Sender: TObject);
@@ -77,6 +82,7 @@ type
procedure AnadirFiltroSituaciones;
procedure AnadirFiltroFechas;
procedure AnadirFiltroFacturado;
+ procedure AnadirFiltroISO;
protected
FPresupuestos: IBizPresupuestoCliente;
@@ -159,6 +165,31 @@ begin
end;
end;
+procedure TfrViewPresupuestosCliente.AnadirFiltroISO;
+var
+ FFiltro : TcxFilterCriteriaItemList;
+begin
+ //Solo se aplica este filtro en el caso de tener activo el panel de detalle de filtro
+ //y sobre la lista de presupuestos de cliente
+ if frViewFiltroBase1.Visible then
+ begin
+ case frViewFiltroBase1.eLista2.ItemIndex of
+//Con ISO
+ 1 : begin
+ FFiltro := AddFilterGrid(fboAnd);
+ FFiltro.AddItem(cxGridViewCERTIFICADO_ISO, foEqual, '1', 'ConISO');
+ end;
+
+//SIN ISO
+ 2: begin
+ FFiltro := AddFilterGrid(fboAnd);
+ FFiltro.AddItem(cxGridViewCERTIFICADO_ISO, foEqual, '0', 'SinISO');
+ end;
+ end;
+ end;
+
+end;
+
procedure TfrViewPresupuestosCliente.AnadirFiltroFacturado;
var
FFiltro : TcxFilterCriteriaItemList;
@@ -203,6 +234,7 @@ begin
AnadirFiltroSituaciones;
AnadirFiltroFechas;
AnadirFiltroFacturado;
+ AnadirFiltroISO;
//Finalmente activamos el filtro si tenemos algo
if cxGridView.DataController.Filter.IsEmpty then
@@ -215,7 +247,10 @@ end;
procedure TfrViewPresupuestosCliente.CustomViewDestroy(Sender: TObject);
begin
frViewFiltroBase1.eLista.Properties.OnChange := Nil;
- frViewFiltroBase1.eLista.Properties.OnInitPopup := Nil;
+ frViewFiltroBase1.eLista.Properties.OnInitPopup := Nil;
+ frViewFiltroBase1.eLista2.Properties.OnChange := Nil;
+ frViewFiltroBase1.eLista2.Properties.OnInitPopup := Nil;
+
inherited;
end;
@@ -224,6 +259,8 @@ begin
inherited;
frViewFiltroBase1.eLista.Properties.OnChange := OnFiltroListaPropertiesChange;
frViewFiltroBase1.eLista.Properties.OnInitPopup := OnFiltroListaPropertiesInitPopup;
+ frViewFiltroBase1.eLista2.Properties.OnChange := OnFiltroListaISOPropertiesChange;
+ frViewFiltroBase1.eLista2.Properties.OnInitPopup := OnFiltroListaISOPropertiesInitPopup;
end;
procedure TfrViewPresupuestosCliente.cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: TcxGridLevel);
@@ -247,19 +284,23 @@ end;
procedure TfrViewPresupuestosCliente.cxGridViewICONOCustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
-{var
- R : TRect;}
+var
+ R : TRect;
begin
- inherited;
-{ R := AViewInfo.ContentBounds;
+ inherited;
+ R := AViewInfo.ContentBounds;
ACanvas.FillRect(R);
if (cxGridView.DataController.DisplayTexts[AViewInfo.GridRecord.RecordIndex,
- cxGridViewINCIDENCIASACTIVAS.Index] = 'Sin incidencias') then
- ACanvas.DrawImage(GridPNGImageList, R.Left + 2, R.Top + 2, 1)
+ cxGridViewINCIDENCIASACTIVAS.Index] <> 'Sin incidencias') then
+ ACanvas.DrawImage(GridPNGImageList, R.Left + 2, R.Top + 2, 2)
+ else if (cxGridView.DataController.DisplayTexts[AViewInfo.GridRecord.RecordIndex,
+ cxGridViewCERTIFICADO_ISO.Index] = 'ISO') then
+ ACanvas.DrawImage(GridPNGImageList, R.Left + 2, R.Top + 2, 4)
else
- ACanvas.DrawImage(GridPNGImageList, R.Left + 2, R.Top + 2, 2);
- ADone := True;}
+ ACanvas.DrawImage(GridPNGImageList, R.Left + 2, R.Top + 2, 1);
+
+ ADone := True;
end;
procedure TfrViewPresupuestosCliente.cxGridViewINCIDENCIASACTIVASGetCellHint(
@@ -272,7 +313,8 @@ begin
if (ARecord.DisplayTexts[Sender.Index] <> 'Sin incidencias') then
begin
AIsHintMultiLine := True;
- AHintText := ARecord.Values[cxGridViewINCIDENCIAS.Index]
+ if not VarIsNull(ARecord.Values[cxGridViewINCIDENCIAS.Index]) then
+ AHintText := ARecord.Values[cxGridViewINCIDENCIAS.Index];
end;
end;
@@ -301,6 +343,34 @@ procedure TfrViewPresupuestosCliente.frViewFiltroBase1actQuitarFiltroExecute(Sen
begin
frViewFiltroBase1.txtFiltroTodo.Clear;
frViewFiltroBase1.eLista.Clear;
+ frViewFiltroBase1.eLista2.Clear;
+end;
+
+procedure TfrViewPresupuestosCliente.OnFiltroListaISOPropertiesChange(
+ Sender: TObject);
+begin
+ inherited;
+ RefrescarFiltro;
+end;
+
+procedure TfrViewPresupuestosCliente.OnFiltroListaISOPropertiesInitPopup(
+ Sender: TObject);
+begin
+ inherited;
+
+ with frViewFiltroBase1.eLista2.Properties.Items do
+ begin
+ BeginUpdate;
+ try
+ Clear;
+ Add('Todos'); //Case 0
+ Add('Con ISO'); //Case 1
+ Add('Sin ISO'); //Case 2
+ frViewFiltroBase1.eLista2.ItemIndex := 0;
+ finally
+ EndUpdate;
+ end;
+ end;
end;
procedure TfrViewPresupuestosCliente.OnFiltroListaPropertiesChange(Sender: TObject);
diff --git a/Source/Servicios/FactuGES.RODL b/Source/Servicios/FactuGES.RODL
index 08918ca1..906bbb49 100644
--- a/Source/Servicios/FactuGES.RODL
+++ b/Source/Servicios/FactuGES.RODL
@@ -316,8 +316,6 @@
-
-
@@ -328,8 +326,6 @@
-
-
@@ -348,8 +344,6 @@
-
-
diff --git a/Source/Servicios/FactuGES_Intf.pas b/Source/Servicios/FactuGES_Intf.pas
index 58f68102..7baca6d6 100644
--- a/Source/Servicios/FactuGES_Intf.pas
+++ b/Source/Servicios/FactuGES_Intf.pas
@@ -546,10 +546,10 @@ type
{ IsrvPresupuestosCliente }
IsrvPresupuestosCliente = interface(IDataAbstractService)
['{8A06D5A7-8461-4F6E-8A8B-EC49C84C45D1}']
- function GenerarInforme(const ListaID: TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary;
- function GenerarInformeEnWord(const ID: Integer; const VerSello: Integer; const VerISO: Integer): Binary;
+ function GenerarInforme(const ListaID: TIntegerArray; const VerSello: Integer): Binary;
+ function GenerarInformeEnWord(const ID: Integer; const VerSello: Integer): Binary;
function GenerarCertificadoTrabajosEnWord(const ID: Integer): Binary;
- function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary;
+ function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerSello: Integer): Binary;
end;
{ CosrvPresupuestosCliente }
@@ -562,10 +562,10 @@ type
protected
function __GetInterfaceName:string; override;
- function GenerarInforme(const ListaID: TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary;
- function GenerarInformeEnWord(const ID: Integer; const VerSello: Integer; const VerISO: Integer): Binary;
+ function GenerarInforme(const ListaID: TIntegerArray; const VerSello: Integer): Binary;
+ function GenerarInformeEnWord(const ID: Integer; const VerSello: Integer): Binary;
function GenerarCertificadoTrabajosEnWord(const ID: Integer): Binary;
- function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary;
+ function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerSello: Integer): Binary;
end;
{ IsrvPedidosProveedor }
@@ -1817,14 +1817,13 @@ begin
result := 'srvPresupuestosCliente';
end;
-function TsrvPresupuestosCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary;
+function TsrvPresupuestosCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray; const VerSello: Integer): Binary;
begin
try
result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInforme');
__Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Write('VerSello', TypeInfo(Integer), VerSello, []);
- __Message.Write('VerISO', TypeInfo(Integer), VerISO, []);
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
@@ -1836,14 +1835,13 @@ begin
end
end;
-function TsrvPresupuestosCliente_Proxy.GenerarInformeEnWord(const ID: Integer; const VerSello: Integer; const VerISO: Integer): Binary;
+function TsrvPresupuestosCliente_Proxy.GenerarInformeEnWord(const ID: Integer; const VerSello: Integer): Binary;
begin
try
result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeEnWord');
__Message.Write('ID', TypeInfo(Integer), ID, []);
__Message.Write('VerSello', TypeInfo(Integer), VerSello, []);
- __Message.Write('VerISO', TypeInfo(Integer), VerISO, []);
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
@@ -1872,14 +1870,13 @@ begin
end
end;
-function TsrvPresupuestosCliente_Proxy.GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary;
+function TsrvPresupuestosCliente_Proxy.GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerSello: Integer): Binary;
begin
try
result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeEnPDF');
__Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Write('VerSello', TypeInfo(Integer), VerSello, []);
- __Message.Write('VerISO', TypeInfo(Integer), VerISO, []);
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
diff --git a/Source/Servicios/FactuGES_Invk.pas b/Source/Servicios/FactuGES_Invk.pas
index 9a278b86..f1c97e18 100644
--- a/Source/Servicios/FactuGES_Invk.pas
+++ b/Source/Servicios/FactuGES_Invk.pas
@@ -963,11 +963,10 @@ begin
end;
procedure TsrvPresupuestosCliente_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-{ function GenerarInforme(const ListaID: TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary; }
+{ function GenerarInforme(const ListaID: TIntegerArray; const VerSello: Integer): Binary; }
var
ListaID: FactuGES_Intf.TIntegerArray;
VerSello: Integer;
- VerISO: Integer;
lResult: Binary;
__lObjectDisposer: TROObjectDisposer;
begin
@@ -976,9 +975,8 @@ begin
try
__Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Read('VerSello', TypeInfo(Integer), VerSello, []);
- __Message.Read('VerISO', TypeInfo(Integer), VerISO, []);
- lResult := (__Instance as IsrvPresupuestosCliente).GenerarInforme(ListaID, VerSello, VerISO);
+ lResult := (__Instance as IsrvPresupuestosCliente).GenerarInforme(ListaID, VerSello);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvPresupuestosCliente', 'GenerarInformeResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []);
@@ -997,11 +995,10 @@ begin
end;
procedure TsrvPresupuestosCliente_Invoker.Invoke_GenerarInformeEnWord(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-{ function GenerarInformeEnWord(const ID: Integer; const VerSello: Integer; const VerISO: Integer): Binary; }
+{ function GenerarInformeEnWord(const ID: Integer; const VerSello: Integer): Binary; }
var
ID: Integer;
VerSello: Integer;
- VerISO: Integer;
lResult: Binary;
__lObjectDisposer: TROObjectDisposer;
begin
@@ -1009,9 +1006,8 @@ begin
try
__Message.Read('ID', TypeInfo(Integer), ID, []);
__Message.Read('VerSello', TypeInfo(Integer), VerSello, []);
- __Message.Read('VerISO', TypeInfo(Integer), VerISO, []);
- lResult := (__Instance as IsrvPresupuestosCliente).GenerarInformeEnWord(ID, VerSello, VerISO);
+ lResult := (__Instance as IsrvPresupuestosCliente).GenerarInformeEnWord(ID, VerSello);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvPresupuestosCliente', 'GenerarInformeEnWordResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []);
@@ -1057,11 +1053,10 @@ begin
end;
procedure TsrvPresupuestosCliente_Invoker.Invoke_GenerarInformeEnPDF(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-{ function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerSello: Integer; const VerISO: Integer): Binary; }
+{ function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerSello: Integer): Binary; }
var
ListaID: FactuGES_Intf.TIntegerArray;
VerSello: Integer;
- VerISO: Integer;
lResult: Binary;
__lObjectDisposer: TROObjectDisposer;
begin
@@ -1070,9 +1065,8 @@ begin
try
__Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Read('VerSello', TypeInfo(Integer), VerSello, []);
- __Message.Read('VerISO', TypeInfo(Integer), VerISO, []);
- lResult := (__Instance as IsrvPresupuestosCliente).GenerarInformeEnPDF(ListaID, VerSello, VerISO);
+ lResult := (__Instance as IsrvPresupuestosCliente).GenerarInformeEnPDF(ListaID, VerSello);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvPresupuestosCliente', 'GenerarInformeEnPDFResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []);
diff --git a/Source/Servicios/RODLFILE.res b/Source/Servicios/RODLFILE.res
index 13ecda8f..d48b90b5 100644
Binary files a/Source/Servicios/RODLFILE.res and b/Source/Servicios/RODLFILE.res differ
diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index 44014e3d..8e02e02c 100644
Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ
diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr
index 45216db6..cd2dcc3c 100644
--- a/Source/Servidor/FactuGES_Server.dpr
+++ b/Source/Servidor/FactuGES_Server.dpr
@@ -115,12 +115,8 @@ uses
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
uRptFacturasProveedor_Server in '..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas' {RptFacturasProveedor: TDataModule},
uRptRecibosProveedor_Server in '..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas' {RptRecibosProveedor: TDataModule},
- schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
- schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
- schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
- schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
uRptAlbaranesProveedor_Server in '..\Modulos\Albaranes de proveedor\Reports\uRptAlbaranesProveedor_Server.pas' {RptAlbaranesProveedor: TDataModule},
uRptWordAlbaranProveedor in '..\Modulos\Albaranes de proveedor\Reports\uRptWordAlbaranProveedor.pas' {RptWordAlbaranProveedor: TDataModule},
MidasSpeedFix in 'Utiles\MidasSpeedFix.pas',
@@ -135,7 +131,11 @@ uses
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
- schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas';
+ schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
+ schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
+ schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
+ schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
+ schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}
diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj
index 233f9bdd..db2e71b7 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -1,334 +1,334 @@
-
+
-
- {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}
- FactuGES_Server.dpr
- Debug
- AnyCPU
- DCC32
- ..\..\Output\Debug\Servidor\FactuGES_Server.exe
- vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11R;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100
-
-
- 7.0
- False
- False
- 0
- 3
- ..\..\Output\Release\Servidor
- RELEASE
-
-
- 7.0
- 3
- ..\..\Output\Debug\Servidor
- DEBUG;
- True
- True
- True
- C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
- C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
- C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
- C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
-
-
- Delphi.Personality
-
-
- FalseTrueFalse/standaloneTrueFalse2050FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.0.5.0FactuGES Servidor2.0.5.0viernes, 24 de enero de 2014 18:50
- ExpressPrinting System by Developer Express Inc.
- FactuGES_Server.dpr
-
-
-
-
- MainSource
-
-
-
-
-
-
- TDARemoteService
-
-
-
- TDataModule
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDARemoteService
-
-
-
-
-
-
- TDARemoteService
-
-
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDARemoteService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
- TDataAbstractService
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataModule
-
-
-
- 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
+ vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11R;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100
+
+
+ 7.0
+ False
+ False
+ 0
+ 3
+ ..\..\Output\Release\Servidor
+ RELEASE
+
+
+ 7.0
+ 3
+ ..\..\Output\Debug\Servidor
+ DEBUG;
+ True
+ True
+ True
+ C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
+ C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
+ C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
+ C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
+
+
+ Delphi.Personality
+
+
+FalseTrueFalse/standaloneTrueFalse2050FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.0.5.0FactuGES Servidor2.0.5.0viernes, 24 de enero de 2014 18:50
+ ExpressPrinting System by Developer Express Inc.
+ FactuGES_Server.dpr
+
+
+
+
+ MainSource
+
+
+
+
+
+
+ TDARemoteService
+
+
+
+ TDataModule
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDARemoteService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+ TDataAbstractService
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+ TFrame
+
+
+
+ TFrame
+
+
+
+ TForm
+
+
+
+ TFrame
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+ TDataModule
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+