Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Logotipo ISO en Tecsitel

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1099 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2014-02-18 22:41:52 +00:00
parent 7a78a49bfd
commit b5be3112ce
70 changed files with 1610 additions and 748 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Build/Build.fbpInf
View File

@ -6,7 +6,7 @@
<propertysets/>
<variables>
<project_path>
<![CDATA[C:\Codigo Tecsitel]]>
<![CDATA[C:\Codigo tecsitel]]>
</project_path>
</variables>
<properties>

20
Database/scripts/factuges.sql
View File

@ -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 (
@ -2092,7 +2094,8 @@ CREATE VIEW V_FACTURAS_CLIENTE(
ID_AGENTE,
REFERENCIA_COMISION,
RETENCION,
IMPORTE_RETENCION)
IMPORTE_RETENCION,
CERTIFICADO_ISO)
AS
SELECT FACTURAS_CLIENTE.ID,
FACTURAS_CLIENTE.ID_EMPRESA,
@ -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)

BIN
Resources/Iconos/Facturas de cliente/16x16/ISO16.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 261 B

BIN
Resources/Iconos/Facturas de cliente/24x24/ISO24.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 344 B

BIN
Resources/Iconos/Facturas de cliente/28x28/ISO28.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 372 B

BIN
Resources/Iconos/Presupuestos/16x16/BudgetISO.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 933 B

BIN
Resources/Iconos/Presupuestos/24x24/BudgetISO.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.5 KiB

BIN
Resources/Iconos/Presupuestos/28x28/BudgetISO.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.3 KiB

2
Source/Cliente/FactuGES.rc
View File

@ -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

29
Source/GUIBase/uViewFiltroBase.dfm
View File

@ -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

2
Source/GUIBase/uViewFiltroBase.pas
View File

@ -45,6 +45,8 @@ type
TBXAlignmentPanel1: TTBXAlignmentPanel;
dxLayoutControl1Item4: TdxLayoutItem;
eLista: TcxComboBox;
dxLayoutControl1Item5: TdxLayoutItem;
eLista2: TcxComboBox;
procedure OnCamposFiltroChange(Sender: TObject);
procedure actQuitarFiltroExecute(Sender: TObject);

BIN
Source/Informes/1/AlbaranCliente.rdx
View File

Binary file not shown.

BIN
Source/Informes/1/AlbaranProveedor.rdx
View File

Binary file not shown.

BIN
Source/Informes/1/FacturaCliente.rdx
View File

Binary file not shown.

4
Source/Informes/1/InfAlbaranCliente.fr3
View File

File diff suppressed because one or more lines are too long

4
Source/Informes/1/InfAlbaranProveedor.fr3
View File

File diff suppressed because one or more lines are too long

4
Source/Informes/1/InfFacturaCliente.fr3
View File

File diff suppressed because one or more lines are too long

4
Source/Informes/1/InfPedidoProveedor.fr3
View File

File diff suppressed because one or more lines are too long

4
Source/Informes/1/InfPresupuestoCliente.fr3
View File

File diff suppressed because one or more lines are too long

BIN
Source/Informes/1/PedidoProveedor.rdx
View File

Binary file not shown.

2
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm
View File

@ -236,8 +236,6 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 638
ExplicitWidth = 215
Width = 215
end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel

3
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas
View File

@ -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;

10
Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.dfm
View File

@ -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

5
Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.pas
View File

@ -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;

6
Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm
View File

@ -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]

75
Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
View File

@ -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);

75
Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas
View File

@ -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);

35
Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm
View File

@ -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

35
Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.dfm
View File

@ -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

5
Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.pas
View File

@ -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;

135
Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
View File

@ -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>

90
Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm
View File

@ -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

5
Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas
View File

@ -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);

145
Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm
View File

@ -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

23
Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas
View File

@ -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);

3
Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.pas
View File

@ -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;

16
Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas
View File

@ -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;

32
Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteReportController.pas
View File

@ -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

4
Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm
View File

@ -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]

18
Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.pas
View File

@ -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;

6
Source/Modulos/Presupuestos de cliente/Model/Data/uIDataModulePresupuestosClienteReport.pas
View File

@ -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

49
Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas
View File

@ -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);

55
Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas
View File

@ -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);

1
Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas
View File

@ -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;

34
Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm
View File

@ -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

21
Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas
View File

@ -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);

44
Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.dfm
View File

@ -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

9
Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas
View File

@ -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', '');

117
Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm
View File

@ -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>

18
Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.pas
View File

@ -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);

41
Source/Modulos/Presupuestos de cliente/Views/uDialogOpcionesImpresionPresupuestosCliente.dfm
View File

@ -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

16
Source/Modulos/Presupuestos de cliente/Views/uDialogOpcionesImpresionPresupuestosCliente.pas
View File

@ -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

10
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas
View File

@ -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;

1
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm
View File

@ -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

10
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas
View File

@ -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;

4
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosClienteReport.pas
View File

@ -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;

55
Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm
View File

@ -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

5
Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas
View File

@ -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);

77
Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm
View File

@ -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

88
Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas
View File

@ -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
@ -216,6 +248,9 @@ procedure TfrViewPresupuestosCliente.CustomViewDestroy(Sender: TObject);
begin
frViewFiltroBase1.eLista.Properties.OnChange := 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;
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);

6
Source/Servicios/FactuGES.RODL
View File

@ -316,8 +316,6 @@
</Parameter>
<Parameter Name="VerSello" DataType="Integer" Flag="In" >
</Parameter>
<Parameter Name="VerISO" DataType="Integer" Flag="In" >
</Parameter>
</Parameters>
</Operation>
<Operation Name="GenerarInformeEnWord" UID="{7C3C767B-41AC-42EC-925D-ECAE03BD8F58}">
@ -328,8 +326,6 @@
</Parameter>
<Parameter Name="VerSello" DataType="Integer" Flag="In" >
</Parameter>
<Parameter Name="VerISO" DataType="Integer" Flag="In" >
</Parameter>
</Parameters>
</Operation>
<Operation Name="GenerarCertificadoTrabajosEnWord" UID="{F96E1E6B-131C-4F1F-BF2A-3E7B0B6ABF09}">
@ -348,8 +344,6 @@
</Parameter>
<Parameter Name="VerSello" DataType="Integer" Flag="In" >
</Parameter>
<Parameter Name="VerISO" DataType="Integer" Flag="In" >
</Parameter>
</Parameters>
</Operation>
</Operations>

21
Source/Servicios/FactuGES_Intf.pas
View File

@ -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);

18
Source/Servicios/FactuGES_Invk.pas
View File

@ -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, []);

BIN
Source/Servicios/RODLFILE.res
View File

Binary file not shown.

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

10
Source/Servidor/FactuGES_Server.dpr
View File

@ -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}

2
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,4 +1,4 @@
<?xml version="1.0" encoding="utf-8"?>
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>

4
Source/Servidor/FactuGES_Server.rc
View File

@ -1,4 +1,4 @@
MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Servidor.ico"
MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Servidor.ico"
1 VERSIONINFO
FILEVERSION 2,0,5,0
PRODUCTVERSION 2,0,5,0
@ -16,7 +16,7 @@ BEGIN
VALUE "FileVersion", "2.0.5.0\0"
VALUE "ProductName", "FactuGES Servidor\0"
VALUE "ProductVersion", "2.0.5.0\0"
VALUE "CompileDate", "martes, 28 de enero de 2014 17:51\0"
VALUE "CompileDate", "martes, 18 de febrero de 2014 14:23\0"
END
END
BLOCK "VarFileInfo"

4
Source/Servidor/uDataModuleServer.dfm
View File

@ -40,8 +40,8 @@ object dmServer: TdmServer
Name = 'IBX'
ConnectionString =
'IBX?Server=localhost;Database=C:\Codigo Tecsitel\Output\Debug\Da' +
'tabase\FACTUGES2.FDB;UserID=sysdba;Password=masterkey;Dialect=3;' +
'Charset=ISO8859_1;'
'tabase\FACTUGES.FDB;UserID=sysdba;Password=masterkey;Dialect=3;C' +
'harset=ISO8859_1;'
ConnectionType = 'Interbase'
Default = True
end>

93
TECSITEL.SQL Normal file
View File

@ -0,0 +1,93 @@
INSERT INTO PRESUPUESTOS_CLIENTE (ID, ID_EMPRESA, ID_CLIENTE, REFERENCIA, REFERENCIA_AUX, FECHA_PRESUPUESTO, FECHA_DECISION, SITUACION, INCIDENCIAS_ACTIVAS, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, IMPORTE_NETO, IMPORTE_PORTE, DESCUENTO, IMPORTE_DESCUENTO, BASE_IMPONIBLE, IVA, IMPORTE_IVA, IMPORTE_TOTAL, ID_FORMA_PAGO, REFERENCIA_CLIENTE, CLIENTE_FINAL, ID_FACTURA, PERSONA_CONTACTO, ID_DIRECCION, DESCRIPCION_BONIFICACION, IMPORTE_BONIFICACION)
VALUES (6233, 1, 374, 'PRE1312/030', NULL, '2013-12-17', '2013-12-19', 'ACEPTADO', 0, '2013-12-17 07:44:28', '2013-12-19 15:36:10', 'Maribel', 108976.64, 0, 0, 0, 108976.64, NULL, 0, 108976.64, 21, NULL, 'RENOVACION SERVICIOS EQUIPOS FORTINET.', NULL, 'JESUS MERIDA', NULL, NULL, NULL);
COMMIT WORK;
INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
VALUES (142700, 6233, 0, 'Titulo', NULL, '{\rtf1\ansi\deff0{\fonttbl{\f0\fnil\fcharset0 Tahoma;}{\f1\fnil Tahoma;}} \viewkind4\uc1\pard\lang3082\b\f0\fs24 RENOVACION HASTA 3 DE ENERO DE 2015\f1\par }', NULL, NULL, NULL, NULL, NULL, NULL, 1, '2013-12-17 07:44:28', NULL);
INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
VALUES (142701, 6233, 1, 'Concepto', NULL, '*FG300C3911602513 (Coterm End Date:Jan-03-2015) Last Expiry Date:May-23-2013. Advanced Hardware Replacement (NBD), Firmware and General Upgrades, 24X7 Comprehensive Support, UTM Services Bundle (NGFW, AV, Web Filtering, and Antispam', 1, 'UD.', 4873.5, NULL, NULL, 4873.5, 1, '2013-12-17 07:44:28', '2013-12-17 07:46:44');
INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
VALUES (142703, 6233, 2, 'Concepto', NULL, '*FL-2KB3R12600072 (Coterm End Date:Jan-03-2015) Last Expiry Date:Sep-23-2013. 24X7 Comprehensive Support', 1, 'UD.', 6333.97, NULL, NULL, 6333.97, 1, '2013-12-17 07:44:28', '2013-12-17 07:46:44');
INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
VALUES (142704, 6233, 3, 'Concepto', NULL, '*FMG1KC3R12600040 (Coterm End Date:Jan-03-2015) Last Expiry Date:Sep-24-2013, 24X7 Comprehensive Support', 1, 'UD.', 5461.7, NULL, NULL, 5461.7, 1, '2013-12-17 07:44:28', '2013-12-17 07:46:44');
INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
VALUES (142705, 6233, 4, 'Concepto', NULL, 'FAC1KC3R12600011 (Coterm End Date:Jan-03-2015) Last Expiry Date:Dec-09-2014. 24X7 Comprehensive Support', 1, 'UD.', 220.5, NULL, NULL, 220.5, 1, '2013-12-17 07:44:28', '2013-12-17 07:46:44');
INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
VALUES (142706, 6233, 5, 'Concepto', NULL, 'FAC1KC3R12600014 (Coterm End Date:Jan-03-2015) Last Expiry Date:Dec-09-2014. 24X7 Comprehensive Support', 1, 'UD.', 220.5, NULL, NULL, 220.5, 1, '2013-12-17 07:44:28', '2013-12-17 07:46:44');
INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
VALUES (142707, 6233, 6, 'Concepto', NULL, '(Coterm End Date:Jan-03-2015) Advanced Hardware Replacement (NBD), Firmware and General Upgrades, 24X7 Comprehensive Support, UTM Services Bundle (NGFW, AV, Web Filtering, and Antispam', 10, 'UDS.', 940.45, NULL, NULL, 9404.5, 1, '2013-12-17 07:44:28', '2013-12-17 07:46:44');
INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
VALUES (142708, 6233, 7, 'Concepto', NULL, 'FG100C3G08600550, FG100C3G08601502, FG100C3G09605187', NULL, NULL, NULL, NULL, NULL, NULL, 1, '2013-12-17 07:44:28', NULL);
INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
VALUES (142709, 6233, 8, 'Concepto', NULL, 'FG100C3G09611766, FG100C3G09611810, FG100C3G09611813', NULL, NULL, NULL, NULL, NULL, NULL, 1, '2013-12-17 07:44:28', NULL);
INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
VALUES (131710, 6233, 9, 'Concepto', NULL, 'FG100C3G09614055, FG100C3G09618333, FG100C3G11600114', NULL, NULL, NULL, NULL, NULL, NULL, 1, '2013-12-17 07:44:28', NULL);
INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
VALUES (131711, 6233, 10, 'Concepto', NULL, 'FG100C3G11607700,', NULL, NULL, NULL, NULL, NULL, NULL, 1, '2013-12-17 07:44:28', NULL);
INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
VALUES (131712, 6233, 11, 'Concepto', NULL, '(Coterm End Date:Jan-03-2015) 8X5 Hardware Replacement (3 Days), Firmware and General Upgrades, 8x5 Enhanced Support, UTM Services Bundle (NGFW, AV, Web Filtering, and Antispam Services)', 2, 'UDS.', 724.68, NULL, NULL, 1449.36, 1, '2013-12-17 07:44:28', '2013-12-17 07:46:44');
INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
VALUES (131713, 6233, 12, 'Concepto', NULL, 'FG100C3G09611406, FG100C3G09611612. FG100C3G09612543', NULL, NULL, NULL, NULL, NULL, NULL, 1, '2013-12-17 07:44:28', NULL);
INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
VALUES (131714, 6233, 13, 'Concepto', NULL, 'FG100C3G10601595, FG100C3G10603342', NULL, NULL, NULL, NULL, NULL, NULL, 1, '2013-12-17 07:44:28', NULL);
INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
VALUES (131715, 6233, 14, 'Concepto', NULL, 'FG100C3G11611304 (Coterm End Date:Jan-03-2015) Last Expiry Date:Mar-22-2014. 8X5 Hardware Replacement (3 Days), Firmware and General Upgrades, 8x5 Enhanced Support, UTM Services Bundle (NGFW, AV, Web Filtering, and Antispam Services)', 1, 'UD.', 564.85, NULL, NULL, 564.85, 1, '2013-12-17 07:44:28', '2013-12-17 07:46:44');
INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
VALUES (131716, 6233, 15, 'Concepto', NULL, 'FG100C3G11607369 (Coterm End Date:Jan-03-2015) Last Expiry Date:Feb-02-2014. 8X5 Hardware Replacement (3 Days), Firmware and General Upgrades, 8x5 Enhanced Support, UTM Services Bundle (NGFW, AV, Web Filtering, and Antispam Services)', 1, 'UD.', 660.2, NULL, NULL, 660.2, 1, '2013-12-17 07:44:28', '2013-12-17 07:46:44');
INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
VALUES (131717, 6233, 16, 'Concepto', NULL, 'FG100C3G10609960 (Coterm End Date:Jan-03-2015) Last Expiry Date:Oct-16-2014. 8X5 Hardware Replacement (3 Days), Firmware and General Upgrades, 8x5 Enhanced Support, UTM Services Bundle (NGFW, AV, Web Filtering, and Antispam Services)', 1, 'UD.', 155.99, NULL, NULL, 155.99, 1, '2013-12-17 07:44:28', '2013-12-17 07:46:44');
INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
VALUES (131718, 6233, 17, 'Concepto', NULL, 'FG100C3G09618290 (Coterm End Date:Jan-03-2015) Last Expiry Date:Aug-02-2014. 8X5 Hardware Replacement (3 Days), Firmware and General Upgrades, 8x5 Enhanced Support, UTM Services Bundle (NGFW, AV, Web Filtering, and Antispam Services)', 1, 'UD.', 303.29, NULL, NULL, 303.29, 1, '2013-12-17 07:44:28', '2013-12-17 07:46:44');
INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
VALUES (131719, 6233, 18, 'Concepto', NULL, ' (Coterm End Date:Jan-03-2015) Last Expiry Date:May-28-2014. 8X5 Hardware Replacement (3 Days), Firmware and General Upgrades, 8x5 Enhanced Support, UTM Services Bundle (NGFW, AV, Web Filtering, and Antispam Services)', 1, 'UD.', 435.64, NULL, NULL, 435.64, 1, '2013-12-17 07:44:28', '2013-12-17 07:46:44');
INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
VALUES (131720, 6233, 19, 'Concepto', NULL, 'FG100C3G11612927 - FG100C3G11612665', NULL, NULL, NULL, NULL, NULL, NULL, 1, '2013-12-17 07:44:28', NULL);
INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
VALUES (131721, 6233, 20, 'Concepto', NULL, 'FG100C3G11612931 (Coterm End Date:Jan-03-2015) Last Expiry Date:Apr-23-2014. 8X5 Hardware Replacement (3 Days), Firmware and General Upgrades, 8x5 Enhanced Support, UTM Services Bundle (NGFW, AV, Web Filtering, and Antispam Services)', 1, 'UD.', 501.87, NULL, NULL, 501.87, 1, '2013-12-17 07:44:28', '2013-12-17 07:46:44');
INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
VALUES (131722, 6233, 21, 'Concepto', NULL, 'FG100C3G11614980 (Coterm End Date:Jan-03-2015) Last Expiry Date:Feb-18-2014. Advanced Hardware Replacement (NBD), Firmware and General Upgrades, 24X7 Comprehensive Support, UTM Services Bundle (NGFW, AV, Web Filtering, and Antispam', 1, 'UD.', 816.25, NULL, NULL, 816.25, 1, '2013-12-17 07:44:28', '2013-12-17 07:46:44');
INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
VALUES (131723, 6233, 22, 'Concepto', NULL, 'FG100C3G11615471 (Coterm End Date:Jan-03-2015) Last Expiry Date:Feb-19-2014. 8X5 Hardware Replacement (3 Days), Firmware and General Upgrades, 8x5 Enhanced Support, UTM Services Bundle (NGFW, AV, Web Filtering, and Antispam Services)', 1, 'UD.', 628.19, NULL, NULL, 628.19, 1, '2013-12-17 07:44:28', '2013-12-17 07:46:44');
INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
VALUES (131724, 6233, 23, 'Concepto', NULL, 'FG100C3G12600118 (Coterm End Date:Jan-03-2015) Last Expiry Date:Apr-22-2014. 8X5 Hardware Replacement (3 Days), Firmware and General Upgrades, 8x5 Enhanced Support, UTM Services Bundle (NGFW, AV, Web Filtering, and Antispam Services)', 1, 'UD.', 504.15, NULL, NULL, 504.15, 1, '2013-12-17 07:44:28', '2013-12-17 07:46:44');
INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
VALUES (131725, 6233, 24, 'Concepto', NULL, 'FG100D3G12808363 (Coterm End Date:Jan-03-2015) Last Expiry Date:Jun-23-2014. 8X5 Hardware Replacement (3 Days), Firmware and General Upgrades, 8x5 Enhanced Support, UTM Services Bundle (NGFW, AV, Web Filtering, and Antispam Services)', 1, 'UD.', 428.13, NULL, NULL, 428.13, 1, '2013-12-17 07:44:28', '2013-12-17 07:46:44');
INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
VALUES (131726, 6233, 25, 'Concepto', NULL, 'FG100D3G12809775 (Coterm End Date:Jan-03-2015) Last Expiry Date:Jul-03-2014. 8X5 Hardware Replacement (3 Days), Firmware and General Upgrades, 8x5 Enhanced Support, UTM Services Bundle (NGFW, AV, Web Filtering, and Antispam Services)', 1, 'UD.', 404.12, NULL, NULL, 404.12, 1, '2013-12-17 07:44:28', '2013-12-17 07:46:44');
INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
VALUES (131727, 6233, 26, 'Concepto', NULL, ' (Coterm End Date:Jan-03-2015) Last Expiry Date:Dec-31-2013. 8X5 Hardware Replacement (3 Days), Firmware and General Upgrades, 8x5 Enhanced Support, UTM Services Bundle (NGFW, AV, Web Filtering, and Antispam Services)', 2, 'UDS.', 4249.43, NULL, NULL, 8498.86, 1, '2013-12-17 07:44:28', '2013-12-17 07:46:44');
INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
VALUES (131728, 6233, 27, 'Concepto', NULL, 'FG300B3910603269 - FG300B3908607012', NULL, NULL, NULL, NULL, NULL, NULL, 1, '2013-12-17 07:44:28', NULL);
INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
VALUES (131729, 6233, 28, 'Concepto', NULL, 'FG300B3911603494 (Coterm End Date:Jan-03-2015) Last Expiry Date:Dec-31-2013.Hardware Replacement (3 Days), Firmware and General Upgrades, 8x5 Enhanced Support, UTM Services Bundle (NGFW, AV, Web Filtering, and Antispam Services)', 1, 'UD.', 2543.99, NULL, NULL, 2543.99, 1, '2013-12-17 07:44:28', '2013-12-17 07:46:44');
INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
VALUES (131730, 6233, 29, 'Concepto', NULL, ' (Coterm End Date:Jan-03-2015) Last Expiry Date:Feb-07-2014. Hardware Replacement (3 Days), Firmware and General Upgrades, 8x5 Enhanced Support, UTM Services Bundle (NGFW, AV, Web Filtering, and Antispam Services)', 2, 'UDS.', 14505.33, NULL, NULL, 29010.66, 1, '2013-12-17 07:44:28', '2013-12-17 07:46:44');
INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
VALUES (131731, 6233, 30, 'Concepto', NULL, 'FG3K2C3Z12800101 - FG3K2C3Z12800124', NULL, NULL, NULL, NULL, NULL, NULL, 1, '2013-12-17 07:44:28', NULL);
INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
VALUES (131732, 6233, 31, 'Concepto', NULL, '(Coterm End Date:Jan-03-2015) Last Expiry Date:Dec-19-2013. Hardware Replacement (3 Days), Firmware and General Upgrades, 8x5 Enhanced Support, UTM Services Bundle (NGFW, AV, Web Filtering, and Antispam Services)', 2, 'UDS.', 16705.21, NULL, NULL, 33410.42, 1, '2013-12-17 07:44:28', '2013-12-17 07:46:44');
INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
VALUES (131733, 6233, 32, 'Concepto', NULL, 'FG3K2C3Z12800149 - FG3K2C3Z12800141', NULL, NULL, NULL, NULL, NULL, NULL, 1, '2013-12-17 07:44:28', NULL);
INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
VALUES (131734, 6233, 33, 'Concepto', NULL, '(Coterm End Date:Jan-03-2015) Last Expiry Date:Jan-02-2015. Hardware Replacement (3 Days), Firmware and General Upgrades, 8x5 Enhanced Support, UTM Services Bundle (NGFW, AV, Web Filtering, and Antispam Services)', 2, 'UDS.', 44.01, NULL, NULL, 88.02, 1, '2013-12-17 07:44:28', '2013-12-17 07:46:44');
INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
VALUES (131735, 6233, 34, 'Concepto', NULL, 'FG3K2C3Z12800267 - FG3K2C3Z12800273', NULL, NULL, NULL, NULL, NULL, NULL, 1, '2013-12-17 07:44:28', NULL);
INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
VALUES (131736, 6233, 35, 'Concepto', NULL, 'FGT50B3G09601858 (Coterm End Date:Jan-03-2015) Last Expiry Date:Dec-31-2013. Advanced Hardware Replacement (NBD), Firmware and General Upgrades, 24X7 Comprehensive Support, UTM Services Bundle (NGFW, AV, Web Filtering, and Antispam', 1, 'UD.', 212.06, NULL, NULL, 212.06, 1, '2013-12-17 07:44:28', '2013-12-17 07:46:44');
INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
VALUES (131737, 6233, 36, 'Concepto', NULL, 'FGT60C3G11023095 (Coterm End Date:Jan-03-2015) Last Expiry Date:Dec-31-2013. Hardware Replacement (3 Days), Firmware and General Upgrades, 8x5 Enhanced Support, UTM Services Bundle (NGFW, AV, Web Filtering, and Antispam Services)', 1, 'UD.', 244.07, NULL, NULL, 244.07, 1, '2013-12-17 07:44:28', '2013-12-17 07:46:44');
INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
VALUES (131738, 6233, 37, 'Concepto', NULL, '{\rtf1\ansi\deff0{\fonttbl{\f0\fnil Tahoma;}} \viewkind4\uc1\pard\lang3082\f0\fs16 FGT80C3911603981 (Coterm End Date:Jan-03-2015) Last Expiry Date:Jan-25-2014. Hardware Replacement (3 Days), Firmware and General Upgrades, 8x5 Enhanced Support, UTM Services Bundle (NGFW, AV, Web Filtering, and Antispam Services)\par }', 1, 'UD.', 302.61, NULL, NULL, 302.61, 1, '2013-12-17 07:44:28', '2013-12-19 11:38:35');
INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
VALUES (131913, 6233, 38, 'Concepto', NULL, 'FG100C3G10600149 (Coterm End Date:Jan-03-2015) Last Expiry Date:Dec-12-2013. 8X5 Hardware Replacement (3 Days), Firmware and General Upgrades, 8x5 Enhanced Support, UTM Services Bundle (NGFW, AV, Web Filtering, and Antispam Services)', 1, 'UD.', 747.87, NULL, NULL, 747.87, 1, '2013-12-19 11:38:34', NULL);
INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
VALUES (131914, 6233, 39, 'Concepto', NULL, 'FG100D3G12813480 (Coterm End Date:Jan-03-2015) Last Expiry Date:Jun-28-2014. 8X5 Hardware Replacement (3 Days), Firmware and General Upgrades, 8x5 Enhanced Support, UTM Services Bundle (NGFW, AV, Web Filtering, and Antispam Services)', 1, 'UD.', 416.13, NULL, NULL, 416.13, 1, '2013-12-19 11:38:34', NULL);
INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
VALUES (131915, 6233, 40, 'Concepto', NULL, 'FG100D3G13809304 (Coterm End Date:Jan-03-2015) Last Expiry Date:Dec-04-2014. 8X5 Hardware Replacement (3 Days), Firmware and General Upgrades, 8x5 Enhanced Support, UTM Services Bundle (NGFW, AV, Web Filtering, and Antispam Services)', 1, 'UD.', 67.22, NULL, NULL, 67.22, 1, '2013-12-19 11:38:34', NULL);
INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
VALUES (131916, 6233, 41, 'Concepto', NULL, 'FG100D3G13809399 (Coterm End Date:Jan-03-2015) Last Expiry Date:Dec-03-2014. 8X5 Hardware Replacement (3 Days), Firmware and General Upgrades, 8x5 Enhanced Support, UTM Services Bundle (NGFW, AV, Web Filtering, and Antispam Services)', 1, 'UD.', 68.02, NULL, NULL, 68.02, 1, '2013-12-19 11:38:34', NULL);
INSERT INTO PRESUPUESTOS_CLIENTE_DETALLES (ID, ID_PRESUPUESTO, POSICION, TIPO_DETALLE, ID_ARTICULO, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA, IMPORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, VISIBLE, FECHA_ALTA, FECHA_MODIFICACION)
VALUES (142702, 6233, 42, 'Subtotal', NULL, NULL, NULL, NULL, NULL, NULL, NULL, 108976.64, 1, '2013-12-17 07:44:28', '2013-12-19 11:38:35');
COMMIT WORK;