From e1970d854d8295a02e4429441a157b8c5c1449cc Mon Sep 17 00:00:00 2001 From: roberto Date: Wed, 19 Mar 2014 18:02:06 +0000 Subject: [PATCH] Se repasa codigo porque seguia fallando lo de los espacios en calidades y el codigo postal de rivas acaba en 22 git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@589 f4e31baf-9722-1c47-927c-6f952f962d4b --- Source/Informes/5/InfAlbaranCliente.fr3 | 10 +-- Source/Informes/5/InfFacturaCliente.fr3 | 8 +- Source/Informes/5/InfReciboCliente.fr3 | 72 +++++++++--------- Source/Informes/InfContratoCliente.fr3 | 12 +-- Source/Informes/InfPresupuestoCliente.fr3 | 18 ++--- .../uPresupuestosClienteController.pas | 3 - .../Views/uEditorPresupuestoCliente.dfm | 63 +++++++-------- .../Views/uViewDetallesPresupuestoCliente.dfm | 1 - Source/Servidor/FactuGES_Server.rc | 2 +- Source/Servidor/FactuGES_Server.res | Bin 23356 -> 23352 bytes 10 files changed, 90 insertions(+), 99 deletions(-) diff --git a/Source/Informes/5/InfAlbaranCliente.fr3 b/Source/Informes/5/InfAlbaranCliente.fr3 index 0b617c5b..8f029c1f 100644 --- a/Source/Informes/5/InfAlbaranCliente.fr3 +++ b/Source/Informes/5/InfAlbaranCliente.fr3 @@ -1,17 +1,17 @@ - + - + - + - - + + diff --git a/Source/Informes/5/InfFacturaCliente.fr3 b/Source/Informes/5/InfFacturaCliente.fr3 index b5ec564d..f7b23e84 100644 --- a/Source/Informes/5/InfFacturaCliente.fr3 +++ b/Source/Informes/5/InfFacturaCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -29,8 +29,8 @@ - - + + @@ -73,7 +73,7 @@ - + diff --git a/Source/Informes/5/InfReciboCliente.fr3 b/Source/Informes/5/InfReciboCliente.fr3 index 23230f7f..fe907546 100644 --- a/Source/Informes/5/InfReciboCliente.fr3 +++ b/Source/Informes/5/InfReciboCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -7,28 +7,27 @@ - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + @@ -40,27 +39,28 @@ - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + - - - - + + + + + diff --git a/Source/Informes/InfContratoCliente.fr3 b/Source/Informes/InfContratoCliente.fr3 index 307b229f..e7445cf8 100644 --- a/Source/Informes/InfContratoCliente.fr3 +++ b/Source/Informes/InfContratoCliente.fr3 @@ -1,15 +1,15 @@ - + - - + + - - + + - + diff --git a/Source/Informes/InfPresupuestoCliente.fr3 b/Source/Informes/InfPresupuestoCliente.fr3 index 28874abf..e46560b3 100644 --- a/Source/Informes/InfPresupuestoCliente.fr3 +++ b/Source/Informes/InfPresupuestoCliente.fr3 @@ -1,17 +1,17 @@ - + - - - - - - - + + + + + + + - + diff --git a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas index 6d4a9815..8b883730 100644 --- a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas +++ b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas @@ -916,7 +916,6 @@ begin APresupuesto.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_ARMARIO)); APresupuesto.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_ARMARIO)); APresupuesto.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_ARMARIO)); - APresupuesto.CALIDADES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_ARMARIO)); ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_ARMARIO); if (ACadena <> '') then APresupuesto.CALIDADES.Add(ACadena); @@ -941,7 +940,6 @@ begin APresupuesto.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_ELECTRODOMESTICO)); APresupuesto.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_ELECTRODOMESTICO)); APresupuesto.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_ELECTRODOMESTICO)); - APresupuesto.CALIDADES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_ELECTRODOMESTICO)); ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_ELECTRODOMESTICO); if (ACadena <> '') then APresupuesto.CALIDADES.Add(ACadena); @@ -953,7 +951,6 @@ begin APresupuesto.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_OBRA)); APresupuesto.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_OBRA)); APresupuesto.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_OBRA)); - APresupuesto.CALIDADES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_OBRA)); ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_OBRA); if (ACadena <> '') then APresupuesto.CALIDADES.Add(ACadena); diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm index 3d7c0123..d177f6a9 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm +++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm @@ -171,17 +171,17 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente item Width = 200 end> - ExplicitTop = 657 + ExplicitTop = 782 ExplicitWidth = 848 end inherited pgPaginas: TPageControl Width = 842 Height = 442 - ActivePage = pagCalidades + ActivePage = pagContenido TabOrder = 1 OnChanging = pgPaginasChanging ExplicitWidth = 842 - ExplicitHeight = 317 + ExplicitHeight = 442 inherited pagGeneral: TTabSheet ExplicitLeft = 4 ExplicitTop = 24 @@ -191,7 +191,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente object pagContenido: TTabSheet Caption = 'Contenido' ImageIndex = 1 - ExplicitHeight = 289 inline frViewDetallesPresupuestoCliente1: TfrViewDetallesPresupuestoCliente Left = 0 Top = 0 @@ -209,7 +208,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente TabOrder = 0 ReadOnly = False ExplicitWidth = 834 - ExplicitHeight = 289 + ExplicitHeight = 414 inherited ToolBar1: TToolBar Width = 834 Height = 24 @@ -239,57 +238,57 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente ExplicitWidth = 58 end inherited UpDown1: TUpDown - Left = 587 + Left = 571 Top = 0 - ExplicitLeft = 587 + ExplicitLeft = 571 ExplicitTop = 0 end inherited ToolButton13: TToolButton - Left = 604 + Left = 588 Top = 0 - ExplicitLeft = 604 + ExplicitLeft = 588 ExplicitTop = 0 end inherited ToolButton6: TToolButton - Left = 612 + Left = 596 Top = 0 - ExplicitLeft = 612 + ExplicitLeft = 596 ExplicitTop = 0 end inherited ToolButton7: TToolButton - Left = 646 + Left = 630 Top = 0 - ExplicitLeft = 646 + ExplicitLeft = 630 ExplicitTop = 0 end inherited ToolButton8: TToolButton - Left = 680 + Left = 664 Top = 0 - ExplicitLeft = 680 + ExplicitLeft = 664 ExplicitTop = 0 end inherited ToolButton12: TToolButton - Left = 714 + Left = 698 Top = 0 - ExplicitLeft = 714 + ExplicitLeft = 698 ExplicitTop = 0 end inherited ToolButton9: TToolButton - Left = 722 + Left = 706 Top = 0 - ExplicitLeft = 722 + ExplicitLeft = 706 ExplicitTop = 0 end inherited ToolButton10: TToolButton - Left = 756 + Left = 740 Top = 0 - ExplicitLeft = 756 + ExplicitLeft = 740 ExplicitTop = 0 end inherited ToolButton11: TToolButton - Left = 790 + Left = 774 Top = 0 - ExplicitLeft = 790 + ExplicitLeft = 774 ExplicitTop = 0 end end @@ -299,7 +298,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente Height = 364 ExplicitTop = 50 ExplicitWidth = 834 - ExplicitHeight = 239 + ExplicitHeight = 364 end inherited TBXDock1: TTBXDock Top = 24 @@ -307,7 +306,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente ExplicitTop = 24 ExplicitWidth = 834 inherited TBXToolbar1: TTBXToolbar - ExplicitWidth = 663 + ExplicitWidth = 665 end end inherited cxLookupComboBox1: TcxLookupComboBox @@ -324,7 +323,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente object pagCalidades: TTabSheet Caption = 'Calidades' ImageIndex = 4 - ExplicitHeight = 289 object dxLayoutControl1: TdxLayoutControl Left = 0 Top = 0 @@ -334,7 +332,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente TabOrder = 0 TabStop = False AutoContentSizes = [acsWidth, acsHeight] - ExplicitHeight = 289 object memCalidades: TcxDBMemo Left = 10 Top = 10 @@ -373,7 +370,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente object pagInicidencias: TTabSheet Caption = 'Incidencias' ImageIndex = 2 - ExplicitHeight = 289 inline frViewIncidenciasCli: TfrViewIncidencias Left = 0 Top = 0 @@ -389,7 +385,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente TabOrder = 0 ReadOnly = False ExplicitWidth = 834 - ExplicitHeight = 289 + ExplicitHeight = 414 inherited pnlSup: TPanel Width = 834 ExplicitWidth = 834 @@ -401,10 +397,10 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente Width = 834 Height = 386 ExplicitWidth = 834 - ExplicitHeight = 261 + ExplicitHeight = 386 inherited eIncidencias: TcxDBMemo ExplicitWidth = 830 - ExplicitHeight = 244 + ExplicitHeight = 369 Height = 369 Width = 830 end @@ -414,7 +410,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente object pagDocumentos: TTabSheet Caption = 'Documentos' ImageIndex = 5 - ExplicitHeight = 289 inline frViewDocumentosPresupuestoCliente1: TfrViewDocumentosPresupuestoCliente Left = 0 Top = 0 @@ -430,7 +425,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente TabOrder = 0 ReadOnly = False ExplicitWidth = 834 - ExplicitHeight = 289 + ExplicitHeight = 414 inherited TBXDock: TTBXDock Width = 834 ExplicitWidth = 834 @@ -470,7 +465,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente ParentFont = False TabOrder = 5 ReadOnly = False - ExplicitTop = 429 + ExplicitTop = 554 ExplicitWidth = 848 ExplicitHeight = 228 inherited dxLayoutControl1: TdxLayoutControl diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm index 6e7bba53..a5df7838 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm +++ b/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm @@ -2,7 +2,6 @@ inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente inherited cxGrid: TcxGrid inherited cxGridView: TcxGridDBTableView inherited cxGridViewTIPO: TcxGridDBColumn - Visible = True VisibleForCustomization = False end object cxGridViewTIPO_ARTICULO: TcxGridDBColumn [3] diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc index d7a77efb..aee9b03c 100644 --- a/Source/Servidor/FactuGES_Server.rc +++ b/Source/Servidor/FactuGES_Server.rc @@ -16,7 +16,7 @@ BEGIN VALUE "FileVersion", "2.5.6.0\0" VALUE "ProductName", "FactuGES (Servidor)\0" VALUE "ProductVersion", "2.5.6.0\0" - VALUE "CompileDate", "miércoles, 26 de febrero de 2014 14:07\0" + VALUE "CompileDate", "miércoles, 19 de marzo de 2014 18:35\0" END END BLOCK "VarFileInfo" diff --git a/Source/Servidor/FactuGES_Server.res b/Source/Servidor/FactuGES_Server.res index 42b54e2b656e2db068756c097651423a2e71e8d2..11f338a443e5bfbd7d7f3882a78d08a4378bfd63 100644 GIT binary patch delta 96 zcmdn9jd8~|#tnBO7;PrsjgSYDe