From ac399e247ca8914cc2af09ed9c80e24b02cf9f42 Mon Sep 17 00:00:00 2001 From: roberto Date: Tue, 29 Oct 2024 16:21:58 +0000 Subject: [PATCH] =?UTF-8?q?Version=204.7.6=20=20Se=20modifica=20el=20DarRe?= =?UTF-8?q?ferencia=20del=20servidor=20para=20que=20al=20modificar=20si=20?= =?UTF-8?q?no=20esta=20s=C3=ADgnado=20se=20asigne=20e=20incremente=20(pedi?= =?UTF-8?q?dos=20web)?= 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.AbetoDesign_FactuGES/trunk@199 93f398dd-4eb6-7a46-baf6-13f46f578da2 --- Source/Base/Base.dproj | 96 +++++++++--------- Source/Cliente/FactuGES.dproj | 4 +- Source/Cliente/FactuGES.res | Bin 171984 -> 171984 bytes .../uContratosClienteController.pas | 26 ++--- .../Model/uBizContratosClienteServer.pas | 8 +- .../Views/uViewContratosCliente.dfm | 8 -- .../Views/uViewContratosCliente.pas | 3 +- Source/Servidor/FactuGES_Server.dproj | 2 +- Source/Servidor/FactuGES_Server.res | Bin 23356 -> 23348 bytes 9 files changed, 74 insertions(+), 73 deletions(-) diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index 3b4491c..91f741e 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -58,55 +58,55 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fConfigurarConexion
TForm diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj index e35437c..b9adedf 100644 --- a/Source/Cliente/FactuGES.dproj +++ b/Source/Cliente/FactuGES.dproj @@ -52,7 +52,9 @@ Delphi.Personality VCLApplication -FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse4750FalseFalseFalseFalseFalse30821252Rodax Software S.L.4.7.5.0FactuGESFactuGES4.7.5.0 +FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse4760FalseFalseFalseFalseFalse30821252Rodax Software S.L.4.7.6.0FactuGESFactuGES4.7.6.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.res b/Source/Cliente/FactuGES.res index e3111a6ac8315f92f5da2c386c163c2f32546175..c0b104ff0f4a55375322f94de4d259af097ea51d 100644 GIT binary patch delta 42 xcmcbxpX 0 then // AFacturas.ID_TIPO_IVA := AFacturas.Cliente.ID_TIPO_IVA; AContratos.Post; @@ -526,7 +526,7 @@ begin AContratos.NOMBRE_AGENTE := AListaPresupuestos.NOMBRE_AGENTE; AContratos.DELEGACION := AListaPresupuestos.DELEGACION; AContratos.Post; - + if bEnEdicion then AContratos.Edit; end; @@ -556,7 +556,7 @@ begin //MUCHO CUIDADO NOS TENEMOS QUE ASEGURAR DE AÑADIR AL FINAL DEL TODO, podría calcular mal los descuentos de capitulo del presupuesto si los hubiera AContratoActual.Detalles.DataTable.Sort([fld_PresupuestosCliente_DetallesPOSICION], [uDADataTable.sdAscending]); AContratoActual.Detalles.DataTable.Last; - + //Sacamos el descuento total del presupuesto en el caso de tener if (AListaPresupuestos.IMPORTE_DESCUENTO > 0) then begin @@ -1633,20 +1633,20 @@ begin AContratoFabrica.DESCUENTO_CAPITULO := AContratoFabrica.Cliente.DESCUENTO_CAPITULO; DetallesController.PrecioPunto := AContratoFabrica.Cliente.PRECIO_PUNTO; DetallesController.ActualizarDetalles(AContratoFabrica.Detalles, AContratoFabrica.Cliente); - end; + AContratoFabrica.Post; - if Guardar(AContratoFabrica) then + //En el caso de contrato de presupuestador WEB no se modifica el contratoorigen + if AClonarContrato then begin - //En el caso de contrato de presupuestador WEB no se modifica el contratoorigen - if AClonarContrato then + if Guardar(AContratoFabrica) then begin - AContrato.Edit; - AContrato.ID_CONTRATO_ASOCIADO := AContratoFabrica.ID; - AContrato.ENVIADA_REVISADA := CONST_CONTRATO_ENVIADO_UECKO; - AContrato.Post; - AContrato.DataTable.ApplyUpdates; - Result := True; + AContrato.Edit; + AContrato.ID_CONTRATO_ASOCIADO := AContratoFabrica.ID; + AContrato.ENVIADA_REVISADA := CONST_CONTRATO_ENVIADO_UECKO; + AContrato.Post; + AContrato.DataTable.ApplyUpdates; + Result := True; end; end; diff --git a/Source/Modulos/Contratos de cliente/Model/uBizContratosClienteServer.pas b/Source/Modulos/Contratos de cliente/Model/uBizContratosClienteServer.pas index 0ff2cd4..012de92 100644 --- a/Source/Modulos/Contratos de cliente/Model/uBizContratosClienteServer.pas +++ b/Source/Modulos/Contratos de cliente/Model/uBizContratosClienteServer.pas @@ -64,7 +64,13 @@ procedure TBizContratosClienteServer.BeforeProcessDelta( begin inherited; - FReferenciaAutomatica := False; + //En el caso de Modificar pasa dos veces por aquí antes de pasar por afterProcessChange e incrementar + //por lo que no podemos cambiar el semaforo alegremente a false siempre + if (Sender.CurrentChange.ChangeType= ctUpdate) and FReferenciaAutomatica then + FReferenciaAutomatica := True + else + FReferenciaAutomatica := False; + case Sender.CurrentChange.ChangeType of ctInsert, ctUpdate: begin diff --git a/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.dfm b/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.dfm index 6d2fb4c..2006229 100644 --- a/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.dfm +++ b/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.dfm @@ -304,16 +304,12 @@ inherited frViewContratosCliente: TfrViewContratosCliente StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitWidth = 250 - Width = 250 end inherited edtFechaIniFiltro: TcxDateEdit Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitWidth = 250 - Width = 250 end inherited edtFechaFinFiltro: TcxDateEdit Left = 515 @@ -322,8 +318,6 @@ inherited frViewContratosCliente: TfrViewContratosCliente StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 515 - ExplicitWidth = 250 - Width = 250 end inherited txtFiltroTodo2: TcxTextEdit Left = 515 @@ -332,8 +326,6 @@ inherited frViewContratosCliente: TfrViewContratosCliente StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 515 - ExplicitWidth = 250 - Width = 250 end inherited dxLayoutControl1Group_Root: TdxLayoutGroup inherited dxLayoutControl1Group2: TdxLayoutGroup diff --git a/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.pas b/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.pas index aa45ad5..759fa08 100644 --- a/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.pas +++ b/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.pas @@ -336,10 +336,11 @@ begin case cxGrid.ActiveLevel.Index of 1 : begin + FFiltro.AddItem(cxGridViewSITUACION, foEqual, SITUACION_CONTRATO_PENDIENTE, SITUACION_CONTRATO_PENDIENTE); ACriterioDoble := FFiltro.AddItemList(fboOr); ACriterioDoble.AddItem(cxGridViewENVIADA_REVISADA, foEqual, '2', '2'); ACriterioDoble.AddItem(cxGridViewENVIADA_REVISADA, foEqual, '10', '10'); - ACriterioDoble.AddItem(cxGridViewENVIADA_REVISADA, foEqual, '11', '11'); + ACriterioDoble.AddItem(cxGridViewENVIADA_REVISADA, foEqual, '11', '11'); end; 2 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, SITUACION_CONTRATO_PENDIENTE, SITUACION_CONTRATO_PENDIENTE); 3 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, SITUACION_CONTRATO_TERMINADO, SITUACION_CONTRATO_TERMINADO); diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index bce29f5..aa0e08f 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -28,7 +28,7 @@ Delphi.Personality - FalseTrueFalseTrueFalse4750FalseFalseFalseFalseFalse30821252Rodax Software S.L.4.7.5.0FactuGES (Servidor)4.7.5.0martes, 15 de octubre de 2024 18:20 + FalseTrueFalseTrueFalse4760FalseFalseFalseFalseFalse30821252Rodax Software S.L.4.7.6.0FactuGES (Servidor)4.7.6.0miércoles, 16 de octubre de 2024 15:49 Express Cross Platform Library by Developer Express Inc. ExpressPrinting System by Developer Express Inc. RemObjects Data Abstract - CoreLabs SDAC Driver diff --git a/Source/Servidor/FactuGES_Server.res b/Source/Servidor/FactuGES_Server.res index 5355bdb01878ce9c18bc5c0e497cea86562ff6be..47633b7dfef3c13e65fee73381dd2b7805d5c21e 100644 GIT binary patch delta 103 zcmdn9jd9C1#tnBO7%e8>jgSYDe*d|*?$}&!y92u$1STwmdvYpXv zGHX;dw;6*Tg8@)JjX`;Gca*GP4nrwJ9z!ZaF@p|+0)r8Q#pHug+U({GRtzRU_U9;1 E01!SKGynhq delta 111 zcmdn8jd9O5#tnBO7#$|xjgSYDeSSMRY$}-NI92u$1ST(sevYpX% zGHX;dw<&`jg8@)Jk3oHMca*GTE<+~6ONJtbWQKf(9EMbeVg?-s1qMR~v&lQ7wAoD= OtQbrfEGNH?@&o_~lO1pX