diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj
index 6bfd609..7525489 100644
--- a/Source/Cliente/FactuGES.dproj
+++ b/Source/Cliente/FactuGES.dproj
@@ -51,7 +51,7 @@
Delphi.Personality
VCLApplication
-FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2720FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.7.2.0FactuGESFactuGES2.7.2.0
+FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2730FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.7.3.0FactuGESFactuGES2.7.3.0
File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found
FactuGES.dprFalse
diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res
index bd7d3c2..788e748 100644
Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ
diff --git a/Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.pas b/Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.pas
index 8c2aa77..dccf813 100644
--- a/Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.pas
+++ b/Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.pas
@@ -353,7 +353,7 @@ begin
ADetalles.DataTable.Post;
AArticulo := Nil;
end;
-
+
ADetalles.DataTable.Next;
end;
diff --git a/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas b/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas
index ccadba4..2c509d7 100644
--- a/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas
+++ b/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas
@@ -41,6 +41,7 @@ type
TBizPresupuestoCliente = class(TPresupuestosClienteDataTableRules, IBizPresupuestoCliente, ISeleccionable)
private
+ procedure CalcularPrecioPunto;
procedure CalcularBaseImponible;
procedure CalcularIVA;
procedure CalcularRE;
@@ -75,6 +76,7 @@ type
procedure IMPORTE_NETOOnChange(Sender: TDACustomField);
procedure IMPORTE_PORTEOnChange(Sender: TDACustomField);
procedure DESCUENTOOnChange(Sender: TDACustomField);
+ procedure PRECIO_PUNTOOnChange(Sender: TDACustomField);
procedure IVAOnChange(Sender: TDACustomField);
procedure REOnChange(Sender: TDACustomField);
procedure SetID_TIPO_IVAValue(const aValue: Integer); override;
@@ -163,6 +165,12 @@ begin
IMPORTE_IVA := (IVA / 100) * (BASE_IMPONIBLE);
end;
+procedure TBizPresupuestoCliente.CalcularPrecioPunto;
+begin
+//ShowMessage('calcular precio punto');
+//Self.FDetalles.
+end;
+
procedure TBizPresupuestoCliente.CalcularRE;
begin
if not Self.DataTable.Editing then
@@ -185,6 +193,7 @@ begin
FieldByName(fld_PresupuestosClienteDESCUENTO).OnChange := DESCUENTOOnChange;
FieldByName(fld_PresupuestosClienteIVA).OnChange := IVAOnChange;
FieldByName(fld_PresupuestosClienteRE).OnChange := REOnChange;
+// FieldByName(fld_PresupuestosClientePRECIO_PUNTO).OnChange := PRECIO_PUNTOOnChange;
end;
FDetallesLink := TDADataSource.Create(NIL);
@@ -301,6 +310,12 @@ begin
IniciarValoresPresupuestoNuevo;
end;
+procedure TBizPresupuestoCliente.PRECIO_PUNTOOnChange(Sender: TDACustomField);
+begin
+ CalcularPrecioPunto;
+
+end;
+
procedure TBizPresupuestoCliente.RECARGO_EQUIVALENCIAOnChange(
Sender: TDACustomField);
begin
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm
index acc9ae0..06571d1 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm
+++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm
@@ -210,45 +210,76 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Height = 286
ExplicitWidth = 989
ExplicitHeight = 286
+ inherited edtFechaPresupuesto: TcxDBDateEdit
+ ExplicitWidth = 187
+ Width = 187
+ end
inherited memObservaciones: TcxDBMemo
- Left = 471
- ExplicitLeft = 471
+ Left = 472
+ ExplicitLeft = 472
+ ExplicitWidth = 793
+ Width = 793
+ end
+ inherited eReferencia: TcxDBTextEdit
+ ExplicitWidth = 122
+ Width = 122
+ end
+ inherited cbFormaPago: TcxDBLookupComboBox
+ ExplicitWidth = 122
+ Width = 122
end
inherited bFormasPago: TButton
- Left = 309
- ExplicitLeft = 309
+ Left = 310
+ ExplicitLeft = 310
end
inherited edtFechaDecision: TcxDBDateEdit
- Left = 318
- ExplicitLeft = 318
+ Left = 319
+ ExplicitLeft = 319
+ ExplicitWidth = 260
+ Width = 260
+ end
+ inherited edtFechaVigencia: TcxDBDateEdit
+ ExplicitWidth = 260
+ Width = 260
+ end
+ inherited cbSituacion: TcxDBImageComboBox
+ ExplicitWidth = 260
+ Width = 260
end
inherited frViewDatosYSeleccionClientePresupuesto1: TfrViewDatosYSeleccionClientePresupuesto
- Left = 471
- ExplicitLeft = 471
+ Left = 472
+ Width = 320
+ ExplicitLeft = 472
+ ExplicitWidth = 320
inherited dxLayoutControl1: TdxLayoutControl
+ Width = 320
inherited edtlNombre: TcxDBTextEdit
ExplicitWidth = 202
Width = 202
end
inherited edtNIFCIF: TcxDBTextEdit
- Left = 364
- ExplicitLeft = 364
+ Left = 363
+ ExplicitLeft = 363
end
inherited Button3: TBitBtn
- Left = 275
- ExplicitLeft = 275
+ Left = 274
+ ExplicitLeft = 274
end
inherited edtPersonaContacto: TcxDBTextEdit
ExplicitWidth = 329
Width = 329
end
+ inherited edtDireccion: TcxMemo
+ ExplicitWidth = 121
+ Width = 121
+ end
inherited Button4: TButton
- Left = 444
- ExplicitLeft = 444
+ Left = 443
+ ExplicitLeft = 443
end
inherited Button5: TButton
- Left = 444
- ExplicitLeft = 444
+ Left = 443
+ ExplicitLeft = 443
end
inherited edtTelefonos: TcxTextEdit
ExplicitWidth = 193
@@ -256,13 +287,33 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
end
end
end
+ inherited memFormaPago: TcxDBMemo
+ ExplicitWidth = 475
+ ExplicitHeight = 44
+ Height = 44
+ Width = 475
+ end
inherited memPlazoEntrega: TcxDBMemo
Top = 303
ExplicitTop = 303
+ ExplicitWidth = 396
+ ExplicitHeight = 100
+ Height = 100
+ Width = 396
+ end
+ inherited cbVendedor: TcxDBLookupComboBox
+ ExplicitWidth = 27
+ Width = 27
end
inherited cbTipoPresupuesto: TcxDBComboBox
Left = 314
ExplicitLeft = 314
+ ExplicitWidth = 186
+ Width = 186
+ end
+ inherited edtlReferenciaCliente: TcxDBTextEdit
+ ExplicitWidth = 204
+ Width = 204
end
end
end
@@ -392,7 +443,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ExplicitWidth = 753
end
inherited edtPrecioPunto: TcxDBCurrencyEdit
- DataBinding.DataSource = dsDataTable
+ DataBinding.DataSource = frViewPresupuestoCliente1.DADataSource
Style.IsFontAssigned = True
end
inherited bRecalcularPrecioPunto: TButton
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas
index eaac7b1..86834b2 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas
+++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas
@@ -170,11 +170,15 @@ end;
procedure TfEditorPresupuestoCliente.CustomEditorClose(Sender: TObject;
var Action: TCloseAction);
begin
- inherited;
frViewTotales1.cbRecargoEquivalencia.Properties.OnValidate := Nil;
+
+ //PRECIO_PUNTO EVENTOS
frViewDetallesPresupuestoCliente1.edtPrecioPunto.Properties.OnValidate := Nil;
frViewDetallesPresupuestoCliente1.edtPrecioPunto.Properties.OnEditValueChanged := Nil;
+ inherited;
+
+
//GESTION_DOCUMENTOS
//Este método eliminará el directorio temporal si se ha creado
frViewDocumentosPresupuestoCliente1.actEliminarTodo.Execute;
@@ -182,7 +186,7 @@ begin
FViewPresupuesto := NIL;
FViewClientePresupuesto := NIL;
FPresupuesto := NIL;
- FTiposIVAController := Nil;
+ FTiposIVAController := Nil;
end;
destructor TfEditorPresupuestoCliente.Destroy;
@@ -193,11 +197,16 @@ end;
procedure TfEditorPresupuestoCliente.EliminarInterno;
begin
+ //PRECIO_PUNTO EVENTOS
+ frViewDetallesPresupuestoCliente1.edtPrecioPunto.Properties.OnValidate := Nil;
+ frViewDetallesPresupuestoCliente1.edtPrecioPunto.Properties.OnEditValueChanged := Nil;
+
if (ShowConfirmMessage('¿Desea borrar este presupuesto de cliente?', '') = IDYES) then
begin
FController.Eliminar(FPresupuesto);
inherited
end
+
end;
procedure TfEditorPresupuestoCliente.FormShow(Sender: TObject);
@@ -212,6 +221,7 @@ begin
frViewTotales1.cbRecargoEquivalencia.Properties.OnValidate := OnRecargoEquivalenciaPropertiesValidate;
+ //PRECIO_PUNTO EVENTOS
frViewDetallesPresupuestoCliente1.edtPrecioPunto.Properties.OnValidate := onPrecioPuntoPropertiesValidate;
frViewDetallesPresupuestoCliente1.edtPrecioPunto.Properties.OnEditValueChanged := OnPrecioPuntoPropertiesEditValueChanged;
@@ -296,6 +306,10 @@ procedure TfEditorPresupuestoCliente.GuardarInterno;
var
bEsNuevo : Boolean;
begin
+ //PRECIO_PUNTO EVENTOS
+ frViewDetallesPresupuestoCliente1.edtPrecioPunto.Properties.OnValidate := Nil;
+ frViewDetallesPresupuestoCliente1.edtPrecioPunto.Properties.OnEditValueChanged := Nil;
+
inherited;
ShowHourglassCursor;
@@ -316,6 +330,10 @@ begin
ShowInfoMessage('El presupuesto se ha dado de alta con el código ' + FPresupuesto.REFERENCIA);
Modified := False;
+
+ //PRECIO_PUNTO EVENTOS
+ frViewDetallesPresupuestoCliente1.edtPrecioPunto.Properties.OnValidate := onPrecioPuntoPropertiesValidate;
+ frViewDetallesPresupuestoCliente1.edtPrecioPunto.Properties.OnEditValueChanged := OnPrecioPuntoPropertiesEditValueChanged;
end;
procedure TfEditorPresupuestoCliente.ImprimirInterno;
@@ -367,14 +385,14 @@ end;
procedure TfEditorPresupuestoCliente.OnPrecioPuntoPropertiesEditValueChanged(Sender: TObject);
begin
- actRecalcularPrecioPunto.Execute;
+ if not FPresupuesto.EsNuevo then
+ actRecalcularPrecioPunto.Execute;
end;
procedure TfEditorPresupuestoCliente.OnRecargoEquivalenciaPropertiesValidate(
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
var Error: Boolean);
begin
-
if frViewTotales1.cbRecargoEquivalencia.Checked then
Presupuesto.RECARGO_EQUIVALENCIA := 1
else
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas
index 085917a..2bd4c8d 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas
+++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas
@@ -402,7 +402,7 @@ begin
inherited;
APresupuesto := FController.Duplicar(Presupuestos);
//Recalculamos el presupuesto copiado con el precio punto actual
- FController.DetallesController.RecalcularPrecioPuntoDetalles(APresupuesto.PRECIO_PUNTO, APresupuesto.Detalles);
+// FController.DetallesController.RecalcularPrecioPuntoDetalles(APresupuesto.PRECIO_PUNTO, APresupuesto.Detalles);
FController.Ver(APresupuesto);
finally
HideHourglassCursor;
diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj
index 7b0e0ca..70e9fd9 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -1,310 +1,311 @@
-
+
-
- {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
-
-
- FalseTrueFalseTrueFalse2720FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.7.2.0FactuGES (Servidor)2.7.2.0lunes, 26 de marzo de 2018 17:23
- 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
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- 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
+
+
+FalseTrueFalseTrueFalse2730FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.7.3.0FactuGES (Servidor)2.7.3.0martes, 03 de abril de 2018 17:53
+
+ 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
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+ TFrame
+
+
+
+ TFrame
+
+
+
+ TForm
+
+
+
+ TFrame
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+ TDataModule
+
+
+
+
+
+
+
+
+
+
+
+
+