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 - - - - - -
srvEjercicios
- TDataAbstractService -
- - - -
srvEmpresas
- TDARemoteService -
- -
srvProvinciasPoblaciones
- TRORemoteDataModule -
- - - - - - - - - - - - -
srvAlbaranesCliente
- TDataAbstractService -
- - - - -
srvAlbaranesProveedor
- TDataAbstractService -
- - - -
srvAlmacenes
- TDARemoteService -
- - - - - - - -
RptComisiones
- TDataModule -
- -
srvComisiones
- TDataAbstractService -
- - - - -
srvContabilidad
- TDataAbstractService -
- - - - - - - -
RptEtiquetasContacto
- TDataModule -
- -
srvContactos
- TDARemoteService -
- - - - -
RptContratosCliente
-
- -
srvContratosCliente
- TDataAbstractService -
- - - - -
RptFacturasCliente
- TDataModule -
- -
srvFacturasCliente
- TDataAbstractService -
- - - - -
RptFacturasProveedor
- TDataModule -
- -
srvFacturasProveedor
- TDataAbstractService -
- - - - - - - -
srvGestorDocumentos
- TDataAbstractService -
- -
srvGestorInformes
- TDataAbstractService -
- - - -
srvHistoricoMovimientos
- TDataAbstractService -
- - - -
srvInventario
- TDataAbstractService -
- - - - -
srvPedidosProveedor
- TDataAbstractService -
- - - - -
RptPresupuestosCliente
-
- -
srvPresupuestosCliente
- TDataAbstractService -
- - - - - -
RptRecibosCliente
- TDataModule -
- -
srvRecibosCliente
- TDataAbstractService -
- - - - - -
RptRecibosProveedor
- TDataModule -
- -
srvRecibosProveedor
- TDataAbstractService -
- - - - -
srvReferencias
- TDataAbstractService -
- - - - -
RptRemesasCliente
- TDataModule -
- -
srvRemesasCliente
- TDataAbstractService -
- - - - -
RptRemesasProveedor
- TDataModule -
- -
srvRemesasProveedor
- TDataAbstractService -
- - - -
srvSubfamilias
- TDataAbstractService -
- - - - - - -
srvUnidadesMedida
- TDataAbstractService -
- - - -
srvConfiguracion
- TDataAbstractService -
- -
frConexionBD
- TFrame -
- -
frConfGeneral
- TFrame -
- -
fConfiguracion
- TForm -
- -
FrameConfiguracion
- TFrame -
- -
srvLogin
- TDARemoteService -
- -
fAcercaDe
-
- -
dmServer
- TDataModule -
- -
fServerForm
-
- - - - - - - - -
+ + {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 + + + + + +
srvEjercicios
+ TDataAbstractService +
+ + + +
srvEmpresas
+ TDARemoteService +
+ +
srvProvinciasPoblaciones
+ TRORemoteDataModule +
+ + + + + + + + + + + + +
srvAlbaranesCliente
+ TDataAbstractService +
+ + + + +
srvAlbaranesProveedor
+ TDataAbstractService +
+ + + +
srvAlmacenes
+ TDARemoteService +
+ + + + + + + +
RptComisiones
+ TDataModule +
+ +
srvComisiones
+ TDataAbstractService +
+ + + + +
srvContabilidad
+ TDataAbstractService +
+ + + + + + + +
RptEtiquetasContacto
+ TDataModule +
+ +
srvContactos
+ TDARemoteService +
+ + + + +
RptContratosCliente
+
+ +
srvContratosCliente
+ TDataAbstractService +
+ + + + +
RptFacturasCliente
+ TDataModule +
+ +
srvFacturasCliente
+ TDataAbstractService +
+ + + + +
RptFacturasProveedor
+ TDataModule +
+ +
srvFacturasProveedor
+ TDataAbstractService +
+ + + + + + + +
srvGestorDocumentos
+ TDataAbstractService +
+ +
srvGestorInformes
+ TDataAbstractService +
+ + + +
srvHistoricoMovimientos
+ TDataAbstractService +
+ + + +
srvInventario
+ TDataAbstractService +
+ + + + +
srvPedidosProveedor
+ TDataAbstractService +
+ + + + +
RptPresupuestosCliente
+
+ +
srvPresupuestosCliente
+ TDataAbstractService +
+ + + + + +
RptRecibosCliente
+ TDataModule +
+ +
srvRecibosCliente
+ TDataAbstractService +
+ + + + + +
RptRecibosProveedor
+ TDataModule +
+ +
srvRecibosProveedor
+ TDataAbstractService +
+ + + + +
srvReferencias
+ TDataAbstractService +
+ + + + +
RptRemesasCliente
+ TDataModule +
+ +
srvRemesasCliente
+ TDataAbstractService +
+ + + + +
RptRemesasProveedor
+ TDataModule +
+ +
srvRemesasProveedor
+ TDataAbstractService +
+ + + +
srvSubfamilias
+ TDataAbstractService +
+ + + + + + +
srvUnidadesMedida
+ TDataAbstractService +
+ + + +
srvConfiguracion
+ TDataAbstractService +
+ +
frConexionBD
+ TFrame +
+ +
frConfGeneral
+ TFrame +
+ +
fConfiguracion
+ TForm +
+ +
FrameConfiguracion
+ TFrame +
+ +
srvLogin
+ TDARemoteService +
+ +
fAcercaDe
+
+ +
dmServer
+ TDataModule +
+ +
fServerForm
+
+ + + + + + + + +