Uecko/AbetoDesign_FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Se corrige error provocado por arreglo posicionamiento en detalles

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@198 93f398dd-4eb6-7a46-baf6-13f46f578da2
This commit is contained in:
roberto 2024-10-16 17:23:58 +00:00
parent bc47bfff68
commit d42bc4990d
11 changed files with 34 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Source/Cliente/FactuGES.dproj
View File

@ -52,7 +52,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType> <Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">7</VersionInfo><VersionInfo Name="Release">4</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.7.4.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.7.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">7</VersionInfo><VersionInfo Name="Release">5</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.7.5.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.7.5.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages> <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

8
Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas
View File

@ -959,7 +959,7 @@ begin
//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.DisableControls; // AAlbaran.DataTable.DisableControls;
// AAlbaran.DataTable.DisableEventHandlers; // AAlbaran.DataTable.DisableEventHandlers;
ABookmark := AAlbaran.Detalles.DataTable.GetBookMark; // ABookmark := AAlbaran.Detalles.DataTable.GetBookMark;
if ValidarAlbaran(AAlbaran) then if ValidarAlbaran(AAlbaran) then
begin begin
@ -973,11 +973,11 @@ begin
Result := True; Result := True;
finally finally
//Recuparamos la posición de los detalles para despues de guardar no vaya al principio de los detalles //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.EnableEventHandlers;
// AAlbaran.DataTable.EnableControls; // AAlbaran.DataTable.EnableControls;
AAlbaran.Detalles.DataTable.GotoBookmark(ABookmark); // AAlbaran.Detalles.DataTable.GotoBookmark(ABookmark);
AAlbaran.Detalles.DataTable.FreeBookmark(ABookmark); // AAlbaran.Detalles.DataTable.FreeBookmark(ABookmark);
HideHourglassCursor; HideHourglassCursor;
end; end;

7
Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas
View File

@ -1214,11 +1214,12 @@ begin
if not Assigned(FDetallesController) then if not Assigned(FDetallesController) then
raise Exception.Create ('Controller detalles no asignado'); 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 //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 //OJO en este caso si activamos la desactivación de tabla no guarda los importes del pedido
// AAlbaran.DataTable.DisableControls; // AAlbaran.DataTable.DisableControls;
// AAlbaran.DataTable.DisableEventHandlers; // AAlbaran.DataTable.DisableEventHandlers;
ABookmark := AAlbaran.Detalles.DataTable.GetBookMark; // ABookmark := AAlbaran.Detalles.DataTable.GetBookMark;
if ValidarAlbaran(AAlbaran) then if ValidarAlbaran(AAlbaran) then
begin begin
@ -1235,8 +1236,8 @@ begin
//OJO en este caso si activamos la desactivación de tabla no guarda los importes del pedido //OJO en este caso si activamos la desactivación de tabla no guarda los importes del pedido
// AAlbaran.DataTable.EnableEventHandlers; // AAlbaran.DataTable.EnableEventHandlers;
// AAlbaran.DataTable.EnableControls; // AAlbaran.DataTable.EnableControls;
AAlbaran.Detalles.DataTable.GotoBookmark(ABookmark); // AAlbaran.Detalles.DataTable.GotoBookmark(ABookmark);
AAlbaran.Detalles.DataTable.FreeBookmark(ABookmark); // AAlbaran.Detalles.DataTable.FreeBookmark(ABookmark);
HideHourglassCursor; HideHourglassCursor;
end; end;

15
Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas
View File

@ -1511,10 +1511,11 @@ begin
if not Assigned(FDetallesController) then if not Assigned(FDetallesController) then
raise Exception.Create ('Controller detalles no asignado'); 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 //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.DisableControls;
AContrato.DataTable.DisableEventHandlers; // AContrato.DataTable.DisableEventHandlers;
ABookmark := AContrato.Detalles.DataTable.GetBookMark; // ABookmark := AContrato.Detalles.DataTable.GetBookMark;
if ValidarContrato(AContrato) then if ValidarContrato(AContrato) then
begin begin
@ -1528,10 +1529,10 @@ begin
Result := True; Result := True;
finally finally
//Preparamos todo para recuparar la posición de los detalles para despues de guardar no vaya al principio de los detalles //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.EnableEventHandlers;
AContrato.DataTable.EnableControls; // AContrato.DataTable.EnableControls;
AContrato.Detalles.DataTable.GotoBookmark(ABookmark); // AContrato.Detalles.DataTable.GotoBookmark(ABookmark);
AContrato.Detalles.DataTable.FreeBookmark(ABookmark); // AContrato.Detalles.DataTable.FreeBookmark(ABookmark);
HideHourglassCursor; HideHourglassCursor;
end; end;

4
Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas
View File

@ -294,7 +294,7 @@ begin
inherited; inherited;
ShowHourglassCursor; 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 frViewDetallesFacturaCliente1.BeginUpdate; // Para que no se mueva el foco
try try
bEsNuevo := FFactura.EsNuevo; bEsNuevo := FFactura.EsNuevo;
@ -309,7 +309,7 @@ begin
finally finally
frViewDetallesFacturaCliente1.EndUpdate; frViewDetallesFacturaCliente1.EndUpdate;
frViewDetallesFacturaCliente1.RestoreGridStatus; // frViewDetallesFacturaCliente1.RestoreGridStatus;
HideHourglassCursor; HideHourglassCursor;
end; end;

4
Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas
View File

@ -248,7 +248,7 @@ begin
inherited; inherited;
ShowHourglassCursor; 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 frViewDetallesFacturaProveedor1.BeginUpdate; // Para que no se mueva el foco
try try
bEsNuevo := FFactura.EsNuevo; bEsNuevo := FFactura.EsNuevo;
@ -262,7 +262,7 @@ begin
FController.Guardar(FFactura); FController.Guardar(FFactura);
finally finally
frViewDetallesFacturaProveedor1.EndUpdate; frViewDetallesFacturaProveedor1.EndUpdate;
frViewDetallesFacturaProveedor1.RestoreGridStatus; // frViewDetallesFacturaProveedor1.RestoreGridStatus;
HideHourglassCursor; HideHourglassCursor;
end; end;

8
Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas
View File

@ -810,12 +810,12 @@ begin
if not Assigned(FDetallesController) then if not Assigned(FDetallesController) then
raise Exception.Create ('Controller detalles no asignado'); 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 //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 //OJO en este caso si activamos la desactivación de tabla no guarda los importes del pedido
// APedido.DataTable.DisableControls; // APedido.DataTable.DisableControls;
// APedido.DataTable.DisableEventHandlers; // APedido.DataTable.DisableEventHandlers;
ABookmark := APedido.Detalles.DataTable.GetBookMark; // ABookmark := APedido.Detalles.DataTable.GetBookMark;
if ValidarPedido(APedido) then if ValidarPedido(APedido) then
begin begin
@ -830,8 +830,8 @@ begin
Result := True; Result := True;
finally finally
//Recuparamos la posición de los detalles para despues de guardar no vaya al principio de los detalles //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.GotoBookmark(ABookmark);
APedido.Detalles.DataTable.FreeBookmark(ABookmark); // APedido.Detalles.DataTable.FreeBookmark(ABookmark);
//OJO en este caso si activamos la desactivación de tabla no guarda los importes del pedido //OJO en este caso si activamos la desactivación de tabla no guarda los importes del pedido
// APedido.DataTable.EnableEventHandlers; // APedido.DataTable.EnableEventHandlers;
// APedido.DataTable.EnableControls; // APedido.DataTable.EnableControls;

15
Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas
View File

@ -1208,10 +1208,11 @@ begin
if not Assigned(FDetallesController) then if not Assigned(FDetallesController) then
raise Exception.Create ('Controller detalles no asignado'); 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 //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.DisableControls;
APresupuesto.DataTable.DisableEventHandlers; // APresupuesto.DataTable.DisableEventHandlers;
ABookmark := APresupuesto.Detalles.DataTable.GetBookMark; // ABookmark := APresupuesto.Detalles.DataTable.GetBookMark;
if ValidarPresupuesto(APresupuesto) then if ValidarPresupuesto(APresupuesto) then
begin begin
@ -1225,10 +1226,10 @@ begin
Result := True; Result := True;
finally finally
//Recuparamos la posición de los detalles para despues de guardar no vaya al principio de los detalles //Recuparamos la posición de los detalles para despues de guardar no vaya al principio de los detalles
APresupuesto.DataTable.EnableEventHandlers; // APresupuesto.DataTable.EnableEventHandlers;
APresupuesto.DataTable.EnableControls; // APresupuesto.DataTable.EnableControls;
APresupuesto.Detalles.DataTable.GotoBookmark(ABookmark); // APresupuesto.Detalles.DataTable.GotoBookmark(ABookmark);
APresupuesto.Detalles.DataTable.FreeBookmark(ABookmark); // APresupuesto.Detalles.DataTable.FreeBookmark(ABookmark);
HideHourglassCursor; HideHourglassCursor;
end; end;

2
Source/Servidor/FactuGES_Server.dproj
View File

@ -28,7 +28,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/> <Borland.ProjectType/>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">7</VersionInfo><VersionInfo Name="Release">4</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.7.4.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.7.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 15 de octubre de 2024 17:07</VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">7</VersionInfo><VersionInfo Name="Release">5</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.7.5.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.7.5.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 15 de octubre de 2024 18:20</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\cxLibraryD11.bpl">Express Cross Platform Library by Developer Express Inc.</Excluded_Packages> <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\cxLibraryD11.bpl">Express Cross Platform Library by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages> <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\DataAbstract_SDACDriver_D11.bpl">RemObjects Data Abstract - CoreLabs SDAC Driver</Excluded_Packages> <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\DataAbstract_SDACDriver_D11.bpl">RemObjects Data Abstract - CoreLabs SDAC Driver</Excluded_Packages>

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.