From 562f7cf4f7264eb8c51a873c2e39ab47411d2baa Mon Sep 17 00:00:00 2001 From: david Date: Tue, 28 Jan 2014 17:16:00 +0000 Subject: [PATCH] Tarea #1309 -> Repasar el informe de recibos de proveedor pendientes para que salga el importe restante a pagar git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1094 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- Source/Cliente/FactuGES.dproj | 2 +- Source/Cliente/FactuGES.rc | 8 +- Source/Cliente/FactuGES.res | Bin 171984 -> 171984 bytes .../1/InformeListadoRecibosProvPendientes.fr3 | 72 +++---- ...ListadoRecibosProvPendientesDesglosado.fr3 | 72 +++---- .../2/InformeListadoRecibosProvPendientes.fr3 | 70 +++---- ...ListadoRecibosProvPendientesDesglosado.fr3 | 72 +++---- .../3/InformeListadoRecibosProvPendientes.fr3 | 20 +- ...ListadoRecibosProvPendientesDesglosado.fr3 | 20 +- .../Reports/uRptFacturasProveedor_Server.dfm | 176 ++++++++++-------- .../Reports/uRptFacturasProveedor_Server.pas | 13 +- Source/Servidor/FactuGES_Server.RES | Bin 23344 -> 23340 bytes Source/Servidor/FactuGES_Server.dproj | 2 +- Source/Servidor/FactuGES_Server.rc | 10 +- 14 files changed, 277 insertions(+), 260 deletions(-) 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 9868e7e2d1ead4d89f7c408bb65a9afb9a3b6876..c08ac4e9f2d92640bf75d678c8082d9bad9a1e9f 100644 GIT binary patch delta 42 wcmcbxpX - + - - - - - - + + + + + + - + - - - - - - - - + + + + + + + + - - - - - - - - + + + + + + + + - - - + + + - + - - - + + + - - - + + + - - + + 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 f9924a9e169a89c87ed63e7e5d0b01ceb5f066e5..44014e3de4a90d6087ef83099bce9cc27af0b51b 100644 GIT binary patch delta 105 zcmdn6jd9I3#tnBO7!4-hjgSYDef?SWMm-rOs~7V8vj{U^w|@ Glsf<|iyJin delta 109 zcmZ3pjd24I-HBi{nS3`w9!UO;Fy&-nU|?VZVwTC)k+O`FCPzjpGv-aMjcfvkBLDelphi.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"