From 04b7a42bfbde6fc3e86d3c63c0e28ff5d2f13a79 Mon Sep 17 00:00:00 2001 From: roberto Date: Thu, 20 Aug 2015 15:07:22 +0000 Subject: [PATCH] Se solicita campo nuevo en informes factyuras de proveedor pendientes (Maribel) git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1120 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- Source/Base/Base.dproj | 102 +++++++++--------- ...ormeListadoFacturasProveedorPendientes.fr3 | 28 ++--- ...oFacturasProveedorPendientesDesglosado.fr3 | 28 ++--- ...ormeListadoFacturasProveedorPendientes.fr3 | 28 ++--- ...oFacturasProveedorPendientesDesglosado.fr3 | 32 +++--- ...ormeListadoFacturasProveedorPendientes.fr3 | 24 +++-- ...oFacturasProveedorPendientesDesglosado.fr3 | 24 +++-- .../Reports/uRptFacturasProveedor_Server.dfm | 72 ++++++++----- Source/Servidor/FactuGES_Server.RES | Bin 23340 -> 23344 bytes Source/Servidor/FactuGES_Server.rc | 2 +- 10 files changed, 185 insertions(+), 155 deletions(-) diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index f7fab7e2..92f2a92e 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -55,57 +55,57 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fConfigurarConexion
TForm diff --git a/Source/Informes/1/InformeListadoFacturasProveedorPendientes.fr3 b/Source/Informes/1/InformeListadoFacturasProveedorPendientes.fr3 index b923f6e2..8e96804a 100644 --- a/Source/Informes/1/InformeListadoFacturasProveedorPendientes.fr3 +++ b/Source/Informes/1/InformeListadoFacturasProveedorPendientes.fr3 @@ -1,5 +1,5 @@ - + @@ -16,23 +16,25 @@ - + - + - - - + + + + - + - + - + - - - + + + + @@ -40,7 +42,7 @@ - + diff --git a/Source/Informes/1/InformeListadoFacturasProveedorPendientesDesglosado.fr3 b/Source/Informes/1/InformeListadoFacturasProveedorPendientesDesglosado.fr3 index eb09f301..5f2172f5 100644 --- a/Source/Informes/1/InformeListadoFacturasProveedorPendientesDesglosado.fr3 +++ b/Source/Informes/1/InformeListadoFacturasProveedorPendientesDesglosado.fr3 @@ -1,5 +1,5 @@ - + @@ -17,30 +17,32 @@ - + - + - - - + + + + - + - + - + - - - + + + + - + diff --git a/Source/Informes/2/InformeListadoFacturasProveedorPendientes.fr3 b/Source/Informes/2/InformeListadoFacturasProveedorPendientes.fr3 index 2ebbc95c..c0ef44a5 100644 --- a/Source/Informes/2/InformeListadoFacturasProveedorPendientes.fr3 +++ b/Source/Informes/2/InformeListadoFacturasProveedorPendientes.fr3 @@ -1,5 +1,5 @@ - + @@ -17,30 +17,32 @@ - + - + - - - + + + + - + - + - + - - - + + + + - + diff --git a/Source/Informes/2/InformeListadoFacturasProveedorPendientesDesglosado.fr3 b/Source/Informes/2/InformeListadoFacturasProveedorPendientesDesglosado.fr3 index 413b93cb..82e236c0 100644 --- a/Source/Informes/2/InformeListadoFacturasProveedorPendientesDesglosado.fr3 +++ b/Source/Informes/2/InformeListadoFacturasProveedorPendientesDesglosado.fr3 @@ -1,5 +1,5 @@ - + @@ -16,31 +16,33 @@ - - + + - + - - - + + + + - + - + - - - - - + + + + + + - + diff --git a/Source/Informes/3/InformeListadoFacturasProveedorPendientes.fr3 b/Source/Informes/3/InformeListadoFacturasProveedorPendientes.fr3 index 6364a33e..003610f6 100644 --- a/Source/Informes/3/InformeListadoFacturasProveedorPendientes.fr3 +++ b/Source/Informes/3/InformeListadoFacturasProveedorPendientes.fr3 @@ -1,5 +1,5 @@ - + @@ -15,23 +15,25 @@ - + - + - - - + + + + - + - + - - - + + + + diff --git a/Source/Informes/3/InformeListadoFacturasProveedorPendientesDesglosado.fr3 b/Source/Informes/3/InformeListadoFacturasProveedorPendientesDesglosado.fr3 index af1aff0b..79349d6b 100644 --- a/Source/Informes/3/InformeListadoFacturasProveedorPendientesDesglosado.fr3 +++ b/Source/Informes/3/InformeListadoFacturasProveedorPendientesDesglosado.fr3 @@ -1,5 +1,5 @@ - + @@ -16,23 +16,25 @@ - + - + - - - + + + + - + - + - - - + + + + diff --git a/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.dfm b/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.dfm index 23a37a82..565d0902 100644 --- a/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.dfm +++ b/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.dfm @@ -449,12 +449,12 @@ object RptFacturasProveedor: TRptFacturasProveedor 'FAC.ID_PROVEEDOR, FAC.NOMBRE, FAC.SITUACION, FAC.NIF_CIF, FAC.FE' + 'CHA_FACTURA,'#10'FAC.FECHA_RECEPCION, FAC.FECHA_VENCIMIENTO, FAC.BAS' + 'E_IMPONIBLE, FAC.IMPORTE_IVA, FAC.IMPORTE_TOTAL AS IMPORTE_TOTAL' + - '_FACTURA, REC.IMPORTE_TOTAL,'#10'case'#10'when strlen(FAC.DATOS_BANCARIO' + - 'S) = 0 then '#39'Sin cuenta bancaria'#39#10'else FAC.DATOS_BANCARIOS'#10'end a' + - 's DATOS_BANCARIOS'#10#10#10'from V_FACTURAS_PROVEEDOR FAC LEFT OUTER JOI' + - 'N V_REC_FAC_PRO_IMPORTES REC ON (REC.ID_FACTURA = FAC.ID)'#10#10'where' + - ' {where}'#10#10'order by ANO, MES, FAC.FECHA_VENCIMIENTO, DATOS_BANCAR' + - 'IOS, FAC.NOMBRE'#10#10 + '_FACTURA, REC.IMPORTE_TOTAL,'#10'FAC.REFERENCIA_PROVEEDOR,'#10'case'#10'when' + + ' strlen(FAC.DATOS_BANCARIOS) = 0 then '#39'Sin cuenta bancaria'#39#10'else' + + ' FAC.DATOS_BANCARIOS'#10'end as DATOS_BANCARIOS'#10#10#10'from V_FACTURAS_PR' + + 'OVEEDOR FAC LEFT OUTER JOIN V_REC_FAC_PRO_IMPORTES REC ON (REC.I' + + 'D_FACTURA = FAC.ID)'#10#10'where {where}'#10#10'order by ANO, MES, FAC.FECHA' + + '_VENCIMIENTO, DATOS_BANCARIOS, FAC.NOMBRE'#10#10 StatementType = stSQL ColumnMappings = < item @@ -528,6 +528,10 @@ object RptFacturasProveedor: TRptFacturasProveedor DatasetField = 'IMPORTE_TOTAL_FACTURA' TableField = '' SQLOrigin = 'IMPORTE_TOTAL_FACTURA' + end + item + DatasetField = 'REFERENCIA_PROVEEDOR' + TableField = 'REFERENCIA_PROVEEDOR' end> end> Name = 'InformeListadoFacturasPendientes' @@ -601,6 +605,11 @@ object RptFacturasProveedor: TRptFacturasProveedor Name = 'IMPORTE_TOTAL' DataType = datCurrency end + item + Name = 'REFERENCIA_PROVEEDOR' + DataType = datString + Size = 255 + end item Name = 'DATOS_BANCARIOS' DataType = datString @@ -1722,7 +1731,7 @@ object RptFacturasProveedor: TRptFacturasProveedor PrintOptions.Printer = 'Por defecto' PrintOptions.PrintOnSheet = 0 ReportOptions.CreateDate = 37800.807714351900000000 - ReportOptions.LastChange = 39841.512201423600000000 + ReportOptions.LastChange = 42236.476664687500000000 ScriptLanguage = 'PascalScript' ScriptText.Strings = ( 'procedure mContinuaOnBeforePrint(Sender: TfrxComponent);' @@ -1740,24 +1749,6 @@ object RptFacturasProveedor: TRptFacturasProveedor ' end; ' 'end;' '' - 'procedure Memo5OnBeforePrint(Sender: TfrxComponent);' - 'var' - - ' ACadena : String; ' + - ' ' - 'begin' - - ' ACadena := ; ' - ' if Pos('#39'N'#186' de cuenta: '#39', ACadena) > 0 then' - ' begin' - ' Delete(ACadena, 1, 14);' - - ' Memo5.Lines.Text := '#39' '#39' + ACadena; ' + - ' ' - ' end; ' - 'end;' - '' 'procedure Memo11OnBeforePrint(Sender: TfrxComponent);' 'var' @@ -1765,8 +1756,8 @@ object RptFacturasProveedor: TRptFacturasProveedor ' ' 'begin' - ' ACadena := ; ' + ' ACadena := ; ' ' if Pos('#39'N'#186' de cuenta: '#39', ACadena) > 0 then' ' begin' ' Delete(ACadena, 1, 14);' @@ -1776,6 +1767,24 @@ object RptFacturasProveedor: TRptFacturasProveedor ' end;' 'end;' '' + 'procedure Memo10OnBeforePrint(Sender: TfrxComponent);' + 'var' + + ' ACadena : String; ' + + ' ' + 'begin' + + ' ACadena := ; ' + ' if Pos('#39'N'#186' de cuenta: '#39', ACadena) > 0 then' + ' begin' + ' Delete(ACadena, 1, 14);' + + ' Memo10.Lines.Text := '#39' '#39' + ACadena; ' + + ' ' + ' end;' + 'end;' + '' 'begin' '' 'end.') @@ -1960,10 +1969,19 @@ object RptFacturasProveedor: TRptFacturasProveedor Name = 'IMPORTE_IVA' DataType = datCurrency end + item + Name = 'IMPORTE_TOTAL_FACTURA' + DataType = datCurrency + end item Name = 'IMPORTE_TOTAL' DataType = datCurrency end + item + Name = 'REFERENCIA_PROVEEDOR' + DataType = datString + Size = 255 + end item Name = 'DATOS_BANCARIOS' DataType = datString diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES index c1254f6c4d415634a884ca4acab236a51fd57bf1..016a36e0c3ee1c0a3fc68ef94c78e9e835a69156 100644 GIT binary patch delta 100 zcmZ3pjd24I-HBi{nS3`w9!UO;h-RELIWkh2F>iBiBs(K>8iVrW_9$IbBL)Ko1%?!c oR3Mqikj{|LP|Q#QBw=D8c|!(MAm5O|n86B2S~4(9ej4Qt0PrIissI20 delta 96 zcmdn6jd9I3#tnBO7!4-hjgSYDe