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 7918e903..179d2c80 100644 Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ diff --git a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas index 63b548d4..df317fa4 100644 --- a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas +++ b/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 diff --git a/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dpk b/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dpk index e794df93..4ce67af2 100644 Binary files a/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dpk and b/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dpk differ diff --git a/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj b/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj index 141ae6f6..6b932881 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj +++ b/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj @@ -49,13 +49,13 @@ 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 c5793b93..083b1de5 100644 Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ 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"