diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql
index 226c77f4..a1b1842c 100644
--- a/Database/scripts/factuges.sql
+++ b/Database/scripts/factuges.sql
@@ -660,7 +660,7 @@ CREATE TABLE FACTURAS_CLIENTE (
ID_EMPRESA TIPO_ID,
REFERENCIA VARCHAR(255),
FECHA_FACTURA DATE,
- FECHA_VENCIMIENTO DATE,
+ FECHA_VENCIMIENTO DATE,
FECHA_RETENCION DATE,
BASE_IMPONIBLE TIPO_IMPORTE,
DESCUENTO TIPO_PORCENTAJE,
@@ -674,7 +674,7 @@ CREATE TABLE FACTURAS_CLIENTE (
ID_CLIENTE TIPO_ID,
NIF_CIF VARCHAR(15),
NOMBRE VARCHAR(255),
- ID_DIRECCION TIPO_ID,
+ ID_DIRECCION TIPO_ID,
CALLE VARCHAR(255),
POBLACION VARCHAR(255),
PROVINCIA VARCHAR(255),
@@ -689,10 +689,12 @@ CREATE TABLE FACTURAS_CLIENTE (
RECARGO_EQUIVALENCIA TIPO_BOOLEANO,
ID_COMISION_LIQUIDADA TIPO_ID,
DATOS_BANCARIOS VARCHAR(255),
- CLIENTE_FINAL VARCHAR(255),
+ CLIENTE_FINAL VARCHAR(255),
RETENCION TIPO_PORCENTAJE,
IMPORTE_RETENCION TIPO_IMPORTE,
- CERTIFICADO_ISO TIPO_BOOLEANO
+ CERTIFICADO_ISO TIPO_BOOLEANO,
+ ID_PRESUPUESTO TIPO_ID,
+ FACTURA_WEB TIPO_BOOLEANO DEFAULT 0 NOT NULL
);
CREATE TABLE FACTURAS_CLIENTE_DETALLES (
@@ -2103,7 +2105,8 @@ CREATE VIEW V_FACTURAS_CLIENTE(
IMPORTE_RETENCION,
CERTIFICADO_ISO,
ID_PRESUPUESTO,
- REFERENCIA_PRESUPUESTO)
+ REFERENCIA_PRESUPUESTO,
+ FACTURA_WEB)
AS
SELECT FACTURAS_CLIENTE.ID,
FACTURAS_CLIENTE.ID_EMPRESA,
@@ -2147,7 +2150,8 @@ SELECT FACTURAS_CLIENTE.ID,
FACTURAS_CLIENTE.IMPORTE_RETENCION,
FACTURAS_CLIENTE.CERTIFICADO_ISO,
FACTURAS_CLIENTE.ID_PRESUPUESTO,
- PRESUPUESTOS_CLIENTE.REFERENCIA as REFERENCIA_PRE
+ PRESUPUESTOS_CLIENTE.REFERENCIA as REFERENCIA_PRE,
+ FACTURAS_CLIENTE.FACTURA_WEB
FROM V_FAC_CLI_SITUACION
LEFT JOIN FACTURAS_CLIENTE
ON (FACTURAS_CLIENTE.ID = V_FAC_CLI_SITUACION.ID_FACTURA)
@@ -2160,6 +2164,7 @@ SELECT FACTURAS_CLIENTE.ID,
;
+
/* View: V_FACTURAS_PROVEEDOR */
CREATE VIEW V_FACTURAS_PROVEEDOR(
ID,
diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj
index 6606704d..e3f3c7d6 100644
--- a/Source/Cliente/FactuGES.dproj
+++ b/Source/Cliente/FactuGES.dproj
@@ -53,7 +53,7 @@
Delphi.Personality
VCLApplication
-FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2070FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.0.7.0FactuGESFactuGES2.0.7.0FactuGES.dprFalse
+FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2080FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.0.8.0FactuGESFactuGES2.0.8.0FactuGES.dprFalse
diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc
index 8a075229..ee9415d2 100644
--- a/Source/Cliente/FactuGES.rc
+++ b/Source/Cliente/FactuGES.rc
@@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Factuges.ico"
1 VERSIONINFO
-FILEVERSION 2,0,7,0
-PRODUCTVERSION 2,0,7,0
+FILEVERSION 2,0,8,0
+PRODUCTVERSION 2,0,8,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0"
- VALUE "FileVersion", "2.0.7.0\0"
+ VALUE "FileVersion", "2.0.8.0\0"
VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0"
- VALUE "ProductVersion", "2.0.7.0\0"
+ VALUE "ProductVersion", "2.0.8.0\0"
END
END
BLOCK "VarFileInfo"
diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res
index 796d1c37..dc4d1a55 100644
Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ
diff --git a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm
index f346a285..46fc474b 100644
--- a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm
+++ b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm
@@ -283,6 +283,10 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
Name = 'REFERENCIA_PRESUPUESTO'
DataType = datString
Size = 255
+ end
+ item
+ Name = 'FACTURA_WEB'
+ DataType = datSmallInt
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
diff --git a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
index cb74d650..71d0ff1f 100644
--- a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
+++ b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
@@ -9,9 +9,9 @@ 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 = '{16572AF4-9D62-43E1-82BE-070FD956E657}';
- RID_FacturasCliente = '{4F822E48-FDE7-401F-B607-FF5C03C42CFD}';
- RID_FacturasCliente_Detalles = '{C830455C-688C-4B62-8104-24B21CD60BFD}';
+ RID_ListaAnosFacturas = '{B6420F5C-D91E-48CE-B5AE-1601C339BCFB}';
+ RID_FacturasCliente = '{CFAF95F1-1417-4EFB-9434-9F6E72BEC0A2}';
+ RID_FacturasCliente_Detalles = '{48E213DD-72ED-44BB-9E6F-FB5D350B50D4}';
{ Data table names }
nme_ListaAnosFacturas = 'ListaAnosFacturas';
@@ -68,6 +68,7 @@ const
fld_FacturasClienteCERTIFICADO_ISO = 'CERTIFICADO_ISO';
fld_FacturasClienteID_PRESUPUESTO = 'ID_PRESUPUESTO';
fld_FacturasClienteREFERENCIA_PRESUPUESTO = 'REFERENCIA_PRESUPUESTO';
+ fld_FacturasClienteFACTURA_WEB = 'FACTURA_WEB';
{ FacturasCliente field indexes }
idx_FacturasClienteID = 0;
@@ -113,6 +114,7 @@ const
idx_FacturasClienteCERTIFICADO_ISO = 40;
idx_FacturasClienteID_PRESUPUESTO = 41;
idx_FacturasClienteREFERENCIA_PRESUPUESTO = 42;
+ idx_FacturasClienteFACTURA_WEB = 43;
{ FacturasCliente_Detalles fields }
fld_FacturasCliente_DetallesID = 'ID';
@@ -151,7 +153,7 @@ const
type
{ IListaAnosFacturas }
IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
- ['{609E2895-4415-41C7-93B4-0273A1C0D906}']
+ ['{5CB55BC4-3F60-4960-A0CB-B487CC69AE87}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@@ -186,7 +188,7 @@ type
{ IFacturasCliente }
IFacturasCliente = interface(IDAStronglyTypedDataTable)
- ['{1098D2D9-46DC-453C-8DF2-A159BCDB5401}']
+ ['{DD0C6685-6F03-48F9-9628-0C1B2255F118}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -359,6 +361,10 @@ type
procedure SetREFERENCIA_PRESUPUESTOValue(const aValue: String);
function GetREFERENCIA_PRESUPUESTOIsNull: Boolean;
procedure SetREFERENCIA_PRESUPUESTOIsNull(const aValue: Boolean);
+ function GetFACTURA_WEBValue: SmallInt;
+ procedure SetFACTURA_WEBValue(const aValue: SmallInt);
+ function GetFACTURA_WEBIsNull: Boolean;
+ procedure SetFACTURA_WEBIsNull(const aValue: Boolean);
{ Properties }
@@ -448,6 +454,8 @@ type
property ID_PRESUPUESTOIsNull: Boolean read GetID_PRESUPUESTOIsNull write SetID_PRESUPUESTOIsNull;
property REFERENCIA_PRESUPUESTO: String read GetREFERENCIA_PRESUPUESTOValue write SetREFERENCIA_PRESUPUESTOValue;
property REFERENCIA_PRESUPUESTOIsNull: Boolean read GetREFERENCIA_PRESUPUESTOIsNull write SetREFERENCIA_PRESUPUESTOIsNull;
+ property FACTURA_WEB: SmallInt read GetFACTURA_WEBValue write SetFACTURA_WEBValue;
+ property FACTURA_WEBIsNull: Boolean read GetFACTURA_WEBIsNull write SetFACTURA_WEBIsNull;
end;
{ TFacturasClienteDataTableRules }
@@ -628,6 +636,10 @@ type
procedure SetREFERENCIA_PRESUPUESTOValue(const aValue: String); virtual;
function GetREFERENCIA_PRESUPUESTOIsNull: Boolean; virtual;
procedure SetREFERENCIA_PRESUPUESTOIsNull(const aValue: Boolean); virtual;
+ function GetFACTURA_WEBValue: SmallInt; virtual;
+ procedure SetFACTURA_WEBValue(const aValue: SmallInt); virtual;
+ function GetFACTURA_WEBIsNull: Boolean; virtual;
+ procedure SetFACTURA_WEBIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@@ -716,6 +728,8 @@ type
property ID_PRESUPUESTOIsNull: Boolean read GetID_PRESUPUESTOIsNull write SetID_PRESUPUESTOIsNull;
property REFERENCIA_PRESUPUESTO: String read GetREFERENCIA_PRESUPUESTOValue write SetREFERENCIA_PRESUPUESTOValue;
property REFERENCIA_PRESUPUESTOIsNull: Boolean read GetREFERENCIA_PRESUPUESTOIsNull write SetREFERENCIA_PRESUPUESTOIsNull;
+ property FACTURA_WEB: SmallInt read GetFACTURA_WEBValue write SetFACTURA_WEBValue;
+ property FACTURA_WEBIsNull: Boolean read GetFACTURA_WEBIsNull write SetFACTURA_WEBIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@@ -725,7 +739,7 @@ type
{ IFacturasCliente_Detalles }
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
- ['{33EBA6E5-6C58-408A-8673-6D46447E3B8F}']
+ ['{C6858DC1-BBDE-4EC0-93E6-E1D177191707}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -1884,6 +1898,27 @@ begin
DataTable.Fields[idx_FacturasClienteREFERENCIA_PRESUPUESTO].AsVariant := Null;
end;
+function TFacturasClienteDataTableRules.GetFACTURA_WEBValue: SmallInt;
+begin
+ result := DataTable.Fields[idx_FacturasClienteFACTURA_WEB].AsSmallInt;
+end;
+
+procedure TFacturasClienteDataTableRules.SetFACTURA_WEBValue(const aValue: SmallInt);
+begin
+ DataTable.Fields[idx_FacturasClienteFACTURA_WEB].AsSmallInt := aValue;
+end;
+
+function TFacturasClienteDataTableRules.GetFACTURA_WEBIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasClienteFACTURA_WEB].IsNull;
+end;
+
+procedure TFacturasClienteDataTableRules.SetFACTURA_WEBIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasClienteFACTURA_WEB].AsVariant := Null;
+end;
+
{ TFacturasCliente_DetallesDataTableRules }
constructor TFacturasCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);
diff --git a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas
index f8875f86..ccd701ff 100644
--- a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas
+++ b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas
@@ -9,14 +9,14 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
- RID_ListaAnosFacturasDelta = '{550EADCB-EE2C-4BA0-A501-40C59A395CE1}';
- RID_FacturasClienteDelta = '{09E87A98-15E6-4D62-8E4E-91005D037D1D}';
- RID_FacturasCliente_DetallesDelta = '{3E85AA5C-FE35-452C-9A31-E85D8D57F742}';
+ RID_ListaAnosFacturasDelta = '{4545AB94-BA1A-498B-82CC-6BB34ACFBF86}';
+ RID_FacturasClienteDelta = '{AB0BB13F-03DD-46A7-9C1E-82C075A9DE7B}';
+ RID_FacturasCliente_DetallesDelta = '{3C02B67E-221C-403B-AE8D-FAD1AB3E0FCC}';
type
{ IListaAnosFacturasDelta }
IListaAnosFacturasDelta = interface(IListaAnosFacturas)
- ['{550EADCB-EE2C-4BA0-A501-40C59A395CE1}']
+ ['{4545AB94-BA1A-498B-82CC-6BB34ACFBF86}']
{ Property getters and setters }
function GetOldANOValue : String;
@@ -50,7 +50,7 @@ type
{ IFacturasClienteDelta }
IFacturasClienteDelta = interface(IFacturasCliente)
- ['{09E87A98-15E6-4D62-8E4E-91005D037D1D}']
+ ['{AB0BB13F-03DD-46A7-9C1E-82C075A9DE7B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -95,6 +95,7 @@ type
function GetOldCERTIFICADO_ISOValue : SmallInt;
function GetOldID_PRESUPUESTOValue : Integer;
function GetOldREFERENCIA_PRESUPUESTOValue : String;
+ function GetOldFACTURA_WEBValue : SmallInt;
{ Properties }
property OldID : Integer read GetOldIDValue;
@@ -140,6 +141,7 @@ type
property OldCERTIFICADO_ISO : SmallInt read GetOldCERTIFICADO_ISOValue;
property OldID_PRESUPUESTO : Integer read GetOldID_PRESUPUESTOValue;
property OldREFERENCIA_PRESUPUESTO : String read GetOldREFERENCIA_PRESUPUESTOValue;
+ property OldFACTURA_WEB : SmallInt read GetOldFACTURA_WEBValue;
end;
{ TFacturasClienteBusinessProcessorRules }
@@ -406,6 +408,12 @@ type
function GetOldREFERENCIA_PRESUPUESTOIsNull: Boolean; virtual;
procedure SetREFERENCIA_PRESUPUESTOValue(const aValue: String); virtual;
procedure SetREFERENCIA_PRESUPUESTOIsNull(const aValue: Boolean); virtual;
+ function GetFACTURA_WEBValue: SmallInt; virtual;
+ function GetFACTURA_WEBIsNull: Boolean; virtual;
+ function GetOldFACTURA_WEBValue: SmallInt; virtual;
+ function GetOldFACTURA_WEBIsNull: Boolean; virtual;
+ procedure SetFACTURA_WEBValue(const aValue: SmallInt); virtual;
+ procedure SetFACTURA_WEBIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@@ -580,6 +588,10 @@ type
property REFERENCIA_PRESUPUESTOIsNull : Boolean read GetREFERENCIA_PRESUPUESTOIsNull write SetREFERENCIA_PRESUPUESTOIsNull;
property OldREFERENCIA_PRESUPUESTO : String read GetOldREFERENCIA_PRESUPUESTOValue;
property OldREFERENCIA_PRESUPUESTOIsNull : Boolean read GetOldREFERENCIA_PRESUPUESTOIsNull;
+ property FACTURA_WEB : SmallInt read GetFACTURA_WEBValue write SetFACTURA_WEBValue;
+ property FACTURA_WEBIsNull : Boolean read GetFACTURA_WEBIsNull write SetFACTURA_WEBIsNull;
+ property OldFACTURA_WEB : SmallInt read GetOldFACTURA_WEBValue;
+ property OldFACTURA_WEBIsNull : Boolean read GetOldFACTURA_WEBIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -589,7 +601,7 @@ type
{ IFacturasCliente_DetallesDelta }
IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
- ['{3E85AA5C-FE35-452C-9A31-E85D8D57F742}']
+ ['{3C02B67E-221C-403B-AE8D-FAD1AB3E0FCC}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer;
@@ -2189,6 +2201,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_PRESUPUESTO] := Null;
end;
+function TFacturasClienteBusinessProcessorRules.GetFACTURA_WEBValue: SmallInt;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFACTURA_WEB];
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetFACTURA_WEBIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFACTURA_WEB]);
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetOldFACTURA_WEBValue: SmallInt;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteFACTURA_WEB];
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetOldFACTURA_WEBIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteFACTURA_WEB]);
+end;
+
+procedure TFacturasClienteBusinessProcessorRules.SetFACTURA_WEBValue(const aValue: SmallInt);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFACTURA_WEB] := aValue;
+end;
+
+procedure TFacturasClienteBusinessProcessorRules.SetFACTURA_WEBIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFACTURA_WEB] := Null;
+end;
+
{ TFacturasCliente_DetallesBusinessProcessorRules }
constructor TFacturasCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
diff --git a/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas b/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas
index 20c4e673..299dd9e3 100644
--- a/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas
+++ b/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas
@@ -269,6 +269,7 @@ begin
ID_TIPO_IVA := AppFactuGES.EmpresaActiva.ID_TIPO_IVA;
RE := 0;
SITUACION := CTE_PENDIENTE;
+ FACTURA_WEB := 0;
end;
procedure TBizFacturaCliente.IVAOnChange(Sender: TDACustomField);
diff --git a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
index 91a8487c..8c7265af 100644
--- a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
+++ b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
@@ -219,6 +219,10 @@ object srvFacturasCliente: TsrvFacturasCliente
item
DatasetField = 'REFERENCIA_PRESUPUESTO'
TableField = 'REFERENCIA_PRESUPUESTO'
+ end
+ item
+ DatasetField = 'FACTURA_WEB'
+ TableField = 'FACTURA_WEB'
end>
end>
Name = 'FacturasCliente'
@@ -446,6 +450,10 @@ object srvFacturasCliente: TsrvFacturasCliente
Name = 'REFERENCIA_PRESUPUESTO'
DataType = datString
Size = 255
+ end
+ item
+ Name = 'FACTURA_WEB'
+ DataType = datSmallInt
end>
end
item
@@ -1018,6 +1026,11 @@ object srvFacturasCliente: TsrvFacturasCliente
Name = 'ID_PRESUPUESTO'
DataType = datInteger
Value = ''
+ end
+ item
+ Name = 'FACTURA_WEB'
+ DataType = datSmallInt
+ Value = ''
end>
Statements = <
item
@@ -1035,18 +1048,18 @@ object srvFacturasCliente: TsrvFacturasCliente
'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' CERTIFI' +
- 'CADO_ISO,'#10' ID_PRESUPUESTO)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRES' +
- 'A,'#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' :IMP' +
- 'ORTE_RE,'#10' :IMPORTE_TOTAL,'#10' :OBSERVACIONES,'#10' :ID_CLIENTE' +
- ','#10' :NIF_CIF,'#10' :NOMBRE,'#10' :ID_DIRECCION,'#10' :CALLE,'#10' ' +
- ':POBLACION,'#10' :PROVINCIA,'#10' :CODIGO_POSTAL,'#10' :FECHA_ALTA,' +
- #10' :FECHA_MODIFICACION,'#10' :USUARIO,'#10' :ID_FORMA_PAGO,'#10' ' +
- ':RECARGO_EQUIVALENCIA,'#10' :ID_TIPO_IVA,'#10' :IMPORTE_NETO,'#10' ' +
- ':IMPORTE_PORTE,'#10' :DATOS_BANCARIOS,'#10' :CLIENTE_FINAL,'#10' :R' +
- 'ETENCION,'#10' :IMPORTE_RETENCION,'#10' :CERTIFICADO_ISO,'#10' :ID_' +
- 'PRESUPUESTO);'#10
+ 'CADO_ISO,'#10' ID_PRESUPUESTO,'#10' FACTURA_WEB)'#10' VALUES ('#10' :I' +
+ 'D,'#10' :ID_EMPRESA,'#10' :REFERENCIA,'#10' :FECHA_FACTURA,'#10' :FE' +
+ 'CHA_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' :OBSERVACIONES' +
+ ','#10' :ID_CLIENTE,'#10' :NIF_CIF,'#10' :NOMBRE,'#10' :ID_DIRECCION,' +
+ #10' :CALLE,'#10' :POBLACION,'#10' :PROVINCIA,'#10' :CODIGO_POSTAL,' +
+ #10' :FECHA_ALTA,'#10' :FECHA_MODIFICACION,'#10' :USUARIO,'#10' :ID' +
+ '_FORMA_PAGO,'#10' :RECARGO_EQUIVALENCIA,'#10' :ID_TIPO_IVA,'#10' :I' +
+ 'MPORTE_NETO,'#10' :IMPORTE_PORTE,'#10' :DATOS_BANCARIOS,'#10' :CLIE' +
+ 'NTE_FINAL,'#10' :RETENCION,'#10' :IMPORTE_RETENCION,'#10' :CERTIFIC' +
+ 'ADO_ISO,'#10' :ID_PRESUPUESTO,'#10' :FACTURA_WEB);'#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -1244,6 +1257,11 @@ object srvFacturasCliente: TsrvFacturasCliente
DataType = datInteger
Value = ''
end
+ item
+ Name = 'FACTURA_WEB'
+ DataType = datSmallInt
+ Value = ''
+ end
item
Name = 'OLD_ID'
Value = ''
@@ -1272,7 +1290,7 @@ object srvFacturasCliente: TsrvFacturasCliente
'ANCARIOS,'#10' CLIENTE_FINAL = :CLIENTE_FINAL,'#10' RETENCION = :R' +
'ETENCION,'#10' IMPORTE_RETENCION = :IMPORTE_RETENCION,'#10' CERTIF' +
'ICADO_ISO = :CERTIFICADO_ISO,'#10' ID_PRESUPUESTO = :ID_PRESUPUES' +
- 'TO'#10' WHERE'#10' (ID = :OLD_ID);'#10
+ 'TO,'#10' FACTURA_WEB = :FACTURA_WEB'#10' WHERE'#10' (ID = :OLD_ID);'#10
StatementType = stSQL
ColumnMappings = <>
end>
diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm
index 5ff3fc45..68d7ba15 100644
--- a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm
+++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm
@@ -1,6 +1,6 @@
inherited frViewFacturaCliente: TfrViewFacturaCliente
- Width = 451
- Height = 304
+ Width = 896
+ Height = 553
Align = alClient
OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy
@@ -9,19 +9,21 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
- Width = 451
- Height = 304
+ Width = 896
+ Height = 553
Align = alClient
ParentBackground = True
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1
+ ExplicitWidth = 451
+ ExplicitHeight = 304
DesignSize = (
- 451
- 304)
+ 896
+ 553)
object Label1: TLabel
- Left = 354
+ Left = 488
Top = 193
Width = 311
Height = 26
@@ -98,7 +100,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
- TabOrder = 10
+ TabOrder = 11
Height = 345
Width = 355
end
@@ -136,16 +138,16 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
- TabOrder = 3
+ TabOrder = 4
Width = 269
end
object bFormasPago: TButton
- Left = 172
+ Left = 306
Top = 130
Width = 132
Height = 23
Caption = 'Ver las formas de pago...'
- TabOrder = 4
+ TabOrder = 5
OnClick = bFormasPagoClick
end
object cbCuentaBancaria: TcxDBComboBox
@@ -167,11 +169,11 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- TabOrder = 6
+ TabOrder = 7
Width = 165
end
object cbClienteFinal: TcxDBTextEdit
- Left = 354
+ Left = 488
Top = 227
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'CLIENTE_FINAL'
@@ -195,19 +197,19 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
- TabOrder = 8
+ TabOrder = 9
Width = 339
end
object bElegirClienteFinal: TButton
- Left = 410
+ Left = 840
Top = 225
Width = 23
Height = 25
Action = actElegirClienteFinal
- TabOrder = 9
+ TabOrder = 10
end
inline frViewDatosYSeleccionClienteFacturaCliente1: TfrViewDatosYSeleccionClienteFacturaCliente
- Left = 343
+ Left = 477
Top = 30
Width = 505
Height = 138
@@ -217,9 +219,9 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
- TabOrder = 7
+ TabOrder = 8
ReadOnly = False
- ExplicitLeft = 343
+ ExplicitLeft = 477
ExplicitTop = 30
inherited dxLayoutControl1: TdxLayoutControl
inherited edtlNombre: TcxDBTextEdit
@@ -227,28 +229,32 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
+ ExplicitWidth = 224
+ Width = 224
end
inherited edtNIFCIF: TcxDBTextEdit
- Left = 171
+ Left = 284
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 171
+ ExplicitLeft = 284
end
inherited Button3: TBitBtn
- Left = 82
- ExplicitLeft = 82
+ Left = 195
+ ExplicitLeft = 195
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 = 251
- ExplicitLeft = 251
+ Left = 364
+ ExplicitLeft = 364
end
end
inherited ActionList1: TActionList
@@ -287,7 +293,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
- TabOrder = 5
+ TabOrder = 6
Width = 275
end
object eCertificadoISO: TcxDBCheckBox
@@ -308,7 +314,28 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 2
Transparent = True
- Width = 428
+ Width = 125
+ end
+ object eFacturaWeb: TcxDBCheckBox
+ Left = 153
+ Top = 84
+ Caption = 'Factura WEB'
+ DataBinding.DataField = 'FACTURA_WEB'
+ DataBinding.DataSource = DADataSource
+ Properties.ImmediatePost = True
+ 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 = 293
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
@@ -337,10 +364,23 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Control = edtFecha
ControlOptions.ShowBorder = False
end
- object dxLayoutControl1Item11: TdxLayoutItem
+ object dxLayoutControl1Group10: TdxLayoutGroup
ShowCaption = False
- Control = eCertificadoISO
- ControlOptions.ShowBorder = False
+ Hidden = True
+ LayoutDirection = ldHorizontal
+ ShowBorder = False
+ object dxLayoutControl1Item11: TdxLayoutItem
+ ShowCaption = False
+ Control = eCertificadoISO
+ ControlOptions.ShowBorder = False
+ end
+ object dxLayoutControl1Item12: TdxLayoutItem
+ AutoAligns = [aaVertical]
+ AlignHorz = ahClient
+ ShowCaption = False
+ Control = eFacturaWeb
+ ControlOptions.ShowBorder = False
+ end
end
object dxLayoutControl1Group6: TdxLayoutGroup
Caption = 'Forma de pago'
diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas
index b7e0dfbf..b7824cf7 100644
--- a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas
+++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas
@@ -69,6 +69,9 @@ type
dxLayoutControl1Group3: TdxLayoutGroup;
dxLayoutControl1Item11: TdxLayoutItem;
eCertificadoISO: TcxDBCheckBox;
+ dxLayoutControl1Item12: TdxLayoutItem;
+ eFacturaWeb: TcxDBCheckBox;
+ dxLayoutControl1Group10: TdxLayoutGroup;
procedure bFormasPagoClick(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
procedure CustomViewCreate(Sender: TObject);
diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm
index 06e24b3e..55e63f8c 100644
--- a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm
+++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm
@@ -8,6 +8,8 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
Height = 290
RootLevelOptions.DetailTabsPosition = dtpTop
OnActiveTabChanged = cxGridActiveTabChanged
+ ExplicitLeft = 48
+ ExplicitTop = 96
ExplicitWidth = 665
ExplicitHeight = 290
inherited cxGridView: TcxGridDBTableView
@@ -22,6 +24,23 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
DataController.OnCompare = cxGridViewDataControllerCompare
OptionsCustomize.ColumnHidingOnGrouping = False
OptionsView.GroupFooters = gfAlwaysVisible
+ object cxGridViewWEB: TcxGridDBColumn
+ Caption = 'Web'
+ DataBinding.FieldName = 'FACTURA_WEB'
+ PropertiesClassName = 'TcxImageComboBoxProperties'
+ Properties.Images = GridPNGImageList
+ Properties.Items = <
+ item
+ Description = 'Factura Web'
+ ImageIndex = 2
+ Value = 1
+ end
+ item
+ Description = 'Factura Normal'
+ Value = 0
+ end>
+ Properties.ShowDescriptions = False
+ end
object cxGridViewTIPO: TcxGridDBColumn
DataBinding.FieldName = 'TIPO'
PropertiesClassName = 'TcxImageComboBoxProperties'
@@ -154,6 +173,8 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
Description = 'ISO'
Value = 1
end>
+ Visible = False
+ VisibleForCustomization = False
end
object cxGridViewREFERENCIA_PRESUPUESTO: TcxGridDBColumn
Caption = 'Ref. presupuesto'
@@ -163,6 +184,9 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
inherited cxGridLevel: TcxGridLevel
Caption = 'Todas'
end
+ object cxGridTiendaWEB: TcxGridLevel
+ Caption = 'Tienda Web'
+ end
object cxGridPendientes: TcxGridLevel
Caption = 'Pendientes'
end
@@ -198,32 +222,34 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
Width = 144
end
inherited edtFechaFinFiltro: TcxDateEdit
- Left = 209
+ Left = 185
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 209
+ ExplicitLeft = 185
ExplicitWidth = 273
Width = 273
end
inherited eLista: TcxComboBox
- Left = 468
+ Left = 414
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 468
+ ExplicitLeft = 414
ExplicitWidth = 97
Width = 97
end
inherited eLista2: TcxComboBox
- Left = 585
+ Left = 518
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 585
+ ExplicitLeft = 518
+ ExplicitWidth = 207
+ Width = 207
end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
@@ -406,6 +432,42 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
4E44AE426082}
Name = 'PngImage1'
Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 61000000097048597300000B1300000B1301009A9C18000003734944415478DA
+ 5D536D685B55187ECEBDB99FB9371F26CB92ACADE9D66E75DDA6D356A6881B82
+ 6C32904DA63074B66EEA90CDFDEC3EF0D7500A4357D18A286D6163A820289BCC
+ 0A83EE872875FB51964E6AD79936ED9A6459BE939B9BDCE4DEEBA1B2317DE1E1
+ 1C78CFFB9CE77DCE7909FE17472F7ED6EEF0048E36D5F8FE464509A5EACBD0ED
+ DB497DE9E0B71E73FBF04FEF4AF30F9F27F7375F5DBA244795F90F798FF350C8
+ 25A8204D52327E455ABB89997B69CC2C1EB3513958DEE81646BB4CF183AF0F93
+ EA03826D9FBC2AADEFDE7CCE15C8EF0BAB3D64B5732B54BE84941647AC30821B
+ A934A6E2A750486E876054EC8857FFDEBB5CEE9F1C7A565F21D83DBE635075E5
+ 06DABD9DCCA3AE67D04A21D18C6ECAB8BA78067FDC791A7F67A7908C1F875D8E
+ 81E3BEB4D6284367164E6C3849768D7DD1BB208C4F74866795764F184165275A
+ DDCF839851F8A55770FD6E0197E782984EA4A06573407314D0AEC04DF6547A5A
+ 4EBF403A07EF8D2CE84B879E78EA30DABC15F8652F9C9C8FEA62B04AFE18B17C
+ 04130B04F3E93C6CBD9F220E946F8194FDE80A7E33420283E94CBA58F2B56F7A
+ 072DBE3928BC0889E321B2AF51834E60BEE0403449FD2B14815A3FD0B806948A
+ 60AA1236C8C359221C9BB6EB848510FE19ABDB4E83C536B0CC2A18D647D08C16
+ 54AA26EAC51250BD492DEFA32B07520C436E5610300E8084DF9CB4133207A880
+ 103A0F8BB3C092000813815EDB4D9DB4695181DEFC2325380ED44DB055111EAB
+ 036AE92D9035AF4FDACBA60EB85C802C03920628BF81F0E760D75F048A8F5382
+ C7A879598A8B609A0978B95904C94658ECFE1CF1EF9918CF98DA2EA8EABF04A2
+ 08B8AF52A201C034687100C89C070C9A2B95C19ACB5817BC8247ECB53095BDA3
+ 6473DF54FF5CECAFB19A53249024DA070F7035C07792BEC46D20F73255F10695
+ 5E072A1A78AB82273B0A10A52D0D67CF8EE748C7FBB70423BE185DCA26D6DBA2
+ 408BB91510FF59DAB7053B71844A6F50050618D3845BE2B135E2B36AFEAE0BBF
+ 9F5DD7B7F2137B07FEEC4ECEDEB99CCFA4DAEAB64D2C16F0847F41F9EE26587A
+ 081C6120700E04A84F1EA76AF3A2F707D3E73B3039D4A63F18A6EEF7AEB53A74
+ 32ACE5F22FD51A794E76C5A16522B4230E0A55E6969CB620AB5A4351C6F219F5
+ 54F44248FBCF34DE8FDE23333B19ADFAB683AFED330A26388103E371A6ACAAF5
+ 5D59653E9FFE744BECE1F3FF00F7B9639E6BE4CA2D0000000049454E44AE4260
+ 82}
+ Name = 'PngImage2'
+ Background = clWindow
end>
Bitmap = {}
end
diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas
index a11ee3c3..c28ab359 100644
--- a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas
+++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas
@@ -42,10 +42,7 @@ type
cxGridViewCODIGO_POSTAL: TcxGridDBColumn;
cxGridViewPOBLACION: TcxGridDBColumn;
cxStylePagada: TcxStyle;
- cxGridPendientes: TcxGridLevel;
- cxGridParcial: TcxGridLevel;
cxStyleAbono: TcxStyle;
- cxGridPagadas: TcxGridLevel;
cxGridViewREFERENCIA_COMISION: TcxGridDBColumn;
cxStylePendientes: TcxStyle;
cxStyleParciales: TcxStyle;
@@ -60,6 +57,11 @@ type
cxGridViewIMPORTE_RETENCION: TcxGridDBColumn;
cxGridViewCERTIFICADO_ISO: TcxGridDBColumn;
cxGridViewREFERENCIA_PRESUPUESTO: TcxGridDBColumn;
+ cxGridViewWEB: TcxGridDBColumn;
+ cxGridTiendaWEB: TcxGridLevel;
+ cxGridPendientes: TcxGridLevel;
+ cxGridParcial: TcxGridLevel;
+ cxGridPagadas: TcxGridLevel;
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
out AStyle: TcxStyle);
@@ -168,9 +170,10 @@ begin
FFiltro := AddFilterGrid(fboAnd);
case cxGrid.ActiveLevel.Index of
- 1 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, CTE_PENDIENTE, CTE_PENDIENTE);
- 2 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, CTE_PARCIAMENTE_PAGADA, CTE_PARCIAMENTE_PAGADA);
- 3 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, CTE_PAGADA, CTE_PAGADA);
+ 1 : FFiltro.AddItem(cxGridViewWEB, foEqual, '1', '1');
+ 2 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, CTE_PENDIENTE, CTE_PENDIENTE);
+ 3 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, CTE_PARCIAMENTE_PAGADA, CTE_PARCIAMENTE_PAGADA);
+ 4 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, CTE_PAGADA, CTE_PAGADA);
end;
end;
diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index a965d5c4..058f4f3b 100644
Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ
diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr
index 0eb77a34..4a4b3613 100644
--- a/Source/Servidor/FactuGES_Server.dpr
+++ b/Source/Servidor/FactuGES_Server.dpr
@@ -128,14 +128,14 @@ uses
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
- schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
- schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
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';
+ 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';
{$R *.res}
{$R ..\Servicios\RODLFile.res}
diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj
index 0fe4498b..cdd60e18 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -35,7 +35,7 @@
Delphi.Personality
- FalseTrueFalse/standaloneTrueFalse2070FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.0.7.0FactuGES Servidor2.0.7.0viernes, 06 de junio de 2014 10:17
+ FalseTrueFalse/standaloneTrueFalse2080FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.0.8.0FactuGES Servidor2.0.8.0martes, 17 de febrero de 2015 16:12
ExpressPrinting System by Developer Express Inc.
FactuGES_Server.dpr
diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc
index a6c40973..9c39f4db 100644
--- a/Source/Servidor/FactuGES_Server.rc
+++ b/Source/Servidor/FactuGES_Server.rc
@@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Servidor.ico"
1 VERSIONINFO
-FILEVERSION 2,0,7,0
-PRODUCTVERSION 2,0,7,0
+FILEVERSION 2,0,8,0
+PRODUCTVERSION 2,0,8,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0"
- VALUE "FileVersion", "2.0.7.0\0"
+ VALUE "FileVersion", "2.0.8.0\0"
VALUE "ProductName", "FactuGES Servidor\0"
- VALUE "ProductVersion", "2.0.7.0\0"
- VALUE "CompileDate", "martes, 17 de febrero de 2015 16:12\0"
+ VALUE "ProductVersion", "2.0.8.0\0"
+ VALUE "CompileDate", "jueves, 28 de mayo de 2015 13:23\0"
END
END
BLOCK "VarFileInfo"