diff --git a/Build/Installer.fbz6 b/Build/Installer.fbz6 index 73233139..9cb9d04f 100644 Binary files a/Build/Installer.fbz6 and b/Build/Installer.fbz6 differ diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index 891841aa..95ba1f77 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -58,54 +58,54 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fConfigurarConexion
diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj index a6df7e8f..7d32c92e 100644 --- a/Source/Cliente/FactuGES.dproj +++ b/Source/Cliente/FactuGES.dproj @@ -52,9 +52,7 @@ Delphi.Personality VCLApplication -FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2510FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.5.1.0FactuGESFactuGES2.5.1.0 - - +FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2520FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.5.2.0FactuGESFactuGES2.5.2.0 File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found FactuGES.dprFalse diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc index 38754d06..6aea2108 100644 --- a/Source/Cliente/FactuGES.rc +++ b/Source/Cliente/FactuGES.rc @@ -1,7 +1,7 @@ MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico" 1 VERSIONINFO -FILEVERSION 2,5,1,0 -PRODUCTVERSION 2,5,1,0 +FILEVERSION 2,5,2,0 +PRODUCTVERSION 2,5,2,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.5.1.0\0" + VALUE "FileVersion", "2.5.2.0\0" VALUE "InternalName", "FactuGES\0" VALUE "ProductName", "FactuGES\0" - VALUE "ProductVersion", "2.5.1.0\0" + VALUE "ProductVersion", "2.5.2.0\0" END END BLOCK "VarFileInfo" diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res index 75d4651f..f2abbcb7 100644 Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ diff --git a/Source/GUIBase/uViewDetallesBase.dfm b/Source/GUIBase/uViewDetallesBase.dfm index 85f558a3..9e883e85 100644 --- a/Source/GUIBase/uViewDetallesBase.dfm +++ b/Source/GUIBase/uViewDetallesBase.dfm @@ -64,7 +64,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase DroppedDownWidth = 145 MaxMRUCount = 0 FontName = 'Tahoma' - ItemIndex = 40 + ItemIndex = 35 Options = [foTrueTypeOnly, foNoOEMFonts, foScalableOnly, foWysiWyg] Sorted = True TabOrder = 2 diff --git a/Source/GUIBase/uViewDetallesBase.pas b/Source/GUIBase/uViewDetallesBase.pas index 74e2c7aa..60b786f6 100644 --- a/Source/GUIBase/uViewDetallesBase.pas +++ b/Source/GUIBase/uViewDetallesBase.pas @@ -461,8 +461,8 @@ begin AStyle := cxStyle_DESCUENTO; if ATipo = TIPO_DETALLE_CONCEPTO then - if (AItem.Index = cxGridView.GetColumnByFieldName(CAMPO_IMPORTE_TOTAL).Index) - or (AItem.Index = cxGridView.GetColumnByFieldName(CAMPO_DESCUENTO).Index)then + if (AItem.Index = cxGridView.GetColumnByFieldName(CAMPO_IMPORTE_TOTAL).Index) then +// or (AItem.Index = cxGridView.GetColumnByFieldName(CAMPO_DESCUENTO).Index)then AStyle := cxStyleDesactivado; end; end; diff --git a/Source/Informes/InformeIVAClientes.fr3 b/Source/Informes/InformeIVAClientes.fr3 index 8e18b809..94a0b3d3 100644 --- a/Source/Informes/InformeIVAClientes.fr3 +++ b/Source/Informes/InformeIVAClientes.fr3 @@ -1,5 +1,5 @@ - + @@ -14,57 +14,75 @@ - - - - - - - + + + + + + + + + + + + - - - - - - - - + + + + + + + + + + + + + - - - - + + + + + - - - - - - - - + + + + + + + + + + + - - - - - - - + + + + + + + + + + - - - - + + + + + diff --git a/Source/Informes/InformeIVAClientesDesglosado.fr3 b/Source/Informes/InformeIVAClientesDesglosado.fr3 index 37447d13..998faf46 100644 --- a/Source/Informes/InformeIVAClientesDesglosado.fr3 +++ b/Source/Informes/InformeIVAClientesDesglosado.fr3 @@ -1,5 +1,5 @@ - + @@ -15,29 +15,32 @@ - - - - - - - - + + + + + + + + + - - - - - - - - + + + + + + + + + - - - - + + + + + @@ -46,29 +49,36 @@ - - - - - - - - + + + + + + + + + + + - - - - - - - + + + + + + + + + + - - - - + + + + + diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm index 20afafef..bb206eec 100644 --- a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm +++ b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm @@ -368,12 +368,14 @@ object RptFacturasCliente: TRptFacturasCliente Name = 'IBX' SQL = 'select V_facturas_cliente.ID_EMPRESA,'#10'contactos.REFERENCIA,'#10'cont' + - 'actos.nif_cif,'#10'contactos.poblacion,'#10'V_facturas_cliente.NOMBRE,'#10's' + - 'um(V_facturas_cliente.BASE_IMPONIBLE) as BASE_IMPONIBLE,'#10'sum(V_f' + - 'acturas_cliente.IMPORTE_IVA) as IMPORTE_IVA,'#10'sum(V_facturas_clie' + - 'nte.IMPORTE_TOTAL) AS IMPORTE_TOTAL'#10'from V_facturas_cliente'#10'left' + - ' join contactos on (contactos.ID = V_facturas_cliente.ID_CLIENTE' + - ')'#10'group by 1,2,3,4,5'#10'order by 1,5,2,3,4'#10 + 'actos.nif_cif,'#10'contactos.poblacion,'#10'V_facturas_cliente.NOMBRE,'#10'V' + + '_facturas_cliente.IVA,'#10'V_facturas_cliente.RE,'#10'sum(V_facturas_cli' + + 'ente.BASE_IMPONIBLE) as BASE_IMPONIBLE,'#10'sum(V_facturas_cliente.I' + + 'MPORTE_IVA) as IMPORTE_IVA,'#10'sum(V_facturas_cliente.IMPORTE_RE) a' + + 's IMPORTE_RE,'#10'sum(V_facturas_cliente.IMPORTE_TOTAL) AS IMPORTE_T' + + 'OTAL'#10'from V_facturas_cliente'#10'left join contactos on (contactos.I' + + 'D = V_facturas_cliente.ID_CLIENTE)'#10'group by 1,2,3,4,5,6,7'#10'order ' + + 'by 1,5,6,7,2,4'#10 StatementType = stSQL ColumnMappings = < item @@ -407,6 +409,18 @@ object RptFacturasCliente: TRptFacturasCliente item DatasetField = 'POBLACION' TableField = 'POBLACION' + end + item + DatasetField = 'IVA' + TableField = 'IVA' + end + item + DatasetField = 'RE' + TableField = 'RE' + end + item + DatasetField = 'IMPORTE_RE' + TableField = 'IMPORTE_RE' end> end> Name = 'ListadoFacturasResumen' @@ -435,6 +449,14 @@ object RptFacturasCliente: TRptFacturasCliente DataType = datString Size = 255 end + item + Name = 'IVA' + DataType = datFloat + end + item + Name = 'RE' + DataType = datFloat + end item Name = 'BASE_IMPONIBLE' DataType = datCurrency @@ -443,6 +465,10 @@ object RptFacturasCliente: TRptFacturasCliente Name = 'IMPORTE_IVA' DataType = datCurrency end + item + Name = 'IMPORTE_RE' + DataType = datCurrency + end item Name = 'IMPORTE_TOTAL' DataType = datCurrency @@ -477,10 +503,11 @@ object RptFacturasCliente: TRptFacturasCliente #10'when extract (month from fecha_factura) = 11 then '#39'NOVIEMBRE - ' + #39' || extract (year from fecha_factura)'#10'when extract (month from ' + 'fecha_factura) = 12 then '#39'DICIEMBRE - '#39' || extract (year from fe' + - 'cha_factura)'#10'end as TITULO,'#10'REFERENCIA, ID_CLIENTE, NOMBRE, SIT' + - 'UACION, NIF_CIF, FECHA_FACTURA, BASE_IMPONIBLE, IMPORTE_IVA, IMP' + - 'ORTE_TOTAL'#10#10'from V_facturas_cliente'#10'where {where}'#10'order by ANO, ' + - 'MES, FECHA_FACTURA, NOMBRE'#10#10 + 'cha_factura)'#10'end as TITULO,'#10'REFERENCIA, TIPO_FACTURA, ID_CLIENTE' + + ', NOMBRE, SITUACION, REFERENCIA_CLIENTE, NIF_CIF, FECHA_FACTURA,' + + ' BASE_IMPONIBLE, IVA, IMPORTE_IVA, RE, IMPORTE_RE, IMPORTE_TOTAL' + + #10#10'from V_facturas_cliente'#10'where {where}'#10'order by ANO, MES, FECHA' + + '_FACTURA, NOMBRE'#10#10 StatementType = stSQL ColumnMappings = < item @@ -534,6 +561,26 @@ object RptFacturasCliente: TRptFacturasCliente item DatasetField = 'ANO' TableField = 'ANO' + end + item + DatasetField = 'REFERENCIA_CLIENTE' + TableField = 'REFERENCIA_CLIENTE' + end + item + DatasetField = 'IVA' + TableField = 'IVA' + end + item + DatasetField = 'RE' + TableField = 'RE' + end + item + DatasetField = 'IMPORTE_RE' + TableField = 'IMPORTE_RE' + end + item + DatasetField = 'TIPO_FACTURA' + TableField = 'TIPO_FACTURA' end> end> Name = 'ListadoFacturas' @@ -560,6 +607,11 @@ object RptFacturasCliente: TRptFacturasCliente DataType = datString Size = 255 end + item + Name = 'TIPO_FACTURA' + DataType = datString + Size = 255 + end item Name = 'ID_CLIENTE' DataType = datInteger @@ -574,6 +626,11 @@ object RptFacturasCliente: TRptFacturasCliente DataType = datString Size = 19 end + item + Name = 'REFERENCIA_CLIENTE' + DataType = datString + Size = 255 + end item Name = 'NIF_CIF' DataType = datString @@ -587,10 +644,22 @@ object RptFacturasCliente: TRptFacturasCliente Name = 'BASE_IMPONIBLE' DataType = datCurrency end + item + Name = 'IVA' + DataType = datFloat + end item Name = 'IMPORTE_IVA' DataType = datCurrency end + item + Name = 'RE' + DataType = datFloat + end + item + Name = 'IMPORTE_RE' + DataType = datCurrency + end item Name = 'IMPORTE_TOTAL' DataType = datCurrency @@ -1413,16 +1482,11 @@ object RptFacturasCliente: TRptFacturasCliente EngineOptions.DoublePass = True IniFile = '\Software\Fast Reports' PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick] - PreviewOptions.OutlineWidth = 180 PreviewOptions.Zoom = 1.000000000000000000 - PrintOptions.Printer = 'Default' + PrintOptions.Printer = 'Por defecto' PrintOptions.PrintOnSheet = 0 - ReportOptions.CreateDate = 37871.995398692100000000 - ReportOptions.LastChange = 40122.799261608790000000 - ReportOptions.VersionBuild = '1' - ReportOptions.VersionMajor = '12' - ReportOptions.VersionMinor = '13' - ReportOptions.VersionRelease = '1' + ReportOptions.CreateDate = 37800.807714351900000000 + ReportOptions.LastChange = 41304.573816296300000000 ScriptLanguage = 'PascalScript' ShowProgress = False StoreInDFM = False @@ -1499,6 +1563,10 @@ object RptFacturasCliente: TRptFacturasCliente Name = 'ID_EMPRESA' DataType = datInteger end + item + Name = 'ANO' + DataType = datSmallInt + end item Name = 'MES' DataType = datSmallInt @@ -1513,6 +1581,11 @@ object RptFacturasCliente: TRptFacturasCliente DataType = datString Size = 255 end + item + Name = 'TIPO_FACTURA' + DataType = datString + Size = 255 + end item Name = 'ID_CLIENTE' DataType = datInteger @@ -1527,6 +1600,11 @@ object RptFacturasCliente: TRptFacturasCliente DataType = datString Size = 19 end + item + Name = 'REFERENCIA_CLIENTE' + DataType = datString + Size = 255 + end item Name = 'NIF_CIF' DataType = datString @@ -1540,10 +1618,22 @@ object RptFacturasCliente: TRptFacturasCliente Name = 'BASE_IMPONIBLE' DataType = datCurrency end + item + Name = 'IVA' + DataType = datFloat + end item Name = 'IMPORTE_IVA' DataType = datCurrency end + item + Name = 'RE' + DataType = datFloat + end + item + Name = 'IMPORTE_RE' + DataType = datCurrency + end item Name = 'IMPORTE_TOTAL' DataType = datCurrency diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeIVAClientesReport.pas b/Source/Modulos/Gestor de informes/Views/uEditorInformeIVAClientesReport.pas index 66212afc..407de3d8 100644 --- a/Source/Modulos/Gestor de informes/Views/uEditorInformeIVAClientesReport.pas +++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeIVAClientesReport.pas @@ -63,6 +63,7 @@ constructor TfEditorInformeIVAClientesReport.Create(AOwner: TComponent); begin inherited; FListaIDClientes := TIntegerArray.Create; + end; destructor TfEditorInformeIVAClientesReport.Destroy; diff --git a/Source/Modulos/Gestor de informes/Views/uViewPeriodoFechas.pas b/Source/Modulos/Gestor de informes/Views/uViewPeriodoFechas.pas index 1b9175b8..d96a031e 100644 --- a/Source/Modulos/Gestor de informes/Views/uViewPeriodoFechas.pas +++ b/Source/Modulos/Gestor de informes/Views/uViewPeriodoFechas.pas @@ -315,7 +315,7 @@ begin inherited; cbPeriodo.ItemIndex := -1; cbPeriodo2.ItemIndex := -1; -// EsteMes(TFecha); + EsteAno(TFecha); end; procedure TfrViewPeriodoFechas.edtFechaIni2PropertiesValidate( diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas index c0eee62c..82c75ac9 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas @@ -369,9 +369,9 @@ begin if (AItem.Index in [cxGridViewDESCUENTO.Index]) then begin - IndiceCol := cxGridView.GetColumnByFieldName(CAMPO_TIPO).Index; - if (AItem.GridView.Items[IndiceCol].EditValue <> TIPO_DETALLE_DESCUENTO) then - Result := False +// IndiceCol := cxGridView.GetColumnByFieldName(CAMPO_TIPO).Index; +// if (AItem.GridView.Items[IndiceCol].EditValue <> TIPO_DETALLE_DESCUENTO) then +// Result := False end else if (AItem.Index in [cxGridViewPROPIEDAD.Index, cxGridViewTIPO_ARTICULO.Index]) then begin diff --git a/Source/Modulos/Relaciones/Contratos de cliente - Facturas de cliente/uGenerarFacturasCliUtils.pas b/Source/Modulos/Relaciones/Contratos de cliente - Facturas de cliente/uGenerarFacturasCliUtils.pas index aad7aba0..795d2815 100644 --- a/Source/Modulos/Relaciones/Contratos de cliente - Facturas de cliente/uGenerarFacturasCliUtils.pas +++ b/Source/Modulos/Relaciones/Contratos de cliente - Facturas de cliente/uGenerarFacturasCliUtils.pas @@ -76,6 +76,7 @@ begin AFactura.RE := AContrato.RE; AFactura.IMPORTE_RE := AContrato.IMPORTE_RE; AFactura.ID_CONTRATO := AContrato.ID; + AFactura.TIPO_FACTURA := AContrato.TIPO_CONTRATO; end; procedure CopiarDetallesAFactura( diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index 3028a017..9237fba4 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -28,7 +28,7 @@ Delphi.Personality - FalseTrueFalseTrueFalse2510FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.5.1.0FactuGES (Servidor)2.5.1.0miércoles, 05 de septiembre de 2012 20:56 + FalseTrueFalseTrueFalse2520FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.5.2.0FactuGES (Servidor)2.5.2.0martes, 29 de enero de 2013 19:17 File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found FactuGES_Server.dpr diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc index 24df9325..bab0a7e3 100644 --- a/Source/Servidor/FactuGES_Server.rc +++ b/Source/Servidor/FactuGES_Server.rc @@ -1,7 +1,7 @@ MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Servidor.ico" 1 VERSIONINFO -FILEVERSION 2,5,1,0 -PRODUCTVERSION 2,5,1,0 +FILEVERSION 2,5,2,0 +PRODUCTVERSION 2,5,2,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.5.1.0\0" + VALUE "FileVersion", "2.5.2.0\0" VALUE "ProductName", "FactuGES (Servidor)\0" - VALUE "ProductVersion", "2.5.1.0\0" - VALUE "CompileDate", "martes, 29 de enero de 2013 19:17\0" + VALUE "ProductVersion", "2.5.2.0\0" + VALUE "CompileDate", "martes, 05 de febrero de 2013 12:54\0" END END BLOCK "VarFileInfo" diff --git a/Source/Servidor/FactuGES_Server.res b/Source/Servidor/FactuGES_Server.res index 2e361d79..b3876333 100644 Binary files a/Source/Servidor/FactuGES_Server.res and b/Source/Servidor/FactuGES_Server.res differ