diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql
index a1b1842c..8c8e8a5c 100644
--- a/Database/scripts/factuges.sql
+++ b/Database/scripts/factuges.sql
@@ -1053,7 +1053,8 @@ CREATE TABLE PRESUPUESTOS_CLIENTE (
DESCRIPCION_BONIFICACION VARCHAR(255) COLLATE ES_ES,
IMPORTE_BONIFICACION TIPO_IMPORTE,
CERTIFICADO_ISO TIPO_BOOLEANO,
- ID_PRESUPUESTO TIPO_ID
+ ID_PRESUPUESTO TIPO_ID,
+ PRESUPUESTO_WEB TIPO_BOOLEANO DEFAULT 0 NOT NULL
);
CREATE TABLE PRESUPUESTOS_CLIENTE_DETALLES (
@@ -3145,7 +3146,8 @@ CREATE VIEW V_PRESUPUESTOS_CLIENTE(
DESCRIPCION_BONIFICACION,
IMPORTE_BONIFICACION,
CERTIFICADO_ISO,
- NUM_FACTURA)
+ NUM_FACTURA,
+ PRESUPUESTO_WEB)
AS
SELECT
PRESUPUESTOS_CLIENTE.ID,
@@ -3182,7 +3184,8 @@ SELECT
PRESUPUESTOS_CLIENTE.DESCRIPCION_BONIFICACION,
PRESUPUESTOS_CLIENTE.IMPORTE_BONIFICACION,
PRESUPUESTOS_CLIENTE.CERTIFICADO_ISO,
- V_PRESUPUESTOS_NUM_FAC.NUM_FACTURAS
+ V_PRESUPUESTOS_NUM_FAC.NUM_FACTURAS,
+ PRESUPUESTOS_CLIENTE.PRESUPUESTO_WEB
FROM
PRESUPUESTOS_CLIENTE
inner JOIN CONTACTOS ON (CONTACTOS.ID = PRESUPUESTOS_CLIENTE.ID_CLIENTE)
@@ -3191,6 +3194,7 @@ FROM
+
/* View: V_PROVEEDORES */
CREATE VIEW V_PROVEEDORES(
ID,
diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj
index e3f3c7d6..bae1add9 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\TrueFalse2080FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.0.8.0FactuGESFactuGES2.0.8.0FactuGES.dprFalse
+FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2090FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.0.9.0FactuGESFactuGES2.0.9.0FactuGES.dprFalse
diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc
index ee9415d2..e9d37334 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,8,0
-PRODUCTVERSION 2,0,8,0
+FILEVERSION 2,0,9,0
+PRODUCTVERSION 2,0,9,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.8.0\0"
+ VALUE "FileVersion", "2.0.9.0\0"
VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0"
- VALUE "ProductVersion", "2.0.8.0\0"
+ VALUE "ProductVersion", "2.0.9.0\0"
END
END
BLOCK "VarFileInfo"
diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res
index dc4d1a55..e1cbae45 100644
Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ
diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm
index 55e63f8c..8b900b21 100644
--- a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm
+++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm
@@ -8,8 +8,6 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
Height = 290
RootLevelOptions.DetailTabsPosition = dtpTop
OnActiveTabChanged = cxGridActiveTabChanged
- ExplicitLeft = 48
- ExplicitTop = 96
ExplicitWidth = 665
ExplicitHeight = 290
inherited cxGridView: TcxGridDBTableView
@@ -40,6 +38,8 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
Value = 0
end>
Properties.ShowDescriptions = False
+ BestFitMaxWidth = 40
+ Width = 40
end
object cxGridViewTIPO: TcxGridDBColumn
DataBinding.FieldName = 'TIPO'
diff --git a/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm b/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm
index f545ed75..014e5c4b 100644
--- a/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm
+++ b/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm
@@ -242,6 +242,10 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
Name = 'NUM_FACTURA'
DataType = datString
Size = 31
+ end
+ item
+ Name = 'PRESUPUESTO_WEB'
+ DataType = datSmallInt
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
diff --git a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas
index e0467b13..8f5ef670 100644
--- a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas
+++ b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_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_ListaAnosPresupuestos = '{FB0C7CCA-A5AD-4DC9-92A7-B1F988BC66F6}';
- RID_PresupuestosCliente = '{13B7954C-1238-405E-9808-FAFEE50453B2}';
- RID_PresupuestosCliente_Detalles = '{F440F004-9D8C-4318-A703-B778699FEF40}';
+ RID_ListaAnosPresupuestos = '{57F229C4-0E25-4B14-9EF2-FDDD99E71C84}';
+ RID_PresupuestosCliente = '{59171E8B-CE19-4D89-B535-C89A0CF3A7A8}';
+ RID_PresupuestosCliente_Detalles = '{DEBB6BD7-53C4-423A-A7BC-7EDB8FE1E85B}';
{ Data table names }
nme_ListaAnosPresupuestos = 'ListaAnosPresupuestos';
@@ -60,6 +60,7 @@ const
fld_PresupuestosClienteIMPORTE_BONIFICACION = 'IMPORTE_BONIFICACION';
fld_PresupuestosClienteCERTIFICADO_ISO = 'CERTIFICADO_ISO';
fld_PresupuestosClienteNUM_FACTURA = 'NUM_FACTURA';
+ fld_PresupuestosClientePRESUPUESTO_WEB = 'PRESUPUESTO_WEB';
{ PresupuestosCliente field indexes }
idx_PresupuestosClienteID = 0;
@@ -97,6 +98,7 @@ const
idx_PresupuestosClienteIMPORTE_BONIFICACION = 32;
idx_PresupuestosClienteCERTIFICADO_ISO = 33;
idx_PresupuestosClienteNUM_FACTURA = 34;
+ idx_PresupuestosClientePRESUPUESTO_WEB = 35;
{ PresupuestosCliente_Detalles fields }
fld_PresupuestosCliente_DetallesID = 'ID';
@@ -135,7 +137,7 @@ const
type
{ IListaAnosPresupuestos }
IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable)
- ['{A9351889-76CD-4DF9-A713-429A45EEFF0E}']
+ ['{8205902D-1C1B-4481-8FA3-990C69B260CA}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@@ -170,7 +172,7 @@ type
{ IPresupuestosCliente }
IPresupuestosCliente = interface(IDAStronglyTypedDataTable)
- ['{8270147A-7440-4A9F-96C0-4473F3A5103C}']
+ ['{80C8000B-8736-4612-B2A2-0D4B0EFD5401}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -308,6 +310,10 @@ type
procedure SetNUM_FACTURAValue(const aValue: String);
function GetNUM_FACTURAIsNull: Boolean;
procedure SetNUM_FACTURAIsNull(const aValue: Boolean);
+ function GetPRESUPUESTO_WEBValue: SmallInt;
+ procedure SetPRESUPUESTO_WEBValue(const aValue: SmallInt);
+ function GetPRESUPUESTO_WEBIsNull: Boolean;
+ procedure SetPRESUPUESTO_WEBIsNull(const aValue: Boolean);
{ Properties }
@@ -381,6 +387,8 @@ type
property CERTIFICADO_ISOIsNull: Boolean read GetCERTIFICADO_ISOIsNull write SetCERTIFICADO_ISOIsNull;
property NUM_FACTURA: String read GetNUM_FACTURAValue write SetNUM_FACTURAValue;
property NUM_FACTURAIsNull: Boolean read GetNUM_FACTURAIsNull write SetNUM_FACTURAIsNull;
+ property PRESUPUESTO_WEB: SmallInt read GetPRESUPUESTO_WEBValue write SetPRESUPUESTO_WEBValue;
+ property PRESUPUESTO_WEBIsNull: Boolean read GetPRESUPUESTO_WEBIsNull write SetPRESUPUESTO_WEBIsNull;
end;
{ TPresupuestosClienteDataTableRules }
@@ -532,6 +540,10 @@ type
procedure SetNUM_FACTURAValue(const aValue: String); virtual;
function GetNUM_FACTURAIsNull: Boolean; virtual;
procedure SetNUM_FACTURAIsNull(const aValue: Boolean); virtual;
+ function GetPRESUPUESTO_WEBValue: SmallInt; virtual;
+ procedure SetPRESUPUESTO_WEBValue(const aValue: SmallInt); virtual;
+ function GetPRESUPUESTO_WEBIsNull: Boolean; virtual;
+ procedure SetPRESUPUESTO_WEBIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@@ -604,6 +616,8 @@ type
property CERTIFICADO_ISOIsNull: Boolean read GetCERTIFICADO_ISOIsNull write SetCERTIFICADO_ISOIsNull;
property NUM_FACTURA: String read GetNUM_FACTURAValue write SetNUM_FACTURAValue;
property NUM_FACTURAIsNull: Boolean read GetNUM_FACTURAIsNull write SetNUM_FACTURAIsNull;
+ property PRESUPUESTO_WEB: SmallInt read GetPRESUPUESTO_WEBValue write SetPRESUPUESTO_WEBValue;
+ property PRESUPUESTO_WEBIsNull: Boolean read GetPRESUPUESTO_WEBIsNull write SetPRESUPUESTO_WEBIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@@ -613,7 +627,7 @@ type
{ IPresupuestosCliente_Detalles }
IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable)
- ['{F55BA8B9-B3C5-41E9-A24C-37775DEC3E12}']
+ ['{F117D80D-7B65-4791-8611-ACCF1099A09E}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -1619,6 +1633,27 @@ begin
DataTable.Fields[idx_PresupuestosClienteNUM_FACTURA].AsVariant := Null;
end;
+function TPresupuestosClienteDataTableRules.GetPRESUPUESTO_WEBValue: SmallInt;
+begin
+ result := DataTable.Fields[idx_PresupuestosClientePRESUPUESTO_WEB].AsSmallInt;
+end;
+
+procedure TPresupuestosClienteDataTableRules.SetPRESUPUESTO_WEBValue(const aValue: SmallInt);
+begin
+ DataTable.Fields[idx_PresupuestosClientePRESUPUESTO_WEB].AsSmallInt := aValue;
+end;
+
+function TPresupuestosClienteDataTableRules.GetPRESUPUESTO_WEBIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_PresupuestosClientePRESUPUESTO_WEB].IsNull;
+end;
+
+procedure TPresupuestosClienteDataTableRules.SetPRESUPUESTO_WEBIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_PresupuestosClientePRESUPUESTO_WEB].AsVariant := Null;
+end;
+
{ TPresupuestosCliente_DetallesDataTableRules }
constructor TPresupuestosCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);
diff --git a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas
index 483b432b..bcdd5613 100644
--- a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas
+++ b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas
@@ -9,14 +9,14 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
- RID_ListaAnosPresupuestosDelta = '{2A42AFEA-7059-4D2F-9607-2FEF08BA8B18}';
- RID_PresupuestosClienteDelta = '{C30EFE0E-9528-4EA9-A001-D32D0CBE4A62}';
- RID_PresupuestosCliente_DetallesDelta = '{BC5B932F-4F80-464F-89B1-D198C455DC79}';
+ RID_ListaAnosPresupuestosDelta = '{C0D3D85C-14FE-4640-ABB5-AFFA1E455AB5}';
+ RID_PresupuestosClienteDelta = '{DBAC9306-FDD2-4E1C-8E32-1AD77204437E}';
+ RID_PresupuestosCliente_DetallesDelta = '{5C3B3F44-DBFB-471E-B345-BCD2673FED43}';
type
{ IListaAnosPresupuestosDelta }
IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos)
- ['{2A42AFEA-7059-4D2F-9607-2FEF08BA8B18}']
+ ['{C0D3D85C-14FE-4640-ABB5-AFFA1E455AB5}']
{ Property getters and setters }
function GetOldANOValue : String;
@@ -50,7 +50,7 @@ type
{ IPresupuestosClienteDelta }
IPresupuestosClienteDelta = interface(IPresupuestosCliente)
- ['{C30EFE0E-9528-4EA9-A001-D32D0CBE4A62}']
+ ['{DBAC9306-FDD2-4E1C-8E32-1AD77204437E}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -87,6 +87,7 @@ type
function GetOldIMPORTE_BONIFICACIONValue : Currency;
function GetOldCERTIFICADO_ISOValue : SmallInt;
function GetOldNUM_FACTURAValue : String;
+ function GetOldPRESUPUESTO_WEBValue : SmallInt;
{ Properties }
property OldID : Integer read GetOldIDValue;
@@ -124,6 +125,7 @@ type
property OldIMPORTE_BONIFICACION : Currency read GetOldIMPORTE_BONIFICACIONValue;
property OldCERTIFICADO_ISO : SmallInt read GetOldCERTIFICADO_ISOValue;
property OldNUM_FACTURA : String read GetOldNUM_FACTURAValue;
+ property OldPRESUPUESTO_WEB : SmallInt read GetOldPRESUPUESTO_WEBValue;
end;
{ TPresupuestosClienteBusinessProcessorRules }
@@ -345,6 +347,12 @@ type
function GetOldNUM_FACTURAIsNull: Boolean; virtual;
procedure SetNUM_FACTURAValue(const aValue: String); virtual;
procedure SetNUM_FACTURAIsNull(const aValue: Boolean); virtual;
+ function GetPRESUPUESTO_WEBValue: SmallInt; virtual;
+ function GetPRESUPUESTO_WEBIsNull: Boolean; virtual;
+ function GetOldPRESUPUESTO_WEBValue: SmallInt; virtual;
+ function GetOldPRESUPUESTO_WEBIsNull: Boolean; virtual;
+ procedure SetPRESUPUESTO_WEBValue(const aValue: SmallInt); virtual;
+ procedure SetPRESUPUESTO_WEBIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@@ -487,6 +495,10 @@ type
property NUM_FACTURAIsNull : Boolean read GetNUM_FACTURAIsNull write SetNUM_FACTURAIsNull;
property OldNUM_FACTURA : String read GetOldNUM_FACTURAValue;
property OldNUM_FACTURAIsNull : Boolean read GetOldNUM_FACTURAIsNull;
+ property PRESUPUESTO_WEB : SmallInt read GetPRESUPUESTO_WEBValue write SetPRESUPUESTO_WEBValue;
+ property PRESUPUESTO_WEBIsNull : Boolean read GetPRESUPUESTO_WEBIsNull write SetPRESUPUESTO_WEBIsNull;
+ property OldPRESUPUESTO_WEB : SmallInt read GetOldPRESUPUESTO_WEBValue;
+ property OldPRESUPUESTO_WEBIsNull : Boolean read GetOldPRESUPUESTO_WEBIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -496,7 +508,7 @@ type
{ IPresupuestosCliente_DetallesDelta }
IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles)
- ['{BC5B932F-4F80-464F-89B1-D198C455DC79}']
+ ['{5C3B3F44-DBFB-471E-B345-BCD2673FED43}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PRESUPUESTOValue : Integer;
@@ -1866,6 +1878,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteNUM_FACTURA] := Null;
end;
+function TPresupuestosClienteBusinessProcessorRules.GetPRESUPUESTO_WEBValue: SmallInt;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClientePRESUPUESTO_WEB];
+end;
+
+function TPresupuestosClienteBusinessProcessorRules.GetPRESUPUESTO_WEBIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClientePRESUPUESTO_WEB]);
+end;
+
+function TPresupuestosClienteBusinessProcessorRules.GetOldPRESUPUESTO_WEBValue: SmallInt;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClientePRESUPUESTO_WEB];
+end;
+
+function TPresupuestosClienteBusinessProcessorRules.GetOldPRESUPUESTO_WEBIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClientePRESUPUESTO_WEB]);
+end;
+
+procedure TPresupuestosClienteBusinessProcessorRules.SetPRESUPUESTO_WEBValue(const aValue: SmallInt);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClientePRESUPUESTO_WEB] := aValue;
+end;
+
+procedure TPresupuestosClienteBusinessProcessorRules.SetPRESUPUESTO_WEBIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClientePRESUPUESTO_WEB] := Null;
+end;
+
{ TPresupuestosCliente_DetallesBusinessProcessorRules }
constructor TPresupuestosCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
diff --git a/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas b/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas
index 8dc11ebe..0871730e 100644
--- a/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas
+++ b/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas
@@ -205,6 +205,7 @@ begin
FECHA_PRESUPUESTO := DateOf(Date);
INCIDENCIAS_ACTIVAS := 0;
CERTIFICADO_ISO := 1;
+ PRESUPUESTO_WEB := 0;
// INCIDENCIAS := NIL;
REFERENCIA := '';
SITUACION := SITUACION_PRESUPUESTO_PENDIENTE;
diff --git a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm b/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm
index fffb8519..4de33a21 100644
--- a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm
+++ b/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm
@@ -186,6 +186,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
item
DatasetField = 'NUM_FACTURA'
TableField = 'NUM_FACTURA'
+ end
+ item
+ DatasetField = 'PRESUPUESTO_WEB'
+ TableField = 'PRESUPUESTO_WEB'
end>
end>
Name = 'PresupuestosCliente'
@@ -376,6 +380,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Name = 'NUM_FACTURA'
DataType = datString
Size = 31
+ end
+ item
+ Name = 'PRESUPUESTO_WEB'
+ DataType = datSmallInt
end>
end
item
@@ -715,6 +723,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Name = 'CERTIFICADO_ISO'
DataType = datSmallInt
Value = ''
+ end
+ item
+ Name = 'PRESUPUESTO_WEB'
+ DataType = datSmallInt
+ Value = ''
end>
Statements = <
item
@@ -730,15 +743,16 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
'E_PORTE, DESCUENTO, IMPORTE_DESCUENTO, '#10' BASE_IMPONIBLE, IVA' +
', IMPORTE_IVA, IMPORTE_TOTAL, ID_FORMA_PAGO,'#10' PERSONA_CONTAC' +
'TO, DESCRIPCION_BONIFICACION, IMPORTE_BONIFICACION, CERTIFICADO_' +
- 'ISO)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :FECHA_PRESUPUESTO, :FECHA_' +
- 'DECISION, :REFERENCIA,'#10' :REFERENCIA_AUX, :SITUACION, :ID_CLI' +
- 'ENTE, :ID_DIRECCION, :REFERENCIA_CLIENTE,'#10' :CLIENTE_FINAL, :' +
- 'PORTADA, :MEMORIA, :OBSERVACIONES, '#10' :INCIDENCIAS, :INCIDENC' +
- 'IAS_ACTIVAS, CURRENT_TIMESTAMP,'#10' :USUARIO, :IMPORTE_NETO, :I' +
- 'MPORTE_PORTE, :DESCUENTO, '#10' :IMPORTE_DESCUENTO, :BASE_IMPONI' +
- 'BLE, :IVA, :IMPORTE_IVA, '#10' :IMPORTE_TOTAL, :ID_FORMA_PAGO, :' +
- 'PERSONA_CONTACTO,'#10' :DESCRIPCION_BONIFICACION, :IMPORTE_BONIF' +
- 'ICACION, :CERTIFICADO_ISO)'#10
+ 'ISO,'#10' PRESUPUESTO_WEB)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :FECH' +
+ 'A_PRESUPUESTO, :FECHA_DECISION, :REFERENCIA,'#10' :REFERENCIA_AU' +
+ 'X, :SITUACION, :ID_CLIENTE, :ID_DIRECCION, :REFERENCIA_CLIENTE,'#10 +
+ ' :CLIENTE_FINAL, :PORTADA, :MEMORIA, :OBSERVACIONES, '#10' :' +
+ 'INCIDENCIAS, :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP,'#10' :USUA' +
+ 'RIO, :IMPORTE_NETO, :IMPORTE_PORTE, :DESCUENTO, '#10' :IMPORTE_D' +
+ 'ESCUENTO, :BASE_IMPONIBLE, :IVA, :IMPORTE_IVA, '#10' :IMPORTE_TO' +
+ 'TAL, :ID_FORMA_PAGO, :PERSONA_CONTACTO,'#10' :DESCRIPCION_BONIFI' +
+ 'CACION, :IMPORTE_BONIFICACION, :CERTIFICADO_ISO, :PRESUPUESTO_WE' +
+ 'B)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -924,6 +938,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
DataType = datSmallInt
Value = ''
end
+ item
+ Name = 'PRESUPUESTO_WEB'
+ DataType = datSmallInt
+ Value = ''
+ end
item
Name = 'OLD_ID'
Value = ''
@@ -951,8 +970,8 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
'OTAL = :IMPORTE_TOTAL, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' ' +
'PERSONA_CONTACTO = :PERSONA_CONTACTO,'#10' DESCRIPCION_BONIFICACI' +
'ON = :DESCRIPCION_BONIFICACION,'#10' IMPORTE_BONIFICACION = :IMPO' +
- 'RTE_BONIFICACION,'#10' CERTIFICADO_ISO = :CERTIFICADO_ISO'#10' WHERE' +
- #10' (ID = :OLD_ID)'#10
+ 'RTE_BONIFICACION,'#10' CERTIFICADO_ISO = :CERTIFICADO_ISO,'#10' PR' +
+ 'ESUPUESTO_WEB = :PRESUPUESTO_WEB'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm
index c9c9413d..83311df6 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm
+++ b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm
@@ -52,7 +52,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
- TabOrder = 4
+ TabOrder = 5
Width = 260
end
object memObservaciones: TcxDBMemo
@@ -77,7 +77,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
- TabOrder = 9
+ TabOrder = 10
Height = 217
Width = 507
end
@@ -142,7 +142,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
- TabOrder = 7
+ TabOrder = 8
Width = 122
end
object bFormasPago: TButton
@@ -151,7 +151,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
Width = 132
Height = 21
Caption = 'Ver las formas de pago...'
- TabOrder = 8
+ TabOrder = 9
OnClick = bFormasPagoClick
end
object edtFechaDecision: TcxDBDateEdit
@@ -177,7 +177,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
- TabOrder = 5
+ TabOrder = 6
Width = 260
end
object eRefCliente: TcxDBTextEdit
@@ -234,7 +234,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
- TabOrder = 11
+ TabOrder = 12
Width = 350
end
object cbSituacion: TcxDBImageComboBox
@@ -268,7 +268,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
- TabOrder = 6
+ TabOrder = 7
Width = 260
end
object eReferenciaAux: TcxDBTextEdit
@@ -311,7 +311,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
- TabOrder = 10
+ TabOrder = 11
ReadOnly = False
ExplicitLeft = 480
ExplicitTop = 28
@@ -368,7 +368,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
Width = 23
Height = 25
Action = actElegirClienteFinal
- TabOrder = 12
+ TabOrder = 13
end
object eCertificadoISO: TcxDBCheckBox
Left = 22
@@ -388,7 +388,28 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 3
Transparent = True
- Width = 359
+ Width = 110
+ end
+ object eFacturaWeb: TcxDBCheckBox
+ Left = 138
+ Top = 82
+ Caption = 'Presupuesto WEB'
+ DataBinding.DataField = 'PRESUPUESTO_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 = 4
+ Transparent = True
+ Width = 162
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
@@ -429,10 +450,24 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
Control = eRefCliente
ControlOptions.ShowBorder = False
end
- object dxLayoutControl1Item13: TdxLayoutItem
+ object dxLayoutControl1Group10: TdxLayoutGroup
ShowCaption = False
- Control = eCertificadoISO
- ControlOptions.ShowBorder = False
+ Hidden = True
+ LayoutDirection = ldHorizontal
+ ShowBorder = False
+ object dxLayoutControl1Item13: TdxLayoutItem
+ AutoAligns = [aaVertical]
+ ShowCaption = False
+ Control = eCertificadoISO
+ ControlOptions.ShowBorder = False
+ end
+ object dxLayoutControl1Item14: TdxLayoutItem
+ AutoAligns = [aaVertical]
+ AlignHorz = ahClient
+ ShowCaption = False
+ Control = eFacturaWeb
+ ControlOptions.ShowBorder = False
+ end
end
object dxLayoutControl1Item2: TdxLayoutItem
Caption = 'Fecha presupuesto:'
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas
index cc966e36..8315f90c 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas
+++ b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas
@@ -69,6 +69,9 @@ type
dxLayoutControl1Group9: TdxLayoutGroup;
dxLayoutControl1Item13: TdxLayoutItem;
eCertificadoISO: TcxDBCheckBox;
+ dxLayoutControl1Item14: TdxLayoutItem;
+ eFacturaWeb: TcxDBCheckBox;
+ dxLayoutControl1Group10: TdxLayoutGroup;
procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
procedure bFormasPagoClick(Sender: TObject);
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm
index a7cc1119..6ad43480 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm
+++ b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm
@@ -54,6 +54,25 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
Visible = False
VisibleForCustomization = False
end
+ object cxGridViewPRESUPUESTO_WEB: TcxGridDBColumn
+ Caption = 'Web'
+ DataBinding.FieldName = 'PRESUPUESTO_WEB'
+ PropertiesClassName = 'TcxImageComboBoxProperties'
+ Properties.Images = GridPNGImageList
+ Properties.Items = <
+ item
+ Description = 'Presupuesto Normal'
+ Value = 0
+ end
+ item
+ Description = 'Presupuesto Web'
+ ImageIndex = 5
+ Value = 1
+ end>
+ Properties.ShowDescriptions = False
+ BestFitMaxWidth = 40
+ Width = 40
+ end
object cxGridViewINCIDENCIASACTIVAS: TcxGridDBColumn
Caption = 'Incidencias'
DataBinding.FieldName = 'INCIDENCIAS_ACTIVAS'
@@ -185,32 +204,36 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
Width = 285
end
inherited edtFechaFinFiltro: TcxDateEdit
- Left = 292
+ Left = 249
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 292
+ ExplicitLeft = 249
ExplicitWidth = 504
Width = 504
end
inherited eLista: TcxComboBox
- Left = 750
+ Left = 645
Enabled = False
Properties.OnChange = nil
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 750
+ ExplicitLeft = 645
+ ExplicitWidth = 215
+ Width = 215
end
inherited eLista2: TcxComboBox
- Left = 833
+ Left = 776
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 833
+ ExplicitLeft = 776
+ ExplicitWidth = 207
+ Width = 207
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup
@@ -599,6 +622,28 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
C153E90000000049454E44AE426082}
Name = 'PngImage4'
Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 61000001E34944415478DAA5932D72E43010855F98D934341BC1858261D10D76
+ 8E3047305C1685051A067A59A0E042E70682863D6C608719EE6B399EADDABFAA
+ AD7595CAB2DCFDF5EB1FDDE13F9FBB9F0FF258225F27AEC415D109B05A35C3CC
+ EF32E653FD2380CE035F4388720C41609DC2D68ABA28B42688E1820E79CAE7E9
+ 17407316E4788F43E8033CF2F46D42F804E8E29084E0A2ACBE7B90E9798334C0
+ 40D9145AC2BD1E8591A58B5CFE27406D462915EA59AD4A70812CF142FBD3340E
+ 750764113C8648C9A214E20A0C762560A1A925A662A8FDD0D48A06846B782220
+ 6F80E732C7181F14858079CB69895B1D57D6824BBB99FF4A03C9952134BD9597
+ 21ED008BF1F341F52BAA3035098CC23428DB561A70D53EC39888EFB941D4F45E
+ 5EB2DC0021A6035BC56A0F306660BD1B464A3DB5A8B00CED89606A62B201A61D
+ 90CB8C3E3EA03BD2F002BD8EF4550FB441D421532B62658D02CFC4C2DBFC9AD3
+ 0EC86CDBA349DC24B2F7BA8E2D227BCF9CFD3CB573EC69409EE6D731EF804899
+ EC4F3CB6D631927623FFD48F5AC84741B1B572D58B4FEB5CC67A1BA4739ECE34
+ 18D185435DE756B070B5CDB17305B63BB741A2F38F41BA41BE38C4324D8FE6C6
+ 3E0FBE7CEF15F602716877E7DF5EA6F330B6CBC4F6A55641CAE69EC973245714
+ 97FDD7DBF8AFCF7740E00D20BA266C3A0000000049454E44AE426082}
+ Name = 'PngImage5'
+ Background = clWindow
end>
Bitmap = {}
end
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas
index 3a583d19..9f287278 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas
+++ b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas
@@ -49,6 +49,7 @@ type
cxGridViewCERTIFICADO_ISO: TcxGridDBColumn;
cxGridViewNUM_FACTURAS: TcxGridDBColumn;
cxStyleConFacturas: TcxStyle;
+ cxGridViewPRESUPUESTO_WEB: TcxGridDBColumn;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
TcxGridLevel);
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index 058f4f3b..28b58268 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 4a4b3613..c8b04135 100644
--- a/Source/Servidor/FactuGES_Server.dpr
+++ b/Source/Servidor/FactuGES_Server.dpr
@@ -130,12 +130,12 @@ uses
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_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',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
- schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas';
+ schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
+ schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
+ schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}
diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj
index cdd60e18..bd09e0e1 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -35,7 +35,7 @@
Delphi.Personality
- FalseTrueFalse/standaloneTrueFalse2080FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.0.8.0FactuGES Servidor2.0.8.0martes, 17 de febrero de 2015 16:12
+ FalseTrueFalse/standaloneTrueFalse2090FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.0.9.0FactuGES Servidor2.0.9.0jueves, 28 de mayo de 2015 13:23
ExpressPrinting System by Developer Express Inc.
FactuGES_Server.dpr
diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc
index 9c39f4db..65a4d6f3 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,8,0
-PRODUCTVERSION 2,0,8,0
+FILEVERSION 2,0,9,0
+PRODUCTVERSION 2,0,9,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.8.0\0"
+ VALUE "FileVersion", "2.0.9.0\0"
VALUE "ProductName", "FactuGES Servidor\0"
- VALUE "ProductVersion", "2.0.8.0\0"
- VALUE "CompileDate", "jueves, 28 de mayo de 2015 13:23\0"
+ VALUE "ProductVersion", "2.0.9.0\0"
+ VALUE "CompileDate", "martes, 23 de junio de 2015 17:48\0"
END
END
BLOCK "VarFileInfo"