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
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
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 c1254f6c..016a36e0 100644
Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ
diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc
index 942b2b51..cae1b1b9 100644
--- a/Source/Servidor/FactuGES_Server.rc
+++ b/Source/Servidor/FactuGES_Server.rc
@@ -16,7 +16,7 @@ BEGIN
VALUE "FileVersion", "2.1.0.0\0"
VALUE "ProductName", "FactuGES Servidor\0"
VALUE "ProductVersion", "2.1.0.0\0"
- VALUE "CompileDate", "jueves, 09 de julio de 2015 19:18\0"
+ VALUE "CompileDate", "jueves, 20 de agosto de 2015 13:19\0"
END
END
BLOCK "VarFileInfo"