From e7faba26577ac4c8b98867a96f5201b9bc981aa9 Mon Sep 17 00:00:00 2001 From: roberto Date: Wed, 13 Aug 2008 12:01:59 +0000 Subject: [PATCH] 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 | 6 +- Source/Cliente/FactuGES.rc | 8 +- Source/Cliente/FactuGES.res | Bin 171984 -> 171984 bytes .../uPresupuestosClienteController.pas | 57 +++++++++ .../Views/PresupuestosCliente_view.dpk | Bin 2057 -> 2135 bytes .../Views/PresupuestosCliente_view.dproj | 17 +-- .../Views/uEditorFechaDecision.dfm | 60 +++++++++ .../Views/uEditorFechaDecision.pas | 40 ++++++ .../Views/uEditorPresupuestosCliente.dfm | 82 +++++++++++- .../Views/uEditorPresupuestosCliente.pas | 117 +++++++++++++++++- Source/Servidor/FactuGES_Server.RES | Bin 23204 -> 23208 bytes Source/Servidor/FactuGES_Server.dproj | 2 +- Source/Servidor/FactuGES_Server.rc | 10 +- 13 files changed, 370 insertions(+), 29 deletions(-) create mode 100644 Source/Modulos/Presupuestos de cliente/Views/uEditorFechaDecision.dfm create mode 100644 Source/Modulos/Presupuestos de cliente/Views/uEditorFechaDecision.pas diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj index 38726672..a0b323e7 100644 --- a/Source/Cliente/FactuGES.dproj +++ b/Source/Cliente/FactuGES.dproj @@ -54,11 +54,7 @@ Delphi.Personality VCLApplication -FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse1220FalseFalseFalseFalseFalse30821252Rodax Software S.L.1.2.2.0FactuGESFactuGES1.2.2.0 - - - - +FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse1230FalseFalseFalseFalseFalse30821252Rodax Software S.L.1.2.3.0FactuGESFactuGES1.2.3.0 diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc index 855f2de1..6d3a9c1e 100644 --- a/Source/Cliente/FactuGES.rc +++ b/Source/Cliente/FactuGES.rc @@ -1,7 +1,7 @@ MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Factuges.ico" 1 VERSIONINFO -FILEVERSION 1,2,2,0 -PRODUCTVERSION 1,2,2,0 +FILEVERSION 1,2,3,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" diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res index 7918e9037c6fee7ee63cc06573b5369a84ef89b1..179d2c80f2c1e07382212fd79610770adb6f4636 100644 GIT binary patch delta 42 xcmcbxpX84E_KB delta 42 xcmcbxpX 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 diff --git a/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dpk b/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dpk index e794df93f7c8b2aa8b8b4c04fcbcf88b85aecf67..4ce67af259849f79e81339878ff3675b481470ab 100644 GIT binary patch delta 90 zcmeAaxGu2aFZ*P979Kyh)Z~mrm(=9U;>`R!h0Ht!^-|ZA%#!>f6bZe8#A0=Y>NG4; Rwbr~`yj-byDSEtI3;@g!9?<{* delta 20 bcmcaE&?&ItFFTJlFBdOYYF>&SFBby MainSource - - - - - - - + + + + + + +
fEditorElegirArticulosPresupuestoCliente
TfEditorElegirArticulosPedidoCliente @@ -64,6 +64,9 @@
fEditorElegirPresupuestosCliente
TfEditorElegirPedidosCliente + +
fEditorFechaDecision
+
fEditorPresupuestoCliente
TfEditorPedidoCliente diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorFechaDecision.dfm b/Source/Modulos/Presupuestos de cliente/Views/uEditorFechaDecision.dfm new file mode 100644 index 00000000..71aee817 --- /dev/null +++ b/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 diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorFechaDecision.pas b/Source/Modulos/Presupuestos de cliente/Views/uEditorFechaDecision.pas new file mode 100644 index 00000000..fd388e9c --- /dev/null +++ b/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. diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm index fca7a550..f4a155b1 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm +++ b/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 = 236 + ExplicitWidth = 337 + 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 diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas index 4d7e071b..575c538d 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas +++ b/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; diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES index c5793b93f21e389ece0d2aacfb0de056088c870b..083b1de5439a1a52c4e0a558252af59433f169b4 100644 GIT binary patch delta 109 zcmZ3om2t&Z#tnBO7}rd`8zB!Q|3;W{GBYqSFfuSOFi*CQlx5_Z92u$1_+oNxq&=hY zuAdSOMAQ3=ESK Gquc>}CmRj` diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index af628392..55c67cd7 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -35,7 +35,7 @@ Delphi.Personality - FalseTrueFalse/standaloneTrueFalse1210FalseFalseFalseFalseFalse308212521.2.1.01.2.2.0jueves, 07 de agosto de 2008 16:35FactuGES_Server.dpr + FalseTrueFalse/standaloneTrueFalse1230FalseFalseFalseFalseFalse308212521.2.3.01.2.3.0martes, 12 de agosto de 2008 12:17FactuGES_Server.dpr diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc index 10a9432f..8f07f1b7 100644 --- a/Source/Servidor/FactuGES_Server.rc +++ b/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 -PRODUCTVERSION 1,2,1,0 +FILEVERSION 1,2,3,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 "ProductVersion", "1.2.1.0\0" - VALUE "CompileDate", "martes, 12 de agosto de 2008 12:17\0" + VALUE "FileVersion", "1.2.3.0\0" + VALUE "ProductVersion", "1.2.3.0\0" + VALUE "CompileDate", "miércoles, 13 de agosto de 2008 13:03\0" END END BLOCK "VarFileInfo"