diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj
index 747678bb..4a82c399 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\TrueFalse2040FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.0.4.0FactuGESFactuGES2.0.4.0FactuGES.dprFalse
+FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2050FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.0.5.0FactuGESFactuGES2.0.5.0FactuGES.dprFalse
diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc
index d445ffb9..109b869f 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 2,0,4,0
-PRODUCTVERSION 2,0,4,0
+FILEVERSION 2,0,5,0
+PRODUCTVERSION 2,0,5,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0"
- VALUE "FileVersion", "2.0.4.0\0"
+ VALUE "FileVersion", "2.0.5.0\0"
VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0"
- VALUE "ProductVersion", "2.0.4.0\0"
+ VALUE "ProductVersion", "2.0.5.0\0"
END
END
BLOCK "VarFileInfo"
diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res
index 9868e7e2..c08ac4e9 100644
Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ
diff --git a/Source/Informes/1/InformeListadoRecibosProvPendientes.fr3 b/Source/Informes/1/InformeListadoRecibosProvPendientes.fr3
index 3e83274e..82419125 100644
--- a/Source/Informes/1/InformeListadoRecibosProvPendientes.fr3
+++ b/Source/Informes/1/InformeListadoRecibosProvPendientes.fr3
@@ -1,55 +1,55 @@
-
+
-
-
-
-
-
-
+
+
+
+
+
+
-
+
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
-
-
-
+
+
+
-
+
-
-
-
+
+
+
-
-
-
+
+
+
-
-
+
+
diff --git a/Source/Informes/1/InformeListadoRecibosProvPendientesDesglosado.fr3 b/Source/Informes/1/InformeListadoRecibosProvPendientesDesglosado.fr3
index 41ebe34d..ba670748 100644
--- a/Source/Informes/1/InformeListadoRecibosProvPendientesDesglosado.fr3
+++ b/Source/Informes/1/InformeListadoRecibosProvPendientesDesglosado.fr3
@@ -1,57 +1,57 @@
-
+
-
-
-
-
-
-
+
+
+
+
+
+
-
+
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
-
-
-
+
+
+
-
-
-
+
+
+
-
-
-
+
+
+
-
-
+
+
-
+
diff --git a/Source/Informes/2/InformeListadoRecibosProvPendientes.fr3 b/Source/Informes/2/InformeListadoRecibosProvPendientes.fr3
index 7a0e59c6..cd11fb26 100644
--- a/Source/Informes/2/InformeListadoRecibosProvPendientes.fr3
+++ b/Source/Informes/2/InformeListadoRecibosProvPendientes.fr3
@@ -1,54 +1,54 @@
-
+
-
-
-
-
-
-
+
+
+
+
+
+
-
+
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
-
-
-
+
+
+
-
-
-
+
+
+
-
-
-
+
+
+
-
-
+
+
diff --git a/Source/Informes/2/InformeListadoRecibosProvPendientesDesglosado.fr3 b/Source/Informes/2/InformeListadoRecibosProvPendientesDesglosado.fr3
index 5dbdb295..cc43a3c4 100644
--- a/Source/Informes/2/InformeListadoRecibosProvPendientesDesglosado.fr3
+++ b/Source/Informes/2/InformeListadoRecibosProvPendientesDesglosado.fr3
@@ -1,57 +1,57 @@
-
+
-
-
-
-
-
-
+
+
+
+
+
+
-
+
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
-
-
-
+
+
+
-
-
-
+
+
+
-
-
-
+
+
+
-
-
+
+
-
+
diff --git a/Source/Informes/3/InformeListadoRecibosProvPendientes.fr3 b/Source/Informes/3/InformeListadoRecibosProvPendientes.fr3
index 9541a8cc..dac28b78 100644
--- a/Source/Informes/3/InformeListadoRecibosProvPendientes.fr3
+++ b/Source/Informes/3/InformeListadoRecibosProvPendientes.fr3
@@ -1,5 +1,5 @@
-
+
@@ -13,34 +13,34 @@
-
+
-
-
-
+
+
+
-
+
-
-
+
+
-
+
-
+
diff --git a/Source/Informes/3/InformeListadoRecibosProvPendientesDesglosado.fr3 b/Source/Informes/3/InformeListadoRecibosProvPendientesDesglosado.fr3
index 6dc0625b..9bab6859 100644
--- a/Source/Informes/3/InformeListadoRecibosProvPendientesDesglosado.fr3
+++ b/Source/Informes/3/InformeListadoRecibosProvPendientesDesglosado.fr3
@@ -1,5 +1,5 @@
-
+
@@ -13,33 +13,33 @@
-
+
-
-
-
+
+
+
-
+
-
-
+
+
-
+
-
+
diff --git a/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.dfm b/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.dfm
index 9a01cba5..17ca562e 100644
--- a/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.dfm
+++ b/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.dfm
@@ -422,34 +422,39 @@ object RptFacturasProveedor: TRptFacturasProveedor
Connection = 'IBX'
TargetTable = 'V_FACTURAS_PROVEEDOR'
SQL =
- 'select ID_EMPRESA,'#10'extract (year from fecha_vencimiento) as ANO,' +
- #10'extract (month from fecha_vencimiento) as MES,'#10'case'#10'when extrac' +
- 't (month from fecha_vencimiento) = 1 then '#39'ENERO - '#39' || extract ' +
- '(year from fecha_vencimiento)'#10'when extract (month from fecha_ven' +
- 'cimiento) = 2 then '#39'FEBRERO - '#39' || extract (year from fecha_venc' +
- 'imiento)'#10'when extract (month from fecha_vencimiento) = 3 then '#39'M' +
- 'ARZO - '#39' || extract (year from fecha_vencimiento)'#10'when extract (' +
- 'month from fecha_vencimiento) = 4 then '#39'ABRIL - '#39' || extract (ye' +
- 'ar from fecha_vencimiento)'#10'when extract (month from fecha_vencim' +
- 'iento) = 5 then '#39'MAYO - '#39' || extract (year from fecha_vencimient' +
- 'o)'#10'when extract (month from fecha_vencimiento) = 6 then '#39'JUNIO -' +
- ' '#39' || extract (year from fecha_vencimiento)'#10'when extract (month ' +
- 'from fecha_vencimiento) = 7 then '#39'JULIO - '#39' || extract (year fro' +
- 'm fecha_vencimiento)'#10'when extract (month from fecha_vencimiento)' +
- ' = 8 then '#39'AGOSTO - '#39' || extract (year from fecha_vencimiento)'#10'w' +
- 'hen extract (month from fecha_vencimiento) = 9 then '#39'SEPTIEMBRE ' +
- '- '#39' || extract (year from fecha_vencimiento)'#10'when extract (month' +
- ' from fecha_vencimiento) = 10 then '#39'OCTUBRE - '#39' || extract (year' +
- ' from fecha_vencimiento)'#10'when extract (month from fecha_vencimie' +
- 'nto) = 11 then '#39'NOVIEMBRE - '#39' || extract (year from fecha_vencim' +
- 'iento)'#10'when extract (month from fecha_vencimiento) = 12 then '#39'DI' +
- 'CIEMBRE - '#39' || extract (year from fecha_vencimiento)'#10'end as TITU' +
- 'LO,'#10'REFERENCIA, ID_PROVEEDOR, NOMBRE, SITUACION, NIF_CIF, FECHA' +
- '_FACTURA, FECHA_RECEPCION, FECHA_VENCIMIENTO, BASE_IMPONIBLE, IM' +
- 'PORTE_IVA, IMPORTE_TOTAL,'#10'case'#10'when strlen(DATOS_BANCARIOS) = 0 ' +
- 'then '#39'Sin cuenta bancaria'#39#10'else DATOS_BANCARIOS'#10'end as DATOS_BAN' +
- 'CARIOS'#10#10#10'from V_facturas_proveedor'#10'where {where}'#10'order by ANO, M' +
- 'ES, fecha_vencimiento, DATOS_BANCARIOS, NOMBRE'#10#10
+ 'select FAC.ID_EMPRESA,'#10'extract (year from FAC.FECHA_VENCIMIENTO)' +
+ ' as ANO,'#10'extract (month from FAC.FECHA_VENCIMIENTO) as MES,'#10'case' +
+ #10'when extract (month from FAC.FECHA_VENCIMIENTO) = 1 then '#39'ENERO' +
+ ' - '#39' || extract (year from FAC.FECHA_VENCIMIENTO)'#10'when extract (' +
+ 'month from FAC.FECHA_VENCIMIENTO) = 2 then '#39'FEBRERO - '#39' || extra' +
+ 'ct (year from FAC.FECHA_VENCIMIENTO)'#10'when extract (month from FA' +
+ 'C.FECHA_VENCIMIENTO) = 3 then '#39'MARZO - '#39' || extract (year from F' +
+ 'AC.FECHA_VENCIMIENTO)'#10'when extract (month from FAC.FECHA_VENCIMI' +
+ 'ENTO) = 4 then '#39'ABRIL - '#39' || extract (year from FAC.FECHA_VENCIM' +
+ 'IENTO)'#10'when extract (month from FAC.FECHA_VENCIMIENTO) = 5 then ' +
+ #39'MAYO - '#39' || extract (year from FAC.FECHA_VENCIMIENTO)'#10'when extr' +
+ 'act (month from FAC.FECHA_VENCIMIENTO) = 6 then '#39'JUNIO - '#39' || ex' +
+ 'tract (year from FAC.FECHA_VENCIMIENTO)'#10'when extract (month from' +
+ ' FAC.FECHA_VENCIMIENTO) = 7 then '#39'JULIO - '#39' || extract (year fro' +
+ 'm FAC.FECHA_VENCIMIENTO)'#10'when extract (month from FAC.FECHA_VENC' +
+ 'IMIENTO) = 8 then '#39'AGOSTO - '#39' || extract (year from FAC.FECHA_VE' +
+ 'NCIMIENTO)'#10'when extract (month from FAC.FECHA_VENCIMIENTO) = 9 t' +
+ 'hen '#39'SEPTIEMBRE - '#39' || extract (year from FAC.FECHA_VENCIMIENTO)' +
+ #10'when extract (month from FAC.FECHA_VENCIMIENTO) = 10 then '#39'OCTU' +
+ 'BRE - '#39' || extract (year from FAC.FECHA_VENCIMIENTO)'#10'when extrac' +
+ 't (month from FAC.FECHA_VENCIMIENTO) = 11 then '#39'NOVIEMBRE - '#39' ||' +
+ ' extract (year from FAC.FECHA_VENCIMIENTO)'#10'when extract (month f' +
+ 'rom FAC.FECHA_VENCIMIENTO) = 12 then '#39'DICIEMBRE - '#39' || extract (' +
+ 'year from FAC.FECHA_VENCIMIENTO)'#10'end as TITULO,'#10'FAC.REFERENCIA, ' +
+ '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
StatementType = stSQL
ColumnMappings = <
item
@@ -518,6 +523,11 @@ object RptFacturasProveedor: TRptFacturasProveedor
item
DatasetField = 'FECHA_RECEPCION'
TableField = 'FECHA_RECEPCION'
+ end
+ item
+ DatasetField = 'IMPORTE_TOTAL_FACTURA'
+ TableField = ''
+ SQLOrigin = 'IMPORTE_TOTAL_FACTURA'
end>
end>
Name = 'InformeListadoFacturasPendientes'
@@ -583,6 +593,10 @@ object RptFacturasProveedor: TRptFacturasProveedor
Name = 'IMPORTE_IVA'
DataType = datCurrency
end
+ item
+ Name = 'IMPORTE_TOTAL_FACTURA'
+ DataType = datCurrency
+ end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
@@ -757,32 +771,36 @@ object RptFacturasProveedor: TRptFacturasProveedor
Connection = 'IBX'
Default = True
SQL =
- 'select ID_EMPRESA,'#10'extract (year from fecha_vencimiento) as ANO,' +
- #10'extract (month from fecha_vencimiento) as MES,'#10'case'#10'when extrac' +
- 't (month from fecha_vencimiento) = 1 then '#39'ENERO - '#39' || extract ' +
- '(year from fecha_vencimiento)'#10'when extract (month from fecha_ven' +
- 'cimiento) = 2 then '#39'FEBRERO - '#39' || extract (year from fecha_venc' +
- 'imiento)'#10'when extract (month from fecha_vencimiento) = 3 then '#39'M' +
- 'ARZO - '#39' || extract (year from fecha_vencimiento)'#10'when extract (' +
- 'month from fecha_vencimiento) = 4 then '#39'ABRIL - '#39' || extract (ye' +
- 'ar from fecha_vencimiento)'#10'when extract (month from fecha_vencim' +
- 'iento) = 5 then '#39'MAYO - '#39' || extract (year from fecha_vencimient' +
- 'o)'#10'when extract (month from fecha_vencimiento) = 6 then '#39'JUNIO -' +
- ' '#39' || extract (year from fecha_vencimiento)'#10'when extract (month ' +
- 'from fecha_vencimiento) = 7 then '#39'JULIO - '#39' || extract (year fro' +
- 'm fecha_vencimiento)'#10'when extract (month from fecha_vencimiento)' +
- ' = 8 then '#39'AGOSTO - '#39' || extract (year from fecha_vencimiento)'#10'w' +
- 'hen extract (month from fecha_vencimiento) = 9 then '#39'SEPTIEMBRE ' +
- '- '#39' || extract (year from fecha_vencimiento)'#10'when extract (month' +
- ' from fecha_vencimiento) = 10 then '#39'OCTUBRE - '#39' || extract (year' +
- ' from fecha_vencimiento)'#10'when extract (month from fecha_vencimie' +
- 'nto) = 11 then '#39'NOVIEMBRE - '#39' || extract (year from fecha_vencim' +
- 'iento)'#10'when extract (month from fecha_vencimiento) = 12 then '#39'DI' +
- 'CIEMBRE - '#39' || extract (year from fecha_vencimiento)'#10'end as TITU' +
- 'LO,'#10'case'#10'when strlen(DATOS_BANCARIOS) = 0 then '#39'Sin cuenta banca' +
- 'ria'#39#10'else DATOS_BANCARIOS'#10'end as DATOS_BANCARIOS,'#10'sum(IMPORTE_TO' +
- 'TAL) as importe_total'#10#10'from V_facturas_proveedor'#10#10'group by 1,2,3' +
- ',4,5'#10'order by 1,2,3,4,5'#10#10#10
+ 'select FAC.ID_EMPRESA,'#10'extract (year from FAC.FECHA_VENCIMIENTO)' +
+ ' as ANO,'#10'extract (month from FAC.FECHA_VENCIMIENTO) as MES,'#10'case' +
+ #10'when extract (month from FAC.FECHA_VENCIMIENTO) = 1 then '#39'ENERO' +
+ ' - '#39' || extract (year from FAC.FECHA_VENCIMIENTO)'#10'when extract (' +
+ 'month from FAC.FECHA_VENCIMIENTO) = 2 then '#39'FEBRERO - '#39' || extra' +
+ 'ct (year from FAC.FECHA_VENCIMIENTO)'#10'when extract (month from FA' +
+ 'C.FECHA_VENCIMIENTO) = 3 then '#39'MARZO - '#39' || extract (year from F' +
+ 'AC.FECHA_VENCIMIENTO)'#10'when extract (month from FAC.FECHA_VENCIMI' +
+ 'ENTO) = 4 then '#39'ABRIL - '#39' || extract (year from FAC.FECHA_VENCIM' +
+ 'IENTO)'#10'when extract (month from FAC.FECHA_VENCIMIENTO) = 5 then ' +
+ #39'MAYO - '#39' || extract (year from FAC.FECHA_VENCIMIENTO)'#10'when extr' +
+ 'act (month from FAC.FECHA_VENCIMIENTO) = 6 then '#39'JUNIO - '#39' || ex' +
+ 'tract (year from FAC.FECHA_VENCIMIENTO)'#10'when extract (month from' +
+ ' FAC.FECHA_VENCIMIENTO) = 7 then '#39'JULIO - '#39' || extract (year fro' +
+ 'm FAC.FECHA_VENCIMIENTO)'#10'when extract (month from FAC.FECHA_VENC' +
+ 'IMIENTO) = 8 then '#39'AGOSTO - '#39' || extract (year from FAC.FECHA_VE' +
+ 'NCIMIENTO)'#10'when extract (month from FAC.FECHA_VENCIMIENTO) = 9 t' +
+ 'hen '#39'SEPTIEMBRE - '#39' || extract (year from FAC.FECHA_VENCIMIENTO)' +
+ #10'when extract (month from FAC.FECHA_VENCIMIENTO) = 10 then '#39'OCTU' +
+ 'BRE - '#39' || extract (year from FAC.FECHA_VENCIMIENTO)'#10'when extrac' +
+ 't (month from FAC.FECHA_VENCIMIENTO) = 11 then '#39'NOVIEMBRE - '#39' ||' +
+ ' extract (year from FAC.FECHA_VENCIMIENTO)'#10'when extract (month f' +
+ 'rom FAC.FECHA_VENCIMIENTO) = 12 then '#39'DICIEMBRE - '#39' || extract (' +
+ 'year from FAC.FECHA_VENCIMIENTO)'#10'end as TITULO,'#10'case'#10'when strlen' +
+ '(FAC.DATOS_BANCARIOS) = 0 then '#39'Sin cuenta bancaria'#39#10'else FAC.DA' +
+ 'TOS_BANCARIOS'#10'end as DATOS_BANCARIOS,'#10'sum(FAC.IMPORTE_TOTAL) as ' +
+ 'IMPORTE_TOTAL,'#10'sum(REC.IMPORTE_TOTAL) as IMPORTE_RECIBOS'#10#10'from V' +
+ '_FACTURAS_PROVEEDOR FAC LEFT OUTER JOIN V_REC_FAC_PRO_IMPORTES R' +
+ 'EC ON (REC.ID_FACTURA = FAC.ID)'#10#10'where {where}'#10#10'group by 1,2,3,4' +
+ ',5'#10'order by 1,2,3,4,5'#10#10#10
StatementType = stSQL
ColumnMappings = <
item
@@ -808,6 +826,10 @@ object RptFacturasProveedor: TRptFacturasProveedor
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
+ end
+ item
+ DatasetField = 'IMPORTE_RECIBOS'
+ TableField = 'IMPORTE_RECIBOS'
end>
end>
Name = 'InformeListadoFacturasPendientesResumen'
@@ -834,6 +856,10 @@ object RptFacturasProveedor: TRptFacturasProveedor
DataType = datString
Size = 255
end
+ item
+ Name = 'IMPORTE_RECIBOS'
+ DataType = datCurrency
+ end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
@@ -1693,7 +1719,7 @@ object RptFacturasProveedor: TRptFacturasProveedor
PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 37800.807714351900000000
- ReportOptions.LastChange = 40751.452820069450000000
+ ReportOptions.LastChange = 39841.512201423600000000
ScriptLanguage = 'PascalScript'
ScriptText.Strings = (
'procedure mContinuaOnBeforePrint(Sender: TfrxComponent);'
@@ -1711,6 +1737,24 @@ 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'
@@ -1718,31 +1762,13 @@ object RptFacturasProveedor: TRptFacturasProveedor
' '
'begin'
- ' ACadena := ; '
- ' if Pos('#39'N'#186' de cuenta: '#39', ACadena) > 0 then'
- ' begin'
- ' Delete(ACadena, 1, 14);'
-
- ' Memo11.Lines.Text := '#39' '#39' + ACadena; ' +
- ' '
- ' 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; ' +
+ ' Memo11.Lines.Text := '#39' '#39' + ACadena; ' +
' '
' end;'
'end;'
diff --git a/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.pas b/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.pas
index 6c60c5c5..dbe91d4f 100644
--- a/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.pas
+++ b/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.pas
@@ -311,7 +311,6 @@ function TRptFacturasProveedor.GenerarInformeListadoFacturasPendientes(
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
const ImporteMinimo: Currency): Binary;
var
- Condicion: TDAWhereExpression;
ATipoInforme: String;
AStream: TMemoryStream;
dsMaster: IDADataset;
@@ -342,15 +341,7 @@ begin
PrepararTablaInforme(tbl_InformeListadoFacturasPendientes);
// Filtrar el informe por situacion
- with tbl_InformeListadoFacturasPendientes.DynamicWhere do
- begin
- // (SITUACION >= PAGADA)
- Condicion := NewBinaryExpression(NewField('', fld_FacturasProveedorSITUACION), NewConstant('PAGADA', datString), dboNotEqual);
- if IsEmpty then
- Expression := Condicion
- else
- Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
- end;
+ tbl_InformeListadoFacturasPendientes.Where.AddText(' (FAC.SITUACION <> ''PAGADA'') AND (REC.SITUACION <> ''PAGADO'') ');
//Se prepara la tabla del listado resumen del informe
if tbl_InformeListadoFacturasPendResumen.Active then
@@ -360,7 +351,7 @@ begin
PrepararTablaResumenInforme(dsMaster);
// Filtrar el informe por situacion
- dsMaster.Where.AddText(' AND (SITUACION <> ''PAGADA'')');
+ dsMaster.Where.AddText(' AND (FAC.SITUACION <> ''PAGADA'') AND (REC.SITUACION <> ''PAGADO'') ');
//Esto se hace para rellenar la tabla del datamodule que usa el informe.
dsMaster.Open;
diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index f9924a9e..44014e3d 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 90c0f566..233f9bdd 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -35,7 +35,7 @@
Delphi.Personality
- FalseTrueFalse/standaloneTrueFalse2040FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.0.4.0FactuGES Servidor2.0.4.0jueves, 23 de enero de 2014 18:39
+ FalseTrueFalse/standaloneTrueFalse2050FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.0.5.0FactuGES Servidor2.0.5.0viernes, 24 de enero de 2014 18:50
ExpressPrinting System by Developer Express Inc.
FactuGES_Server.dpr
diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc
index 7e20e560..9442501e 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 2,0,4,0
-PRODUCTVERSION 2,0,4,0
+FILEVERSION 2,0,5,0
+PRODUCTVERSION 2,0,5,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0"
- VALUE "FileVersion", "2.0.4.0\0"
+ VALUE "FileVersion", "2.0.5.0\0"
VALUE "ProductName", "FactuGES Servidor\0"
- VALUE "ProductVersion", "2.0.4.0\0"
- VALUE "CompileDate", "viernes, 24 de enero de 2014 18:50\0"
+ VALUE "ProductVersion", "2.0.5.0\0"
+ VALUE "CompileDate", "martes, 28 de enero de 2014 17:51\0"
END
END
BLOCK "VarFileInfo"