diff --git a/Source/Informes/InfPresupuestoCliente.fr3 b/Source/Informes/InfPresupuestoCliente.fr3 index 8c281fa1..40ca9a43 100644 --- a/Source/Informes/InfPresupuestoCliente.fr3 +++ b/Source/Informes/InfPresupuestoCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -21,6 +21,7 @@ + @@ -39,11 +40,12 @@ - - + + + @@ -92,13 +94,14 @@ - + + - - - - - + + + + + diff --git a/Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.dproj b/Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.dproj index 26885cfb..1d5c38ba 100644 --- a/Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.dproj +++ b/Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.dproj @@ -49,11 +49,11 @@ MainSource - - - - - + + + + + @@ -548,4 +548,4 @@ mtException_AntiFreeze0="The application seems to be frozen." Count mtInvalidEmailMsg=1 mtInvalidEmailMsg0="Invalid email." TextsCollection=English -EurekaLog Last Line --> \ No newline at end of file +EurekaLog Last Line --> diff --git a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas index 2dca8e5f..9bea3cee 100644 --- a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas +++ b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas @@ -528,6 +528,7 @@ procedure TPresupuestosClienteController.RecalcularImportes( APresupuesto: IBizPresupuestoCliente); var bEnEdicion : Boolean; + ADetallePosAct : Integer; begin if not Assigned(APresupuesto) then raise Exception.Create ('Presupuesto no asignado (RecalcularImportes)'); @@ -535,19 +536,28 @@ begin if APresupuesto.DataTable.Active then APresupuesto.DataTable.Active := True; + { Hay que guardar la posición en la que estamos en los detalles por que + la asignación de valores a los campos IMPORTE_NETO e IMPORTE_PORTE + (ver más adelante) colocan el puntero en la tabla detalle al principio. + No he encontrado la razón por la que mueve el puntero. } + + ADetallePosAct := APresupuesto.Detalles.POSICION; + bEnEdicion := (APresupuesto.DataTable.State in dsEditModes); if not bEnEdicion then APresupuesto.Edit; ShowHourglassCursor; - APresupuesto.Edit; try APresupuesto.IMPORTE_NETO := FDetallesController.DarTotalImporteTotal(APresupuesto.Detalles); - APresupuesto.IMPORTE_PORTE := FDetallesController.DarTotalPorteTotal(APresupuesto.Detalles); + APresupuesto.IMPORTE_PORTE := FDetallesController.DarTotalPorteTotal(APresupuesto.Detalles); + if not bEnEdicion then APresupuesto.Post; finally HideHourglassCursor; + // Restaurar la posición que teníamos en los detalles. + FDetallesController.LocalizarPosicion(APresupuesto.Detalles, ADetallePosAct); end; end; diff --git a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteReportController.pas b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteReportController.pas index 27cf5d70..2bd7b616 100644 --- a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteReportController.pas +++ b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteReportController.pas @@ -31,7 +31,8 @@ implementation uses uROTypes, uEditorRegistryUtils, uIEditorPresupuestosClientePreview, - uEditorPreview, uDataModulePresupuestosCliente, uEditorBase, cxControls; + uEditorPreview, uDataModulePresupuestosCliente, uEditorBase, + cxControls, uFactuGES_App; { TPresupuestosClienteReportController } @@ -65,12 +66,13 @@ begin try CreateEditor('EditorPresupuestosClientePreview', IEditorPresupuestosClientePreview, AEditor); if Assigned(AEditor) then - with AEditor do - begin - AEditor.LoadFromStream(AStream); - AEditor.Preview; - AEditor.Release; - end; + with AEditor do + begin + Title := 'Presupuesto - ' + AppFactuGES.EmpresaActiva.NOMBRE; + LoadFromStream(AStream); + Preview; + Release; + end; finally FreeAndNil(AStream); AEditor := Nil; diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm b/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm index f8584021..64827cec 100644 --- a/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm +++ b/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm @@ -16,8 +16,8 @@ object RptPresupuestosCliente: TRptPresupuestosCliente Top = 72 end object frxBarCodeObject1: TfrxBarCodeObject - Left = 400 - Top = 424 + Left = 528 + Top = 488 end object frxOLEObject1: TfrxOLEObject Left = 400 @@ -25,15 +25,15 @@ object RptPresupuestosCliente: TRptPresupuestosCliente end object frxCrossObject1: TfrxCrossObject Left = 400 - Top = 360 + Top = 440 end object frxCheckBoxObject1: TfrxCheckBoxObject - Left = 400 - Top = 232 + Left = 464 + Top = 488 end object frxGradientObject1: TfrxGradientObject - Left = 400 - Top = 296 + Left = 464 + Top = 440 end object schReport: TDASchema ConnectionManager = dmServer.ConnectionManager diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas b/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas index 68efcfb3..de85a7c8 100644 --- a/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas +++ b/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas @@ -123,7 +123,7 @@ begin ID_Presupuestos := TStringList.Create; ID_Presupuestos.CommaText := AID; - //Vamos generando todos y cada uno de los albaranes recibidos + //Vamos generando todos y cada uno de los presupuestos recibidos for i := 0 to ID_Presupuestos.Count - 1 do GenerarPresupuesto(StrToInt(ID_Presupuestos.Strings[i])); @@ -187,8 +187,6 @@ begin frxReport.LoadFromFile(DarRutaInformes + rptInforme, True); frxReport.PrepareReport(False); - frxReport.ShowPreparedReport; - finally AStream.Free; dsCabecera := Nil; diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm index 8a8b2d81..197854eb 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm +++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm @@ -5,15 +5,14 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente ClientHeight = 615 ClientWidth = 749 OnClose = CustomEditorClose - ExplicitTop = -85 ExplicitWidth = 757 - ExplicitHeight = 642 + ExplicitHeight = 649 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader Width = 749 Caption = 'Nuevo pedido de cliente' - ExplicitWidth = 674 + ExplicitWidth = 749 inherited Image1: TImage Left = 722 Picture.Data = { @@ -128,7 +127,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente end inherited TBXDock: TTBXDock Width = 749 - ExplicitWidth = 674 + ExplicitWidth = 749 inherited tbxMain: TTBXToolbar ExplicitWidth = 488 inherited TBXItem2: TTBXItem @@ -146,28 +145,27 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente end end inherited pgPaginas: TPageControl - Width = 749 - Height = 420 + Width = 743 + Height = 414 + ActivePage = pagContenido TabOrder = 1 - OnChanging = pgPaginasChanging - ExplicitWidth = 674 - ExplicitHeight = 402 + OnChange = pgPaginasChange + ExplicitWidth = 743 + ExplicitHeight = 414 inherited pagGeneral: TTabSheet ExplicitLeft = 4 ExplicitTop = 24 - ExplicitWidth = 741 - ExplicitHeight = 421 + ExplicitWidth = 735 + ExplicitHeight = 386 end object pagContenido: TTabSheet Caption = 'Contenido' ImageIndex = 1 - ExplicitWidth = 666 - ExplicitHeight = 374 inline frViewDetallesPresupuestoCliente1: TfrViewDetallesPresupuestoCliente Left = 0 Top = 0 - Width = 741 - Height = 392 + Width = 735 + Height = 386 Align = alClient BiDiMode = bdLeftToRight Font.Charset = DEFAULT_CHARSET @@ -179,11 +177,11 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente ParentFont = False TabOrder = 0 ReadOnly = False - ExplicitWidth = 666 - ExplicitHeight = 374 + ExplicitWidth = 735 + ExplicitHeight = 386 inherited ToolBar1: TToolBar - Width = 741 - ExplicitWidth = 741 + Width = 735 + ExplicitWidth = 735 inherited FontSize: TEdit Width = 57 ExplicitWidth = 57 @@ -226,75 +224,30 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente end end inherited cxGrid: TcxGrid - Width = 741 - Height = 320 - ExplicitWidth = 666 - ExplicitHeight = 302 + Width = 735 + Height = 314 + ExplicitWidth = 735 + ExplicitHeight = 314 end inherited TBXDock1: TTBXDock - Width = 741 - ExplicitWidth = 741 + Width = 735 + ExplicitWidth = 735 inherited TBXToolbar1: TTBXToolbar ExplicitWidth = 548 end end end end - object pagInicidencias: TTabSheet - Caption = 'Incidencias' - ImageIndex = 2 - ExplicitWidth = 666 - ExplicitHeight = 374 - inline frViewIncidenciasCli: TfrViewIncidencias - Left = 0 - Top = 0 - Width = 741 - Height = 392 - Align = alClient - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - ParentFont = False - TabOrder = 0 - ReadOnly = False - ExplicitWidth = 666 - ExplicitHeight = 374 - inherited pnlSup: TPanel - Width = 741 - ExplicitWidth = 741 - inherited eIncidenciaActiva: TcxDBCheckBox - ExplicitHeight = 21 - end - end - inherited GroupBox1: TGroupBox - Width = 741 - Height = 364 - ExplicitWidth = 741 - ExplicitHeight = 393 - inherited eIncidencias: TcxDBMemo - ExplicitWidth = 718 - ExplicitHeight = 360 - Height = 331 - Width = 718 - end - end - end - end object pagPortada: TTabSheet Caption = 'Portada' ImageIndex = 3 - ExplicitWidth = 666 - ExplicitHeight = 374 object Panel1: TPanel Left = 0 Top = 0 Width = 145 - Height = 392 + Height = 386 Align = alLeft TabOrder = 0 - ExplicitHeight = 421 object Image2: TImage Left = 16 Top = 16 @@ -381,8 +334,8 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente inline frViewRichEditor1: TfrViewRichEditor Left = 145 Top = 0 - Width = 596 - Height = 392 + Width = 590 + Height = 386 Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -393,13 +346,13 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente TabOrder = 1 ReadOnly = False ExplicitLeft = 145 - ExplicitWidth = 521 - ExplicitHeight = 374 + ExplicitWidth = 590 + ExplicitHeight = 386 inherited TBXDock1: TTBXDock - Width = 596 - ExplicitWidth = 596 + Width = 590 + ExplicitWidth = 590 inherited TBXToolbar1: TTBXToolbar - ExplicitWidth = 517 + ExplicitWidth = 516 inherited TBXColorItem1: TTBXColorItem Visible = False end @@ -408,26 +361,24 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente inherited RichEdit: TcxDBRichEdit DataBinding.DataField = 'PORTADA' DataBinding.DataSource = dsDataTable - ExplicitWidth = 596 - ExplicitHeight = 395 - Height = 366 - Width = 596 + Style.IsFontAssigned = True + ExplicitWidth = 590 + ExplicitHeight = 360 + Height = 360 + Width = 590 end end end object pagMemoria: TTabSheet Caption = 'Memoria' ImageIndex = 4 - ExplicitWidth = 666 - ExplicitHeight = 374 object Panel2: TPanel Left = 0 Top = 0 Width = 145 - Height = 392 + Height = 386 Align = alLeft TabOrder = 0 - ExplicitHeight = 374 object Image3: TImage Left = 16 Top = 16 @@ -685,8 +636,8 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente inline frViewRichEditor2: TfrViewRichEditor Left = 145 Top = 0 - Width = 596 - Height = 392 + Width = 590 + Height = 386 Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -697,13 +648,13 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente TabOrder = 1 ReadOnly = False ExplicitLeft = 145 - ExplicitWidth = 521 - ExplicitHeight = 374 + ExplicitWidth = 590 + ExplicitHeight = 386 inherited TBXDock1: TTBXDock - Width = 596 - ExplicitWidth = 521 + Width = 590 + ExplicitWidth = 590 inherited TBXToolbar1: TTBXToolbar - ExplicitWidth = 517 + ExplicitWidth = 516 inherited TBXColorItem1: TTBXColorItem Visible = False end @@ -712,10 +663,51 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente inherited RichEdit: TcxDBRichEdit DataBinding.DataField = 'MEMORIA' DataBinding.DataSource = dsDataTable - ExplicitWidth = 521 - ExplicitHeight = 348 - Height = 366 - Width = 596 + Style.IsFontAssigned = True + ExplicitWidth = 590 + ExplicitHeight = 360 + Height = 360 + Width = 590 + end + end + end + object pagInicidencias: TTabSheet + Caption = 'Incidencias' + ImageIndex = 2 + inline frViewIncidenciasCli: TfrViewIncidencias + Left = 0 + Top = 0 + Width = 735 + Height = 386 + Align = alClient + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + TabOrder = 0 + ReadOnly = False + ExplicitWidth = 735 + ExplicitHeight = 386 + inherited pnlSup: TPanel + Width = 735 + ExplicitWidth = 735 + inherited eIncidenciaActiva: TcxDBCheckBox + ExplicitHeight = 21 + end + end + inherited GroupBox1: TGroupBox + Width = 735 + Height = 358 + ExplicitWidth = 735 + ExplicitHeight = 358 + inherited eIncidencias: TcxDBMemo + ExplicitWidth = 712 + ExplicitHeight = 325 + Height = 325 + Width = 712 + end end end end @@ -727,8 +719,8 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente item Width = 200 end> - ExplicitTop = 549 - ExplicitWidth = 674 + ExplicitTop = 596 + ExplicitWidth = 749 end inline frViewTotales1: TfrViewTotales [4] Left = 0 @@ -751,7 +743,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente Width = 749 Height = 171 LookAndFeel = dxLayoutOfficeLookAndFeel1 - ExplicitWidth = 674 + ExplicitWidth = 749 ExplicitHeight = 171 inherited Bevel1: TBevel Left = 93 diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas index 1767272d..7b15ecb1 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas @@ -16,7 +16,7 @@ uses dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar, uViewTotales, uIEditorPresupuestoCliente, uBizPresupuestosCliente, uViewPresupuestoCliente, uViewDetallesDTO, uViewDetallesArticulos, uViewDetallesPresupuestoCliente, - uDAInterfaces, cxRichEdit, cxDBRichEdit, JvGIF, uViewRichEditor; + uDAInterfaces, cxRichEdit, cxDBRichEdit, JvGIF, uViewRichEditor, cxPC; type TfEditorPresupuestoCliente = class(TfEditorDBItem, IEditorPresupuestoCliente) @@ -38,9 +38,9 @@ type procedure FormShow(Sender: TObject); procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction); - procedure pgPaginasChanging(Sender: TObject; var AllowChange: Boolean); procedure frViewTotales1ePortePropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); + procedure pgPaginasChange(Sender: TObject); private procedure RecalcularPortePorUnidad; @@ -239,6 +239,7 @@ begin end else begin ADireccion := AClientesController.ElegirDireccionEntrega(FPresupuesto.Cliente.Direcciones, ''); + ShowHourglassCursor; try if Assigned(ADireccion) then begin @@ -247,6 +248,7 @@ begin FPresupuesto.IMPORTE_PORTE := ADireccion.PORTE; end; finally + HideHourglassCursor; ADireccion := NIL; end; end; @@ -263,14 +265,19 @@ begin end; end; -procedure TfEditorPresupuestoCliente.pgPaginasChanging(Sender: TObject; var AllowChange: Boolean); +procedure TfEditorPresupuestoCliente.pgPaginasChange(Sender: TObject); begin inherited; if (not Assigned(FPresupuesto)) or (FPresupuesto.ID_CLIENTE = 0) then begin - ShowWarningMessage('Antes de introducir conceptos debe elegir un cliente para este Presupuesto'); - AllowChange := False; - end; + if (pgPaginas.ActivePageIndex = pagContenido.PageIndex) then + begin + pagContenido.Enabled := False; + ShowWarningMessage('Antes de introducir conceptos debe elegir un cliente para este presupuesto'); + end; + end + else + pagContenido.Enabled := True; end; procedure TfEditorPresupuestoCliente.PonerTitulos(const ATitulo: string); diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm index 2f1a307d..1eaa25ad 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm +++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm @@ -2,7 +2,6 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente Caption = 'Lista de presupuestos de cliente' ClientWidth = 674 ExplicitWidth = 682 - ExplicitHeight = 471 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader @@ -164,6 +163,9 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente inherited actImprimir: TAction Visible = True end + inherited actDuplicar: TAction + Enabled = False + end object actGenerarAlbaranCli: TAction Category = 'Acciones' Caption = 'Generar albar'#225'n de cliente' diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas index 7abe7244..a4e5eac8 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas @@ -214,14 +214,14 @@ begin if AllItems then begin - if (Application.MessageBox('¿Desea borrar los Presupuestos de proveedor seleccionados?', 'Atención', MB_YESNO) = IDYES) then + if (Application.MessageBox('¿Desea borrar los presupuestos seleccionados?', 'Atención', MB_YESNO) = IDYES) then begin SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Presupuestos as ISeleccionable).SelectedRecords); APresupuestos := (Controller as IPresupuestosClienteController).ExtraerSeleccionados(Presupuestos) as IBizPresupuestoCliente; end end else begin - if (Application.MessageBox('¿Desea borrar el Presupuesto de proveedor seleccionado?', 'Atención', MB_YESNO) = IDYES) then + if (Application.MessageBox('¿Desea borrar el presupuesto seleccionado?', 'Atención', MB_YESNO) = IDYES) then APresupuestos := Presupuestos; end; diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm index 8339c515..032a4e45 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm +++ b/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm @@ -1,88 +1,5 @@ inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente - Width = 933 - inherited ToolBar1: TToolBar - Width = 933 - Height = 24 - inherited ToolButton4: TToolButton - Wrap = False - end - inherited ToolButton14: TToolButton - Left = 334 - Top = 0 - ExplicitLeft = 334 - ExplicitTop = 0 - end - inherited FontName: TJvFontComboBox - Left = 368 - Top = 0 - ExplicitLeft = 368 - ExplicitTop = 0 - end - inherited FontSize: TEdit - Left = 513 - Top = 0 - ExplicitLeft = 513 - ExplicitTop = 0 - end - inherited UpDown1: TUpDown - Left = 555 - Top = 0 - ExplicitLeft = 555 - ExplicitTop = 0 - end - inherited ToolButton13: TToolButton - Left = 572 - Top = 0 - ExplicitLeft = 572 - ExplicitTop = 0 - end - inherited ToolButton6: TToolButton - Left = 580 - Top = 0 - ExplicitLeft = 580 - ExplicitTop = 0 - end - inherited ToolButton7: TToolButton - Left = 614 - Top = 0 - ExplicitLeft = 614 - ExplicitTop = 0 - end - inherited ToolButton8: TToolButton - Left = 648 - Top = 0 - ExplicitLeft = 648 - ExplicitTop = 0 - end - inherited ToolButton12: TToolButton - Left = 682 - Top = 0 - ExplicitLeft = 682 - ExplicitTop = 0 - end - inherited ToolButton9: TToolButton - Left = 690 - Top = 0 - ExplicitLeft = 690 - ExplicitTop = 0 - end - inherited ToolButton10: TToolButton - Left = 724 - Top = 0 - ExplicitLeft = 724 - ExplicitTop = 0 - end - inherited ToolButton11: TToolButton - Left = 758 - Top = 0 - ExplicitLeft = 758 - ExplicitTop = 0 - end - end inherited cxGrid: TcxGrid - Top = 50 - Width = 933 - Height = 254 inherited cxGridView: TcxGridDBTableView inherited cxGridViewTIPO: TcxGridDBColumn Width = 51 @@ -116,11 +33,4 @@ inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente end end end - inherited TBXDock1: TTBXDock - Top = 24 - Width = 933 - inherited TBXToolbar1: TTBXToolbar - ExplicitWidth = 548 - end - end end diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas index 47ef91e7..d6031e3c 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas @@ -56,7 +56,7 @@ end; procedure TfrViewDetallesPresupuestoCliente.BitBtn1Click(Sender: TObject); begin inherited; -FPresupuesto.Detalles.Insert; + FPresupuesto.Detalles.Insert; end; function TfrViewDetallesPresupuestoCliente.GetPresupuesto: IBizPresupuestoCliente; diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm index e9cf6034..603fae9b 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm +++ b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm @@ -19,7 +19,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente 513) object edtFechaPresupuesto: TcxDBDateEdit Left = 123 - Top = 109 + Top = 82 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_PRESUPUESTO' DataBinding.DataSource = DADataSource @@ -37,7 +37,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente StyleDisabled.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 3 + TabOrder = 2 Width = 119 end object memObservaciones: TcxDBMemo @@ -183,7 +183,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente end object edtFechaDecision: TcxDBDateEdit Left = 123 - Top = 136 + Top = 109 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_DECISION' DataBinding.DataSource = DADataSource @@ -200,7 +200,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente StyleDisabled.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 4 + TabOrder = 3 Width = 216 end object eRefCliente: TcxDBTextEdit @@ -213,7 +213,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente Properties.ValidateOnEnter = True Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D - Style.Color = clInfoBk + Style.Color = clWindow Style.HotTrack = False Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True @@ -230,7 +230,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente end object edtClienteFinal: TcxDBTextEdit Left = 123 - Top = 82 + Top = 163 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'CLIENTE_FINAL' DataBinding.DataSource = DADataSource @@ -238,7 +238,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente Properties.ValidateOnEnter = True Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D - Style.Color = clInfoBk + Style.Color = clWindow Style.HotTrack = False Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True @@ -250,12 +250,12 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 2 + TabOrder = 5 Width = 227 end object cbSituacion: TcxDBImageComboBox Left = 123 - Top = 163 + Top = 136 DataBinding.DataField = 'SITUACION' DataBinding.DataSource = DADataSource Properties.Items = < @@ -277,7 +277,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente StyleDisabled.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 5 + TabOrder = 4 Width = 121 end object dxLayoutControl1Group_Root: TdxLayoutGroup @@ -303,11 +303,6 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente Control = eRefCliente ControlOptions.ShowBorder = False end - object dxLayoutControl1Item8: TdxLayoutItem - Caption = 'Cliente final:' - Control = edtClienteFinal - ControlOptions.ShowBorder = False - end object dxLayoutControl1Item2: TdxLayoutItem Caption = 'Fecha presupuesto:' Control = edtFechaPresupuesto @@ -323,6 +318,11 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente Control = cbSituacion ControlOptions.ShowBorder = False end + object dxLayoutControl1Item8: TdxLayoutItem + Caption = 'Cliente final:' + Control = edtClienteFinal + ControlOptions.ShowBorder = False + end object dxLayoutControl1Group5: TdxLayoutGroup ShowCaption = False Visible = False