Informe de facturas y recibos finalizados y arreglo de los detallles para que cuando se mete cantidad no nos ponga en el primer registro de los detalles

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@168 f4e31baf-9722-1c47-927c-6f952f962d4b

Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.groupproj

@@ -11,6 +11,7 @@
     <Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
     <Projects Include="..\Articulos\Views\Articulos_view.dproj" />
     <Projects Include="..\Contactos\Views\Contactos_view.dproj" />
+    <Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" />
     <Projects Include="Controller\AlbaranesCliente_controller.dproj" />
     <Projects Include="Data\AlbaranesCliente_data.dproj" />
     <Projects Include="Model\AlbaranesCliente_model.dproj" />
@@ -131,14 +132,23 @@
   <Target Name="FactuGES_Server:Make">
     <MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
   </Target>
+  <Target Name="FacturasCliente_view">
+    <MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="" />
+  </Target>
+  <Target Name="FacturasCliente_view:Clean">
+    <MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="FacturasCliente_view:Make">
+    <MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Make" />
+  </Target>
   <Target Name="Build">
-    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_view;AlbaranesCliente_model;AlbaranesCliente_data;AlbaranesCliente_controller;AlbaranesCliente_view;AlbaranesCliente_plugin;FactuGES;FactuGES_Server" />
+    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_view;AlbaranesCliente_model;AlbaranesCliente_data;AlbaranesCliente_controller;AlbaranesCliente_view;AlbaranesCliente_plugin;FactuGES;FactuGES_Server;FacturasCliente_view" />
   </Target>
   <Target Name="Clean">
-    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_view:Clean;AlbaranesCliente_model:Clean;AlbaranesCliente_data:Clean;AlbaranesCliente_controller:Clean;AlbaranesCliente_view:Clean;AlbaranesCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean" />
+    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_view:Clean;AlbaranesCliente_model:Clean;AlbaranesCliente_data:Clean;AlbaranesCliente_controller:Clean;AlbaranesCliente_view:Clean;AlbaranesCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;FacturasCliente_view:Clean" />
   </Target>
   <Target Name="Make">
-    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_view:Make;AlbaranesCliente_model:Make;AlbaranesCliente_data:Make;AlbaranesCliente_controller:Make;AlbaranesCliente_view:Make;AlbaranesCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make" />
+    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_view:Make;AlbaranesCliente_model:Make;AlbaranesCliente_data:Make;AlbaranesCliente_controller:Make;AlbaranesCliente_view:Make;AlbaranesCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;FacturasCliente_view:Make" />
   </Target>
   <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
 </Project>

Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas

@@ -1036,6 +1036,7 @@ end;
 procedure TAlbaranesClienteController.RecalcularImportes(AAlbaran: IBizAlbaranCliente);
 var
   bEnEdicion : Boolean;
+  ADetallePosAct : Integer;
 begin
   if not Assigned(AAlbaran) then
     raise Exception.Create ('Albarán no asignado (RecalcularImportes)');
@@ -1043,6 +1044,13 @@ begin
   if AAlbaran.DataTable.Active then
     AAlbaran.DataTable.Active := True;
 
+  { Hay que guardar la posición en la que estamos en los detalles por que
+    la asignación de valores a los campos IMPORTE_NETO e IMPORTE_PORTE
+    (ver más adelante) colocan el puntero en la tabla detalle al principio.
+    No he encontrado la razón por la que mueve el puntero. }
+
+  ADetallePosAct := AAlbaran.Detalles.POSICION;
+
   bEnEdicion := (AAlbaran.DataTable.State in dsEditModes);
   if not bEnEdicion then
     AAlbaran.Edit;
@@ -1056,6 +1064,8 @@ begin
       AAlbaran.Post;
   finally
     HideHourglassCursor;
+    // Restaurar la posición que teníamos en los detalles.
+    FDetallesController.LocalizarPosicion(AAlbaran.Detalles, ADetallePosAct);
   end;
 end;
 

Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.dfm

@@ -1,15 +1,6 @@
 inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente
   inherited cxGrid: TcxGrid
     inherited cxGridView: TcxGridDBTableView
-      inherited cxGridViewID: TcxGridDBColumn
-        Visible = False
-      end
-      inherited cxGridViewPOSICION: TcxGridDBColumn
-        Visible = False
-      end
-      inherited cxGridViewTIPO: TcxGridDBColumn
-        Visible = False
-      end
       inherited cxGridViewIMPORTEPORTE: TcxGridDBColumn
         Visible = False
       end

Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas

@@ -834,10 +834,10 @@ begin
   Result := not (AAlbaran.ID_FACTURA > 0);
 end;
 
-procedure TAlbaranesProveedorController.RecalcularImportes(
+procedure TAlbaranesProveedorController.RecalcularImportes(AAlbaran: IBizAlbaranProveedor);
-  AAlbaran: IBizAlbaranProveedor);
 var
   bEnEdicion : Boolean;
+  ADetallePosAct : Integer;
 begin
   if not Assigned(AAlbaran) then
     raise Exception.Create ('Albarán no asignado (RecalcularImportes)');
@@ -845,6 +845,13 @@ begin
   if AAlbaran.DataTable.Active then
     AAlbaran.DataTable.Active := True;
 
+  { Hay que guardar la posición en la que estamos en los detalles por que
+    la asignación de valores a los campos IMPORTE_NETO e IMPORTE_PORTE
+    (ver más adelante) colocan el puntero en la tabla detalle al principio.
+    No he encontrado la razón por la que mueve el puntero. }
+
+  ADetallePosAct := AAlbaran.Detalles.POSICION;
+
   bEnEdicion := (AAlbaran.DataTable.State in dsEditModes);
   if not bEnEdicion then
     AAlbaran.Edit;
@@ -858,6 +865,8 @@ begin
       AAlbaran.Post;
   finally
     HideHourglassCursor;
+    // Restaurar la posición que teníamos en los detalles.
+    FDetallesController.LocalizarPosicion(AAlbaran.Detalles, ADetallePosAct);
   end;
 end;
 

Source/Modulos/Contabilidad/Model/schContabilidadClient_Intf.pas

@@ -3,7 +3,7 @@ unit schContabilidadClient_Intf;
 interface
 
 uses
-  Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
+  Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
 
 const
   { Data table rules ids
@@ -249,7 +249,7 @@ type
   end;
 
   { TDarIDCuentaDataTableRules }
-  TDarIDCuentaDataTableRules = class(TDADataTableRules, IDarIDCuenta)
+  TDarIDCuentaDataTableRules = class(TIntfObjectDADataTableRules, IDarIDCuenta)
   private
   protected
     { Property getters and setters }
@@ -284,7 +284,7 @@ type
   end;
 
   { TDarCodigoContableTiendaDataTableRules }
-  TDarCodigoContableTiendaDataTableRules = class(TDADataTableRules, IDarCodigoContableTienda)
+  TDarCodigoContableTiendaDataTableRules = class(TIntfObjectDADataTableRules, IDarCodigoContableTienda)
   private
   protected
     { Property getters and setters }
@@ -319,7 +319,7 @@ type
   end;
 
   { TDarMaxRefSubCuentaDataTableRules }
-  TDarMaxRefSubCuentaDataTableRules = class(TDADataTableRules, IDarMaxRefSubCuenta)
+  TDarMaxRefSubCuentaDataTableRules = class(TIntfObjectDADataTableRules, IDarMaxRefSubCuenta)
   private
   protected
     { Property getters and setters }
@@ -354,7 +354,7 @@ type
   end;
 
   { TExisteSubCuentaDataTableRules }
-  TExisteSubCuentaDataTableRules = class(TDADataTableRules, IExisteSubCuenta)
+  TExisteSubCuentaDataTableRules = class(TIntfObjectDADataTableRules, IExisteSubCuenta)
   private
   protected
     { Property getters and setters }
@@ -473,7 +473,7 @@ type
   end;
 
   { TDiarioDataTableRules }
-  TDiarioDataTableRules = class(TDADataTableRules, IDiario)
+  TDiarioDataTableRules = class(TIntfObjectDADataTableRules, IDiario)
   private
   protected
     { Property getters and setters }
@@ -652,7 +652,7 @@ type
   end;
 
   { TApuntesDataTableRules }
-  TApuntesDataTableRules = class(TDADataTableRules, IApuntes)
+  TApuntesDataTableRules = class(TIntfObjectDADataTableRules, IApuntes)
   private
   protected
     { Property getters and setters }
@@ -771,7 +771,7 @@ type
   end;
 
   { TAsientosDataTableRules }
-  TAsientosDataTableRules = class(TDADataTableRules, IAsientos)
+  TAsientosDataTableRules = class(TIntfObjectDADataTableRules, IAsientos)
   private
   protected
     { Property getters and setters }
@@ -890,7 +890,7 @@ type
   end;
 
   { TSubCuentasDataTableRules }
-  TSubCuentasDataTableRules = class(TDADataTableRules, ISubCuentas)
+  TSubCuentasDataTableRules = class(TIntfObjectDADataTableRules, ISubCuentas)
   private
   protected
     { Property getters and setters }
@@ -1039,7 +1039,7 @@ type
   end;
 
   { TCuentasDataTableRules }
-  TCuentasDataTableRules = class(TDADataTableRules, ICuentas)
+  TCuentasDataTableRules = class(TIntfObjectDADataTableRules, ICuentas)
   private
   protected
     { Property getters and setters }
@@ -1140,7 +1140,7 @@ type
   end;
 
   { TCuentasEspecialesDataTableRules }
-  TCuentasEspecialesDataTableRules = class(TDADataTableRules, ICuentasEspeciales)
+  TCuentasEspecialesDataTableRules = class(TIntfObjectDADataTableRules, ICuentasEspeciales)
   private
   protected
     { Property getters and setters }
@@ -1217,7 +1217,7 @@ type
   end;
 
   { TEpigrafesDataTableRules }
-  TEpigrafesDataTableRules = class(TDADataTableRules, IEpigrafes)
+  TEpigrafesDataTableRules = class(TIntfObjectDADataTableRules, IEpigrafes)
   private
   protected
     { Property getters and setters }
@@ -1330,7 +1330,7 @@ type
   end;
 
   { TBalancesDataTableRules }
-  TBalancesDataTableRules = class(TDADataTableRules, IBalances)
+  TBalancesDataTableRules = class(TIntfObjectDADataTableRules, IBalances)
   private
   protected
     { Property getters and setters }

Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas

@@ -3,7 +3,7 @@ unit schFacturasClienteClient_Intf;
 interface
 
 uses
-  Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
+  Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
 
 const
   { Data table rules ids
@@ -366,7 +366,7 @@ type
   end;
 
   { TFacturasClienteDataTableRules }
-  TFacturasClienteDataTableRules = class(TDADataTableRules, IFacturasCliente)
+  TFacturasClienteDataTableRules = class(TIntfObjectDADataTableRules, IFacturasCliente)
   private
     f_OBSERVACIONES: IROStrings;
     procedure OBSERVACIONES_OnChange(Sender: TObject);
@@ -702,7 +702,7 @@ type
   end;
 
   { TFacturasCliente_DetallesDataTableRules }
-  TFacturasCliente_DetallesDataTableRules = class(TDADataTableRules, IFacturasCliente_Detalles)
+  TFacturasCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IFacturasCliente_Detalles)
   private
   protected
     { Property getters and setters }

Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas

@@ -778,10 +778,10 @@ begin
   Result := (AFactura.SITUACION = CTE_PENDIENTE);
 end;
 
-procedure TFacturasProveedorController.RecalcularImportes(
+procedure TFacturasProveedorController.RecalcularImportes(FFactura: IBizFacturaProveedor);
-  FFactura: IBizFacturaProveedor);
 var
   bEnEdicion : Boolean;
+  ADetallePosAct : Integer;
 begin
   if not Assigned(FFactura) then
     raise Exception.Create ('Factura no asignada (RecalcularImportes)');
@@ -789,6 +789,13 @@ begin
   if FFactura.DataTable.Active then
     FFactura.DataTable.Active := True;
 
+  { Hay que guardar la posición en la que estamos en los detalles por que
+    la asignación de valores a los campos IMPORTE_NETO e IMPORTE_PORTE
+    (ver más adelante) colocan el puntero en la tabla detalle al principio.
+    No he encontrado la razón por la que mueve el puntero. }
+
+  ADetallePosAct := FFactura.Detalles.POSICION;
+
   bEnEdicion := (FFactura.DataTable.State in dsEditModes);
   if not bEnEdicion then
     FFactura.Edit;
@@ -802,6 +809,8 @@ begin
       FFactura.Post;
   finally
     HideHourglassCursor;
+    // Restaurar la posición que teníamos en los detalles.
+    FDetallesController.LocalizarPosicion(FFactura.Detalles, ADetallePosAct);
   end;
 end;
 

Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas

@@ -565,10 +565,11 @@ begin
   Result := (APedido.SITUACION <> SITUACION_PEDIDO_RECIBIDO);
 end;
 
-procedure TPedidosProveedorController.RecalcularImportes(
+procedure TPedidosProveedorController.RecalcularImportes(APedido: IBizPedidoProveedor);
-  APedido: IBizPedidoProveedor);
 var
   bEnEdicion : Boolean;
+  ADetallePosAct : Integer;
+
 begin
   if not Assigned(APedido) then
     raise Exception.Create ('Pedido no asignado (RecalcularImportes)');
@@ -576,6 +577,13 @@ begin
   if APedido.DataTable.Active then
     APedido.DataTable.Active := True;
 
+  { Hay que guardar la posición en la que estamos en los detalles por que
+    la asignación de valores a los campos IMPORTE_NETO e IMPORTE_PORTE
+    (ver más adelante) colocan el puntero en la tabla detalle al principio.
+    No he encontrado la razón por la que mueve el puntero. }
+
+  ADetallePosAct := APedido.Detalles.POSICION;
+
   bEnEdicion := (APedido.DataTable.State in dsEditModes);
   if not bEnEdicion then
     APedido.Edit;
@@ -589,6 +597,8 @@ begin
       APedido.Post;
   finally
     HideHourglassCursor;
+    // Restaurar la posición que teníamos en los detalles.
+    FDetallesController.LocalizarPosicion(APedido.Detalles, ADetallePosAct);
   end;
 end;
 

Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas

@@ -528,10 +528,11 @@ begin
   Result := (APresupuesto.SITUACION = SITUACION_PRESUPUESTO_PENDIENTE);
 end;
 
-procedure TPresupuestosClienteController.RecalcularImportes(
+procedure TPresupuestosClienteController.RecalcularImportes(APresupuesto: IBizPresupuestoCliente);
-  APresupuesto: IBizPresupuestoCliente);
 var
   bEnEdicion : Boolean;
+  ADetallePosAct : Integer;
+
 begin
   if not Assigned(APresupuesto) then
     raise Exception.Create ('Presupuesto no asignado (RecalcularImportes)');
@@ -539,6 +540,13 @@ begin
   if APresupuesto.DataTable.Active then
     APresupuesto.DataTable.Active := True;
 
+  { Hay que guardar la posición en la que estamos en los detalles por que
+    la asignación de valores a los campos IMPORTE_NETO e IMPORTE_PORTE
+    (ver más adelante) colocan el puntero en la tabla detalle al principio.
+    No he encontrado la razón por la que mueve el puntero. }
+
+  ADetallePosAct := APresupuesto.Detalles.POSICION;
+
   bEnEdicion := (APresupuesto.DataTable.State in dsEditModes);
   if not bEnEdicion then
     APresupuesto.Edit;
@@ -552,6 +560,8 @@ begin
       APresupuesto.Post;
   finally
     HideHourglassCursor;
+    // Restaurar la posición que teníamos en los detalles.
+    FDetallesController.LocalizarPosicion(APresupuesto.Detalles, ADetallePosAct);
   end;
 end;
 

Source/Servidor/FactuGES_Server.dproj

@@ -1,4 +1,4 @@
-<?xml version="1.0" encoding="utf-8"?>
+<?xml version="1.0" encoding="utf-8"?>
 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
 	<PropertyGroup>
 		<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
@@ -29,7 +29,6 @@
 		<Borland.ProjectType/>
 		<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">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</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"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 19 de noviembre de 2007 18:58</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
-      
 						<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
 					</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
 	</ProjectExtensions>

Source/Servidor/FactuGES_Server.rc

@@ -14,7 +14,7 @@ BEGIN
          BEGIN
               VALUE "FileVersion", "1.0.0.0\0"
               VALUE "ProductVersion", "1.0.0.0\0"
-              VALUE "CompileDate", "lunes, 03 de marzo de 2008 20:37\0"
+              VALUE "CompileDate", "jueves, 06 de marzo de 2008 21:29\0"
          END
     END
     BLOCK "VarFileInfo"