Se adaptan los presupuestos para que puedan meter bonificaciones como en el preograma antiguo.
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@754 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
parent
7235d880fd
commit
98d47c6ac5
@ -32,7 +32,23 @@ requires
|
||||
Articulos_view,
|
||||
PreCli_AlbCli_relation,
|
||||
PreCli_FacCli_relation,
|
||||
GestorInformes_controller;
|
||||
GestorInformes_controller,
|
||||
vcl,
|
||||
rtl,
|
||||
dbrtl,
|
||||
DataAbstract_Core_D11,
|
||||
vcldb,
|
||||
dsnap,
|
||||
adortl,
|
||||
RemObjects_Core_D11,
|
||||
cxLibraryD11,
|
||||
dxThemeD11,
|
||||
dxGDIPlusD11,
|
||||
cxEditorsD11,
|
||||
cxDataD11,
|
||||
vcljpg,
|
||||
dxLayoutControlD11,
|
||||
dxComnD11;
|
||||
|
||||
contains
|
||||
uPresupuestosClienteViewRegister in 'uPresupuestosClienteViewRegister.pas',
|
||||
@ -48,6 +64,7 @@ contains
|
||||
uViewDireccionEntregaPresupuestoCliente in 'uViewDireccionEntregaPresupuestoCliente.pas' {frViewDireccionEntregaPresupuestoCliente: TFrame},
|
||||
uEditorFechaDecision in 'uEditorFechaDecision.pas' {fEditorFechaDecision: T},
|
||||
uViewDocumentosPresupuestoCliente in 'uViewDocumentosPresupuestoCliente.pas' {frViewDocumentosPresupuestoCliente: TFrame},
|
||||
uViewDatosYSeleccionClientePresupuesto in 'uViewDatosYSeleccionClientePresupuesto.pas' {frViewDatosYSeleccionClientePresupuesto: TFrame};
|
||||
uViewDatosYSeleccionClientePresupuesto in 'uViewDatosYSeleccionClientePresupuesto.pas' {frViewDatosYSeleccionClientePresupuesto: TFrame},
|
||||
uViewTotalesPresupuesto in 'uViewTotalesPresupuesto.pas' {frViewTotalesPresupuesto: TFrame};
|
||||
|
||||
end.
|
||||
|
||||
@ -49,14 +49,27 @@
|
||||
<DelphiCompile Include="PresupuestosCliente_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\..\Servidor\Articulos_view.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\Base.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\GestorInformes_controller.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\PreCli_AlbCli_relation.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\PreCli_FacCli_relation.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\PresupuestosCliente_controller.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\PresupuestosCliente_model.dcp" />
|
||||
<DCCReference Include="adortl.dcp" />
|
||||
<DCCReference Include="Articulos_view.dcp" />
|
||||
<DCCReference Include="Base.dcp" />
|
||||
<DCCReference Include="cxDataD11.dcp" />
|
||||
<DCCReference Include="cxEditorsD11.dcp" />
|
||||
<DCCReference Include="cxLibraryD11.dcp" />
|
||||
<DCCReference Include="DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="dbrtl.dcp" />
|
||||
<DCCReference Include="dsnap.dcp" />
|
||||
<DCCReference Include="dxComnD11.dcp" />
|
||||
<DCCReference Include="dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="dxThemeD11.dcp" />
|
||||
<DCCReference Include="GestorInformes_controller.dcp" />
|
||||
<DCCReference Include="GUIBase.dcp" />
|
||||
<DCCReference Include="PreCli_AlbCli_relation.dcp" />
|
||||
<DCCReference Include="PreCli_FacCli_relation.dcp" />
|
||||
<DCCReference Include="PresupuestosCliente_controller.dcp" />
|
||||
<DCCReference Include="PresupuestosCliente_model.dcp" />
|
||||
<DCCReference Include="RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="rtl.dcp" />
|
||||
<DCCReference Include="uEditorElegirArticulosPresupuestoCliente.pas">
|
||||
<Form>fEditorElegirArticulosPresupuestoCliente</Form>
|
||||
<DesignClass>TfEditorElegirArticulosPedidoCliente</DesignClass>
|
||||
@ -110,6 +123,13 @@
|
||||
<Form>frViewPresupuestosCliente</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uViewTotalesPresupuesto.pas">
|
||||
<Form>frViewTotalesPresupuesto</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="vcl.dcp" />
|
||||
<DCCReference Include="vcldb.dcp" />
|
||||
<DCCReference Include="vcljpg.dcp" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
|
||||
@ -5,6 +5,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
ClientHeight = 615
|
||||
ClientWidth = 764
|
||||
OnClose = CustomEditorClose
|
||||
ExplicitTop = -101
|
||||
ExplicitWidth = 772
|
||||
ExplicitHeight = 649
|
||||
PixelsPerInch = 96
|
||||
@ -169,25 +170,26 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
end
|
||||
inherited pgPaginas: TPageControl
|
||||
Width = 758
|
||||
Height = 414
|
||||
Height = 238
|
||||
TabOrder = 1
|
||||
OnChanging = pgPaginasChanging
|
||||
ExplicitWidth = 758
|
||||
ExplicitHeight = 414
|
||||
ExplicitHeight = 402
|
||||
inherited pagGeneral: TTabSheet
|
||||
ExplicitLeft = 4
|
||||
ExplicitTop = 24
|
||||
ExplicitWidth = 750
|
||||
ExplicitHeight = 386
|
||||
ExplicitHeight = 374
|
||||
end
|
||||
object pagContenido: TTabSheet
|
||||
Caption = 'Contenido'
|
||||
ImageIndex = 1
|
||||
ExplicitHeight = 374
|
||||
inline frViewDetallesPresupuestoCliente1: TfrViewDetallesPresupuestoCliente
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 750
|
||||
Height = 386
|
||||
Height = 210
|
||||
Align = alClient
|
||||
BiDiMode = bdLeftToRight
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -200,102 +202,69 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 750
|
||||
ExplicitHeight = 386
|
||||
ExplicitHeight = 374
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 750
|
||||
Height = 46
|
||||
Height = 73
|
||||
ExplicitWidth = 750
|
||||
ExplicitHeight = 46
|
||||
ExplicitHeight = 73
|
||||
inherited ToolButton3: TToolButton
|
||||
Wrap = False
|
||||
end
|
||||
inherited ToolButton4: TToolButton
|
||||
Left = 278
|
||||
Top = 0
|
||||
Wrap = True
|
||||
ExplicitLeft = 278
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton14: TToolButton
|
||||
Left = 0
|
||||
Wrap = False
|
||||
ExplicitLeft = 0
|
||||
end
|
||||
inherited FontName: TJvFontComboBox
|
||||
Left = 65
|
||||
Top = 22
|
||||
ExplicitTop = 22
|
||||
Left = 334
|
||||
Top = 0
|
||||
ExplicitLeft = 334
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton14: TToolButton
|
||||
Left = 479
|
||||
Top = 0
|
||||
Wrap = True
|
||||
ExplicitLeft = 479
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited FontSize: TEdit
|
||||
Top = 22
|
||||
Left = 0
|
||||
Width = 200
|
||||
ExplicitTop = 22
|
||||
ExplicitLeft = 0
|
||||
ExplicitWidth = 200
|
||||
end
|
||||
inherited UpDown1: TUpDown
|
||||
Left = 345
|
||||
Top = 22
|
||||
ExplicitLeft = 345
|
||||
ExplicitTop = 22
|
||||
Left = 216
|
||||
ExplicitLeft = 216
|
||||
end
|
||||
inherited ToolButton13: TToolButton
|
||||
Left = 362
|
||||
Top = 22
|
||||
ExplicitLeft = 362
|
||||
ExplicitTop = 22
|
||||
end
|
||||
inherited ToolButton6: TToolButton
|
||||
Left = 370
|
||||
Top = 22
|
||||
ExplicitLeft = 370
|
||||
ExplicitTop = 22
|
||||
end
|
||||
inherited ToolButton7: TToolButton
|
||||
Left = 436
|
||||
Top = 22
|
||||
ExplicitLeft = 436
|
||||
ExplicitTop = 22
|
||||
end
|
||||
inherited ToolButton8: TToolButton
|
||||
Left = 503
|
||||
Top = 22
|
||||
ExplicitLeft = 503
|
||||
ExplicitTop = 22
|
||||
end
|
||||
inherited ToolButton12: TToolButton
|
||||
Left = 0
|
||||
Top = 22
|
||||
Wrap = True
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 22
|
||||
ExplicitHeight = 27
|
||||
end
|
||||
inherited ToolButton9: TToolButton
|
||||
Left = 0
|
||||
Top = 49
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 49
|
||||
end
|
||||
inherited ToolButton10: TToolButton
|
||||
Left = 145
|
||||
Top = 49
|
||||
ExplicitLeft = 145
|
||||
ExplicitTop = 49
|
||||
Left = 233
|
||||
ExplicitLeft = 233
|
||||
end
|
||||
inherited ToolButton11: TToolButton
|
||||
Left = 270
|
||||
Left = 241
|
||||
ExplicitLeft = 241
|
||||
end
|
||||
inherited ToolButton7: TToolButton
|
||||
Wrap = False
|
||||
end
|
||||
inherited ToolButton8: TToolButton
|
||||
Left = 403
|
||||
Top = 49
|
||||
ExplicitLeft = 270
|
||||
ExplicitLeft = 403
|
||||
ExplicitTop = 49
|
||||
end
|
||||
end
|
||||
inherited cxGrid: TcxGrid
|
||||
Top = 99
|
||||
Width = 750
|
||||
Height = 287
|
||||
Height = 111
|
||||
ExplicitTop = 99
|
||||
ExplicitWidth = 750
|
||||
ExplicitHeight = 287
|
||||
ExplicitHeight = 275
|
||||
end
|
||||
inherited TBXDock1: TTBXDock
|
||||
Top = 73
|
||||
@ -320,13 +289,15 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
object pagPortada: TTabSheet
|
||||
Caption = 'Portada'
|
||||
ImageIndex = 3
|
||||
ExplicitHeight = 374
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 145
|
||||
Height = 386
|
||||
Height = 210
|
||||
Align = alLeft
|
||||
TabOrder = 0
|
||||
ExplicitHeight = 374
|
||||
object Image2: TImage
|
||||
Left = 16
|
||||
Top = 16
|
||||
@ -414,7 +385,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
Left = 145
|
||||
Top = 0
|
||||
Width = 605
|
||||
Height = 386
|
||||
Height = 210
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -426,7 +397,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
ReadOnly = False
|
||||
ExplicitLeft = 145
|
||||
ExplicitWidth = 605
|
||||
ExplicitHeight = 386
|
||||
ExplicitHeight = 374
|
||||
inherited TBXDock1: TTBXDock
|
||||
Width = 605
|
||||
ExplicitWidth = 605
|
||||
@ -442,8 +413,8 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
DataBinding.DataSource = dsDataTable
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitWidth = 605
|
||||
ExplicitHeight = 360
|
||||
Height = 360
|
||||
ExplicitHeight = 348
|
||||
Height = 184
|
||||
Width = 605
|
||||
end
|
||||
end
|
||||
@ -451,13 +422,15 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
object pagMemoria: TTabSheet
|
||||
Caption = 'Memoria'
|
||||
ImageIndex = 4
|
||||
ExplicitHeight = 374
|
||||
object Panel2: TPanel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 145
|
||||
Height = 386
|
||||
Height = 210
|
||||
Align = alLeft
|
||||
TabOrder = 0
|
||||
ExplicitHeight = 374
|
||||
object Image3: TImage
|
||||
Left = 16
|
||||
Top = 16
|
||||
@ -716,7 +689,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
Left = 145
|
||||
Top = 0
|
||||
Width = 605
|
||||
Height = 386
|
||||
Height = 210
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -728,7 +701,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
ReadOnly = False
|
||||
ExplicitLeft = 145
|
||||
ExplicitWidth = 605
|
||||
ExplicitHeight = 386
|
||||
ExplicitHeight = 374
|
||||
inherited TBXDock1: TTBXDock
|
||||
Width = 605
|
||||
ExplicitWidth = 605
|
||||
@ -744,8 +717,8 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
DataBinding.DataSource = dsDataTable
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitWidth = 605
|
||||
ExplicitHeight = 360
|
||||
Height = 360
|
||||
ExplicitHeight = 348
|
||||
Height = 184
|
||||
Width = 605
|
||||
end
|
||||
end
|
||||
@ -753,11 +726,12 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
object pagInicidencias: TTabSheet
|
||||
Caption = 'Incidencias'
|
||||
ImageIndex = 2
|
||||
ExplicitHeight = 374
|
||||
inline frViewIncidenciasCli: TfrViewIncidencias
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 750
|
||||
Height = 386
|
||||
Height = 210
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -768,7 +742,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 750
|
||||
ExplicitHeight = 386
|
||||
ExplicitHeight = 374
|
||||
inherited pnlSup: TPanel
|
||||
Width = 750
|
||||
ExplicitWidth = 750
|
||||
@ -778,13 +752,13 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
end
|
||||
inherited GroupBox1: TGroupBox
|
||||
Width = 750
|
||||
Height = 358
|
||||
Height = 182
|
||||
ExplicitWidth = 750
|
||||
ExplicitHeight = 358
|
||||
ExplicitHeight = 346
|
||||
inherited eIncidencias: TcxDBMemo
|
||||
ExplicitWidth = 727
|
||||
ExplicitHeight = 325
|
||||
Height = 325
|
||||
ExplicitHeight = 313
|
||||
Height = 149
|
||||
Width = 727
|
||||
end
|
||||
end
|
||||
@ -793,11 +767,12 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
object pagDocumentos: TTabSheet
|
||||
Caption = 'Documentos'
|
||||
ImageIndex = 5
|
||||
ExplicitHeight = 374
|
||||
inline frViewDocumentosPresupuestoCliente1: TfrViewDocumentosPresupuestoCliente
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 750
|
||||
Height = 386
|
||||
Height = 210
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -808,16 +783,16 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 750
|
||||
ExplicitHeight = 386
|
||||
ExplicitHeight = 374
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 750
|
||||
ExplicitWidth = 750
|
||||
end
|
||||
inherited ListView1: TListView
|
||||
Width = 750
|
||||
Height = 363
|
||||
Height = 187
|
||||
ExplicitWidth = 750
|
||||
ExplicitHeight = 363
|
||||
ExplicitHeight = 351
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -832,11 +807,11 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
ExplicitTop = 596
|
||||
ExplicitWidth = 764
|
||||
end
|
||||
inline frViewTotales1: TfrViewTotales [4]
|
||||
inline frViewTotalesPresupuesto1: TfrViewTotalesPresupuesto [4]
|
||||
Left = 0
|
||||
Top = 496
|
||||
Top = 320
|
||||
Width = 764
|
||||
Height = 100
|
||||
Height = 276
|
||||
Align = alBottom
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -846,235 +821,168 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
ParentFont = False
|
||||
TabOrder = 4
|
||||
ReadOnly = False
|
||||
ExplicitTop = 496
|
||||
ExplicitTop = 320
|
||||
ExplicitWidth = 764
|
||||
ExplicitHeight = 100
|
||||
ExplicitHeight = 276
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 764
|
||||
Height = 171
|
||||
LookAndFeel = dxLayoutOfficeLookAndFeel1
|
||||
ExplicitWidth = 764
|
||||
ExplicitHeight = 171
|
||||
inherited Bevel1: TBevel
|
||||
Left = 93
|
||||
Top = 92
|
||||
Width = 73
|
||||
ExplicitLeft = 93
|
||||
ExplicitTop = 92
|
||||
ExplicitWidth = 73
|
||||
end
|
||||
inherited Bevel3: TBevel
|
||||
Left = 375
|
||||
Top = 11
|
||||
Width = 8
|
||||
Height = 54
|
||||
ExplicitLeft = 375
|
||||
ExplicitTop = 11
|
||||
ExplicitWidth = 8
|
||||
ExplicitHeight = 54
|
||||
Left = 441
|
||||
Height = 122
|
||||
ExplicitLeft = 441
|
||||
ExplicitHeight = 122
|
||||
end
|
||||
inherited Bevel4: TBevel
|
||||
Left = 492
|
||||
Top = 92
|
||||
Width = 21
|
||||
ExplicitLeft = 492
|
||||
ExplicitTop = 92
|
||||
ExplicitWidth = 21
|
||||
Left = 553
|
||||
Width = 192
|
||||
ExplicitLeft = 553
|
||||
ExplicitWidth = 192
|
||||
end
|
||||
inherited ImporteDto: TcxDBCurrencyEdit
|
||||
Left = 164
|
||||
Top = 112
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 164
|
||||
ExplicitTop = 112
|
||||
ExplicitWidth = 188
|
||||
Width = 188
|
||||
ExplicitWidth = 87
|
||||
Width = 87
|
||||
end
|
||||
inherited ImporteIVA: TcxDBCurrencyEdit
|
||||
Left = 563
|
||||
Top = 38
|
||||
Left = 624
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 563
|
||||
ExplicitTop = 38
|
||||
ExplicitWidth = 182
|
||||
Width = 182
|
||||
ExplicitLeft = 624
|
||||
ExplicitWidth = 20
|
||||
Width = 20
|
||||
end
|
||||
inherited ImporteTotal: TcxDBCurrencyEdit
|
||||
Left = 493
|
||||
Top = 112
|
||||
Left = 554
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 493
|
||||
ExplicitTop = 112
|
||||
ExplicitWidth = 252
|
||||
Width = 252
|
||||
ExplicitLeft = 554
|
||||
ExplicitWidth = 90
|
||||
Width = 90
|
||||
end
|
||||
inherited edtDescuento: TcxDBSpinEdit
|
||||
Left = 93
|
||||
Top = 112
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 93
|
||||
ExplicitTop = 112
|
||||
end
|
||||
inherited edtIVA: TcxDBSpinEdit
|
||||
Left = 492
|
||||
Top = 38
|
||||
Left = 553
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 492
|
||||
ExplicitTop = 38
|
||||
ExplicitLeft = 553
|
||||
end
|
||||
inherited ImporteBase: TcxDBCurrencyEdit
|
||||
Left = 492
|
||||
Top = 11
|
||||
Left = 553
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 492
|
||||
ExplicitTop = 11
|
||||
ExplicitWidth = 253
|
||||
Width = 253
|
||||
ExplicitLeft = 553
|
||||
ExplicitWidth = 91
|
||||
Width = 91
|
||||
end
|
||||
inherited edtRE: TcxDBSpinEdit
|
||||
Left = 492
|
||||
Top = 65
|
||||
DataBinding.DataField = ''
|
||||
DataBinding.DataSource = nil
|
||||
Left = 553
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 492
|
||||
ExplicitTop = 65
|
||||
ExplicitLeft = 553
|
||||
end
|
||||
inherited ImporteRE: TcxDBCurrencyEdit
|
||||
Left = 563
|
||||
Top = 65
|
||||
DataBinding.DataField = ''
|
||||
DataBinding.DataSource = nil
|
||||
Left = 624
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 563
|
||||
ExplicitTop = 65
|
||||
ExplicitWidth = 182
|
||||
Width = 182
|
||||
ExplicitLeft = 624
|
||||
ExplicitWidth = 20
|
||||
Width = 20
|
||||
end
|
||||
inherited eImporteNeto: TcxDBCurrencyEdit
|
||||
Left = 93
|
||||
Top = 11
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 93
|
||||
ExplicitTop = 11
|
||||
ExplicitWidth = 259
|
||||
Width = 259
|
||||
ExplicitWidth = 158
|
||||
Width = 158
|
||||
end
|
||||
inherited ePorte: TcxDBCurrencyEdit
|
||||
Left = 93
|
||||
Top = 139
|
||||
Properties.OnValidate = frViewTotales1ePortePropertiesValidate
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 93
|
||||
ExplicitTop = 139
|
||||
ExplicitWidth = 259
|
||||
Width = 259
|
||||
ExplicitWidth = 158
|
||||
Width = 158
|
||||
end
|
||||
inherited eIVA: TcxDBLookupComboBox
|
||||
Left = 93
|
||||
Top = 38
|
||||
DataBinding.DataField = ''
|
||||
DataBinding.DataSource = nil
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 93
|
||||
ExplicitTop = 38
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
ExplicitWidth = 20
|
||||
Width = 20
|
||||
end
|
||||
inherited bTiposIVA: TButton
|
||||
Left = 227
|
||||
Top = 38
|
||||
ExplicitLeft = 227
|
||||
ExplicitTop = 38
|
||||
Left = 293
|
||||
ExplicitLeft = 293
|
||||
end
|
||||
inherited cbRecargoEquivalencia: TcxDBCheckBox
|
||||
Left = 93
|
||||
Top = 65
|
||||
DataBinding.DataField = ''
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 93
|
||||
ExplicitTop = 65
|
||||
ExplicitWidth = 259
|
||||
Width = 259
|
||||
ExplicitWidth = 221
|
||||
Width = 221
|
||||
end
|
||||
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||
inherited dxLayoutControl1Group1: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
ShowBorder = False
|
||||
inherited dxLayoutControl1Group2: TdxLayoutGroup
|
||||
inherited dxLayoutControl1Group6: TdxLayoutGroup
|
||||
Visible = False
|
||||
end
|
||||
inherited dxLayoutControl1Item16: TdxLayoutItem
|
||||
Visible = False
|
||||
end
|
||||
inherited dxLayoutControl1Item10: TdxLayoutItem
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
inherited dxLayoutControl1Group5: TdxLayoutGroup
|
||||
inherited dxLayoutControl1Group3: TdxLayoutGroup
|
||||
inherited dxLayoutControl1Item12: TdxLayoutItem
|
||||
Visible = False
|
||||
end
|
||||
inherited dxLayoutControl1Group9: TdxLayoutGroup
|
||||
Visible = False
|
||||
end
|
||||
inherited dxLayoutControl1Group8: TdxLayoutGroup
|
||||
Visible = False
|
||||
end
|
||||
inherited dxLayoutControl1Item14: TdxLayoutItem
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited eDescripcionBonificacion: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 325
|
||||
Width = 325
|
||||
end
|
||||
inherited eImporteBonificacion: TcxDBCurrencyEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 277
|
||||
Width = 277
|
||||
end
|
||||
inherited cbBonificacion: TcxCheckBox
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 277
|
||||
Width = 277
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
@ -19,7 +19,7 @@ uses
|
||||
uDAInterfaces, cxRichEdit, cxDBRichEdit, JvGIF, uViewRichEditor, cxPC,
|
||||
uViewDetallesArticulosParaVenta, uViewDocumentos,
|
||||
uViewDocumentosPresupuestoCliente, uViewDatosYSeleccionClientePresupuesto,
|
||||
cxLabel;
|
||||
cxLabel, uViewTotalesPresupuesto;
|
||||
|
||||
type
|
||||
TfEditorPresupuestoCliente = class(TfEditorDBItem, IEditorPresupuestoCliente)
|
||||
@ -28,7 +28,6 @@ type
|
||||
frViewIncidenciasCli: TfrViewIncidencias;
|
||||
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
|
||||
dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
|
||||
frViewTotales1: TfrViewTotales;
|
||||
pagPortada: TTabSheet;
|
||||
pagMemoria: TTabSheet;
|
||||
Panel1: TPanel;
|
||||
@ -48,6 +47,7 @@ type
|
||||
TBXItem35: TTBXItem;
|
||||
pagDocumentos: TTabSheet;
|
||||
frViewDocumentosPresupuestoCliente1: TfrViewDocumentosPresupuestoCliente;
|
||||
frViewTotalesPresupuesto1: TfrViewTotalesPresupuesto;
|
||||
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
|
||||
@ -177,6 +177,7 @@ begin
|
||||
//GESTION_DOCUMENTOS
|
||||
//Este método eliminará el directorio temporal si se ha creado
|
||||
frViewDocumentosPresupuestoCliente1.actEliminarTodo.Execute;
|
||||
|
||||
FViewPresupuesto := NIL;
|
||||
FViewClientePresupuesto := NIL;
|
||||
FPresupuesto := NIL;
|
||||
@ -216,11 +217,11 @@ procedure TfEditorPresupuestoCliente.frViewTotales1ePortePropertiesValidate(
|
||||
var Error: Boolean);
|
||||
begin
|
||||
inherited;
|
||||
if (not VarIsNull(DisplayValue)) and (Length(DisplayValue) > 0) then
|
||||
{ if (not VarIsNull(DisplayValue)) and (Length(DisplayValue) > 0) then
|
||||
FPresupuesto.IMPORTE_PORTE := DisplayValue
|
||||
else
|
||||
FPresupuesto.IMPORTE_PORTE := 0;
|
||||
|
||||
}
|
||||
// RecalcularPortePorUnidad; En los documentos de cliente no se desglosa el porte por articulo
|
||||
end;
|
||||
|
||||
@ -373,9 +374,11 @@ begin
|
||||
begin
|
||||
// ViewPresupuesto.ViewClientePresupuesto.Controller := Controller.ClienteController;
|
||||
frViewDetallesPresupuestoCliente1.Controller := Controller.DetallesController;
|
||||
|
||||
|
||||
//GESTION_DOCUMENTOS
|
||||
frViewDocumentosPresupuestoCliente1.Controller := Controller;
|
||||
|
||||
frViewTotalesPresupuesto1.Controller := FController;
|
||||
end;
|
||||
end;
|
||||
|
||||
@ -393,7 +396,7 @@ begin
|
||||
begin
|
||||
dsDataTable.DataTable := FPresupuesto.DataTable;
|
||||
frViewIncidenciasCli.DADataSource.DataTable := dsDataTable.DataTable;
|
||||
frViewTotales1.DADataSource.DataTable := dsDataTable.DataTable;
|
||||
frViewTotalesPresupuesto1.DADataSource.DataTable := dsDataTable.DataTable;
|
||||
if Assigned(FViewPresupuesto) then
|
||||
begin
|
||||
ViewPresupuesto.ViewClientePresupuesto.OnClienteChanged := NIL;
|
||||
@ -404,6 +407,9 @@ begin
|
||||
|
||||
//GESTION_DOCUMENTOS
|
||||
frViewDocumentosPresupuestoCliente1.Presupuesto := FPresupuesto;
|
||||
|
||||
frViewTotalesPresupuesto1.Presupuesto := FPresupuesto;
|
||||
|
||||
finally
|
||||
ViewPresupuesto.ViewClientePresupuesto.OnClienteChanged := OnClienteChanged;
|
||||
end;
|
||||
|
||||
@ -235,6 +235,7 @@ var
|
||||
ACliente : IBizCliente;
|
||||
begin
|
||||
inherited;
|
||||
|
||||
ACliente := (FClientesController.ElegirContacto(FClientesController.BuscarTodos, FMsgElegirCliente, False) as IBizCliente);
|
||||
|
||||
if Assigned(ACliente) then
|
||||
|
||||
@ -0,0 +1,289 @@
|
||||
inherited frViewTotalesPresupuesto: TfrViewTotalesPresupuesto
|
||||
Width = 848
|
||||
Height = 287
|
||||
OnDestroy = CustomViewDestroy
|
||||
OnShow = CustomViewShow
|
||||
ExplicitHeight = 287
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 848
|
||||
Height = 281
|
||||
ExplicitWidth = 451
|
||||
ExplicitHeight = 281
|
||||
DesignSize = (
|
||||
848
|
||||
281)
|
||||
inherited Bevel1: TBevel
|
||||
Width = 73
|
||||
ExplicitWidth = 73
|
||||
end
|
||||
inherited Bevel3: TBevel
|
||||
Left = 488
|
||||
Height = 122
|
||||
ExplicitLeft = 488
|
||||
ExplicitHeight = 122
|
||||
end
|
||||
inherited Bevel4: TBevel
|
||||
Left = 600
|
||||
Width = 192
|
||||
ExplicitLeft = 600
|
||||
ExplicitWidth = 192
|
||||
end
|
||||
inherited ImporteDto: TcxDBCurrencyEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
end
|
||||
inherited ImporteIVA: TcxDBCurrencyEdit
|
||||
Left = 671
|
||||
DataBinding.DataField = ''
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 12
|
||||
ExplicitLeft = 671
|
||||
end
|
||||
inherited ImporteTotal: TcxDBCurrencyEdit
|
||||
Left = 601
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 15
|
||||
ExplicitLeft = 601
|
||||
end
|
||||
inherited edtDescuento: TcxDBSpinEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
end
|
||||
inherited edtIVA: TcxDBSpinEdit
|
||||
Left = 600
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 11
|
||||
ExplicitLeft = 600
|
||||
end
|
||||
inherited ImporteBase: TcxDBCurrencyEdit
|
||||
Left = 600
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 10
|
||||
ExplicitLeft = 600
|
||||
end
|
||||
inherited edtRE: TcxDBSpinEdit
|
||||
Left = 600
|
||||
DataBinding.DataField = ''
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 13
|
||||
ExplicitLeft = 600
|
||||
end
|
||||
inherited ImporteRE: TcxDBCurrencyEdit
|
||||
Left = 671
|
||||
DataBinding.DataField = ''
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 14
|
||||
ExplicitLeft = 671
|
||||
end
|
||||
inherited eImporteNeto: TcxDBCurrencyEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
end
|
||||
inherited ePorte: TcxDBCurrencyEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
end
|
||||
inherited eIVA: TcxDBLookupComboBox
|
||||
DataBinding.DataField = ''
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
end
|
||||
inherited bTiposIVA: TButton
|
||||
Left = 340
|
||||
ExplicitLeft = 340
|
||||
end
|
||||
inherited cbRecargoEquivalencia: TcxDBCheckBox
|
||||
DataBinding.DataField = ''
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 221
|
||||
Width = 221
|
||||
end
|
||||
object eDescripcionBonificacion: TcxDBTextEdit [16]
|
||||
Left = 104
|
||||
Top = 210
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
AutoSize = False
|
||||
DataBinding.DataField = 'DESCRIPCION_BONIFICACION'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Enabled = False
|
||||
ParentFont = False
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 8
|
||||
Height = 21
|
||||
Width = 325
|
||||
end
|
||||
object eImporteBonificacion: TcxDBCurrencyEdit [17]
|
||||
Left = 104
|
||||
Top = 237
|
||||
AutoSize = False
|
||||
DataBinding.DataField = 'IMPORTE_BONIFICACION'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Enabled = False
|
||||
ParentFont = False
|
||||
Properties.Alignment.Horz = taRightJustify
|
||||
Properties.ReadOnly = False
|
||||
Properties.UseLeftAlignmentOnEditing = False
|
||||
Properties.UseThousandSeparator = True
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.Font.Charset = DEFAULT_CHARSET
|
||||
Style.Font.Color = clWindowText
|
||||
Style.Font.Height = -11
|
||||
Style.Font.Name = 'Tahoma'
|
||||
Style.Font.Style = []
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.TextColor = clWindowText
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 9
|
||||
Height = 21
|
||||
Width = 277
|
||||
end
|
||||
object cbBonificacion: TcxCheckBox [18]
|
||||
Left = 22
|
||||
Top = 183
|
||||
Caption = 'Incluir descuento por bonificaci'#243'n:'
|
||||
Properties.DisplayChecked = '1'
|
||||
Properties.DisplayUnchecked = '0'
|
||||
Properties.ImmediatePost = True
|
||||
Properties.NullStyle = nssUnchecked
|
||||
Properties.ValueChecked = 1
|
||||
Properties.ValueUnchecked = 0
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 7
|
||||
Width = 277
|
||||
end
|
||||
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||
inherited dxLayoutControl1Group1: TdxLayoutGroup
|
||||
inherited dxLayoutControl1Group2: TdxLayoutGroup
|
||||
inherited dxLayoutControl1Item8: TdxLayoutItem
|
||||
Visible = False
|
||||
end
|
||||
inherited dxLayoutControl1Group6: TdxLayoutGroup
|
||||
Visible = False
|
||||
end
|
||||
inherited dxLayoutControl1Item16: TdxLayoutItem
|
||||
Visible = False
|
||||
end
|
||||
inherited dxLayoutControl1Item10: TdxLayoutItem
|
||||
Visible = False
|
||||
end
|
||||
inherited dxLayoutControl1Group7: TdxLayoutGroup
|
||||
Visible = False
|
||||
end
|
||||
inherited dxLayoutControl1Item9: TdxLayoutItem
|
||||
Visible = False
|
||||
end
|
||||
object dxLayoutControl1Item19: TdxLayoutItem
|
||||
ShowCaption = False
|
||||
Control = cbBonificacion
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item17: TdxLayoutItem
|
||||
Caption = 'Descripci'#243'n:'
|
||||
Control = eDescripcionBonificacion
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item18: TdxLayoutItem
|
||||
Caption = 'Importe:'
|
||||
Control = eImporteBonificacion
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
inherited dxLayoutControl1Group5: TdxLayoutGroup
|
||||
inherited dxLayoutControl1Group3: TdxLayoutGroup
|
||||
inherited dxLayoutControl1Item12: TdxLayoutItem
|
||||
Visible = False
|
||||
end
|
||||
inherited dxLayoutControl1Group9: TdxLayoutGroup
|
||||
Visible = False
|
||||
end
|
||||
inherited dxLayoutControl1Group8: TdxLayoutGroup
|
||||
Visible = False
|
||||
inherited dxLayoutControl1Item6: TdxLayoutItem
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
inherited dxLayoutControl1Item14: TdxLayoutItem
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -0,0 +1,103 @@
|
||||
unit uViewTotalesPresupuesto;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, uViewTotales, cxGraphics, dxLayoutLookAndFeels, DB, uDAInterfaces,
|
||||
uDADataTable, dxLayoutControl, cxCheckBox, cxDBEdit, StdCtrls, cxDropDownEdit,
|
||||
cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, cxMaskEdit, cxSpinEdit,
|
||||
cxContainer, cxEdit, cxTextEdit, cxCurrencyEdit, ExtCtrls, cxControls,
|
||||
uBizPresupuestosCliente, uPresupuestosClienteController;
|
||||
|
||||
type
|
||||
TfrViewTotalesPresupuesto = class(TfrViewTotales)
|
||||
dxLayoutControl1Item17: TdxLayoutItem;
|
||||
eDescripcionBonificacion: TcxDBTextEdit;
|
||||
dxLayoutControl1Item18: TdxLayoutItem;
|
||||
eImporteBonificacion: TcxDBCurrencyEdit;
|
||||
dxLayoutControl1Item19: TdxLayoutItem;
|
||||
cbBonificacion: TcxCheckBox;
|
||||
procedure CustomViewDestroy(Sender: TObject);
|
||||
procedure CustomViewShow(Sender: TObject);
|
||||
procedure OnBonificacionPropertiesEditValueChanged(Sender: TObject);
|
||||
|
||||
protected
|
||||
FPresupuesto: IBizPresupuestoCliente;
|
||||
FController : IPresupuestosClienteController;
|
||||
function GetPresupuesto: IBizPresupuestoCliente;
|
||||
procedure SetPresupuesto(const Value: IBizPresupuestoCliente);
|
||||
function GetController : IPresupuestosClienteController;
|
||||
procedure SetController (const Value : IPresupuestosClienteController); virtual;
|
||||
|
||||
public
|
||||
property Presupuesto: IBizPresupuestoCliente read GetPresupuesto write SetPresupuesto;
|
||||
property Controller : IPresupuestosClienteController read GetController write SetController;
|
||||
|
||||
end;
|
||||
|
||||
implementation
|
||||
{$R *.dfm}
|
||||
|
||||
{ TfrViewTotalesPresupuesto }
|
||||
|
||||
procedure TfrViewTotalesPresupuesto.CustomViewDestroy(Sender: TObject);
|
||||
begin
|
||||
cbBonificacion.Properties.OnEditValueChanged := Nil;
|
||||
FPresupuesto := NIL;
|
||||
FController := NIL;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TfrViewTotalesPresupuesto.CustomViewShow(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
if not Presupuesto.DESCRIPCION_BONIFICACIONIsNull
|
||||
or not Presupuesto.IMPORTE_BONIFICACIONIsNull then
|
||||
begin
|
||||
cbBonificacion.Checked := True;
|
||||
eDescripcionBonificacion.Enabled := True;
|
||||
eImporteBonificacion.Enabled := True;
|
||||
end;
|
||||
|
||||
cbBonificacion.Properties.OnEditValueChanged := OnBonificacionPropertiesEditValueChanged;
|
||||
end;
|
||||
|
||||
function TfrViewTotalesPresupuesto.GetController: IPresupuestosClienteController;
|
||||
begin
|
||||
Result := FController;
|
||||
end;
|
||||
|
||||
function TfrViewTotalesPresupuesto.GetPresupuesto: IBizPresupuestoCliente;
|
||||
begin
|
||||
Result := FPresupuesto;
|
||||
end;
|
||||
|
||||
procedure TfrViewTotalesPresupuesto.OnBonificacionPropertiesEditValueChanged(
|
||||
Sender: TObject);
|
||||
begin
|
||||
if cbBonificacion.Checked then
|
||||
begin
|
||||
eDescripcionBonificacion.Enabled := True;
|
||||
eImporteBonificacion.Enabled := True;
|
||||
end
|
||||
else
|
||||
begin
|
||||
eDescripcionBonificacion.Enabled := False;
|
||||
eImporteBonificacion.Enabled := False;
|
||||
Controller.BorrarBonificacion(Presupuesto);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewTotalesPresupuesto.SetController(const Value: IPresupuestosClienteController);
|
||||
begin
|
||||
FController := Value;
|
||||
end;
|
||||
|
||||
procedure TfrViewTotalesPresupuesto.SetPresupuesto(const Value: IBizPresupuestoCliente);
|
||||
begin
|
||||
FPresupuesto := Value;
|
||||
end;
|
||||
|
||||
end.
|
||||
Loading…
Reference in New Issue
Block a user