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 e3111a6..c0b104f 100644 Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ diff --git a/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas b/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas index 54efcd0..db287d3 100644 --- a/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas +++ b/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas @@ -495,7 +495,7 @@ begin bEnEdicion := (AContratos.DataTable.State in dsEditModes); if not bEnEdicion then AContratos.Edit; - AContratos.ID_FORMA_PAGO := AContratos.Cliente.ID_FORMA_PAGO; + AContratos.ID_FORMA_PAGO := AContratos.Cliente.ID_FORMA_PAGO; // if AFacturas.Cliente.ID_TIPO_IVA > 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 5355bdb..47633b7 100644 Binary files a/Source/Servidor/FactuGES_Server.res and b/Source/Servidor/FactuGES_Server.res differ