From 6bb61098cf3996a698a3b8bac0a856b47c108371 Mon Sep 17 00:00:00 2001 From: roberto Date: Fri, 13 Jun 2008 14:54:06 +0000 Subject: [PATCH] Se pone IBAN Y SWIFT en las facturas de cliente y se modifican los informes git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@457 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- .../Controller/uEmpresasController.pas | 4 ++-- Source/Cliente/FactuGES.dproj | 2 +- Source/Cliente/FactuGES.rc | 8 ++++---- Source/Cliente/FactuGES.res | Bin 171984 -> 171984 bytes Source/Informes/FacturaCliente.rdx | Bin 162816 -> 162816 bytes Source/Informes/InfFacturaCliente.fr3 | 7 +++---- .../Views/uViewFacturaCliente.dfm | 2 +- .../uGenerarFacturasCliPreCliUtils.pas | 4 ++-- Source/Servidor/FactuGES_Server.RES | Bin 23200 -> 23204 bytes Source/Servidor/FactuGES_Server.dproj | 2 +- Source/Servidor/FactuGES_Server.rc | 10 +++++----- 11 files changed, 19 insertions(+), 20 deletions(-) diff --git a/Source/ApplicationBase/Empresas/Controller/uEmpresasController.pas b/Source/ApplicationBase/Empresas/Controller/uEmpresasController.pas index 327e4e33..89c1c862 100644 --- a/Source/ApplicationBase/Empresas/Controller/uEmpresasController.pas +++ b/Source/ApplicationBase/Empresas/Controller/uEmpresasController.pas @@ -99,7 +99,7 @@ begin ADatosBancarios.DataTable.First; while not ADatosBancarios.DataTable.EOF do begin - Aux := Format('%s %s %s %s', [ADatosBancarios.ENTIDAD, + Aux := Format('Nº de cuenta: %s %s %s %s', [ADatosBancarios.ENTIDAD, ADatosBancarios.SUCURSAL, ADatosBancarios.DC, ADatosBancarios.CUENTA]); Add(Format('%s=%d', [Aux, ADatosBancarios.ID])); ADatosBancarios.DataTable.Next; @@ -130,7 +130,7 @@ begin ADatosBancarios.DataTable.First; while not ADatosBancarios.DataTable.EOF do begin - Aux := Format('%s - %s', [ADatosBancarios.IBAN, ADatosBancarios.SWIFT]); + Aux := Format('IBAN: %s - SWIFT: %s', [ADatosBancarios.IBAN, ADatosBancarios.SWIFT]); Add(Format('%s=%d', [Aux, ADatosBancarios.ID])); ADatosBancarios.DataTable.Next; end; diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj index a19b8372..5dbb2378 100644 --- a/Source/Cliente/FactuGES.dproj +++ b/Source/Cliente/FactuGES.dproj @@ -54,7 +54,7 @@ Delphi.Personality VCLApplication -FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse1070FalseFalseFalseFalseFalse30821252Rodax Software S.L.1.0.7.0FactuGESFactuGES1.0.7.0 +FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse1080FalseFalseFalseFalseFalse30821252Rodax Software S.L.1.0.8.0FactuGESFactuGES1.0.8.0 diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc index 1cbbd26c..5670cce0 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,0,7,0 -PRODUCTVERSION 1,0,7,0 +FILEVERSION 1,0,8,0 +PRODUCTVERSION 1,0,8,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.0.7.0\0" + VALUE "FileVersion", "1.0.8.0\0" VALUE "InternalName", "FactuGES\0" VALUE "ProductName", "FactuGES\0" - VALUE "ProductVersion", "1.0.7.0\0" + VALUE "ProductVersion", "1.0.8.0\0" END END BLOCK "VarFileInfo" diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res index f4716e62f9c8deae2d05b160c075be6bb7c2a40c..857d86aef34a633267c4ffbf6e37605ae124bfb1 100644 GIT binary patch delta 42 wcmcbxpX?;tQ`yQt!At#wJuX!(HDvb zS|!)SPpzD1iBi3ac#$}x2b7u6`;DQNo%f2 z+8rwytHwOXpUD?bTmf#1Ic7Gm6oqCe{jX>!C=d_KO5SSyG&dU7*135SEZfXMLYSS9OT z@#QtC&~Df+&v17!tbe_0{$ zh>n#Wae0l$8ZLX-NsE}Z@0PdG7=458S>f+t?mgD<65|)Vel{k)PKW=5k|`@3H>bI2 zcYooL7AjpYcUDu4;al?L;G{iRO|RXY*&Tam1zv}|+(c*HnP{>AQMsgk6jh>514mR$UhSagTWSzG3C@8V;0}m^L;}ZVCR^d}<7xOiG?n^vk;);#I2%-+ zyncj&`u?6>B!3*Cw>eH5R3){gs&*dC9$S9vq-l>cCE1DiQS$JmPR!|=)3KP$Jx;em z8=$2eQ~-4rC0dDeF?|+FS;u!luq%~CtB_6h>w{8`&kedl8Ei*O9{aj^1H#Y2)}ZyT6ONbv$(6 I?bAfR0o8s1t^fc4 delta 1200 zcma)*e`r%z6vxj!?U{ZwK2Hv7wW3%~Yt{?dy zZaL9)L9_vtRaimwrEI1w>q}Q;{aS2Shj~ssQzox^>P4xXlR#!*}lXl z`&am^f$&HN-_@)==ll(>k#@*x8BYx1Z_P-2Lu}5B$;VU1^Pz0YGLr5oQEGQT61SQ; zwAx%(#~WQARGv4+>>um+j#t#$?OVAN$Hwe$@vO`EVOoyJ9#6 zd3LagqvGwIc;5wDz;4h7PJjzw1l$ATU;@N#dpoDy`VHS%k69Gq0@J^TXPf_h!UZ-S zo3*^2shd@lZuOW=5&js>oQj}NC0xvW7~%DclsT%Qj!VSs zV{M$)=C8r7s;h5+(^cI3xt;&`a0iBtf`0HjxD4VToyK>Qn^J#=C?6MPU-tqU$mNhA zL4ztX&m7_=z4MZoWu^{sywK4>?WC4eyPX7??=~kpc*^HY$x4wt%s%m^Gv>(VNESDX zKId~s&S1j - + + + - @@ -17,12 +18,10 @@ - - diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm index bf6a288e..8f6e8396 100644 --- a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm +++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm @@ -258,7 +258,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente AutoAligns = [] AlignHorz = ahClient AlignVert = avClient - Caption = 'Observaciones' + Caption = 'Descripci'#243'n' LayoutDirection = ldHorizontal object dxLayoutControl1Item5: TdxLayoutItem AutoAligns = [] diff --git a/Source/Modulos/Relaciones/Presupuestos de cliente - Facturas de cliente/uGenerarFacturasCliPreCliUtils.pas b/Source/Modulos/Relaciones/Presupuestos de cliente - Facturas de cliente/uGenerarFacturasCliPreCliUtils.pas index 6cdb2ece..a32bb74a 100644 --- a/Source/Modulos/Relaciones/Presupuestos de cliente - Facturas de cliente/uGenerarFacturasCliPreCliUtils.pas +++ b/Source/Modulos/Relaciones/Presupuestos de cliente - Facturas de cliente/uGenerarFacturasCliPreCliUtils.pas @@ -325,7 +325,7 @@ begin AFacturasClienteController.Anadir(AFacturas); APresupuestosController.RecuperarCliente(AListaPresupuestos); AFacturas.Cliente := AListaPresupuestos.Cliente; - + AFacturas.OBSERVACIONES.Add('Importe de factura por trabajos realizados según indicaciones de nuestro presupuesto ' + AListaPresupuestos.REFERENCIA + ' con fecha ' + DateToStr(AListaPresupuestos.FECHA_PRESUPUESTO)); AFacturaActual := AFacturas; end; @@ -339,7 +339,7 @@ begin with AFacturaActual.Detalles do begin Edit; - CONCEPTO := 'Presupuesto ' + AListaPresupuestos.REFERENCIA + ' del ' + DateToStr(AListaPresupuestos.FECHA_PRESUPUESTO); + CONCEPTO := AListaPresupuestos.PORTADA.Text; CANTIDAD := 1; IMPORTE_UNIDAD := AListaPresupuestos.IMPORTE_TOTAL; //Tecsitel no utiliza el IVA en los presupuestos por lo tanto el //importe total es lo que queremos (IMPORTE_NETO+IMPORTE_PORTE) diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES index c19b48b8e75db5cda957dc1107ef0cbd73ec636a..5ccc47523bb24d75f2e1b7eb2fdf636247baf3f7 100644 GIT binary patch delta 109 zcmZ3mm2t^d#tnBO7*|Zb8zB!Q|3;W{axgG3Faj~hWa~&-Mz+b3k;;sZCf7#VGg?gE z8)?jK!Jx-r0F+N-P@eodQdYE#A(J7Mp@<<5NES2bFeoq>G8j+Rj#B3|V6b8^W-wu3 Jm>e194gm6q8|?r9 delta 105 zcmZ3om2tsV#tnBO7?(`G8zB!Q|3;W{vNJF+Fak0AWa~&-MwZEuk;;q@Cf7#VGn!A{ z8)?jK&Y;I&0F+N*P@4QZQdT&Np_Cz&p$v$N8FUyF7z`PVChJD2vs*G)0okULW24*w Df4Uoa diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index b67b4065..7f3c4256 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -35,7 +35,7 @@ Delphi.Personality - FalseTrueFalse/standaloneTrueFalse1070FalseFalseFalseFalseFalse308212521.0.7.01.0.7.0jueves, 05 de junio de 2008 20:23FactuGES_Server.dpr + FalseTrueFalse/standaloneTrueFalse1080FalseFalseFalseFalseFalse308212521.0.8.01.0.8.0jueves, 12 de junio de 2008 19:15FactuGES_Server.dpr diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc index 4aeebc53..90e8282a 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,0,7,0 -PRODUCTVERSION 1,0,7,0 +FILEVERSION 1,0,8,0 +PRODUCTVERSION 1,0,8,0 FILEFLAGSMASK 0x3FL FILEFLAGS 0x00L FILEOS 0x40004L @@ -12,9 +12,9 @@ BEGIN BEGIN BLOCK "0C0A04E4" BEGIN - VALUE "FileVersion", "1.0.7.0\0" - VALUE "ProductVersion", "1.0.7.0\0" - VALUE "CompileDate", "jueves, 12 de junio de 2008 19:15\0" + VALUE "FileVersion", "1.0.8.0\0" + VALUE "ProductVersion", "1.0.8.0\0" + VALUE "CompileDate", "viernes, 13 de junio de 2008 10:34\0" END END BLOCK "VarFileInfo"