Se hacen las acciones de aceptar un presupuesto y anularlo desde la lista de presupuestos

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@515 0c75b7a4-871f-7646-8a2f-f78d34cc349f

Source/Cliente/FactuGES.dproj

@@ -54,11 +54,7 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <Borland.ProjectType>VCLApplication</Borland.ProjectType>
     <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">1</VersionInfo><VersionInfo Name="MinorVer">2</VersionInfo><VersionInfo Name="Release">2</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">1.2.2.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">1.2.2.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">1</VersionInfo><VersionInfo Name="MinorVer">2</VersionInfo><VersionInfo Name="Release">3</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">1.2.3.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">1.2.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
-      
-      
-      
-      
       
       
       

Source/Cliente/FactuGES.rc

@@ -1,7 +1,7 @@
 MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Factuges.ico"
 1 VERSIONINFO
-FILEVERSION 1,2,2,0
+FILEVERSION 1,2,3,0
-PRODUCTVERSION 1,2,2,0
+PRODUCTVERSION 1,2,3,0
 FILEFLAGSMASK 0x3FL
 FILEFLAGS 0x00L
 FILEOS 0x40004L
@@ -13,10 +13,10 @@ BEGIN
          BLOCK "0C0A04E4"
          BEGIN
               VALUE "CompanyName", "Rodax Software S.L.\0"
-              VALUE "FileVersion", "1.2.2.0\0"
+              VALUE "FileVersion", "1.2.3.0\0"
               VALUE "InternalName", "FactuGES\0"
               VALUE "ProductName", "FactuGES\0"
-              VALUE "ProductVersion", "1.2.2.0\0"
+              VALUE "ProductVersion", "1.2.3.0\0"
          END
     END
     BLOCK "VarFileInfo"

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

@@ -52,6 +52,7 @@ type
     procedure Preview(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false);
     procedure Print(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false);
     function GenerarCertificados(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false): Boolean;
+    function CambiarSituacion(APresupuesto : IBizPresupuestoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean;
   end;
 
   TPresupuestosClienteController = class(TObservador, IPresupuestosClienteController)
@@ -114,6 +115,7 @@ type
     procedure Preview(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false);
     procedure Print(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false);
     function GenerarCertificados(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false): Boolean;
+    function CambiarSituacion(APresupuesto : IBizPresupuestoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean;
   end;
 
 implementation
@@ -201,6 +203,61 @@ begin
   end;
 end;
 
+function TPresupuestosClienteController.CambiarSituacion(APresupuesto: IBizPresupuestoCliente; Situacion: String; FechaDecision: TDateTime;
+  AllItems: Boolean): Boolean;
+//En el caso de cambiar almenos un elemento del conjunto se devuelve true
+
+begin
+  Result := False;
+
+  if not Assigned(APresupuesto) then
+    raise Exception.Create ('APresupuesto no asignado');
+
+  ShowHourglassCursor;
+  try
+    if not APresupuesto.DataTable.Active then
+       APresupuesto.DataTable.Active := True;
+
+    if (APresupuesto.State in dsEditModes) then
+      APresupuesto.Cancel;
+
+    //Siempre cambiaremos de situacion el seleccionado
+    if APresupuesto.SITUACION <> Situacion then
+    begin
+      APresupuesto.DataTable.Edit;
+      APresupuesto.SITUACION := Situacion;
+      APresupuesto.FECHA_DECISION := FechaDecision;
+      APresupuesto.DataTable.Post;
+    end;
+
+    //En el caso de querer eliminar todos los items del objeto APresupuesto
+    if AllItems then
+    begin
+       with APresupuesto.DataTable do
+       begin
+         First;
+         while not EOF do
+         begin
+           if APresupuesto.SITUACION <> Situacion then
+           begin
+             APresupuesto.DataTable.Edit;
+             APresupuesto.SITUACION := Situacion;
+             APresupuesto.FECHA_DECISION := FechaDecision;
+             APresupuesto.DataTable.Post;
+           end;
+           Next;
+         end;
+       end;
+    end;
+
+    APresupuesto.DataTable.ApplyUpdates;
+    Result := True;
+
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
 procedure TPresupuestosClienteController.CopiarDireccionEnvio(
   const ADireccionEnvio: IBizDireccionesContacto; APresupuesto: IBizPresupuestoCliente);
 {var

Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj

@@ -49,13 +49,13 @@
     <DelphiCompile Include="PresupuestosCliente_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="C:\Documents and Settings\Usuario\Articulos_view.dcp" />
+    <DCCReference Include="Articulos_view.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
+    <DCCReference Include="Base.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
+    <DCCReference Include="GUIBase.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\PreCli_AlbCli_relation.dcp" />
+    <DCCReference Include="PreCli_AlbCli_relation.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\PreCli_FacCli_relation.dcp" />
+    <DCCReference Include="PreCli_FacCli_relation.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\PresupuestosCliente_controller.dcp" />
+    <DCCReference Include="PresupuestosCliente_controller.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\PresupuestosCliente_model.dcp" />
+    <DCCReference Include="PresupuestosCliente_model.dcp" />
     <DCCReference Include="uEditorElegirArticulosPresupuestoCliente.pas">
       <Form>fEditorElegirArticulosPresupuestoCliente</Form>
       <DesignClass>TfEditorElegirArticulosPedidoCliente</DesignClass>
@@ -64,6 +64,9 @@
       <Form>fEditorElegirPresupuestosCliente</Form>
       <DesignClass>TfEditorElegirPedidosCliente</DesignClass>
     </DCCReference>
+    <DCCReference Include="uEditorFechaDecision.pas">
+      <Form>fEditorFechaDecision</Form>
+    </DCCReference>
     <DCCReference Include="uEditorPresupuestoCliente.pas">
       <Form>fEditorPresupuestoCliente</Form>
       <DesignClass>TfEditorPedidoCliente</DesignClass>

Source/Modulos/Presupuestos de cliente/Views/uEditorFechaDecision.dfm

@@ -0,0 +1,60 @@
+object fEditorFechaDecision: TfEditorFechaDecision
+  Left = 0
+  Top = 0
+  BorderIcons = [biSystemMenu]
+  Caption = 'Fecha de decisi'#243'n'
+  ClientHeight = 146
+  ClientWidth = 279
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  FormStyle = fsStayOnTop
+  OldCreateOrder = False
+  Position = poMainFormCenter
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Label1: TLabel
+    Left = 8
+    Top = 16
+    Width = 257
+    Height = 13
+    Caption = 'Establezca la fecha de decisi'#243'n para los presupuestos'
+  end
+  object edtFechaDecision: TcxDateEdit
+    Left = 56
+    Top = 48
+    Style.LookAndFeel.Kind = lfStandard
+    Style.LookAndFeel.NativeStyle = True
+    StyleDisabled.LookAndFeel.Kind = lfStandard
+    StyleDisabled.LookAndFeel.NativeStyle = True
+    StyleFocused.LookAndFeel.Kind = lfStandard
+    StyleFocused.LookAndFeel.NativeStyle = True
+    StyleHot.LookAndFeel.Kind = lfStandard
+    StyleHot.LookAndFeel.NativeStyle = True
+    TabOrder = 0
+    Width = 169
+  end
+  object bAceptar: TButton
+    Left = 109
+    Top = 113
+    Width = 75
+    Height = 25
+    Caption = 'Aceptar'
+    ModalResult = 1
+    TabOrder = 1
+  end
+  object bCancelar: TButton
+    Left = 190
+    Top = 113
+    Width = 75
+    Height = 25
+    Cancel = True
+    Caption = 'Cancelar'
+    ModalResult = 2
+    TabOrder = 2
+  end
+end

Source/Modulos/Presupuestos de cliente/Views/uEditorFechaDecision.pas

@@ -0,0 +1,40 @@
+unit uEditorFechaDecision;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinCaramel, dxSkinCoffee,
+  dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
+  dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins, dxSkinOffice2007Black,
+  dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
+  dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters,
+  dxSkinValentine, dxSkinXmas2008Blue, StdCtrls, cxControls, cxContainer,
+  cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxCalendar;
+
+type
+  TfEditorFechaDecision = class(TForm)
+    Label1: TLabel;
+    edtFechaDecision: TcxDateEdit;
+    bAceptar: TButton;
+    bCancelar: TButton;
+    procedure FormShow(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  fEditorFechaDecision: TfEditorFechaDecision;
+
+implementation
+
+{$R *.dfm}
+
+procedure TfEditorFechaDecision.FormShow(Sender: TObject);
+begin
+  edtFechaDecision.Date := now;
+end;
+
+end.

Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm

@@ -144,11 +144,19 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
       end
     end
     inherited TBXTMain2: TTBXToolbar
-      Left = 343
       DockPos = 343
       Visible = True
-      ExplicitLeft = 343
+      ExplicitWidth = 337
-      ExplicitWidth = 236
+      object TBXItem43: TTBXItem
+        Action = actAceptar
+        DisplayMode = nbdmImageAndText
+      end
+      object TBXItem44: TTBXItem
+        Action = actAnular
+        DisplayMode = nbdmImageAndText
+      end
+      object TBXSeparatorItem18: TTBXSeparatorItem
+      end
       object TBXItem42: TTBXItem
         Action = actGenerarCertificado
         DisplayMode = nbdmImageAndText
@@ -193,6 +201,20 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
       OnExecute = actGenerarCertificadoExecute
       OnUpdate = actGenerarCertificadoUpdate
     end
+    object actAceptar: TAction
+      Category = 'Acciones'
+      Caption = 'Aceptar'
+      ImageIndex = 27
+      OnExecute = actAceptarExecute
+      OnUpdate = actAceptarUpdate
+    end
+    object actAnular: TAction
+      Category = 'Acciones'
+      Caption = 'Anular'
+      ImageIndex = 28
+      OnExecute = actAnularExecute
+      OnUpdate = actAnularUpdate
+    end
   end
   inherited SmallImages: TPngImageList
     PngImages = <
@@ -872,6 +894,58 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
           00000049454E44AE426082}
         Name = 'PngImage26'
         Background = clWindow
+      end
+      item
+        PngImage.Data = {
+          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+          61000000097048597300000AEB00000AEB01828B0D5A000001DA4944415478DA
+          63FCFFFF3F032580912C5DF2F33964B539E3DF7DF8F1956403380CE7C85B5929
+          CFFAF99ED7FCFCED9BE124192060B7D8D6CE5279E99B876C42674FFC0CFEF9C0
+          7A27D10628FBAF0FB030915F74E7EA6FE6F387FF87FD7A6AB195E83090F55915
+          EEE7A23BE7FCD9CFAC170EFF4EFDF6C07A31D18128E1BE3CC8DB597BE1A3BBBF
+          B98EECFA91FBFDBEF574A0F07FA20C10B09B67EBE366B8E3CDF37F9C47F77CED
+          FC7CD3AE125D0DC400B3897C9CCCBCEADFD9182F331C4CFC010E6DCB39F29E0E
+          3A07599939E477AE7FBFFBE3CF4BBE0C77F27F621820EAB848DFDC447931372B
+          9FE68E5DF7577F3C73368E414588D9C6496BB3AA92B8CBDECD9FDEBC7CF9D3F2
+          E71DE7BBD85CC928EAB438C4C7556F3A0B1B8BC8B1BD9FFFDE7B753F4C41994B
+          C3CA48B1E5F09ECFFFEF3F7D19F3FB5AD0725CDE047B41276243A09D85FAAAA7
+          CFBFB11CDEFBEA8EA79F98E4C3FBBFB8CF9F7BBDE5EB453F3FE440C31E060CF5
+          4C4ED9F63B6565845D5EBEFEF29F11287AE9C4AF2FAFBF3D32FF753EFE3ABE80
+          86C7028FF5429B101F83FDCF5F7F66797697E1FFCDDB6FA7FFBAE69F4D289A91
+          A2B19EC539C7E1C49BC7EC46F71EBDD9FFF9DFD338868B994F4930808181D76E
+          413EF33F56D90F0F5ED4323C29FE4E4833080000904EC47A3EA3126900000000
+          49454E44AE426082}
+        Name = 'PngImage27'
+        Background = clWindow
+      end
+      item
+        PngImage.Data = {
+          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+          61000000097048597300000AEB00000AEB01828B0D5A0000029B4944415478DA
+          A5936B48536118C7FFE79CB5CD332F639B9A379C683051B232CDEA835D14BB40
+          A444501FACCC254811F529858811519411917D705A5041D04D30A34F82214118
+          D8B0455E2A755E6665BA9DCDED6C3BDBDE76365C9A981F7AE0BDF0C2FFF7FE9F
+          E7E1A10821F89FA0C27B7E8B8ED526D731085A9DAFAA6EFC4B1053FAA844AA8A
+          377053B64ED27BAC99C2E6FB4574667A4F5676B23C5ECE9091FE2F97B98ECA4B
+          CB9405B794AAEC9CAB5E307A97C3ED8383AB26BD35CF29EC7ED68AA4A45A0483
+          4852B1484D64C9A8E9EB15AEB3F2E282962D7BBC5FA651B73A5C424AC0E59E05
+          673B88BEBAB762FA14726EC7639DB60BB1B145083DC4C824D0A62790E901CB75
+          FB4B53A362EF060351B08D6E978706CF4F807356C0A41F10C1118018BA3B6A68
+          33DE8065F345080D82B4940432373933E863A43AC1E3A5E0E68730E72883F9D4
+          E482B33F003136B6A52251DD831879B60811530A2FF1CEF31670F3DB60AAB52E
+          2ECB528018EB8D5948D6F442264D8C8A03018299D94321DBED7FD775194051FE
+          E49C54A36CB2715E3AEA423CBD9E09CCD977C05C3FB222407DA0FD4A467E6643
+          FF472B450221A15F2010FCF39048E222109F052E5B294CA72DCB008A8AA7E775
+          25B94DC343D394D3EE167F2670380CA1DCDBC02A8CA194F685213EE11B387E17
+          3ED78D4701CCF687E559C579AF79DE2B991AFB19B1EC703EC0BBEAE351AF85F7
+          4E42B6E626683A0182300CDFFC4E98CE58C300CDD1EEC9B8B5AAB4B1C13184AD
+          BBDD668CFB8A6139E15952B1BCBB19A10E192161F6840A3B04DE594ACC677F50
+          CAC35D2F78BFBFCAEBE211A20BB0FFDA8A0FF57D2B0E4381510F09DD0412EC20
+          7DFA6A0A9B8C25502ABBC1307270DC35BCAF69587504739B3341532CF9543F10
+          E94261CB16486417F07DF4082C06CFAA80455DF80DE5433FF01720E9DB000000
+          0049454E44AE426082}
+        Name = 'PngImage28'
+        Background = clWindow
       end>
     Bitmap = {}
   end
@@ -2858,7 +2932,7 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
       1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082}
     Instruction.Text = 
       'Los siguientes presupuestos no han podido ser eliminados, porque' +
-      ' tienen albaranes asociados'
+      ' tienen factura asociada'
     Instruction.Glyph.Data = {
       0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
       00001C0806000000720DDF940000000970485973000017120000171201679FD2

Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas

@@ -34,6 +34,11 @@ type
     TBXItem41: TTBXItem;
     TBXItem42: TTBXItem;
     Generarcertificado1: TMenuItem;
+    actAceptar: TAction;
+    actAnular: TAction;
+    TBXItem43: TTBXItem;
+    TBXItem44: TTBXItem;
+    TBXSeparatorItem18: TTBXSeparatorItem;
     procedure FormShow(Sender: TObject);
     procedure actGenerarAlbaranCliExecute(Sender: TObject);
     procedure actEliminarUpdate(Sender: TObject);
@@ -43,6 +48,10 @@ type
     procedure actGenerarExecute(Sender: TObject);
     procedure actGenerarCertificadoUpdate(Sender: TObject);
     procedure actGenerarCertificadoExecute(Sender: TObject);
+    procedure actAceptarExecute(Sender: TObject);
+    procedure actAceptarUpdate(Sender: TObject);
+    procedure actAnularExecute(Sender: TObject);
+    procedure actAnularUpdate(Sender: TObject);
 
   protected
     FPresupuestos: IBizPresupuestoCliente;
@@ -77,9 +86,9 @@ implementation
 
 uses
   uDataModulePresupuestosCliente, uDataModuleUsuarios, uFactuGES_App,
-  uEditorBase, uEditorDBBase, uDialogUtils,
+  uEditorBase, uEditorDBBase, uDialogUtils, Dialogs,
   uDBSelectionListUtils, uGridStatusUtils,
-  uGenerarFacturasCliPreCliUtils,
+  uGenerarFacturasCliPreCliUtils, uEditorFechaDecision,
 //  uBizAlbaranesCliente, uAlbaranesClienteController,
 //  uFacturasClienteController, uBizFacturasCliente,
   uGenerarAlbaranesCliUtils;
@@ -90,6 +99,108 @@ uses
 {
 *************************** TfEditorPresupuestosCliente ***************************
 }
+procedure TfEditorPresupuestosCliente.actAceptarExecute(Sender: TObject);
+var
+  APresupuestos: IBizPresupuestoCliente;
+  AllItems: Boolean;
+  AFecha: Variant;
+begin
+  APresupuestos := Nil;
+  AllItems := False;
+
+  //Pedimos fecha de decision y realizamos todo el proceso de asignacion, en el caso de no darla no se hace nada
+  AFecha := Null;
+  with TfEditorFechaDecision.Create(nil) do
+  try
+    if ShowModal = mrOk then
+       AFecha := edtFechaDecision.Date;
+  finally
+    Free;
+  end;
+
+  if not VarIsNull(AFecha) then
+  begin
+    if MultiSelect and Assigned(ViewGrid) then
+       AllItems :=  (ViewGrid.NumSeleccionados > 1);
+
+    if AllItems then
+    begin
+      SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Presupuestos as ISeleccionable).SelectedRecords);
+      APresupuestos := (Controller as IPresupuestosClienteController).ExtraerSeleccionados(Presupuestos) as IBizPresupuestoCliente;
+    end
+    else begin
+      APresupuestos := Presupuestos;
+    end;
+
+    ViewGrid._Grid.BeginUpdate;
+    if Assigned(APresupuestos) then
+    begin
+      FController.CambiarSituacion(APresupuestos, SITUACION_PRESUPUESTO_ACEPTADO, AFecha, AllItems);
+      actRefrescar.Execute;
+    end;
+    ViewGrid._Grid.EndUpdate;
+  end;
+end;
+
+procedure TfEditorPresupuestosCliente.actAceptarUpdate(Sender: TObject);
+begin
+  inherited;
+  (Sender as TAction).Enabled := HayDatos
+                                 and ViewGrid.esSeleccionCeldaDatos
+                                 and (FPresupuestos.SITUACION <> SITUACION_PRESUPUESTO_ACEPTADO);
+end;
+
+procedure TfEditorPresupuestosCliente.actAnularExecute(Sender: TObject);
+var
+  APresupuestos: IBizPresupuestoCliente;
+  AllItems: Boolean;
+  AFecha: Variant;
+begin
+  APresupuestos := Nil;
+  AllItems := False;
+
+  //Pedimos fecha de decision y realizamos todo el proceso de asignacion, en el caso de no darla no se hace nada
+  AFecha := Null;
+  with TfEditorFechaDecision.Create(nil) do
+  try
+    if ShowModal = mrOk then
+       AFecha := edtFechaDecision.Date;
+  finally
+    Free;
+  end;
+
+  if not VarIsNull(AFecha) then
+  begin
+    if MultiSelect and Assigned(ViewGrid) then
+       AllItems :=  (ViewGrid.NumSeleccionados > 1);
+
+    if AllItems then
+    begin
+      SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Presupuestos as ISeleccionable).SelectedRecords);
+      APresupuestos := (Controller as IPresupuestosClienteController).ExtraerSeleccionados(Presupuestos) as IBizPresupuestoCliente;
+    end
+    else begin
+      APresupuestos := Presupuestos;
+    end;
+
+    ViewGrid._Grid.BeginUpdate;
+    if Assigned(APresupuestos) then
+    begin
+      FController.CambiarSituacion(APresupuestos, SITUACION_PRESUPUESTO_ANULADO, AFecha, AllItems);
+      actRefrescar.Execute;
+    end;
+    ViewGrid._Grid.EndUpdate;
+  end;
+end;
+
+procedure TfEditorPresupuestosCliente.actAnularUpdate(Sender: TObject);
+begin
+  inherited;
+  (Sender as TAction).Enabled := HayDatos
+                                 and ViewGrid.esSeleccionCeldaDatos
+                                 and (FPresupuestos.SITUACION <> SITUACION_PRESUPUESTO_ANULADO);
+end;
+
 procedure TfEditorPresupuestosCliente.actEliminarUpdate(Sender: TObject);
 begin
   inherited;
@@ -259,7 +370,7 @@ begin
           First;
           while not EOF do
           begin
-//            JsListaPresupuestosNoEliminados.Content.Add('Ref. Presupuesto: ' + APresupuestos.REFERENCIA + '  ' + APresupuestos.NOMBRE);
+            JsListaPresupuestosNoEliminados.Content.Add('Ref. Presupuesto: ' + APresupuestos.REFERENCIA + '  ' + APresupuestos.NOMBRE);
             Next;
           end;
         end;

Source/Servidor/FactuGES_Server.dproj

@@ -35,7 +35,7 @@
 		<Borland.Personality>Delphi.Personality</Borland.Personality>
 		<Borland.ProjectType/>
 		<BorlandProject>
-			<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">2</VersionInfo><VersionInfo Name="Release">1</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.2.1.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">1.2.2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 07 de agosto de 2008 16:35</VersionInfoKeys></VersionInfoKeys><Excluded_Packages/><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+			<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">2</VersionInfo><VersionInfo Name="Release">3</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.2.3.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">1.2.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 12 de agosto de 2008 12:17</VersionInfoKeys></VersionInfoKeys><Excluded_Packages/><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
 	</ProjectExtensions>
 	<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
 	<ItemGroup>

Source/Servidor/FactuGES_Server.rc

@@ -1,7 +1,7 @@
 MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Servidor.ico"
 1 VERSIONINFO
-FILEVERSION 1,2,1,0
+FILEVERSION 1,2,3,0
-PRODUCTVERSION 1,2,1,0
+PRODUCTVERSION 1,2,3,0
 FILEFLAGSMASK 0x3FL
 FILEFLAGS 0x00L
 FILEOS 0x40004L
@@ -12,9 +12,9 @@ BEGIN
     BEGIN
          BLOCK "0C0A04E4"
          BEGIN
-              VALUE "FileVersion", "1.2.1.0\0"
+              VALUE "FileVersion", "1.2.3.0\0"
-              VALUE "ProductVersion", "1.2.1.0\0"
+              VALUE "ProductVersion", "1.2.3.0\0"
-              VALUE "CompileDate", "martes, 12 de agosto de 2008 12:17\0"
+              VALUE "CompileDate", "miércoles, 13 de agosto de 2008 13:03\0"
          END
     END
     BLOCK "VarFileInfo"