From 886002fe30788ff9cda437b061e18700a793a2c4 Mon Sep 17 00:00:00 2001 From: roberto Date: Tue, 4 Jun 2013 16:13:04 +0000 Subject: [PATCH] Version 2.0.1 git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1079 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- Source/Base/Base.res | Bin 4748 -> 384 bytes Source/Cliente/FactuGES.dproj | 2 +- Source/Cliente/FactuGES.rc | 8 ++++---- Source/Cliente/FactuGES.res | Bin 171984 -> 172156 bytes .../Reports/uRptWordPresupuestoCliente.pas | 9 ++++++--- .../Views/uEditorPresupuestoCliente.dfm | 15 +++++++-------- .../Views/uEditorPresupuestoCliente.pas | 4 ++++ Source/Servidor/FactuGES_Server.RES | Bin 23208 -> 23480 bytes Source/Servidor/FactuGES_Server.dproj | 4 +--- Source/Servidor/FactuGES_Server.rc | 10 +++++----- 10 files changed, 28 insertions(+), 24 deletions(-) diff --git a/Source/Base/Base.res b/Source/Base/Base.res index 1641339fcc482e7e3492d1b45813a86619622c33..8b251f312bcccec5485024f6fe8d80e1cdf25746 100644 GIT binary patch delta 11 ScmeBCZD5|Duvteife`=|>;pCc literal 4748 zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?p${kR>3GhM`oH*q zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7 z{BT%G%irdMe*|oDJmgvJaA2`9B<6Xi*?M~Q;)@Sbfwf3uf zVaWkbUjU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N| z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0 zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38= zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W zVvPDBKHh;i=RU4J_ta3E;)Mn>Y+L zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJugbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC zy(^m((;DnQmDQKatmw!@c`| G?EMQ&4NnpP diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj index 53dbaa11..3e8070df 100644 --- a/Source/Cliente/FactuGES.dproj +++ b/Source/Cliente/FactuGES.dproj @@ -53,7 +53,7 @@ Delphi.Personality VCLApplication -FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse1990FalseFalseFalseFalseFalse30821252Rodax Software S.L.1.9.9.0FactuGESFactuGES1.9.9.0FactuGES.dprFalse +FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2010FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.0.1.0FactuGESFactuGES2.0.1.0FactuGES.dprFalse diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc index b9f3ef37..5056b7f0 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,9,9,0 -PRODUCTVERSION 1,9,9,0 +FILEVERSION 2,0,0,0 +PRODUCTVERSION 2,0,0,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.9.9.0\0" + VALUE "FileVersion", "2.0.0.0\0" VALUE "InternalName", "FactuGES\0" VALUE "ProductName", "FactuGES\0" - VALUE "ProductVersion", "1.9.9.0\0" + VALUE "ProductVersion", "2.0.0.0\0" END END BLOCK "VarFileInfo" diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res index 758db55f94bd235ca7f5e6dd8d72ea48cb8ab0fd..5750befd0e97c405204a064b23d871c0f1ce5da0 100644 GIT binary patch delta 510 zcmYk1y-EW?6otPXlbBtDY?*Q)C@L7Dt%yNI0tz;1tdd0~2^tO2#wsZk@&Lj%`Dyb2 zwxXq_rL~>!5QuknCdLCZch8=4?!EK*=1tzc?xXXf5`&KKdl~-VkiqxCAx%B0t6>54 z1SqmuqkW`c!Lop!3kib2XyY^_EejY+w-kkf)s|t=GSOD3$e?0Tiver<;8H3X)+>WY zwQAV-8J6gFtuw6`g}y>^FrE5x9QlF*^9S`+^gU4dO})BK&gz~v3gk`k-9ZQ(8M<-X;{zE@J3Wom F@h`+GMhO4_ delta 340 zcmYk1v1-C#5XXPt8Euk^WDzn3N}+>F9Hofj6mW6q&`sU?7R}(`0|?(_?AQnB-j0qw zL+1`YfMCBbNs}HNe}4DBJMJ!D{^`?CH|j&2{c9ZfZK_bT2?9`ryfm#=kXR_2knMB@@0VA8b Qdyq$cI>__C+VD;0zfNo{E&u=k diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas index d00eeac8..087cd7ae 100644 --- a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas @@ -39,6 +39,8 @@ type ListaCapitulos : array[1..1000] of TCapitulo; FVerSello: Integer; FVerISO: Integer; + FTablaInicioContenido: Table; + procedure InsertarConceptos(Tabla : Table); function Generar : Boolean; function RellenarPortada : boolean; virtual; @@ -114,7 +116,8 @@ begin FDocumento := TWordDoc.CreateNewDoc(FWordApp, FPlantilla); FWordApp.SaveActiveDocAs(FNombreFichero); - + FTablaInicioContenido := FDocumento.Document.Tables.Item(2); + try if not RellenarPortada then RaiseError('Se producido un error al generar la portada del informe en MS Word.'); @@ -349,11 +352,11 @@ begin FieldByName('IMPORTE_UNIDAD').DisplayFormat := DISPLAY_EUROS4; FieldByName('IMPORTE_TOTAL').DisplayFormat := DISPLAY_EUROS4; - + GoToSection(3); { Copiar la tabla de conceptos al portapapeles } - Document.Tables.Item(2).Select; + FTablaInicioContenido.Select; FWordApp.Application.Selection.Cut; while not Eof do diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm index 0c65a737..6aff4e70 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm +++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm @@ -205,9 +205,9 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente ExplicitHeight = 338 inherited ToolBar1: TToolBar Width = 750 - Height = 51 + Height = 46 ExplicitWidth = 750 - ExplicitHeight = 51 + ExplicitHeight = 46 inherited ToolButton3: TToolButton Wrap = False end @@ -220,18 +220,16 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente inherited ToolButton14: TToolButton Left = 334 Top = 0 + Wrap = True ExplicitLeft = 334 ExplicitTop = 0 end inherited ToolButton9: TToolButton - Left = 399 - Top = 0 - ExplicitLeft = 399 - ExplicitTop = 0 + Left = 0 + ExplicitLeft = 0 end inherited FontName: TJvFontComboBox - Left = 544 - Top = 0 + Left = 145 ExplicitLeft = 544 ExplicitTop = 0 end @@ -292,6 +290,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente Top = 77 Width = 750 Height = 261 + ExplicitTop = 77 ExplicitWidth = 750 ExplicitHeight = 239 end diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas index 5d7b3056..20763779 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas @@ -228,6 +228,10 @@ begin raise Exception.Create('No hay ningún presupuesto asignado'); pgPaginas.ActivePage := pagGeneral; + //Para AZACAN NO HAY PORTADA EN PRESUPUESTOS + if (AppFactuGES.EmpresaActiva.ID = 3) then + pagPortada.TabVisible := false; + Presupuesto.DataTable.Active := True; end; diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES index bf8dd0bc522304072960d558313a9372d1933111..d737eeb22d5c870022958ac2f267a41ecc06f309 100644 GIT binary patch delta 538 zcmZ8d%SyvQ6g?ALDIyXPTnI|6Xh9^T1=lVVK~U>LB*`v5XsS(H+PH9|-yri7S-KHj zxba8)3^#&!=FygVVdmt{Ip;o7yo&cX@sfwPt~)o6aR|)9bpe42(y~I6c}Pou1J5&D zQ2}Ob=AodYgdnio0#LRYxlOPp@Zrd>aLpn7hQ6xf36fqDelphi.Personality -FalseTrueFalse/standaloneTrueFalse1990FalseFalseFalseFalseFalse308212521.9.9.01.9.9.0viernes, 01 de marzo de 2013 12:41 - - +FalseTrueFalse/standaloneTrueFalse2010FalseFalseFalseFalseFalse308212522.0.1.02.0.1.0lunes, 15 de abril de 2013 12:04 ExpressPrinting System by Developer Express Inc. FactuGES_Server.dpr diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc index 15d010ea..415139ee 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,9,9,0 -PRODUCTVERSION 1,9,9,0 +FILEVERSION 2,0,0,0 +PRODUCTVERSION 2,0,0,0 FILEFLAGSMASK 0x3FL FILEFLAGS 0x00L FILEOS 0x40004L @@ -12,9 +12,9 @@ BEGIN BEGIN BLOCK "0C0A04E4" BEGIN - VALUE "FileVersion", "1.9.9.0\0" - VALUE "ProductVersion", "1.9.9.0\0" - VALUE "CompileDate", "miércoles, 10 de abril de 2013 16:04\0" + VALUE "FileVersion", "2.0.0.0\0" + VALUE "ProductVersion", "2.0.0.0\0" + VALUE "CompileDate", "lunes, 15 de abril de 2013 12:04\0" END END BLOCK "VarFileInfo"