diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj
index 426db58c..891841aa 100644
--- a/Source/Base/Base.dproj
+++ b/Source/Base/Base.dproj
@@ -58,55 +58,55 @@
MainSource
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
TForm
diff --git a/Source/Base/Base.res b/Source/Base/Base.res
index 8b251f31..1641339f 100644
Binary files a/Source/Base/Base.res and b/Source/Base/Base.res differ
diff --git a/Source/Modulos/Contratos de cliente/Views/uViewContratoCliente.dfm b/Source/Modulos/Contratos de cliente/Views/uViewContratoCliente.dfm
index 3a054099..3bbfd3d2 100644
--- a/Source/Modulos/Contratos de cliente/Views/uViewContratoCliente.dfm
+++ b/Source/Modulos/Contratos de cliente/Views/uViewContratoCliente.dfm
@@ -292,7 +292,8 @@ inherited frViewContratoCliente: TfrViewContratoCliente
'Ba'#241'o'
'Armarios'
'Electrodom'#233'sticos'
- 'Varios')
+ 'Varios'
+ 'Obra')
Properties.PostPopupValueOnTab = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
diff --git a/Source/Modulos/Contratos de cliente/Views/uViewContratoCliente.pas b/Source/Modulos/Contratos de cliente/Views/uViewContratoCliente.pas
index fd027e1b..aaa91b41 100644
--- a/Source/Modulos/Contratos de cliente/Views/uViewContratoCliente.pas
+++ b/Source/Modulos/Contratos de cliente/Views/uViewContratoCliente.pas
@@ -93,7 +93,7 @@ implementation
{ TfrViewContratoCliente }
uses
- uClientesController, uBizDireccionesContacto, uContratosClienteController;
+ uClientesController, uBizDireccionesContacto, uContratosClienteController, uPresupuestosClienteController;
procedure TfrViewContratoCliente.bFormasPagoClick(Sender: TObject);
@@ -111,6 +111,14 @@ begin
FFormasPagoController := TFormasPagoController.Create;
FVendedoresController := TVendedoresController.Create;
FViewClienteContrato := frViewDatosYSeleccionClienteContrato1;
+
+ cbTipoContrato.Properties.Items.Clear;
+ cbTipoContrato.Properties.Items.Add(CTE_COCINA);
+ cbTipoContrato.Properties.Items.Add(CTE_ARMARIO);
+ cbTipoContrato.Properties.Items.Add(CTE_BANO);
+ cbTipoContrato.Properties.Items.Add(CTE_ELECTRODOMESTICO);
+ cbTipoContrato.Properties.Items.Add(CTE_OBRA);
+ cbTipoContrato.Properties.Items.Add(CTE_VARIOS);
end;
procedure TfrViewContratoCliente.CustomViewDestroy(Sender: TObject);
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm
index e2ce0893..9469dfad 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm
+++ b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm
@@ -228,6 +228,10 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
Height = 224
ExplicitWidth = 320
ExplicitHeight = 224
+ inherited edtlNombre: TcxDBTextEdit
+ ExplicitWidth = 224
+ Width = 224
+ end
inherited edtNIFCIF: TcxDBTextEdit
Left = 328
ExplicitLeft = 328
@@ -236,6 +240,10 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
Left = 239
ExplicitLeft = 239
end
+ inherited edtPersonaContacto: TcxDBTextEdit
+ ExplicitWidth = 283
+ Width = 283
+ end
inherited edtDireccion: TcxMemo
ExplicitWidth = 121
Width = 121
@@ -248,6 +256,10 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
Left = 408
ExplicitLeft = 408
end
+ inherited edtTelefonos: TcxTextEdit
+ ExplicitWidth = 363
+ Width = 363
+ end
end
end
object memFormaPago: TcxDBMemo
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas
index 1cb6809c..c5ac23dc 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas
+++ b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas
@@ -121,6 +121,7 @@ begin
cbTipoPresupuesto.Properties.Items.Add(CTE_ARMARIO);
cbTipoPresupuesto.Properties.Items.Add(CTE_BANO);
cbTipoPresupuesto.Properties.Items.Add(CTE_ELECTRODOMESTICO);
+ cbTipoPresupuesto.Properties.Items.Add(CTE_OBRA);
cbTipoPresupuesto.Properties.Items.Add(CTE_VARIOS);
end;
diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj
index 3028a017..b1480f7a 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -1,294 +1,295 @@
-
+
-
- {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}
- FactuGES_Server.dpr
- Debug
- AnyCPU
- DCC32
- ..\..\Output\Debug\Servidor\FactuGES_Server.exe
-
-
- 7.0
- False
- False
- 0
- 3
- ..\..\Output\Release\Servidor
- RELEASE
-
-
- 7.0
- 3
- ..\..\Output\Debug\Servidor
- DEBUG;
- True
-
-
- Delphi.Personality
-
-
- FalseTrueFalseTrueFalse2510FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.5.1.0FactuGES (Servidor)2.5.1.0miércoles, 05 de septiembre de 2012 20:56
- File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found
- FactuGES_Server.dpr
-
-
-
-
- MainSource
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDARemoteService
-
-
-
- TRORemoteDataModule
-
-
-
-
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDARemoteService
-
-
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDARemoteService
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
- TFrame
-
-
-
- TFrame
-
-
-
- TForm
-
-
-
- TFrame
-
-
-
- TDARemoteService
-
-
-
-
-
-
- TDataModule
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+ {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}
+ FactuGES_Server.dpr
+ Debug
+ AnyCPU
+ DCC32
+ ..\..\Output\Debug\Servidor\FactuGES_Server.exe
+
+
+ 7.0
+ False
+ False
+ 0
+ 3
+ ..\..\Output\Release\Servidor
+ RELEASE
+
+
+ 7.0
+ 3
+ ..\..\Output\Debug\Servidor
+ DEBUG;
+ True
+
+
+ Delphi.Personality
+
+
+FalseTrueFalseTrueFalse2510FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.5.1.0FactuGES (Servidor)2.5.1.0miércoles, 05 de septiembre de 2012 20:56
+
+ File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found
+ FactuGES_Server.dpr
+
+
+
+
+ MainSource
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDARemoteService
+
+
+
+ TRORemoteDataModule
+
+
+
+
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+ TFrame
+
+
+
+ TFrame
+
+
+
+ TForm
+
+
+
+ TFrame
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+ TDataModule
+
+
+
+
+
+
+
+
+
+
+
+
+