From d90bbb0871c095a3fb896210d4cddb1dcef25cd5 Mon Sep 17 00:00:00 2001 From: roberto Date: Tue, 16 Jun 2020 09:38:56 +0000 Subject: [PATCH] =?UTF-8?q?Cambio=20solicitado=20en=20capitulos=20por=20m?= =?UTF-8?q?=C3=B3nica?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://192.168.0.254/svn/Proyectos.AlonsoYSal_FactuGES2/trunk@24 40301925-124e-1c4e-b97d-170ad7a8785b --- Source/Cliente/FactuGES.dproj | 3 +-- .../uContratosClienteController.pas | 14 ++++++------- .../Views/uViewDetallesContratoCliente.pas | 19 +++++++++--------- .../uPresupuestosClienteController.pas | 18 ++++++++--------- .../Views/uViewDetallesPresupuestoCliente.pas | 18 ++++++++--------- .../Views/uViewReciboProveedor.dfm | 2 ++ .../Views/uViewRecibosProveedor.dfm | 1 + Source/Servidor/FactuGES_Server.dproj | 2 +- Source/Servidor/FactuGES_Server.res | Bin 23352 -> 23348 bytes 9 files changed, 39 insertions(+), 38 deletions(-) diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj index 00ce19a..3593205 100644 --- a/Source/Cliente/FactuGES.dproj +++ b/Source/Cliente/FactuGES.dproj @@ -52,8 +52,7 @@ Delphi.Personality VCLApplication -FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2100FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.1.0.0FactuGES v2FactuGES v22.1.0.0 - +FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2200FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.2.0.0FactuGES v2FactuGES v22.2.0.0 File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found FactuGES.dprFalse diff --git a/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas b/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas index 48bb4b8..fa5ffbd 100644 --- a/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas +++ b/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas @@ -884,7 +884,7 @@ begin ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_COCINA); if (ACadena <> '') then AContrato.CALIDADES.Add(ACadena); - (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_C, 'MUEBLES DE COCINA ', true, AContrato.Detalles); + (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_C, 'MUEBLES DE COCINA ', false, AContrato.Detalles); end; teArmario: begin @@ -898,8 +898,8 @@ begin ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_ARMARIO); if (ACadena <> '') then AContrato.CALIDADES.Add(ACadena); - (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_AF, 'FRENTE DE ARMARIO Nº ', true, AContrato.Detalles); - (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_AI, 'INTERIOR DE ARMARIO Nº ', true, AContrato.Detalles); + (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_AF, 'FRENTE DE ARMARIO Nº ', false, AContrato.Detalles); + (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_AI, 'INTERIOR DE ARMARIO Nº ', false, AContrato.Detalles); end; teBano: begin @@ -913,7 +913,7 @@ begin ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_BANO); if (ACadena <> '') then AContrato.CALIDADES.Add(ACadena); - (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_B, 'MUEBLE DE BAÑO Nº ', true, AContrato.Detalles); + (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_B, 'MUEBLE DE BAÑO Nº ', false, AContrato.Detalles); end; teElectrodomestico: begin @@ -927,7 +927,7 @@ begin ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_ELECTRODOMESTICO); if (ACadena <> '') then AContrato.CALIDADES.Add(ACadena); - (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_E, 'ELECTRODOMÉSTICOS ', true, AContrato.Detalles); + (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_E, 'ELECTRODOMÉSTICOS ', false, AContrato.Detalles); end; teObra: begin @@ -941,7 +941,7 @@ begin ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_OBRA); if (ACadena <> '') then AContrato.CALIDADES.Add(ACadena); - (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_O, 'OBRA ', true, AContrato.Detalles); + (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_O, 'OBRA ', false, AContrato.Detalles); end; teVarios: begin @@ -955,7 +955,7 @@ begin ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_VARIOS); if (ACadena <> '') then AContrato.CALIDADES.Add(ACadena); - (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'VARIOS ', true, AContrato.Detalles); + (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'VARIOS ', false, AContrato.Detalles); end; end; end; diff --git a/Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.pas b/Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.pas index 75e6df8..65baea5 100644 --- a/Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.pas +++ b/Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.pas @@ -170,51 +170,50 @@ end; procedure TfrViewDetallesContratoCliente.actCapituloArmarioFExecute(Sender: TObject); begin - AnadirCapitulo(TIPO_CAPITULO_AF, 'FRENTE DE ARMARIO Nº ', true); + AnadirCapitulo(TIPO_CAPITULO_AF, 'FRENTE DE ARMARIO Nº '); end; procedure TfrViewDetallesContratoCliente.actCapituloArmarioIExecute(Sender: TObject); begin - AnadirCapitulo(TIPO_CAPITULO_AI, 'INTERIOR DE ARMARIO Nº ', true); + AnadirCapitulo(TIPO_CAPITULO_AI, 'INTERIOR DE ARMARIO Nº '); end; procedure TfrViewDetallesContratoCliente.actCapituloBanoExecute(Sender: TObject); begin - AnadirCapitulo(TIPO_CAPITULO_B, 'MUEBLE DE BAÑO Nº ', true); - AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', True); + AnadirCapitulo(TIPO_CAPITULO_B, 'MUEBLE DE BAÑO Nº '); end; procedure TfrViewDetallesContratoCliente.actCapituloCocinaExecute(Sender: TObject); begin - AnadirCapitulo(TIPO_CAPITULO_C, 'MUEBLES DE COCINA ', true); + AnadirCapitulo(TIPO_CAPITULO_C, 'MUEBLES DE COCINA '); end; procedure TfrViewDetallesContratoCliente.actCapituloElectrodomesticosExecute(Sender: TObject); begin - AnadirCapitulo(TIPO_CAPITULO_E, 'ELECTRODOMÉSTICOS ', true); + AnadirCapitulo(TIPO_CAPITULO_E, 'ELECTRODOMÉSTICOS '); end; procedure TfrViewDetallesContratoCliente.actCapituloEncimerasExecute( Sender: TObject); begin inherited; - AnadirCapitulo(TIPO_CAPITULO_V, 'ENCIMERAS ', true); + AnadirCapitulo(TIPO_CAPITULO_V, 'ENCIMERAS '); end; procedure TfrViewDetallesContratoCliente.actCapituloImportesExecute(Sender: TObject); begin - AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', true); + AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES '); end; procedure TfrViewDetallesContratoCliente.actCapituloObraExecute( Sender: TObject); begin - AnadirCapitulo(TIPO_CAPITULO_O, 'OBRA ', true); + AnadirCapitulo(TIPO_CAPITULO_O, 'OBRA '); end; procedure TfrViewDetallesContratoCliente.actCapituloVariosExecute(Sender: TObject); begin - AnadirCapitulo(TIPO_CAPITULO_V, 'VARIOS ', true); + AnadirCapitulo(TIPO_CAPITULO_V, 'VARIOS '); end; function TfrViewDetallesContratoCliente.AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean; diff --git a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas index 285d965..6012fd8 100644 --- a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas +++ b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas @@ -912,8 +912,8 @@ begin if (ACadena <> '') then APresupuesto.CALIDADES.Add(ACadena); (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_C_VACIO, 'MUEBLES DE COCINA ', False, APresupuesto.Detalles); - (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', True, APresupuesto.Detalles); - (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'AUMENTO POR ', False, APresupuesto.Detalles); +// (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', True, APresupuesto.Detalles); +// (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'AUMENTO POR ', False, APresupuesto.Detalles); end; teArmario: begin @@ -924,8 +924,8 @@ begin ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_ARMARIO); if (ACadena <> '') then APresupuesto.CALIDADES.Add(ACadena); - (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_AF, 'FRENTE DE ARMARIO Nº ', true, APresupuesto.Detalles); - (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_AI, 'INTERIOR DE ARMARIO Nº ', true, APresupuesto.Detalles); + (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_AF, 'FRENTE DE ARMARIO Nº ', false, APresupuesto.Detalles); + (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_AI, 'INTERIOR DE ARMARIO Nº ', false, APresupuesto.Detalles); end; teBano: begin @@ -936,8 +936,8 @@ begin ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_BANO); if (ACadena <> '') then APresupuesto.CALIDADES.Add(ACadena); - (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_B, 'MUEBLE DE BAÑO Nº ', true, APresupuesto.Detalles); - (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', True, APresupuesto.Detalles); + (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_B, 'MUEBLE DE BAÑO Nº ', false, APresupuesto.Detalles); +// (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', false, APresupuesto.Detalles); end; teElectrodomestico: begin @@ -948,7 +948,7 @@ begin ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_ELECTRODOMESTICO); if (ACadena <> '') then APresupuesto.CALIDADES.Add(ACadena); - (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_E, 'ELECTRODOMÉSTICOS ', true, APresupuesto.Detalles); + (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_E, 'ELECTRODOMÉSTICOS ', false, APresupuesto.Detalles); end; teObra: begin @@ -959,7 +959,7 @@ begin ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_OBRA); if (ACadena <> '') then APresupuesto.CALIDADES.Add(ACadena); - (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_O, 'OBRA ', true, APresupuesto.Detalles); + (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_O, 'OBRA ', false, APresupuesto.Detalles); end; teVarios: begin @@ -970,7 +970,7 @@ begin ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_VARIOS); if (ACadena <> '') then APresupuesto.CALIDADES.Add(ACadena); - (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'VARIOS ', true, APresupuesto.Detalles); + (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'VARIOS ', false, APresupuesto.Detalles); end; end; end; diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas index 9812e3b..491a3e7 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas @@ -166,46 +166,46 @@ end; procedure TfrViewDetallesPresupuestoCliente.actCapituloArmarioFExecute(Sender: TObject); begin - AnadirCapitulo(TIPO_CAPITULO_AF, 'FRENTE DE ARMARIO Nº ', true); + AnadirCapitulo(TIPO_CAPITULO_AF, 'FRENTE DE ARMARIO Nº '); end; procedure TfrViewDetallesPresupuestoCliente.actCapituloArmarioIExecute(Sender: TObject); begin - AnadirCapitulo(TIPO_CAPITULO_AI, 'INTERIOR DE ARMARIO Nº ', true); + AnadirCapitulo(TIPO_CAPITULO_AI, 'INTERIOR DE ARMARIO Nº '); end; procedure TfrViewDetallesPresupuestoCliente.actCapituloBanoExecute(Sender: TObject); begin - AnadirCapitulo(TIPO_CAPITULO_B, 'MUEBLE DE BAÑO Nº ', true); + AnadirCapitulo(TIPO_CAPITULO_B, 'MUEBLE DE BAÑO Nº '); AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', True); end; procedure TfrViewDetallesPresupuestoCliente.actCapituloCocinaExecute(Sender: TObject); begin AnadirCapitulo(TIPO_CAPITULO_C_VACIO, 'MUEBLES DE COCINA '); - AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', True); - AnadirCapitulo(TIPO_CAPITULO_V, 'AUMENTO POR '); +// AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', True); +// AnadirCapitulo(TIPO_CAPITULO_V, 'AUMENTO POR '); end; procedure TfrViewDetallesPresupuestoCliente.actCapituloElectrodomesticosExecute(Sender: TObject); begin - AnadirCapitulo(TIPO_CAPITULO_E, 'ELECTRODOMÉSTICOS ', true); + AnadirCapitulo(TIPO_CAPITULO_E, 'ELECTRODOMÉSTICOS '); end; procedure TfrViewDetallesPresupuestoCliente.actCapituloImportesExecute(Sender: TObject); begin - AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', true); + AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES '); end; procedure TfrViewDetallesPresupuestoCliente.actCapituloObraExecute( Sender: TObject); begin - AnadirCapitulo(TIPO_CAPITULO_O, 'OBRA ', true); + AnadirCapitulo(TIPO_CAPITULO_O, 'OBRA '); end; procedure TfrViewDetallesPresupuestoCliente.actCapituloVariosExecute(Sender: TObject); begin - AnadirCapitulo(TIPO_CAPITULO_V, 'VARIOS ', true); + AnadirCapitulo(TIPO_CAPITULO_V, 'VARIOS '); end; function TfrViewDetallesPresupuestoCliente.AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean; diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.dfm b/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.dfm index 9db3d43..cb03fdb 100644 --- a/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.dfm +++ b/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.dfm @@ -606,6 +606,8 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor end object dxLayoutControl1Item16: TdxLayoutItem Caption = 'Ref. remesa:' + Enabled = False + Visible = False Control = eRemesa ControlOptions.ShowBorder = False end diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.dfm b/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.dfm index b6d4c97..e4895b6 100644 --- a/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.dfm +++ b/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.dfm @@ -149,6 +149,7 @@ inherited frViewRecibosProveedor: TfrViewRecibosProveedor Caption = 'Ref. remesa' DataBinding.FieldName = 'REFERENCIA_REMESA' Visible = False + VisibleForCustomization = False end end inherited cxGridLevel: TcxGridLevel diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index c6db079..effba29 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -28,7 +28,7 @@ Delphi.Personality - FalseTrueFalseTrueFalse2100FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.1.0.0FactuGES v2(Servidor)2.1.0.0martes, 26 de mayo de 2020 11:25 + FalseTrueFalseTrueFalse2200FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.2.0.0FactuGES v2(Servidor)2.2.0.0viernes, 05 de junio de 2020 18:48 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.res b/Source/Servidor/FactuGES_Server.res index 7474e3a0e2d1b9ce622534696fcd0d6325308680..2167d9c56cd00f36bdc409e3dd9cb0fe9cfc93f6 100644 GIT binary patch delta 143 zcmdn7jd9C1#tnBO7%e8>jgSYDezKn(%8o7_5M73kHVCAEVp>GB_Uq delta 129 zcmdn8jd8~|#tnBO7;PrsjgSYDeGtDeh{$?%e)h#{FFpCN}Km7$nHhe3hCh`}64rU3a047m)6 X43(45Mv1eVGgvX0Fqln#8|4lF;m;rW