diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj index 9f99ec9..e35437c 100644 --- a/Source/Cliente/FactuGES.dproj +++ b/Source/Cliente/FactuGES.dproj @@ -52,7 +52,7 @@ Delphi.Personality VCLApplication -FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse4740FalseFalseFalseFalseFalse30821252Rodax Software S.L.4.7.4.0FactuGESFactuGES4.7.4.0 +FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse4750FalseFalseFalseFalseFalse30821252Rodax Software S.L.4.7.5.0FactuGESFactuGES4.7.5.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 119fc17..e3111a6 100644 Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ diff --git a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas index 8f7058d..ab768b9 100644 --- a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas +++ b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas @@ -959,7 +959,7 @@ begin //OJO en este caso si activamos la desactivación de tabla no guarda los importes de cabecera // AAlbaran.DataTable.DisableControls; // AAlbaran.DataTable.DisableEventHandlers; - ABookmark := AAlbaran.Detalles.DataTable.GetBookMark; +// ABookmark := AAlbaran.Detalles.DataTable.GetBookMark; if ValidarAlbaran(AAlbaran) then begin @@ -973,11 +973,11 @@ begin Result := True; finally //Recuparamos la posición de los detalles para despues de guardar no vaya al principio de los detalles -//OJO en este caso si activamos la desactivación de tabla no guarda los importes de cabecera +//OJO en este caso si activamos la desactivación de tabla no guarda los importes de cabecera // AAlbaran.DataTable.EnableEventHandlers; // AAlbaran.DataTable.EnableControls; - AAlbaran.Detalles.DataTable.GotoBookmark(ABookmark); - AAlbaran.Detalles.DataTable.FreeBookmark(ABookmark); +// AAlbaran.Detalles.DataTable.GotoBookmark(ABookmark); +// AAlbaran.Detalles.DataTable.FreeBookmark(ABookmark); HideHourglassCursor; end; diff --git a/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas b/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas index 430e727..9ee4901 100644 --- a/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas +++ b/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas @@ -1214,11 +1214,12 @@ begin if not Assigned(FDetallesController) then raise Exception.Create ('Controller detalles no asignado'); + //ESTO DA UN PETE DE COJONES NO GUARDA CABECERA //Preparamos todo para recuparar la posición de los detalles para despues de guardar no vaya al principio de los detalles //OJO en este caso si activamos la desactivación de tabla no guarda los importes del pedido // AAlbaran.DataTable.DisableControls; // AAlbaran.DataTable.DisableEventHandlers; - ABookmark := AAlbaran.Detalles.DataTable.GetBookMark; +// ABookmark := AAlbaran.Detalles.DataTable.GetBookMark; if ValidarAlbaran(AAlbaran) then begin @@ -1235,8 +1236,8 @@ begin //OJO en este caso si activamos la desactivación de tabla no guarda los importes del pedido // AAlbaran.DataTable.EnableEventHandlers; // AAlbaran.DataTable.EnableControls; - AAlbaran.Detalles.DataTable.GotoBookmark(ABookmark); - AAlbaran.Detalles.DataTable.FreeBookmark(ABookmark); +// AAlbaran.Detalles.DataTable.GotoBookmark(ABookmark); +// AAlbaran.Detalles.DataTable.FreeBookmark(ABookmark); HideHourglassCursor; end; diff --git a/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas b/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas index 5549729..54efcd0 100644 --- a/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas +++ b/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas @@ -1511,10 +1511,11 @@ begin if not Assigned(FDetallesController) then raise Exception.Create ('Controller detalles no asignado'); + //ESTO DA UN PETE DE COJONES NO GUARDA CABECERA //Preparamos todo para recuparar la posición de los detalles para despues de guardar no vaya al principio de los detalles - AContrato.DataTable.DisableControls; - AContrato.DataTable.DisableEventHandlers; - ABookmark := AContrato.Detalles.DataTable.GetBookMark; +// AContrato.DataTable.DisableControls; +// AContrato.DataTable.DisableEventHandlers; +// ABookmark := AContrato.Detalles.DataTable.GetBookMark; if ValidarContrato(AContrato) then begin @@ -1528,10 +1529,10 @@ begin Result := True; finally //Preparamos todo para recuparar la posición de los detalles para despues de guardar no vaya al principio de los detalles - AContrato.DataTable.EnableEventHandlers; - AContrato.DataTable.EnableControls; - AContrato.Detalles.DataTable.GotoBookmark(ABookmark); - AContrato.Detalles.DataTable.FreeBookmark(ABookmark); +// AContrato.DataTable.EnableEventHandlers; +// AContrato.DataTable.EnableControls; +// AContrato.Detalles.DataTable.GotoBookmark(ABookmark); +// AContrato.Detalles.DataTable.FreeBookmark(ABookmark); HideHourglassCursor; end; diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas index d1fdd59..e431b91 100644 --- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas +++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas @@ -294,7 +294,7 @@ begin inherited; ShowHourglassCursor; - frViewDetallesFacturaCliente1.SaveGridStatus; // Para guardar estado del grid (Estaba comentado pero lo descomentamos para que funcione la asignación del foco tras el guardar +// frViewDetallesFacturaCliente1.SaveGridStatus; // Para guardar estado del grid (Estaba comentado pero lo descomentamos para que funcione la asignación del foco tras el guardar frViewDetallesFacturaCliente1.BeginUpdate; // Para que no se mueva el foco try bEsNuevo := FFactura.EsNuevo; @@ -309,7 +309,7 @@ begin finally frViewDetallesFacturaCliente1.EndUpdate; - frViewDetallesFacturaCliente1.RestoreGridStatus; +// frViewDetallesFacturaCliente1.RestoreGridStatus; HideHourglassCursor; end; diff --git a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas index 65ad156..d60d896 100644 --- a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas +++ b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas @@ -248,7 +248,7 @@ begin inherited; ShowHourglassCursor; - frViewDetallesFacturaProveedor1.SaveGridStatus; // Para guardar estado del grid (ojo lo activamos de nuevo para recuperar el foco en el grid despues de guardar no se si tendrá efecto lateral +// frViewDetallesFacturaProveedor1.SaveGridStatus; // Para guardar estado del grid (ojo lo activamos de nuevo para recuperar el foco en el grid despues de guardar no se si tendrá efecto lateral frViewDetallesFacturaProveedor1.BeginUpdate; // Para que no se mueva el foco try bEsNuevo := FFactura.EsNuevo; @@ -262,7 +262,7 @@ begin FController.Guardar(FFactura); finally frViewDetallesFacturaProveedor1.EndUpdate; - frViewDetallesFacturaProveedor1.RestoreGridStatus; +// frViewDetallesFacturaProveedor1.RestoreGridStatus; HideHourglassCursor; end; diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas b/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas index 41faab0..25334a9 100644 --- a/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas +++ b/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas @@ -810,12 +810,12 @@ begin if not Assigned(FDetallesController) then raise Exception.Create ('Controller detalles no asignado'); - + //ESTO DA UN PETE DE COJONES NO GUARDA CABECERA //Preparamos todo para recuparar la posición de los detalles para despues de guardar no vaya al principio de los detalles //OJO en este caso si activamos la desactivación de tabla no guarda los importes del pedido // APedido.DataTable.DisableControls; // APedido.DataTable.DisableEventHandlers; - ABookmark := APedido.Detalles.DataTable.GetBookMark; +// ABookmark := APedido.Detalles.DataTable.GetBookMark; if ValidarPedido(APedido) then begin @@ -830,8 +830,8 @@ begin Result := True; finally //Recuparamos la posición de los detalles para despues de guardar no vaya al principio de los detalles - APedido.Detalles.DataTable.GotoBookmark(ABookmark); - APedido.Detalles.DataTable.FreeBookmark(ABookmark); +// APedido.Detalles.DataTable.GotoBookmark(ABookmark); +// APedido.Detalles.DataTable.FreeBookmark(ABookmark); //OJO en este caso si activamos la desactivación de tabla no guarda los importes del pedido // APedido.DataTable.EnableEventHandlers; // APedido.DataTable.EnableControls; diff --git a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas index 925bad8..97bcd6e 100644 --- a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas +++ b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas @@ -1208,10 +1208,11 @@ begin if not Assigned(FDetallesController) then raise Exception.Create ('Controller detalles no asignado'); + //ESTO DA UN PETE DE COJONES NO GUARDA CABECERA //Preparamos todo para recuparar la posición de los detalles para despues de guardar no vaya al principio de los detalles - APresupuesto.DataTable.DisableControls; - APresupuesto.DataTable.DisableEventHandlers; - ABookmark := APresupuesto.Detalles.DataTable.GetBookMark; +// APresupuesto.DataTable.DisableControls; +// APresupuesto.DataTable.DisableEventHandlers; +// ABookmark := APresupuesto.Detalles.DataTable.GetBookMark; if ValidarPresupuesto(APresupuesto) then begin @@ -1225,10 +1226,10 @@ begin Result := True; finally //Recuparamos la posición de los detalles para despues de guardar no vaya al principio de los detalles - APresupuesto.DataTable.EnableEventHandlers; - APresupuesto.DataTable.EnableControls; - APresupuesto.Detalles.DataTable.GotoBookmark(ABookmark); - APresupuesto.Detalles.DataTable.FreeBookmark(ABookmark); +// APresupuesto.DataTable.EnableEventHandlers; +// APresupuesto.DataTable.EnableControls; +// APresupuesto.Detalles.DataTable.GotoBookmark(ABookmark); +// APresupuesto.Detalles.DataTable.FreeBookmark(ABookmark); HideHourglassCursor; end; diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index 9e21b86..bce29f5 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -28,7 +28,7 @@ Delphi.Personality - FalseTrueFalseTrueFalse4740FalseFalseFalseFalseFalse30821252Rodax Software S.L.4.7.4.0FactuGES (Servidor)4.7.4.0martes, 15 de octubre de 2024 17:07 + FalseTrueFalseTrueFalse4750FalseFalseFalseFalseFalse30821252Rodax Software S.L.4.7.5.0FactuGES (Servidor)4.7.5.0martes, 15 de octubre de 2024 18:20 Express Cross Platform Library by Developer Express Inc. ExpressPrinting System by Developer Express Inc. RemObjects Data Abstract - CoreLabs SDAC Driver diff --git a/Source/Servidor/FactuGES_Server.res b/Source/Servidor/FactuGES_Server.res index 1790fad..5355bdb 100644 Binary files a/Source/Servidor/FactuGES_Server.res and b/Source/Servidor/FactuGES_Server.res differ