Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Arreglada excepción por fallo en herencia visual.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@402 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2009-03-03 16:06:49 +00:00
parent 3f079c124e
commit 94344a883b
28 changed files with 1374 additions and 1040 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

62
Source/GUIBase/GUIBase.dproj
View File

@ -58,37 +58,37 @@
<DelphiCompile Include="GUIBase.dpk"> <DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Facturas de cliente\Base.dcp" /> <DCCReference Include="..\Modulos\Comisiones\Base.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxDataD11.dcp" /> <DCCReference Include="..\Modulos\Comisiones\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxEditorsD11.dcp" /> <DCCReference Include="..\Modulos\Comisiones\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxExportD11.dcp" /> <DCCReference Include="..\Modulos\Comisiones\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxLibraryD11.dcp" /> <DCCReference Include="..\Modulos\Comisiones\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxTreeListD11.dcp" /> <DCCReference Include="..\Modulos\Comisiones\cxTreeListD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dbrtl.dcp" /> <DCCReference Include="..\Modulos\Comisiones\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxBarD11.dcp" /> <DCCReference Include="..\Modulos\Comisiones\dxBarD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxBarExtItemsD11.dcp" /> <DCCReference Include="..\Modulos\Comisiones\dxBarExtItemsD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxGDIPlusD11.dcp" /> <DCCReference Include="..\Modulos\Comisiones\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxLayoutControlD11.dcp" /> <DCCReference Include="..\Modulos\Comisiones\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxPScxCommonD11.dcp" /> <DCCReference Include="..\Modulos\Comisiones\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxPScxGrid6LnkD11.dcp" /> <DCCReference Include="..\Modulos\Comisiones\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxPsPrVwAdvD11.dcp" /> <DCCReference Include="..\Modulos\Comisiones\dxPsPrVwAdvD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxThemeD11.dcp" /> <DCCReference Include="..\Modulos\Comisiones\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\frx11.dcp" /> <DCCReference Include="..\Modulos\Comisiones\frx11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\frxe11.dcp" /> <DCCReference Include="..\Modulos\Comisiones\frxe11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\fs11.dcp" /> <DCCReference Include="..\Modulos\Comisiones\fs11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvAppFrmD11R.dcp" /> <DCCReference Include="..\Modulos\Comisiones\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Comisiones\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvGlobusD11R.dcp" /> <DCCReference Include="..\Modulos\Comisiones\JvGlobusD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\PngComponentsD10.dcp" /> <DCCReference Include="..\Modulos\Comisiones\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\PNG_D10.dcp" /> <DCCReference Include="..\Modulos\Comisiones\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\rtl.dcp" /> <DCCReference Include="..\Modulos\Comisiones\rtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\tb2k_d10.dcp" /> <DCCReference Include="..\Modulos\Comisiones\tb2k_d10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\tbx_d10.dcp" /> <DCCReference Include="..\Modulos\Comisiones\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vcl.dcp" /> <DCCReference Include="..\Modulos\Comisiones\vcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vclactnband.dcp" /> <DCCReference Include="..\Modulos\Comisiones\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vcldb.dcp" /> <DCCReference Include="..\Modulos\Comisiones\vcldb.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vcljpg.dcp" /> <DCCReference Include="..\Modulos\Comisiones\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vclx.dcp" /> <DCCReference Include="..\Modulos\Comisiones\vclx.dcp" />
<DCCReference Include="uDialogBase.pas"> <DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form> <Form>fDialogBase</Form>
</DCCReference> </DCCReference>

BIN
Source/GUIBase/GUIBase.res
View File

Binary file not shown.

234
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm
View File

@ -1,7 +1,7 @@
inherited fEditorAlbaranCliente: TfEditorAlbaranCliente inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Left = 332 Left = 332
Top = 147 Top = 147
Caption = 'Nuevo albaran de cliente' Caption = 'Nuevo alb'#225'ran de cliente'
ClientHeight = 585 ClientHeight = 585
ClientWidth = 765 ClientWidth = 765
OnClose = CustomEditorClose OnClose = CustomEditorClose
@ -11,7 +11,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 765 Width = 765
Caption = 'Nuevo albaran de cliente' Caption = 'Nuevo albar'#225'n de cliente'
ExplicitWidth = 765 ExplicitWidth = 765
inherited Image1: TImage inherited Image1: TImage
Left = 738 Left = 738
@ -144,20 +144,29 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
ExplicitWidth = 765 ExplicitWidth = 765
end end
end end
inherited StatusBar: TJvStatusBar
Top = 566
Width = 765
Panels = <
item
Width = 200
end>
ExplicitTop = 566
ExplicitWidth = 765
end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 759 Width = 759
Height = 406 Height = 376
TabOrder = 1 TabOrder = 1
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitLeft = 3 ExplicitTop = 109
ExplicitTop = 79
ExplicitWidth = 759 ExplicitWidth = 759
ExplicitHeight = 406 ExplicitHeight = 376
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 751 ExplicitWidth = 751
ExplicitHeight = 378 ExplicitHeight = 348
end end
object pagContenido: TTabSheet object pagContenido: TTabSheet
Caption = 'Contenido' Caption = 'Contenido'
@ -166,7 +175,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 751 Width = 751
Height = 378 Height = 348
Align = alClient Align = alClient
BiDiMode = bdLeftToRight BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -179,16 +188,52 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 751 ExplicitWidth = 751
ExplicitHeight = 378 ExplicitHeight = 348
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 751 Width = 751
ExplicitWidth = 751 ExplicitWidth = 751
inherited UpDown1: TUpDown
Left = 237
ExplicitLeft = 237
end
inherited ToolButton13: TToolButton
Left = 254
ExplicitLeft = 254
end
inherited ToolButton6: TToolButton
Left = 262
ExplicitLeft = 262
end
inherited ToolButton7: TToolButton
Left = 296
ExplicitLeft = 296
end
inherited ToolButton8: TToolButton
Left = 330
ExplicitLeft = 330
end
inherited ToolButton12: TToolButton
Left = 364
ExplicitLeft = 364
end
inherited ToolButton9: TToolButton
Left = 372
ExplicitLeft = 372
end
inherited ToolButton10: TToolButton
Left = 406
ExplicitLeft = 406
end
inherited ToolButton11: TToolButton
Left = 440
ExplicitLeft = 440
end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 751 Width = 751
Height = 306 Height = 276
ExplicitWidth = 751 ExplicitWidth = 751
ExplicitHeight = 306 ExplicitHeight = 276
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Width = 751 Width = 751
@ -206,7 +251,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 751 Width = 751
Height = 378 Height = 348
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -217,7 +262,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 751 ExplicitWidth = 751
ExplicitHeight = 378 ExplicitHeight = 348
inherited pnlSup: TPanel inherited pnlSup: TPanel
Width = 751 Width = 751
ExplicitWidth = 751 ExplicitWidth = 751
@ -227,9 +272,9 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
end end
inherited GroupBox1: TGroupBox inherited GroupBox1: TGroupBox
Width = 751 Width = 751
Height = 350 Height = 320
ExplicitWidth = 751 ExplicitWidth = 751
ExplicitHeight = 350 ExplicitHeight = 320
inherited eIncidencias: TcxDBMemo inherited eIncidencias: TcxDBMemo
ExplicitWidth = 734 ExplicitWidth = 734
ExplicitHeight = 323 ExplicitHeight = 323
@ -240,16 +285,6 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
end end
end end
end end
inherited StatusBar: TJvStatusBar
Top = 566
Width = 765
Panels = <
item
Width = 200
end>
ExplicitTop = 566
ExplicitWidth = 765
end
inline frViewTotales1: TfrViewTotales [4] inline frViewTotales1: TfrViewTotales [4]
Left = 0 Left = 0
Top = 488 Top = 488
@ -262,7 +297,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 4 TabOrder = 5
ReadOnly = False ReadOnly = False
ExplicitTop = 488 ExplicitTop = 488
ExplicitWidth = 765 ExplicitWidth = 765
@ -274,12 +309,6 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
LookAndFeel = dxLayoutOfficeLookAndFeel1 LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 765 ExplicitWidth = 765
ExplicitHeight = 78 ExplicitHeight = 78
inherited Bevel1: TBevel
Left = 93
Top = 92
ExplicitLeft = 93
ExplicitTop = 92
end
inherited Bevel3: TBevel inherited Bevel3: TBevel
Left = 368 Left = 368
Top = 11 Top = 11
@ -292,26 +321,28 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
end end
inherited Bevel4: TBevel inherited Bevel4: TBevel
Left = 484 Left = 484
Top = 92 Top = 53
Width = 210
ExplicitLeft = 484 ExplicitLeft = 484
ExplicitTop = 92 ExplicitTop = 53
ExplicitWidth = 210
end end
inherited ImporteDto: TcxDBCurrencyEdit inherited ImporteDto: TcxDBCurrencyEdit
Left = 164 Left = 164
Top = 112 Top = 38
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 164 ExplicitLeft = 164
ExplicitTop = 112 ExplicitTop = 38
ExplicitWidth = 188 ExplicitWidth = 188
Width = 188 Width = 188
end end
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Left = 555 Left = 555
Top = 38 Top = 88
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
@ -319,37 +350,37 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 555 ExplicitLeft = 555
ExplicitTop = 38 ExplicitTop = 88
ExplicitWidth = 182 ExplicitWidth = 182
Width = 182 Width = 182
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 485 Left = 485
Top = 112 Top = 142
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 485 ExplicitLeft = 485
ExplicitTop = 112 ExplicitTop = 142
ExplicitWidth = 252 ExplicitWidth = 252
Width = 252 Width = 252
end end
inherited edtDescuento: TcxDBSpinEdit inherited edtDescuento: TcxDBSpinEdit
Left = 93 Left = 93
Top = 112 Top = 38
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 93 ExplicitLeft = 93
ExplicitTop = 112 ExplicitTop = 38
end end
inherited edtIVA: TcxDBSpinEdit inherited edtIVA: TcxDBSpinEdit
Left = 484 Left = 484
Top = 38 Top = 88
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
@ -357,7 +388,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 484 ExplicitLeft = 484
ExplicitTop = 38 ExplicitTop = 88
end end
inherited ImporteBase: TcxDBCurrencyEdit inherited ImporteBase: TcxDBCurrencyEdit
Left = 484 Left = 484
@ -374,7 +405,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Left = 484 Left = 484
Top = 65 Top = 115
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
@ -382,11 +413,11 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 484 ExplicitLeft = 484
ExplicitTop = 65 ExplicitTop = 115
end end
inherited ImporteRE: TcxDBCurrencyEdit inherited ImporteRE: TcxDBCurrencyEdit
Left = 555 Left = 555
Top = 65 Top = 115
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
@ -394,7 +425,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 555 ExplicitLeft = 555
ExplicitTop = 65 ExplicitTop = 115
ExplicitWidth = 182 ExplicitWidth = 182
Width = 182 Width = 182
end end
@ -413,7 +444,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
end end
inherited ePorte: TcxDBCurrencyEdit inherited ePorte: TcxDBCurrencyEdit
Left = 93 Left = 93
Top = 139 Top = 65
Properties.OnValidate = frViewTotales1ePortePropertiesValidate Properties.OnValidate = frViewTotales1ePortePropertiesValidate
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
@ -421,65 +452,67 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 93 ExplicitLeft = 93
ExplicitTop = 139
ExplicitWidth = 259
Width = 259
end
inherited eIVA: TcxDBLookupComboBox
Left = 93
Top = 38
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 93
ExplicitTop = 38
ExplicitWidth = 121
Width = 121
end
inherited bTiposIVA: TButton
Left = 220
Top = 38
ExplicitLeft = 220
ExplicitTop = 38
end
inherited cbRecargoEquivalencia: TcxDBCheckBox
Left = 93
Top = 65
DataBinding.DataField = ''
DataBinding.DataSource = nil
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 93
ExplicitTop = 65 ExplicitTop = 65
ExplicitWidth = 259 ExplicitWidth = 259
Width = 259 Width = 259
end end
inherited eIVA: TcxDBLookupComboBox
Left = 93
Top = 92
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 93
ExplicitTop = 92
ExplicitWidth = 121
Width = 121
end
inherited bTiposIVA: TButton
Left = 220
Top = 92
ExplicitLeft = 220
ExplicitTop = 92
end
inherited cbRecargoEquivalencia: TcxDBCheckBox
Left = 93
Top = 119
DataBinding.DataField = ''
DataBinding.DataSource = nil
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 93
ExplicitTop = 119
ExplicitWidth = 259
Width = 259
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup inherited dxLayoutControl1Group1: TdxLayoutGroup
ShowCaption = False ShowCaption = False
ShowBorder = False ShowBorder = False
inherited dxLayoutControl1Group2: TdxLayoutGroup inherited dxLayoutControl1Group2: TdxLayoutGroup
inherited dxLayoutControl1Group7: TdxLayoutGroup
Visible = False
end
inherited dxLayoutControl1Group6: TdxLayoutGroup inherited dxLayoutControl1Group6: TdxLayoutGroup
Visible = False Visible = False
end end
inherited dxLayoutControl1Item16: TdxLayoutItem inherited dxLayoutControl1Item16: TdxLayoutItem
Visible = False Visible = False
end end
inherited dxLayoutControl1Item10: TdxLayoutItem
Visible = False
end
inherited dxLayoutControl1Group7: TdxLayoutGroup
Visible = False
end
end end
inherited dxLayoutControl1Group5: TdxLayoutGroup inherited dxLayoutControl1Group5: TdxLayoutGroup
inherited dxLayoutControl1Group3: TdxLayoutGroup inherited dxLayoutControl1Group3: TdxLayoutGroup
inherited dxLayoutControl1Item12: TdxLayoutItem inherited dxLayoutControl1Group11: TdxLayoutGroup
Visible = False inherited dxLayoutControl1Item12: TdxLayoutItem
Visible = False
end
inherited dxLayoutControl1Item14: TdxLayoutItem
Visible = False
end
end end
inherited dxLayoutControl1Group9: TdxLayoutGroup inherited dxLayoutControl1Group9: TdxLayoutGroup
Visible = False Visible = False
@ -487,29 +520,30 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
inherited dxLayoutControl1Group8: TdxLayoutGroup inherited dxLayoutControl1Group8: TdxLayoutGroup
Visible = False Visible = False
end end
inherited dxLayoutControl1Item14: TdxLayoutItem
Visible = False
end
end end
end end
end end
end end
end end
end end
inherited EditorActionList: TActionList [5] inherited PnlComentario: TPanel [5]
Width = 765
ExplicitWidth = 765
inherited lbComentario: TLabel
Width = 755
Height = 25
end
end
inherited EditorActionList: TActionList [9]
Left = 32 Left = 32
Top = 96 Top = 96
end end
inherited SmallImages: TPngImageList [6]
end
inherited LargeImages: TPngImageList [7]
end
inherited JvFormStorage: TJvFormStorage [8]
end
inherited dsDataTable: TDADataSource [10] inherited dsDataTable: TDADataSource [10]
Left = 24 Left = 24
Top = 136 Top = 136
end end
inherited JvAppRegistryStorage: TJvAppRegistryStorage [11]
end
object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList
Left = 144 Left = 144
Top = 280 Top = 280

52
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranDevCliente.dfm
View File

@ -139,10 +139,6 @@ inherited fEditorAlbaranDevCliente: TfEditorAlbaranDevCliente
inherited frViewTotales1: TfrViewTotales inherited frViewTotales1: TfrViewTotales
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
LookAndFeel = dxLayoutOfficeLookAndFeel1 LookAndFeel = dxLayoutOfficeLookAndFeel1
inherited Bevel1: TBevel
Width = 73
ExplicitWidth = 73
end
inherited Bevel3: TBevel inherited Bevel3: TBevel
Left = 331 Left = 331
Height = 54 Height = 54
@ -156,62 +152,106 @@ inherited fEditorAlbaranDevCliente: TfEditorAlbaranDevCliente
ExplicitWidth = 285 ExplicitWidth = 285
end end
inherited ImporteDto: TcxDBCurrencyEdit inherited ImporteDto: TcxDBCurrencyEdit
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 93 ExplicitWidth = 93
Width = 93 Width = 93
end end
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Left = 518 Left = 518
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 518 ExplicitLeft = 518
ExplicitWidth = 214 ExplicitWidth = 214
Width = 214 Width = 214
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 448 Left = 448
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 448 ExplicitLeft = 448
ExplicitWidth = 284 ExplicitWidth = 284
Width = 284 Width = 284
end end
inherited edtDescuento: TcxDBSpinEdit inherited edtDescuento: TcxDBSpinEdit
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end end
inherited edtIVA: TcxDBSpinEdit inherited edtIVA: TcxDBSpinEdit
Left = 447 Left = 447
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 447 ExplicitLeft = 447
end end
inherited ImporteBase: TcxDBCurrencyEdit inherited ImporteBase: TcxDBCurrencyEdit
Left = 447 Left = 447
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 447 ExplicitLeft = 447
ExplicitWidth = 285 ExplicitWidth = 285
Width = 285 Width = 285
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Left = 447 Left = 447
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 447 ExplicitLeft = 447
end end
inherited ImporteRE: TcxDBCurrencyEdit inherited ImporteRE: TcxDBCurrencyEdit
Left = 518 Left = 518
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 518 ExplicitLeft = 518
ExplicitWidth = 214 ExplicitWidth = 214
Width = 214 Width = 214
end end
inherited eImporteNeto: TcxDBCurrencyEdit inherited eImporteNeto: TcxDBCurrencyEdit
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 147 ExplicitWidth = 147
Width = 147 Width = 147
end end
inherited ePorte: TcxDBCurrencyEdit inherited ePorte: TcxDBCurrencyEdit
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 147 ExplicitWidth = 147
Width = 147 Width = 147
end end
inherited eIVA: TcxDBLookupComboBox inherited eIVA: TcxDBLookupComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 81 ExplicitWidth = 81
Width = 81 Width = 81
end end
@ -220,6 +260,10 @@ inherited fEditorAlbaranDevCliente: TfEditorAlbaranDevCliente
ExplicitLeft = 183 ExplicitLeft = 183
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited cbRecargoEquivalencia: TcxDBCheckBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 219 ExplicitWidth = 219
Width = 219 Width = 219
end end

2
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranDevCliente.pas
View File

@ -10,7 +10,7 @@ uses
JvStatusBar, uViewIncidencias, uCustomView, uViewBase, uViewDetallesBase, JvStatusBar, uViewIncidencias, uCustomView, uViewBase, uViewDetallesBase,
uViewDetallesDTO, uViewDetallesArticulos, uViewDetallesAlbaranCliente, TBX, uViewDetallesDTO, uViewDetallesArticulos, uViewDetallesAlbaranCliente, TBX,
TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent,
JvNavigationPane, uIEditorAlbaranDevCliente, uDAInterfaces; JvNavigationPane, uIEditorAlbaranDevCliente, uDAInterfaces, StdCtrls;
type type
TfEditorAlbaranDevCliente = class(TfEditorAlbaranCliente, IEditorAlbaranDevCliente) TfEditorAlbaranDevCliente = class(TfEditorAlbaranCliente, IEditorAlbaranDevCliente)

84
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranDevProveedor.dfm
View File

@ -123,6 +123,12 @@ inherited fEditorAlbaranDevProveedor: TfEditorAlbaranDevProveedor
end end
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
inherited pagGeneral: TTabSheet
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
end
inherited pagInicidencias: TTabSheet inherited pagInicidencias: TTabSheet
inherited frViewIncidenciasCli: TfrViewIncidencias inherited frViewIncidenciasCli: TfrViewIncidencias
inherited GroupBox1: TGroupBox inherited GroupBox1: TGroupBox
@ -139,35 +145,113 @@ inherited fEditorAlbaranDevProveedor: TfEditorAlbaranDevProveedor
inherited frViewTotales1: TfrViewTotales inherited frViewTotales1: TfrViewTotales
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
LookAndFeel = dxLayoutOfficeLookAndFeel1 LookAndFeel = dxLayoutOfficeLookAndFeel1
inherited Bevel3: TBevel
Height = 30
ExplicitHeight = 30
end
inherited Bevel4: TBevel
Width = 21
ExplicitWidth = 21
end
inherited ImporteDto: TcxDBCurrencyEdit inherited ImporteDto: TcxDBCurrencyEdit
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 93
Width = 93
end end
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 137
Width = 137
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 137
Width = 137
end end
inherited edtDescuento: TcxDBSpinEdit inherited edtDescuento: TcxDBSpinEdit
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end end
inherited edtIVA: TcxDBSpinEdit inherited edtIVA: TcxDBSpinEdit
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end end
inherited ImporteBase: TcxDBCurrencyEdit inherited ImporteBase: TcxDBCurrencyEdit
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 92
Width = 92
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end end
inherited ImporteRE: TcxDBCurrencyEdit inherited ImporteRE: TcxDBCurrencyEdit
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 56
Width = 56
end end
inherited eImporteNeto: TcxDBCurrencyEdit inherited eImporteNeto: TcxDBCurrencyEdit
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 147
Width = 147
end end
inherited ePorte: TcxDBCurrencyEdit inherited ePorte: TcxDBCurrencyEdit
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 147
Width = 147
end
inherited eIVA: TcxDBLookupComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 81
Width = 81
end
inherited cbRecargoEquivalencia: TcxDBCheckBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 219
Width = 219
end end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup inherited dxLayoutControl1Group1: TdxLayoutGroup

2
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranDevProveedor.pas
View File

@ -11,7 +11,7 @@ uses
uViewDetallesArticulos, uViewDetallesAlbaranProveedor, uCustomView, uViewBase, uViewDetallesArticulos, uViewDetallesAlbaranProveedor, uCustomView, uViewBase,
uViewAlbaranProveedor, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, uViewAlbaranProveedor, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
JvExControls, JvComponent, JvNavigationPane, uIEditorAlbaranDevProveedor, JvExControls, JvComponent, JvNavigationPane, uIEditorAlbaranDevProveedor,
uDAInterfaces; uDAInterfaces, StdCtrls;
type type
TfEditorAlbaranDevProveedor = class(TfEditorAlbaranProveedor, IEditorAlbaranDevProveedor) TfEditorAlbaranDevProveedor = class(TfEditorAlbaranProveedor, IEditorAlbaranDevProveedor)

195
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm
View File

@ -144,20 +144,30 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
ExplicitWidth = 765 ExplicitWidth = 765
end end
end end
inherited StatusBar: TJvStatusBar
Top = 600
Width = 765
Panels = <
item
Width = 200
end>
ExplicitTop = 600
ExplicitWidth = 765
end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 759 Width = 759
Height = 454 Height = 424
ActivePage = pagInicidencias
TabOrder = 1 TabOrder = 1
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitLeft = 3 ExplicitTop = 109
ExplicitTop = 79
ExplicitWidth = 759 ExplicitWidth = 759
ExplicitHeight = 454 ExplicitHeight = 424
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 751 ExplicitWidth = 751
ExplicitHeight = 426 ExplicitHeight = 396
end end
object pagContenido: TTabSheet object pagContenido: TTabSheet
Caption = 'Contenido' Caption = 'Contenido'
@ -166,7 +176,7 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
Left = 0 Left = 0
Top = 0 Top = 0
Width = 751 Width = 751
Height = 426 Height = 396
Align = alClient Align = alClient
BiDiMode = bdLeftToRight BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -179,14 +189,14 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 751 ExplicitWidth = 751
ExplicitHeight = 426 ExplicitHeight = 396
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 751 Width = 751
ExplicitWidth = 751 ExplicitWidth = 751
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 751 Width = 751
Height = 354 Height = 324
ExplicitWidth = 751 ExplicitWidth = 751
ExplicitHeight = 354 ExplicitHeight = 354
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
@ -207,15 +217,11 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
object pagInicidencias: TTabSheet object pagInicidencias: TTabSheet
Caption = 'Incidencias' Caption = 'Incidencias'
ImageIndex = 2 ImageIndex = 2
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewIncidenciasCli: TfrViewIncidencias inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0 Left = 0
Top = 0 Top = 0
Width = 751 Width = 751
Height = 426 Height = 396
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -226,19 +232,19 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 751 ExplicitWidth = 751
ExplicitHeight = 426 ExplicitHeight = 396
inherited pnlSup: TPanel inherited pnlSup: TPanel
Width = 751 Width = 751
ExplicitWidth = 757 ExplicitWidth = 751
inherited eIncidenciaActiva: TcxDBCheckBox inherited eIncidenciaActiva: TcxDBCheckBox
ExplicitHeight = 21 ExplicitHeight = 21
end end
end end
inherited GroupBox1: TGroupBox inherited GroupBox1: TGroupBox
Width = 751 Width = 751
Height = 398 Height = 368
ExplicitWidth = 751 ExplicitWidth = 751
ExplicitHeight = 398 ExplicitHeight = 368
inherited eIncidencias: TcxDBMemo inherited eIncidencias: TcxDBMemo
ExplicitWidth = 734 ExplicitWidth = 734
ExplicitHeight = 371 ExplicitHeight = 371
@ -249,16 +255,6 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
end end
end end
end end
inherited StatusBar: TJvStatusBar
Top = 600
Width = 765
Panels = <
item
Width = 200
end>
ExplicitTop = 600
ExplicitWidth = 765
end
inline frViewTotales1: TfrViewTotales [4] inline frViewTotales1: TfrViewTotales [4]
Left = 0 Left = 0
Top = 536 Top = 536
@ -271,7 +267,7 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 4 TabOrder = 5
ReadOnly = False ReadOnly = False
ExplicitTop = 536 ExplicitTop = 536
ExplicitWidth = 765 ExplicitWidth = 765
@ -280,14 +276,6 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
Width = 765 Width = 765
LookAndFeel = dxLayoutOfficeLookAndFeel1 LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 765 ExplicitWidth = 765
inherited Bevel1: TBevel
Left = 93
Top = 92
Width = 73
ExplicitLeft = 93
ExplicitTop = 92
ExplicitWidth = 73
end
inherited Bevel3: TBevel inherited Bevel3: TBevel
Left = 379 Left = 379
Top = 11 Top = 11
@ -298,59 +286,83 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
end end
inherited Bevel4: TBevel inherited Bevel4: TBevel
Left = 491 Left = 491
Top = 92 Top = 53
Width = 21 Width = 21
ExplicitLeft = 491 ExplicitLeft = 491
ExplicitTop = 92 ExplicitTop = 53
ExplicitWidth = 21 ExplicitWidth = 21
end end
inherited ImporteDto: TcxDBCurrencyEdit inherited ImporteDto: TcxDBCurrencyEdit
Left = 164 Left = 164
Top = 112 Top = 38
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 164 ExplicitLeft = 164
ExplicitTop = 112 ExplicitTop = 38
ExplicitWidth = 93 ExplicitWidth = 93
Width = 93 Width = 93
end end
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Left = 562 Left = 562
Top = 38 Top = 88
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 562 ExplicitLeft = 562
ExplicitTop = 38 ExplicitTop = 88
ExplicitWidth = 137 ExplicitWidth = 137
Width = 137 Width = 137
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 492 Left = 492
Top = 112 Top = 142
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 492 ExplicitLeft = 492
ExplicitTop = 112 ExplicitTop = 142
ExplicitWidth = 137 ExplicitWidth = 137
Width = 137 Width = 137
end end
inherited edtDescuento: TcxDBSpinEdit inherited edtDescuento: TcxDBSpinEdit
Left = 93 Left = 93
Top = 112 Top = 38
Properties.OnValidate = frViewTotales1edtDescuentoPropertiesValidate Properties.OnValidate = frViewTotales1edtDescuentoPropertiesValidate
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 93 ExplicitLeft = 93
ExplicitTop = 112 ExplicitTop = 38
end end
inherited edtIVA: TcxDBSpinEdit inherited edtIVA: TcxDBSpinEdit
Left = 491 Left = 491
Top = 38 Top = 88
Properties.OnValidate = frViewTotales1edtIVAPropertiesValidate Properties.OnValidate = frViewTotales1edtIVAPropertiesValidate
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 491 ExplicitLeft = 491
ExplicitTop = 38 ExplicitTop = 88
end end
inherited ImporteBase: TcxDBCurrencyEdit inherited ImporteBase: TcxDBCurrencyEdit
Left = 491 Left = 491
Top = 11 Top = 11
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 491 ExplicitLeft = 491
ExplicitTop = 11 ExplicitTop = 11
ExplicitWidth = 92 ExplicitWidth = 92
@ -358,28 +370,40 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Left = 491 Left = 491
Top = 65 Top = 115
DataBinding.DataField = '' DataBinding.DataField = ''
DataBinding.DataSource = nil DataBinding.DataSource = nil
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 491 ExplicitLeft = 491
ExplicitTop = 65 ExplicitTop = 115
end end
inherited ImporteRE: TcxDBCurrencyEdit inherited ImporteRE: TcxDBCurrencyEdit
Left = 562 Left = 562
Top = 65 Top = 115
DataBinding.DataField = '' DataBinding.DataField = ''
DataBinding.DataSource = nil DataBinding.DataSource = nil
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 562 ExplicitLeft = 562
ExplicitTop = 65 ExplicitTop = 115
ExplicitWidth = 56 ExplicitWidth = 56
Width = 56 Width = 56
end end
inherited eImporteNeto: TcxDBCurrencyEdit inherited eImporteNeto: TcxDBCurrencyEdit
Left = 93 Left = 93
Top = 11 Top = 11
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 93 ExplicitLeft = 93
ExplicitTop = 11 ExplicitTop = 11
ExplicitWidth = 147 ExplicitWidth = 147
@ -387,36 +411,48 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
end end
inherited ePorte: TcxDBCurrencyEdit inherited ePorte: TcxDBCurrencyEdit
Left = 93 Left = 93
Top = 139 Top = 65
Properties.OnValidate = frViewTotales1ePortePropertiesValidate Properties.OnValidate = frViewTotales1ePortePropertiesValidate
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 93 ExplicitLeft = 93
ExplicitTop = 139 ExplicitTop = 65
ExplicitWidth = 147 ExplicitWidth = 147
Width = 147 Width = 147
end end
inherited eIVA: TcxDBLookupComboBox inherited eIVA: TcxDBLookupComboBox
Left = 93 Left = 93
Top = 38 Top = 92
DataBinding.DataField = '' DataBinding.DataField = ''
DataBinding.DataSource = nil DataBinding.DataSource = nil
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 93 ExplicitLeft = 93
ExplicitTop = 38 ExplicitTop = 92
ExplicitWidth = 81 ExplicitWidth = 81
Width = 81 Width = 81
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 231 Left = 231
Top = 38 Top = 92
ExplicitLeft = 231 ExplicitLeft = 231
ExplicitTop = 38 ExplicitTop = 92
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited cbRecargoEquivalencia: TcxDBCheckBox
Left = 93 Left = 93
Top = 65 Top = 119
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 93 ExplicitLeft = 93
ExplicitTop = 65 ExplicitTop = 119
ExplicitWidth = 219 ExplicitWidth = 219
Width = 219 Width = 219
end end
@ -428,26 +464,28 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
inherited dxLayoutControl1Item8: TdxLayoutItem inherited dxLayoutControl1Item8: TdxLayoutItem
Visible = False Visible = False
end end
inherited dxLayoutControl1Group7: TdxLayoutGroup
Visible = False
end
inherited dxLayoutControl1Group6: TdxLayoutGroup inherited dxLayoutControl1Group6: TdxLayoutGroup
Visible = False Visible = False
end end
inherited dxLayoutControl1Item16: TdxLayoutItem inherited dxLayoutControl1Item16: TdxLayoutItem
Visible = False Visible = False
end end
inherited dxLayoutControl1Item10: TdxLayoutItem
Visible = False
end
inherited dxLayoutControl1Group7: TdxLayoutGroup
Visible = False
end
end end
inherited dxLayoutControl1Group5: TdxLayoutGroup inherited dxLayoutControl1Group5: TdxLayoutGroup
inherited dxLayoutControl1Item13: TdxLayoutItem inherited dxLayoutControl1Item13: TdxLayoutItem
Visible = False Visible = False
end end
inherited dxLayoutControl1Group3: TdxLayoutGroup inherited dxLayoutControl1Group3: TdxLayoutGroup
inherited dxLayoutControl1Item12: TdxLayoutItem inherited dxLayoutControl1Group11: TdxLayoutGroup
Visible = False inherited dxLayoutControl1Item12: TdxLayoutItem
Visible = False
end
inherited dxLayoutControl1Item14: TdxLayoutItem
Visible = False
end
end end
inherited dxLayoutControl1Group9: TdxLayoutGroup inherited dxLayoutControl1Group9: TdxLayoutGroup
Visible = False Visible = False
@ -455,28 +493,29 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
inherited dxLayoutControl1Group8: TdxLayoutGroup inherited dxLayoutControl1Group8: TdxLayoutGroup
Visible = False Visible = False
end end
inherited dxLayoutControl1Item14: TdxLayoutItem
Visible = False
end
end end
end end
end end
end end
end end
end end
inherited EditorActionList: TActionList [5] inherited PnlComentario: TPanel [5]
Width = 765
ExplicitWidth = 765
inherited lbComentario: TLabel
Width = 755
Height = 25
end
end
inherited EditorActionList: TActionList [9]
inherited actConfPagina: TAction inherited actConfPagina: TAction
Visible = False Visible = False
end end
end end
inherited SmallImages: TPngImageList [6]
end
inherited LargeImages: TPngImageList [7]
end
inherited JvFormStorage: TJvFormStorage [8]
end
inherited dsDataTable: TDADataSource [10] inherited dsDataTable: TDADataSource [10]
end end
inherited JvAppRegistryStorage: TJvAppRegistryStorage [11]
end
object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList
Left = 336 Left = 336
Top = 176 Top = 176

10
Source/Modulos/Articulos/Views/Articulos_view.dproj
View File

@ -54,11 +54,11 @@
<DelphiCompile Include="Articulos_view.dpk"> <DelphiCompile Include="Articulos_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\..\..\Output\Debug\Servidor\Articulos_controller.dcp" /> <DCCReference Include="..\..\Presupuestos de cliente\Articulos_controller.dcp" />
<DCCReference Include="..\..\..\..\Output\Debug\Servidor\Articulos_model.dcp" /> <DCCReference Include="..\..\Presupuestos de cliente\Articulos_model.dcp" />
<DCCReference Include="..\..\..\..\Output\Debug\Servidor\Contactos_view.dcp" /> <DCCReference Include="..\..\Presupuestos de cliente\Contactos_view.dcp" />
<DCCReference Include="..\..\..\..\Output\Debug\Servidor\Familias_controller.dcp" /> <DCCReference Include="..\..\Presupuestos de cliente\Familias_controller.dcp" />
<DCCReference Include="..\..\..\..\Output\Debug\Servidor\GUIBase.dcp" /> <DCCReference Include="..\..\Presupuestos de cliente\GUIBase.dcp" />
<DCCReference Include="uArticulosViewRegister.pas" /> <DCCReference Include="uArticulosViewRegister.pas" />
<DCCReference Include="uEditorArticulo.pas"> <DCCReference Include="uEditorArticulo.pas">
<Form>fEditorArticulo</Form> <Form>fEditorArticulo</Form>

214
Source/Modulos/Comisiones/Views/uEditorComision.dfm
View File

@ -113,19 +113,28 @@ inherited fEditorComision: TfEditorComision
end end
end end
end end
inherited StatusBar: TJvStatusBar
Top = 664
Width = 747
Panels = <
item
Width = 200
end>
ExplicitTop = 664
ExplicitWidth = 747
end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 741 Width = 741
Height = 536 Height = 506
MultiLine = True MultiLine = True
ExplicitLeft = 3 ExplicitTop = 109
ExplicitTop = 79
ExplicitWidth = 741 ExplicitWidth = 741
ExplicitHeight = 536 ExplicitHeight = 506
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 733 ExplicitWidth = 733
ExplicitHeight = 508 ExplicitHeight = 478
inline frViewComision1: TfrViewComision inline frViewComision1: TfrViewComision
Left = 0 Left = 0
Top = 0 Top = 0
@ -151,20 +160,36 @@ inherited fEditorComision: TfEditorComision
733 733
110) 110)
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 164 ExplicitWidth = 164
Width = 164 Width = 164
end end
inherited eDescripcion: TcxDBTextEdit inherited eDescripcion: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 108 ExplicitWidth = 108
Width = 108 Width = 108
end end
inherited edtFecha: TcxDBDateEdit inherited edtFecha: TcxDBDateEdit
Left = 414 Left = 414
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 414 ExplicitLeft = 414
ExplicitWidth = 170 ExplicitWidth = 170
Width = 170 Width = 170
end end
inherited cbAgente: TcxDBLookupComboBox inherited cbAgente: TcxDBLookupComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 319 ExplicitWidth = 319
Width = 319 Width = 319
end end
@ -174,7 +199,7 @@ inherited fEditorComision: TfEditorComision
Left = 0 Left = 0
Top = 110 Top = 110
Width = 733 Width = 733
Height = 398 Height = 368
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 1 TabOrder = 1
@ -219,23 +244,17 @@ inherited fEditorComision: TfEditorComision
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 607 Width = 607
ExplicitWidth = 607 ExplicitWidth = 607
inherited ToolButton1: TToolButton inherited ToolButton3: TToolButton
ExplicitWidth = 113 ExplicitWidth = 98
end end
inherited ToolButton4: TToolButton inherited ToolButton8: TToolButton
ExplicitWidth = 113 ExplicitWidth = 99
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end end
end end
end end
inline frViewVendedoresComision1: TfrViewVendedoresComision inline frViewVendedoresComision1: TfrViewVendedoresComision
Left = 22 Left = 22
Top = 232 Top = 202
Width = 662 Width = 662
Height = 150 Height = 150
Align = alBottom Align = alBottom
@ -248,7 +267,7 @@ inherited fEditorComision: TfEditorComision
TabOrder = 1 TabOrder = 1
ReadOnly = False ReadOnly = False
ExplicitLeft = 22 ExplicitLeft = 22
ExplicitTop = 232 ExplicitTop = 202
ExplicitWidth = 662 ExplicitWidth = 662
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 662 Width = 662
@ -276,17 +295,11 @@ inherited fEditorComision: TfEditorComision
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 662 Width = 662
ExplicitWidth = 662 ExplicitWidth = 662
inherited ToolButton1: TToolButton inherited ToolButton3: TToolButton
ExplicitWidth = 113 ExplicitWidth = 98
end end
inherited ToolButton4: TToolButton inherited ToolButton8: TToolButton
ExplicitWidth = 113 ExplicitWidth = 99
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end end
end end
end end
@ -324,16 +337,6 @@ inherited fEditorComision: TfEditorComision
end end
end end
end end
inherited StatusBar: TJvStatusBar
Top = 664
Width = 747
Panels = <
item
Width = 200
end>
ExplicitTop = 664
ExplicitWidth = 747
end
inline frViewTotales1: TfrViewTotales [4] inline frViewTotales1: TfrViewTotales [4]
Left = 0 Left = 0
Top = 618 Top = 618
@ -346,7 +349,7 @@ inherited fEditorComision: TfEditorComision
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 4 TabOrder = 5
ReadOnly = False ReadOnly = False
ExplicitTop = 618 ExplicitTop = 618
ExplicitWidth = 747 ExplicitWidth = 747
@ -354,14 +357,6 @@ inherited fEditorComision: TfEditorComision
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 747 Width = 747
ExplicitWidth = 747 ExplicitWidth = 747
inherited Bevel1: TBevel
Left = 92
Top = 91
Width = 73
ExplicitLeft = 92
ExplicitTop = 91
ExplicitWidth = 73
end
inherited Bevel3: TBevel inherited Bevel3: TBevel
Left = 370 Left = 370
Top = 10 Top = 10
@ -372,62 +367,86 @@ inherited fEditorComision: TfEditorComision
end end
inherited Bevel4: TBevel inherited Bevel4: TBevel
Left = 482 Left = 482
Top = 91 Top = 52
Width = 192 Width = 192
ExplicitLeft = 482 ExplicitLeft = 482
ExplicitTop = 91 ExplicitTop = 52
ExplicitWidth = 192 ExplicitWidth = 192
end end
inherited ImporteDto: TcxDBCurrencyEdit inherited ImporteDto: TcxDBCurrencyEdit
Left = 163 Left = 163
Top = 111 Top = 37
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 163 ExplicitLeft = 163
ExplicitTop = 111 ExplicitTop = 37
ExplicitWidth = 93 ExplicitWidth = 93
Width = 93 Width = 93
end end
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Left = 553 Left = 553
Top = 37 Top = 87
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 553 ExplicitLeft = 553
ExplicitTop = 37 ExplicitTop = 87
ExplicitWidth = 137 ExplicitWidth = 137
Width = 137 Width = 137
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 483 Left = 483
Top = 111 Top = 141
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 483 ExplicitLeft = 483
ExplicitTop = 111 ExplicitTop = 141
ExplicitWidth = 137 ExplicitWidth = 137
Width = 137 Width = 137
end end
inherited edtDescuento: TcxDBSpinEdit inherited edtDescuento: TcxDBSpinEdit
Left = 92 Left = 92
Top = 111 Top = 37
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 92 ExplicitLeft = 92
ExplicitTop = 111 ExplicitTop = 37
end end
inherited edtIVA: TcxDBSpinEdit inherited edtIVA: TcxDBSpinEdit
Left = 482 Left = 482
Top = 37 Top = 87
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 482 ExplicitLeft = 482
ExplicitTop = 37 ExplicitTop = 87
end end
inherited ImporteBase: TcxDBCurrencyEdit inherited ImporteBase: TcxDBCurrencyEdit
Left = 482 Left = 482
Top = 10 Top = 10
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 482 ExplicitLeft = 482
ExplicitTop = 10 ExplicitTop = 10
ExplicitWidth = 92 ExplicitWidth = 92
@ -435,19 +454,27 @@ inherited fEditorComision: TfEditorComision
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Left = 482 Left = 482
Top = 64 Top = 114
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 482 ExplicitLeft = 482
ExplicitTop = 64 ExplicitTop = 114
end end
inherited ImporteRE: TcxDBCurrencyEdit inherited ImporteRE: TcxDBCurrencyEdit
Left = 553 Left = 553
Top = 64 Top = 114
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 553 ExplicitLeft = 553
ExplicitTop = 64 ExplicitTop = 114
ExplicitWidth = 56 ExplicitWidth = 56
Width = 56 Width = 56
end end
@ -455,7 +482,11 @@ inherited fEditorComision: TfEditorComision
Left = 92 Left = 92
Top = 10 Top = 10
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 92 ExplicitLeft = 92
ExplicitTop = 10 ExplicitTop = 10
ExplicitWidth = 147 ExplicitWidth = 147
@ -463,35 +494,47 @@ inherited fEditorComision: TfEditorComision
end end
inherited ePorte: TcxDBCurrencyEdit inherited ePorte: TcxDBCurrencyEdit
Left = 92 Left = 92
Top = 138 Top = 64
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 92 ExplicitLeft = 92
ExplicitTop = 138 ExplicitTop = 64
ExplicitWidth = 147 ExplicitWidth = 147
Width = 147 Width = 147
end end
inherited eIVA: TcxDBLookupComboBox inherited eIVA: TcxDBLookupComboBox
Left = 92 Left = 92
Top = 37 Top = 91
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 92 ExplicitLeft = 92
ExplicitTop = 37 ExplicitTop = 91
ExplicitWidth = 81 ExplicitWidth = 81
Width = 81 Width = 81
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 222 Left = 222
Top = 37 Top = 91
ExplicitLeft = 222 ExplicitLeft = 222
ExplicitTop = 37 ExplicitTop = 91
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited cbRecargoEquivalencia: TcxDBCheckBox
Left = 92 Left = 92
Top = 64 Top = 118
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 92 ExplicitLeft = 92
ExplicitTop = 64 ExplicitTop = 118
ExplicitWidth = 219 ExplicitWidth = 219
Width = 219 Width = 219
end end
@ -507,8 +550,13 @@ inherited fEditorComision: TfEditorComision
Visible = False Visible = False
end end
inherited dxLayoutControl1Group3: TdxLayoutGroup inherited dxLayoutControl1Group3: TdxLayoutGroup
inherited dxLayoutControl1Item12: TdxLayoutItem inherited dxLayoutControl1Group11: TdxLayoutGroup
Visible = False inherited dxLayoutControl1Item12: TdxLayoutItem
Visible = False
end
inherited dxLayoutControl1Item14: TdxLayoutItem
Visible = False
end
end end
inherited dxLayoutControl1Group9: TdxLayoutGroup inherited dxLayoutControl1Group9: TdxLayoutGroup
Visible = False Visible = False
@ -516,20 +564,20 @@ inherited fEditorComision: TfEditorComision
inherited dxLayoutControl1Group8: TdxLayoutGroup inherited dxLayoutControl1Group8: TdxLayoutGroup
Visible = False Visible = False
end end
inherited dxLayoutControl1Item14: TdxLayoutItem
Visible = False
end
end end
end end
end end
end end
end end
end end
inherited EditorActionList: TActionList [5] inherited PnlComentario: TPanel [5]
Left = 96 Width = 747
Top = 168 inherited lbComentario: TLabel
Width = 737
Height = 25
end
end end
inherited SmallImages: TPngImageList [6] inherited SmallImages: TPngImageList
PngImages = < PngImages = <
item item
PngImage.Data = { PngImage.Data = {
@ -1872,10 +1920,14 @@ inherited fEditorComision: TfEditorComision
Left = 528 Left = 528
Top = 32 Top = 32
end end
inherited JvAppRegistryStorage: TJvAppRegistryStorage [10] inherited JvAppRegistryStorage: TJvAppRegistryStorage
Left = 560 Left = 560
Top = 32 Top = 32
end end
inherited EditorActionList: TActionList [11]
Left = 96
Top = 168
end
inherited StatusBarImages: TPngImageList inherited StatusBarImages: TPngImageList
Left = 120 Left = 120
Top = 112 Top = 112

2
Source/Modulos/Pedidos a proveedor/Views/uEditorDireccionEntregaPedidoProveedor.pas
View File

@ -5,7 +5,7 @@ interface
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, ExtCtrls, Mask, DBCtrls, DB, uDADataTable, Buttons, ExtCtrls, Mask, DBCtrls, DB, uDADataTable,
cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit, cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit,
uIEditorDireccionEntregaPedidoProveedor, uBizPedidosProveedor; uIEditorDireccionEntregaPedidoProveedor, uBizPedidosProveedor, uDAInterfaces;
type type
TfEditorDireccionEntregaPedidoProveedor = class(TForm, IEditorDireccionEntregaPedidoProveedor) TfEditorDireccionEntregaPedidoProveedor = class(TForm, IEditorDireccionEntregaPedidoProveedor)

3
Source/Modulos/Pedidos a proveedor/Views/uEditorElegirArticulosPedidoProveedor.pas
View File

@ -9,7 +9,8 @@ uses
StdActns, ActnList, uCustomView, uViewBase, uViewBarraSeleccion, ComCtrls, StdActns, ActnList, uCustomView, uViewBase, uViewBarraSeleccion, ComCtrls,
JvExComCtrls, JvStatusBar, TBX, TB2ExtItems, TBXExtItems, TB2Item, TB2Dock, JvExComCtrls, JvStatusBar, TBX, TB2ExtItems, TBXExtItems, TB2Item, TB2Dock,
TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent, JvNavigationPane, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent, JvNavigationPane,
JvgWizardHeader, uIEditorElegirArticulosPedidosProveedor, uBizContactos; JvgWizardHeader, uIEditorElegirArticulosPedidosProveedor, uBizContactos,
uDAInterfaces;
type type
TfEditorElegirArticulosPedidoProveedor = class(TfEditorElegirArticulos, IEditorElegirArticulosPedidosProveedor) TfEditorElegirArticulosPedidoProveedor = class(TfEditorElegirArticulos, IEditorElegirArticulosPedidosProveedor)

22
Source/Modulos/Pedidos a proveedor/Views/uEditorElegirPedidosProveedor.dfm
View File

@ -53,7 +53,7 @@ inherited fEditorElegirPedidosProveedor: TfEditorElegirPedidosProveedor
ExplicitWidth = 656 ExplicitWidth = 656
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
Align = alRight Align = alRight
ExplicitWidth = 126 ExplicitWidth = 269
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
Visible = False Visible = False
end end
@ -71,11 +71,11 @@ inherited fEditorElegirPedidosProveedor: TfEditorElegirPedidosProveedor
end end
end end
inherited tbxFiltro: TTBXToolbar inherited tbxFiltro: TTBXToolbar
Left = 126 Left = 269
Top = 23 Top = 23
DockPos = 115 DockPos = 115
DockRow = 1 DockRow = 1
ExplicitLeft = 126 ExplicitLeft = 269
ExplicitTop = 23 ExplicitTop = 23
inherited TBXItem34: TTBXItem inherited TBXItem34: TTBXItem
Action = actQuitarFiltro2 Action = actQuitarFiltro2
@ -174,7 +174,23 @@ inherited fEditorElegirPedidosProveedor: TfEditorElegirPedidosProveedor
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 656 Width = 656
ExplicitWidth = 656 ExplicitWidth = 656
inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 404 ExplicitWidth = 404
Width = 404 Width = 404
end end

2
Source/Modulos/Pedidos a proveedor/Views/uEditorElegirPedidosProveedor.pas
View File

@ -12,7 +12,7 @@ uses
JvNavigationPane, uViewBarraSeleccion, JvgWizardHeader, StdCtrls, JvNavigationPane, uViewBarraSeleccion, JvgWizardHeader, StdCtrls,
uBizPedidosProveedor, uIEditorElegirPedidosProveedor, uBizPedidosProveedor, uIEditorElegirPedidosProveedor,
JvExComCtrls, JvStatusBar, uEditorPedidosProveedor, uViewPedidosProveedor, JvExComCtrls, JvStatusBar, uEditorPedidosProveedor, uViewPedidosProveedor,
JSDialog; JSDialog, uDAInterfaces;
type type
TfEditorElegirPedidosProveedor = class(TfEditorPedidosProveedor, IEditorElegirPedidosProveedor) TfEditorElegirPedidosProveedor = class(TfEditorPedidosProveedor, IEditorElegirPedidosProveedor)

7
Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedorReport.dfm
View File

@ -1,12 +1,5 @@
inherited fEditorPedidosProveedorPreview: TfEditorPedidosProveedorPreview inherited fEditorPedidosProveedorPreview: TfEditorPedidosProveedorPreview
Caption = 'Previsualizar el pedidos proveedor' Caption = 'Previsualizar el pedidos proveedor'
ExplicitWidth = 320
ExplicitHeight = 240
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited frxReport1: TfrxReport
Datasets = <>
Variables = <>
Style = <>
end
end end

3
Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedorReport.pas
View File

@ -9,7 +9,8 @@ uses
TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage,
ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uIEditorPedidosProveedorPreview, ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uIEditorPedidosProveedorPreview,
JvExComCtrls, JvStatusBar, frxExportImage, frxExportPDF, frxDCtrl, frxClass, JvExComCtrls, JvStatusBar, frxExportImage, frxExportPDF, frxDCtrl, frxClass,
frxDMPExport, frxGradient, frxChBox, frxCross, frxRich, frxOLE, frxBarcode; frxDMPExport, frxGradient, frxChBox, frxCross, frxRich, frxOLE, frxBarcode,
frxExportText, frxExportRTF, frxExportMail, frxExportXLS;
type type
TfEditorPedidosProveedorPreview = class(TfEditorPreview, IEditorPedidosProveedorPreview) TfEditorPedidosProveedorPreview = class(TfEditorPreview, IEditorPedidosProveedorPreview)

19
Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj
View File

@ -43,8 +43,6 @@
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl">Intraweb 8.0 Design Package for Borland Development Studio 2006</Excluded_Packages> <Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl">Intraweb 8.0 Design Package for Borland Development Studio 2006</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">PresupuestosCliente_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">PresupuestosCliente_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
@ -53,14 +51,13 @@
<DelphiCompile Include="PresupuestosCliente_view.dpk"> <DelphiCompile Include="PresupuestosCliente_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="Articulos_view.dcp" /> <DCCReference Include="..\Articulos_view.dcp" />
<DCCReference Include="Base.dcp" /> <DCCReference Include="..\Base.dcp" />
<DCCReference Include="Contactos_controller.dcp" /> <DCCReference Include="..\Contactos_controller.dcp" />
<DCCReference Include="GestorInformes_view.dcp" /> <DCCReference Include="..\GestorInformes_view.dcp" />
<DCCReference Include="GestorInformes_viewcontainsuPresupuestosClienteViewRegisterin.dcp" /> <DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="GUIBase.dcp" /> <DCCReference Include="..\PresupuestosCliente_controller.dcp" />
<DCCReference Include="PresupuestosCliente_controller.dcp" /> <DCCReference Include="..\PresupuestosCliente_model.dcp" />
<DCCReference Include="PresupuestosCliente_model.dcp" />
<DCCReference Include="uEditorElegirArticulosPresupuestoCliente.pas"> <DCCReference Include="uEditorElegirArticulosPresupuestoCliente.pas">
<Form>fEditorElegirArticulosPresupuestoCliente</Form> <Form>fEditorElegirArticulosPresupuestoCliente</Form>
<DesignClass>TfEditorElegirArticulosPedidoCliente</DesignClass> <DesignClass>TfEditorElegirArticulosPedidoCliente</DesignClass>
@ -83,7 +80,7 @@
</DCCReference> </DCCReference>
<DCCReference Include="uPresupuestosClienteViewRegister.pas" /> <DCCReference Include="uPresupuestosClienteViewRegister.pas" />
<DCCReference Include="uViewDatosYSeleccionClientePresupuesto.pas"> <DCCReference Include="uViewDatosYSeleccionClientePresupuesto.pas">
<Form>fruViewDatosYSeleccionClientePresupuesto</Form> <Form>frViewDatosYSeleccionClientePresupuesto</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uViewDetallesPresupuestoCliente.pas"> <DCCReference Include="uViewDetallesPresupuestoCliente.pas">

228
Source/Modulos/Remesas de cliente/Views/uEditorRemesaCliente.dfm
View File

@ -99,19 +99,28 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
end end
end end
end end
inherited StatusBar: TJvStatusBar
Top = 708
Width = 724
Panels = <
item
Width = 200
end>
ExplicitTop = 708
ExplicitWidth = 724
end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 718 Width = 718
Height = 580 Height = 550
MultiLine = True MultiLine = True
ExplicitLeft = 3 ExplicitTop = 109
ExplicitTop = 79
ExplicitWidth = 718 ExplicitWidth = 718
ExplicitHeight = 580 ExplicitHeight = 550
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 710 ExplicitWidth = 710
ExplicitHeight = 552 ExplicitHeight = 522
inline frViewRemesaCliente1: TfrViewRemesaCliente inline frViewRemesaCliente1: TfrViewRemesaCliente
Left = 0 Left = 0
Top = 0 Top = 0
@ -138,24 +147,44 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
710 710
220) 220)
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 326 ExplicitWidth = 326
Width = 326 Width = 326
end end
inherited eDescripcion: TcxDBTextEdit inherited eDescripcion: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 540 ExplicitWidth = 540
Width = 540 Width = 540
end end
inherited edtFechaRemesa: TcxDBDateEdit inherited edtFechaRemesa: TcxDBDateEdit
Left = 521 Left = 521
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 521 ExplicitLeft = 521
ExplicitWidth = 170 ExplicitWidth = 170
Width = 170 Width = 170
end end
inherited cbCuentaBancaria: TcxDBLookupComboBox inherited cbCuentaBancaria: TcxDBLookupComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 39 ExplicitWidth = 39
Width = 39 Width = 39
end end
inherited cbTipo: TcxDBImageComboBox inherited cbTipo: TcxDBImageComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end
@ -165,11 +194,19 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 429 Width = 429
inherited cbSubCuentas: TcxComboBox inherited cbSubCuentas: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 376 ExplicitWidth = 376
Width = 376 Width = 376
end end
inherited eContabilizar: TcxCheckBox inherited eContabilizar: TcxCheckBox
Left = 453 Left = 453
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 453 ExplicitLeft = 453
ExplicitWidth = 203 ExplicitWidth = 203
Width = 203 Width = 203
@ -189,7 +226,7 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
Left = 0 Left = 0
Top = 210 Top = 210
Width = 710 Width = 710
Height = 342 Height = 312
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -204,14 +241,14 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
ReadOnly = False ReadOnly = False
ExplicitTop = 210 ExplicitTop = 210
ExplicitWidth = 710 ExplicitWidth = 710
ExplicitHeight = 342 ExplicitHeight = 312
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Left = 15 Left = 15
Width = 680 Width = 680
Height = 302 Height = 272
ExplicitLeft = 15 ExplicitLeft = 15
ExplicitWidth = 680 ExplicitWidth = 680
ExplicitHeight = 302 ExplicitHeight = 272
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
@ -239,16 +276,6 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
end end
end end
end end
inherited StatusBar: TJvStatusBar
Top = 708
Width = 724
Panels = <
item
Width = 200
end>
ExplicitTop = 708
ExplicitWidth = 724
end
inline frViewTotales1: TfrViewTotales [4] inline frViewTotales1: TfrViewTotales [4]
Left = 0 Left = 0
Top = 662 Top = 662
@ -261,7 +288,7 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 4 TabOrder = 5
ReadOnly = False ReadOnly = False
ExplicitTop = 662 ExplicitTop = 662
ExplicitWidth = 724 ExplicitWidth = 724
@ -269,14 +296,6 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 724 Width = 724
ExplicitWidth = 724 ExplicitWidth = 724
inherited Bevel1: TBevel
Left = 92
Top = 91
Width = 73
ExplicitLeft = 92
ExplicitTop = 91
ExplicitWidth = 73
end
inherited Bevel3: TBevel inherited Bevel3: TBevel
Left = 359 Left = 359
Top = 10 Top = 10
@ -287,62 +306,86 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
end end
inherited Bevel4: TBevel inherited Bevel4: TBevel
Left = 471 Left = 471
Top = 91 Top = 52
Width = 192 Width = 192
ExplicitLeft = 471 ExplicitLeft = 471
ExplicitTop = 91 ExplicitTop = 52
ExplicitWidth = 192 ExplicitWidth = 192
end end
inherited ImporteDto: TcxDBCurrencyEdit inherited ImporteDto: TcxDBCurrencyEdit
Left = 163 Left = 163
Top = 111 Top = 37
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 163 ExplicitLeft = 163
ExplicitTop = 111 ExplicitTop = 37
ExplicitWidth = 93 ExplicitWidth = 93
Width = 93 Width = 93
end end
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Left = 542 Left = 542
Top = 37 Top = 87
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 542 ExplicitLeft = 542
ExplicitTop = 37 ExplicitTop = 87
ExplicitWidth = 137 ExplicitWidth = 137
Width = 137 Width = 137
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 472 Left = 472
Top = 111 Top = 141
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 472 ExplicitLeft = 472
ExplicitTop = 111 ExplicitTop = 141
ExplicitWidth = 137 ExplicitWidth = 137
Width = 137 Width = 137
end end
inherited edtDescuento: TcxDBSpinEdit inherited edtDescuento: TcxDBSpinEdit
Left = 92 Left = 92
Top = 111 Top = 37
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 92 ExplicitLeft = 92
ExplicitTop = 111 ExplicitTop = 37
end end
inherited edtIVA: TcxDBSpinEdit inherited edtIVA: TcxDBSpinEdit
Left = 471 Left = 471
Top = 37 Top = 87
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 471 ExplicitLeft = 471
ExplicitTop = 37 ExplicitTop = 87
end end
inherited ImporteBase: TcxDBCurrencyEdit inherited ImporteBase: TcxDBCurrencyEdit
Left = 471 Left = 471
Top = 10 Top = 10
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 471 ExplicitLeft = 471
ExplicitTop = 10 ExplicitTop = 10
ExplicitWidth = 92 ExplicitWidth = 92
@ -350,19 +393,27 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Left = 471 Left = 471
Top = 64 Top = 114
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 471 ExplicitLeft = 471
ExplicitTop = 64 ExplicitTop = 114
end end
inherited ImporteRE: TcxDBCurrencyEdit inherited ImporteRE: TcxDBCurrencyEdit
Left = 542 Left = 542
Top = 64 Top = 114
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 542 ExplicitLeft = 542
ExplicitTop = 64 ExplicitTop = 114
ExplicitWidth = 56 ExplicitWidth = 56
Width = 56 Width = 56
end end
@ -370,7 +421,11 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
Left = 92 Left = 92
Top = 10 Top = 10
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 92 ExplicitLeft = 92
ExplicitTop = 10 ExplicitTop = 10
ExplicitWidth = 147 ExplicitWidth = 147
@ -378,35 +433,47 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
end end
inherited ePorte: TcxDBCurrencyEdit inherited ePorte: TcxDBCurrencyEdit
Left = 92 Left = 92
Top = 138 Top = 64
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 92 ExplicitLeft = 92
ExplicitTop = 138 ExplicitTop = 64
ExplicitWidth = 147 ExplicitWidth = 147
Width = 147 Width = 147
end end
inherited eIVA: TcxDBLookupComboBox inherited eIVA: TcxDBLookupComboBox
Left = 92 Left = 92
Top = 37 Top = 91
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 92 ExplicitLeft = 92
ExplicitTop = 37 ExplicitTop = 91
ExplicitWidth = 81 ExplicitWidth = 81
Width = 81 Width = 81
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 211 Left = 211
Top = 37 Top = 91
ExplicitLeft = 211 ExplicitLeft = 211
ExplicitTop = 37 ExplicitTop = 91
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited cbRecargoEquivalencia: TcxDBCheckBox
Left = 92 Left = 92
Top = 64 Top = 118
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 92 ExplicitLeft = 92
ExplicitTop = 64 ExplicitTop = 118
ExplicitWidth = 219 ExplicitWidth = 219
Width = 219 Width = 219
end end
@ -422,8 +489,13 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
Visible = False Visible = False
end end
inherited dxLayoutControl1Group3: TdxLayoutGroup inherited dxLayoutControl1Group3: TdxLayoutGroup
inherited dxLayoutControl1Item12: TdxLayoutItem inherited dxLayoutControl1Group11: TdxLayoutGroup
Visible = False inherited dxLayoutControl1Item12: TdxLayoutItem
Visible = False
end
inherited dxLayoutControl1Item14: TdxLayoutItem
Visible = False
end
end end
inherited dxLayoutControl1Group9: TdxLayoutGroup inherited dxLayoutControl1Group9: TdxLayoutGroup
Visible = False Visible = False
@ -431,35 +503,20 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
inherited dxLayoutControl1Group8: TdxLayoutGroup inherited dxLayoutControl1Group8: TdxLayoutGroup
Visible = False Visible = False
end end
inherited dxLayoutControl1Item14: TdxLayoutItem
Visible = False
end
end end
end end
end end
end end
end end
end end
inherited EditorActionList: TActionList [5] inherited PnlComentario: TPanel [5]
Left = 96 Width = 724
Top = 168 inherited lbComentario: TLabel
inherited actPrevisualizar: TAction Width = 714
Enabled = False Height = 25
Visible = False
end
inherited actImprimir: TAction
Enabled = False
Visible = False
end
object actVolcarDisco: TAction
Category = 'Acciones'
Caption = 'Volcar a disco...'
ImageIndex = 22
OnExecute = actVolcarDiscoExecute
OnUpdate = actVolcarDiscoUpdate
end end
end end
inherited SmallImages: TPngImageList [6] inherited SmallImages: TPngImageList
PngImages = < PngImages = <
item item
PngImage.Data = { PngImage.Data = {
@ -1802,10 +1859,29 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
Left = 528 Left = 528
Top = 32 Top = 32
end end
inherited JvAppRegistryStorage: TJvAppRegistryStorage [10] inherited JvAppRegistryStorage: TJvAppRegistryStorage
Left = 560 Left = 560
Top = 32 Top = 32
end end
inherited EditorActionList: TActionList [11]
Left = 96
Top = 168
inherited actPrevisualizar: TAction
Enabled = False
Visible = False
end
inherited actImprimir: TAction
Enabled = False
Visible = False
end
object actVolcarDisco: TAction
Category = 'Acciones'
Caption = 'Volcar a disco...'
ImageIndex = 22
OnExecute = actVolcarDiscoExecute
OnUpdate = actVolcarDiscoUpdate
end
end
inherited StatusBarImages: TPngImageList inherited StatusBarImages: TPngImageList
Left = 120 Left = 120
Top = 112 Top = 112

7
Source/Modulos/Remesas de cliente/Views/uEditorRemesaClienteReport.dfm
View File

@ -1,12 +1,5 @@
inherited fEditorRemesaClientePreview: TfEditorRemesaClientePreview inherited fEditorRemesaClientePreview: TfEditorRemesaClientePreview
Caption = 'Previsualizar la remesa' Caption = 'Previsualizar la remesa'
ExplicitWidth = 660
ExplicitHeight = 494
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited frxReport1: TfrxReport
Datasets = <>
Variables = <>
Style = <>
end
end end

3
Source/Modulos/Remesas de cliente/Views/uEditorRemesaClienteReport.pas
View File

@ -10,7 +10,8 @@ uses
JvFormPlacement, ImgList, PngImageList, StdActns, ActnList, ComCtrls, JvFormPlacement, ImgList, PngImageList, StdActns, ActnList, ComCtrls,
TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage,
ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uIEditorRemesasClientePreview, ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uIEditorRemesasClientePreview,
JvExComCtrls, JvStatusBar; JvExComCtrls, JvStatusBar, frxExportText, frxExportRTF, frxExportMail,
frxExportXLS;
type type
TfEditorRemesaClientePreview = class(TfEditorPreview, IEditorRemesasClientePreview) TfEditorRemesaClientePreview = class(TfEditorPreview, IEditorRemesasClientePreview)

1246
Source/Modulos/Remesas de proveedor/Views/uEditorRemesaProveedor.dfm
View File

File diff suppressed because it is too large Load Diff

3
Source/Modulos/Remesas de proveedor/Views/uEditorRemesaProveedor.pas
View File

@ -112,9 +112,6 @@ end;
procedure TfEditorRemesaProveedor.GuardarInterno; procedure TfEditorRemesaProveedor.GuardarInterno;
var var
bEsNuevo : Boolean; bEsNuevo : Boolean;
AIgnorarContabilidad: Integer;
ASubCuenta: Integer;
begin begin
inherited; inherited;
bEsNuevo := False; bEsNuevo := False;

5
Source/Modulos/Remesas de proveedor/Views/uEditorRemesaProveedorReport.dfm
View File

@ -2,9 +2,4 @@ inherited fEditorRemesaProveedorPreview: TfEditorRemesaProveedorPreview
Caption = 'Previsualizar la remesa' Caption = 'Previsualizar la remesa'
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited frxReport1: TfrxReport
Datasets = <>
Variables = <>
Style = <>
end
end end

3
Source/Modulos/Remesas de proveedor/Views/uEditorRemesaProveedorReport.pas
View File

@ -10,7 +10,8 @@ uses
JvFormPlacement, ImgList, PngImageList, StdActns, ActnList, ComCtrls, JvFormPlacement, ImgList, PngImageList, StdActns, ActnList, ComCtrls,
TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage,
ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uIEditorRemesasProveedorPreview, ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uIEditorRemesasProveedorPreview,
JvExComCtrls, JvStatusBar; JvExComCtrls, JvStatusBar, frxExportText, frxExportRTF, frxExportMail,
frxExportXLS;
type type
TfEditorRemesaProveedorPreview = class(TfEditorPreview, IEditorRemesasProveedorPreview) TfEditorRemesaProveedorPreview = class(TfEditorPreview, IEditorRemesasProveedorPreview)

3
Source/Modulos/Remesas de proveedor/Views/uEditorRemesasProveedor.dfm
View File

@ -4,6 +4,7 @@ inherited fEditorRemesasProveedor: TfEditorRemesasProveedor
Caption = 'Lista de remesas de pago' Caption = 'Lista de remesas de pago'
ClientWidth = 820 ClientWidth = 820
ExplicitWidth = 828 ExplicitWidth = 828
ExplicitHeight = 240
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -43,7 +44,7 @@ inherited fEditorRemesasProveedor: TfEditorRemesasProveedor
Width = 820 Width = 820
ExplicitWidth = 820 ExplicitWidth = 820
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 403 ExplicitWidth = 546
object TBXSeparatorItem17: TTBXSeparatorItem [12] object TBXSeparatorItem17: TTBXSeparatorItem [12]
end end
end end

1
Source/Modulos/Remesas de proveedor/Views/uEditorRemesasProveedor.pas
View File

@ -221,7 +221,6 @@ end;
procedure TfEditorRemesasProveedor.EliminarInterno; procedure TfEditorRemesasProveedor.EliminarInterno;
var var
ACadena : String;
ARemesas: IBizRemesaProveedor; ARemesas: IBizRemesaProveedor;
AllItems: Boolean; AllItems: Boolean;
begin begin

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

2
Source/Servidor/FactuGES_Server.rc
View File

@ -16,7 +16,7 @@ BEGIN
VALUE "FileVersion", "2.2.9.0\0" VALUE "FileVersion", "2.2.9.0\0"
VALUE "ProductName", "FactuGES (Servidor)\0" VALUE "ProductName", "FactuGES (Servidor)\0"
VALUE "ProductVersion", "2.2.9.0\0" VALUE "ProductVersion", "2.2.9.0\0"
VALUE "CompileDate", "jueves, 19 de febrero de 2009 15:17\0" VALUE "CompileDate", "martes, 03 de marzo de 2009 16:40\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"