Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Se adaptan los detalles para poderse exportar a excel

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@774 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2008-11-13 17:21:01 +00:00
parent 262f503bd4
commit 7a92c22990
19 changed files with 500 additions and 411 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
Source/GUIBase/GUIBase.dproj
View File

@ -59,30 +59,30 @@
<DelphiCompile Include="GUIBase.dpk"> <DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Obras\Base.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Base.dcp" />
<DCCReference Include="..\Modulos\Obras\cxLibraryD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Obras\cxTreeListD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\cxTreeListD11.dcp" />
<DCCReference Include="..\Modulos\Obras\dbrtl.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Obras\dxBarD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\dxBarD11.dcp" />
<DCCReference Include="..\Modulos\Obras\dxBarExtItemsD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\dxBarExtItemsD11.dcp" />
<DCCReference Include="..\Modulos\Obras\dxComnD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\dxComnD11.dcp" />
<DCCReference Include="..\Modulos\Obras\dxGDIPlusD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Obras\dxLayoutControlD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Obras\dxPSCoreD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Obras\dxPScxCommonD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Obras\dxPScxGrid6LnkD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Obras\dxPsPrVwAdvD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\dxPsPrVwAdvD11.dcp" />
<DCCReference Include="..\Modulos\Obras\dxThemeD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Obras\frx11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\frx11.dcp" />
<DCCReference Include="..\Modulos\Obras\frxe11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\frxe11.dcp" />
<DCCReference Include="..\Modulos\Obras\fs11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\fs11.dcp" />
<DCCReference Include="..\Modulos\Obras\JvAppFrmD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Obras\JvCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Obras\rtl.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Obras\vcl.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Obras\vcldb.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Obras\vcljpg.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Obras\vclx.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\vclx.dcp" />
<DCCReference Include="uDialogBase.pas"> <DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form> <Form>fDialogBase</Form>
</DCCReference> </DCCReference>

15
Source/GUIBase/uViewDetallesBase.dfm
View File

@ -1,5 +1,5 @@
inherited frViewDetallesBase: TfrViewDetallesBase inherited frViewDetallesBase: TfrViewDetallesBase
Width = 451 Width = 586
Height = 304 Height = 304
Align = alClient Align = alClient
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
@ -9,7 +9,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 451 Width = 586
Height = 73 Height = 73
AutoSize = True AutoSize = True
ButtonWidth = 141 ButtonWidth = 141
@ -25,6 +25,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
TabOrder = 0 TabOrder = 0
Transparent = True Transparent = True
Visible = False Visible = False
ExplicitWidth = 451
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -149,7 +150,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
object cxGrid: TcxGrid object cxGrid: TcxGrid
Left = 0 Left = 0
Top = 99 Top = 99
Width = 451 Width = 586
Height = 205 Height = 205
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -161,6 +162,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
TabOrder = 1 TabOrder = 1
LookAndFeel.Kind = lfStandard LookAndFeel.Kind = lfStandard
LookAndFeel.NativeStyle = True LookAndFeel.NativeStyle = True
ExplicitWidth = 451
object cxGridView: TcxGridDBTableView object cxGridView: TcxGridDBTableView
OnKeyDown = cxGridViewKeyDown OnKeyDown = cxGridViewKeyDown
NavigatorButtons.ConfirmDelete = False NavigatorButtons.ConfirmDelete = False
@ -344,10 +346,11 @@ inherited frViewDetallesBase: TfrViewDetallesBase
object TBXDock1: TTBXDock object TBXDock1: TTBXDock
Left = 0 Left = 0
Top = 73 Top = 73
Width = 451 Width = 586
Height = 26 Height = 26
BackgroundOnToolbars = False BackgroundOnToolbars = False
UseParentBackground = True UseParentBackground = True
ExplicitWidth = 451
object TBXToolbar1: TTBXToolbar object TBXToolbar1: TTBXToolbar
Left = 0 Left = 0
Top = 0 Top = 0
@ -433,6 +436,9 @@ inherited frViewDetallesBase: TfrViewDetallesBase
Action = actAnchoAutomatico Action = actAnchoAutomatico
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
end end
object TBXItem17: TTBXItem
Action = actExportar
end
end end
end end
object ActionListContenido: TActionList object ActionListContenido: TActionList
@ -586,6 +592,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
object actExportar: TAction object actExportar: TAction
Category = 'Editar' Category = 'Editar'
Caption = 'Exportar a Microsoft Excel' Caption = 'Exportar a Microsoft Excel'
OnExecute = actExportarExecute
end end
object actSeleccionarTodo: TAction object actSeleccionarTodo: TAction
Category = 'Editar' Category = 'Editar'

14
Source/GUIBase/uViewDetallesBase.pas
View File

@ -145,6 +145,7 @@ type
actSeleccionarTodo: TAction; actSeleccionarTodo: TAction;
Seleccionartodo1: TMenuItem; Seleccionartodo1: TMenuItem;
cxStyle_TITULO_OPCIONAL: TcxStyle; cxStyle_TITULO_OPCIONAL: TcxStyle;
TBXItem17: TTBXItem;
procedure actAnadirExecute(Sender: TObject); procedure actAnadirExecute(Sender: TObject);
procedure actEliminarExecute(Sender: TObject); procedure actEliminarExecute(Sender: TObject);
procedure actSubirExecute(Sender: TObject); procedure actSubirExecute(Sender: TObject);
@ -198,6 +199,7 @@ type
procedure cxGridViewFocusedRecordChanged(Sender: TcxCustomGridTableView; procedure cxGridViewFocusedRecordChanged(Sender: TcxCustomGridTableView;
APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord;
ANewItemRecordFocusingChanged: Boolean); ANewItemRecordFocusingChanged: Boolean);
procedure actExportarExecute(Sender: TObject);
private private
FController : IControllerDetallesBase; FController : IControllerDetallesBase;
@ -252,7 +254,7 @@ implementation
uses uses
uDMBase, uCalculosUtils, dxOffice11, uSistemaFunc, uGridClipboardUtils, uDMBase, uCalculosUtils, dxOffice11, uSistemaFunc, uGridClipboardUtils,
Clipbrd; Clipbrd, cxGridExportLink;
type type
TOnPaste = procedure(Sender: TObject; AText: string) of object; TOnPaste = procedure(Sender: TObject; AText: string) of object;
@ -508,6 +510,16 @@ begin
and (not DADataSource.DataTable.IsEmpty) and (not DADataSource.DataTable.IsEmpty)
end; end;
procedure TfrViewDetallesBase.actExportarExecute(Sender: TObject);
var
AFileName : String;
begin
inherited;
if PreguntarFicheroExcelExportar(AFileName) then
ExportGridToExcel(AFileName, cxGrid);
end;
procedure TfrViewDetallesBase.actSubirUpdate(Sender: TObject); procedure TfrViewDetallesBase.actSubirUpdate(Sender: TObject);
begin begin
inherited; inherited;

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

@ -163,6 +163,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 759 Width = 759
Height = 406 Height = 406
ActivePage = pagContenido
TabOrder = 1 TabOrder = 1
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitWidth = 759 ExplicitWidth = 759
@ -196,27 +197,15 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
ExplicitHeight = 378 ExplicitHeight = 378
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 751 Width = 751
Height = 46 Height = 51
ExplicitWidth = 751 ExplicitWidth = 751
ExplicitHeight = 46 ExplicitHeight = 51
inherited ToolButton3: TToolButton
Wrap = False
end
inherited ToolButton4: TToolButton
Left = 278
Top = 0
Wrap = True
ExplicitLeft = 278
ExplicitTop = 0
end
inherited ToolButton14: TToolButton inherited ToolButton14: TToolButton
Left = 0
Wrap = False Wrap = False
ExplicitLeft = 0
end end
inherited FontName: TJvFontComboBox inherited FontName: TJvFontComboBox
Left = 65 Left = 399
Top = 22 Top = 0
ExplicitLeft = 399 ExplicitLeft = 399
ExplicitTop = 0 ExplicitTop = 0
end end
@ -226,13 +215,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
ExplicitLeft = 544 ExplicitLeft = 544
ExplicitTop = 0 ExplicitTop = 0
end end
inherited UpDown1: TUpDown inherited ToolButton13: TToolButton [7]
Left = 586
Top = 0
ExplicitLeft = 586
ExplicitTop = 0
end
inherited ToolButton13: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
Wrap = True Wrap = True
@ -240,46 +223,54 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
ExplicitTop = 0 ExplicitTop = 0
ExplicitHeight = 27 ExplicitHeight = 27
end end
inherited ToolButton6: TToolButton inherited UpDown1: TUpDown [8]
Left = 0 Left = 0
Top = 27 Top = 27
ExplicitLeft = 0 ExplicitLeft = 0
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton7: TToolButton inherited ToolButton6: TToolButton
Left = 66 Left = 17
Top = 27 Top = 27
ExplicitLeft = 66 ExplicitLeft = 17
ExplicitTop = 27
end
inherited ToolButton7: TToolButton
Left = 83
Top = 27
ExplicitLeft = 83
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton8: TToolButton inherited ToolButton8: TToolButton
Left = 133 Left = 150
Top = 27 Top = 27
ExplicitLeft = 133 ExplicitLeft = 150
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton12: TToolButton inherited ToolButton12: TToolButton
Left = 216 Left = 233
Top = 27 Top = 27
ExplicitLeft = 216 Wrap = False
ExplicitLeft = 233
ExplicitTop = 27 ExplicitTop = 27
ExplicitHeight = 22
end end
inherited ToolButton9: TToolButton inherited ToolButton9: TToolButton
Left = 224 Left = 241
Top = 27 Top = 27
ExplicitLeft = 224 ExplicitLeft = 241
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton10: TToolButton inherited ToolButton10: TToolButton
Left = 369 Left = 386
Top = 27 Top = 27
ExplicitLeft = 369 ExplicitLeft = 386
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton11: TToolButton inherited ToolButton11: TToolButton
Left = 494 Left = 511
Top = 27 Top = 27
ExplicitLeft = 494 ExplicitLeft = 511
ExplicitTop = 27 ExplicitTop = 27
end end
end end
@ -297,7 +288,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
ExplicitTop = 51 ExplicitTop = 51
ExplicitWidth = 751 ExplicitWidth = 751
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 745 ExplicitWidth = 751
end end
end end
inherited cxGridPopupMenu: TcxGridPopupMenu inherited cxGridPopupMenu: TcxGridPopupMenu

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

@ -36,48 +36,18 @@ inherited fEditorAlbaranDevCliente: TfEditorAlbaranDevCliente
end end
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
inherited pagGeneral: TTabSheet
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
end
inherited pagContenido: TTabSheet inherited pagContenido: TTabSheet
inherited frViewDetallesAlbaranCliente1: TfrViewDetallesAlbaranCliente inherited frViewDetallesAlbaranCliente1: TfrViewDetallesAlbaranCliente
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
inherited FontSize: TEdit inherited FontSize: TEdit
Width = 74 Width = 90
ExplicitWidth = 74 ExplicitWidth = 90
end
inherited ToolButton13: TToolButton [7]
end
inherited UpDown1: TUpDown [8]
Left = 0
Top = 27
ExplicitLeft = 0
ExplicitTop = 27
end
inherited ToolButton6: TToolButton
Left = 17
ExplicitLeft = 17
end
inherited ToolButton7: TToolButton
Left = 83
ExplicitLeft = 83
end
inherited ToolButton8: TToolButton
Left = 150
ExplicitLeft = 150
end
inherited ToolButton12: TToolButton
Left = 233
ExplicitLeft = 233
end
inherited ToolButton9: TToolButton
Left = 241
ExplicitLeft = 241
end
inherited ToolButton10: TToolButton
Left = 386
ExplicitLeft = 386
end
inherited ToolButton11: TToolButton
Left = 511
ExplicitLeft = 511
end end
end end
inherited cxGridPopupMenu: TcxGridPopupMenu inherited cxGridPopupMenu: TcxGridPopupMenu
@ -107,87 +77,131 @@ 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 = 351
Height = 54 Height = 54
ExplicitLeft = 331 ExplicitLeft = 351
ExplicitHeight = 54 ExplicitHeight = 54
end end
inherited Bevel4: TBevel inherited Bevel4: TBevel
Left = 447 Left = 467
Width = 285 Width = 285
ExplicitLeft = 447 ExplicitLeft = 467
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 = 151 ExplicitWidth = 151
Width = 151 Width = 151
end end
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Left = 518 Left = 538
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 518 StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 538
ExplicitWidth = 219 ExplicitWidth = 219
Width = 219 Width = 219
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 448 Left = 468
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 448 StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 468
ExplicitWidth = 289 ExplicitWidth = 289
Width = 289 Width = 289
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 = 467
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 447 StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 467
end end
inherited ImporteBase: TcxDBCurrencyEdit inherited ImporteBase: TcxDBCurrencyEdit
Left = 447 Left = 467
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 447 StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 467
ExplicitWidth = 290 ExplicitWidth = 290
Width = 290 Width = 290
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Left = 447 Left = 467
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 447 StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 467
end end
inherited ImporteRE: TcxDBCurrencyEdit inherited ImporteRE: TcxDBCurrencyEdit
Left = 518 Left = 538
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 518 StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 538
ExplicitWidth = 219 ExplicitWidth = 219
Width = 219 Width = 219
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 = 222 ExplicitWidth = 222
Width = 222 Width = 222
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 = 222 ExplicitWidth = 222
Width = 222 Width = 222
end end
inherited eIVA: TcxDBLookupComboBox inherited eIVA: TcxDBLookupComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 84 ExplicitWidth = 84
Width = 84 Width = 84
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 183 Left = 203
ExplicitLeft = 183 ExplicitLeft = 203
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited cbRecargoEquivalencia: TcxDBCheckBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 222 ExplicitWidth = 222
Width = 222 Width = 222
end end

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

@ -11,7 +11,7 @@ uses
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, dxGDIPlusClasses, JvNavigationPane, uIEditorAlbaranDevCliente, uDAInterfaces, dxGDIPlusClasses,
uViewDetallesArticulosParaVenta; uViewDetallesArticulosParaVenta, cxControls, cxContainer, cxEdit, cxLabel;
type type
TfEditorAlbaranDevCliente = class(TfEditorAlbaranCliente, IEditorAlbaranDevCliente) TfEditorAlbaranDevCliente = class(TfEditorAlbaranCliente, IEditorAlbaranDevCliente)

16
Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.dproj
View File

@ -49,14 +49,14 @@
<DelphiCompile Include="AlbaranesProveedor_view.dpk"> <DelphiCompile Include="AlbaranesProveedor_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Pedidos a proveedor\AlbaranesProveedor_controller.dcp" /> <DCCReference Include="..\..\Presupuestos de cliente\AlbaranesProveedor_controller.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\AlbaranesProveedor_model.dcp" /> <DCCReference Include="..\..\Presupuestos de cliente\AlbaranesProveedor_model.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\AlbProv_FacProv_relation.dcp" /> <DCCReference Include="..\..\Presupuestos de cliente\AlbProv_FacProv_relation.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\Almacenes_controller.dcp" /> <DCCReference Include="..\..\Presupuestos de cliente\Almacenes_controller.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\Almacenes_model.dcp" /> <DCCReference Include="..\..\Presupuestos de cliente\Almacenes_model.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\Articulos_view.dcp" /> <DCCReference Include="..\..\Presupuestos de cliente\Articulos_view.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\GUIBase.dcp" /> <DCCReference Include="..\..\Presupuestos de cliente\GUIBase.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\PedProv_AlbProv_relation.dcp" /> <DCCReference Include="..\..\Presupuestos de cliente\PedProv_AlbProv_relation.dcp" />
<DCCReference Include="uAlbaranesProveedorViewRegister.pas" /> <DCCReference Include="uAlbaranesProveedorViewRegister.pas" />
<DCCReference Include="uEditorAlbaranDevProveedor.pas"> <DCCReference Include="uEditorAlbaranDevProveedor.pas">
<Form>fEditorAlbaranDevProveedor</Form> <Form>fEditorAlbaranDevProveedor</Form>

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

@ -1,5 +1,7 @@
inherited fEditorAlbaranDevProveedor: TfEditorAlbaranDevProveedor inherited fEditorAlbaranDevProveedor: TfEditorAlbaranDevProveedor
Caption = 'Nueva orden de devoluci'#243'n de proveedor' Caption = 'Nueva orden de devoluci'#243'n de proveedor'
ExplicitWidth = 320
ExplicitHeight = 240
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -36,52 +38,44 @@ 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 pagContenido: TTabSheet inherited pagContenido: TTabSheet
inherited frViewDetallesAlbaranProveedor1: TfrViewDetallesAlbaranProveedor inherited frViewDetallesAlbaranProveedor1: TfrViewDetallesAlbaranProveedor
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
inherited UpDown1: TUpDown [7] inherited FontSize: TEdit [1]
Left = 602 Left = 109
Top = 0 ExplicitLeft = 109
ExplicitLeft = 602
ExplicitTop = 0
end end
inherited ToolButton13: TToolButton [8] inherited UpDown1: TUpDown [2]
Left = 199
ExplicitLeft = 199
end end
inherited ToolButton11: TToolButton inherited ToolButton2: TToolButton [3]
Left = 0 Left = 216
ExplicitLeft = 0
end end
inherited ToolButton12: TToolButton inherited ToolButton3: TToolButton [4]
Left = 141 Left = 330
ExplicitLeft = 141 Wrap = False
end end
inherited ToolButton9: TToolButton inherited ToolButton14: TToolButton [5]
Left = 149 Left = 385
ExplicitLeft = 149 ExplicitLeft = 385
end end
inherited ToolButton10: TToolButton inherited FontName: TJvFontComboBox [6]
Left = 294 Left = 450
ExplicitLeft = 294 ExplicitLeft = 450
end end
inherited ToolButton6: TToolButton inherited ToolButton4: TToolButton
Left = 419 ExplicitTop = 27
ExplicitLeft = 419
end
inherited ToolButton7: TToolButton
Left = 485
ExplicitLeft = 485
end
inherited ToolButton8: TToolButton
Left = 552
ExplicitLeft = 552
end end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
ExplicitTop = 99 ExplicitTop = 72
ExplicitHeight = 327
end
inherited TBXDock1: TTBXDock
ExplicitTop = 73
end end
inherited cxGridPopupMenu: TcxGridPopupMenu inherited cxGridPopupMenu: TcxGridPopupMenu
PopupMenus = < PopupMenus = <
@ -123,34 +117,86 @@ inherited fEditorAlbaranDevProveedor: TfEditorAlbaranDevProveedor
ExplicitWidth = 21 ExplicitWidth = 21
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 = ''
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 = ''
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 = ''
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 = ''
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 = ''
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 = ''
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 = ''
end
inherited eIVA: TcxDBLookupComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited cbRecargoEquivalencia: TcxDBCheckBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup inherited dxLayoutControl1Group1: TdxLayoutGroup

4
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, dxGDIPlusClasses; uDAInterfaces, dxGDIPlusClasses, cxControls, cxContainer, cxEdit, cxLabel;
type type
TfEditorAlbaranDevProveedor = class(TfEditorAlbaranProveedor, IEditorAlbaranDevProveedor) TfEditorAlbaranDevProveedor = class(TfEditorAlbaranProveedor, IEditorAlbaranDevProveedor)
@ -31,7 +31,7 @@ implementation
{$R *.dfm} {$R *.dfm}
uses uses
cxControls, uDataTableUtils, uDialogUtils, uViewAlbaranDevProveedor; uDataTableUtils, uDialogUtils, uViewAlbaranDevProveedor;
{ TfEditorAlbaranDevProveedor } { TfEditorAlbaranDevProveedor }

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

@ -14,7 +14,7 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
Caption = 'Nuevo albar'#225'n de proveedor' Caption = 'Nuevo albar'#225'n de proveedor'
ExplicitWidth = 765 ExplicitWidth = 765
inherited Image1: TImage inherited Image1: TImage
Left = 738 Left = 632
Picture.Data = { Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
0000180806000000E0773DF80000000970485973000017120000171201679FD2 0000180806000000E0773DF80000000970485973000017120000171201679FD2
@ -124,6 +124,10 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
0000000049454E44AE426082} 0000000049454E44AE426082}
ExplicitLeft = 735 ExplicitLeft = 735
end end
inherited lblDesbloquear: TcxLabel
Left = 667
ExplicitLeft = 667
end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 765 Width = 765
@ -147,7 +151,6 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 759 Width = 759
Height = 454 Height = 454
ActivePage = pagContenido
TabOrder = 1 TabOrder = 1
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitWidth = 759 ExplicitWidth = 759
@ -161,6 +164,10 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
object pagContenido: TTabSheet object pagContenido: TTabSheet
Caption = 'Contenido' Caption = 'Contenido'
ImageIndex = 1 ImageIndex = 1
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewDetallesAlbaranProveedor1: TfrViewDetallesAlbaranProveedor inline frViewDetallesAlbaranProveedor1: TfrViewDetallesAlbaranProveedor
Left = 0 Left = 0
Top = 0 Top = 0
@ -184,34 +191,31 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
Height = 51 Height = 51
ExplicitWidth = 751 ExplicitWidth = 751
ExplicitHeight = 51 ExplicitHeight = 51
inherited ToolButton3: TToolButton inherited ToolButton14: TToolButton [3]
Wrap = False
end
inherited ToolButton4: TToolButton
Left = 278 Left = 278
Top = 0 Top = 0
ExplicitLeft = 278 ExplicitLeft = 278
ExplicitTop = 0 ExplicitTop = 0
end end
inherited ToolButton14: TToolButton [4] inherited FontName: TJvFontComboBox
Left = 334 Left = 343
Top = 0 Top = 0
ExplicitLeft = 334 ExplicitLeft = 343
ExplicitTop = 0 ExplicitTop = 0
end end
inherited FontName: TJvFontComboBox [5] inherited FontSize: TEdit [5]
Left = 399 Left = 488
Top = 0 Top = 0
ExplicitLeft = 399 Width = 90
ExplicitLeft = 488
ExplicitTop = 0 ExplicitTop = 0
ExplicitWidth = 90
end end
inherited FontSize: TEdit inherited UpDown1: TUpDown [6]
Left = 544 Left = 578
Top = 0 Top = 0
Width = 74 ExplicitLeft = 578
ExplicitLeft = 544
ExplicitTop = 0 ExplicitTop = 0
ExplicitWidth = 74
end end
inherited ToolButton13: TToolButton [7] inherited ToolButton13: TToolButton [7]
Left = 0 Left = 0
@ -221,53 +225,52 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
ExplicitTop = 0 ExplicitTop = 0
ExplicitHeight = 27 ExplicitHeight = 27
end end
inherited UpDown1: TUpDown [8] inherited ToolButton4: TToolButton [8]
Left = 0
Top = 27 Top = 27
ExplicitLeft = 0
ExplicitTop = 27
end end
inherited ToolButton6: TToolButton [9] inherited ToolButton6: TToolButton [9]
Left = 17 Left = 56
Top = 27 Top = 27
ExplicitLeft = 17 ExplicitLeft = 56
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton7: TToolButton [10] inherited ToolButton7: TToolButton [10]
Left = 83 Left = 122
Top = 27 Top = 27
ExplicitLeft = 83 Wrap = False
ExplicitLeft = 122
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton8: TToolButton [11] inherited ToolButton8: TToolButton [11]
Left = 150 Left = 189
Top = 27 Top = 27
ExplicitLeft = 150 ExplicitLeft = 189
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton12: TToolButton [12] inherited ToolButton12: TToolButton [12]
Left = 233 Left = 272
Top = 27 Top = 27
ExplicitLeft = 233 Wrap = False
ExplicitLeft = 272
ExplicitTop = 27 ExplicitTop = 27
ExplicitHeight = 22 ExplicitHeight = 22
end end
inherited ToolButton9: TToolButton [13] inherited ToolButton9: TToolButton [13]
Left = 241 Left = 280
Top = 27 Top = 27
ExplicitLeft = 241 ExplicitLeft = 280
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton10: TToolButton [14] inherited ToolButton10: TToolButton [14]
Left = 386 Left = 425
Top = 27 Top = 27
ExplicitLeft = 386 ExplicitLeft = 425
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton11: TToolButton [15] inherited ToolButton11: TToolButton [15]
Left = 511 Left = 550
Top = 27 Top = 27
ExplicitLeft = 511 ExplicitLeft = 550
ExplicitTop = 27 ExplicitTop = 27
end end
end end
@ -285,7 +288,7 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
ExplicitTop = 51 ExplicitTop = 51
ExplicitWidth = 751 ExplicitWidth = 751
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 745 ExplicitWidth = 751
end end
end end
inherited cxGridPopupMenu: TcxGridPopupMenu inherited cxGridPopupMenu: TcxGridPopupMenu
@ -302,6 +305,10 @@ 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
@ -398,7 +405,11 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
inherited ImporteDto: TcxDBCurrencyEdit inherited ImporteDto: TcxDBCurrencyEdit
Left = 164 Left = 164
Top = 112 Top = 112
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 = 112
ExplicitWidth = 199 ExplicitWidth = 199
@ -407,7 +418,11 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Left = 562 Left = 562
Top = 38 Top = 38
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 = 38
ExplicitWidth = 192 ExplicitWidth = 192
@ -416,7 +431,11 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 492 Left = 492
Top = 112 Top = 112
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 = 112
ExplicitWidth = 262 ExplicitWidth = 262
@ -426,7 +445,11 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
Left = 93 Left = 93
Top = 112 Top = 112
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 = 112
end end
@ -434,14 +457,22 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
Left = 491 Left = 491
Top = 38 Top = 38
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 = 38
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 = 263 ExplicitWidth = 263
@ -452,7 +483,11 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
Top = 65 Top = 65
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 = 65
end end
@ -461,7 +496,11 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
Top = 65 Top = 65
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 = 65
ExplicitWidth = 192 ExplicitWidth = 192
@ -470,7 +509,11 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
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 = 270 ExplicitWidth = 270
@ -480,7 +523,11 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
Left = 93 Left = 93
Top = 139 Top = 139
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 = 139
ExplicitWidth = 270 ExplicitWidth = 270
@ -491,6 +538,10 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
Top = 38 Top = 38
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 = 38
ExplicitWidth = 132 ExplicitWidth = 132
@ -506,9 +557,14 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
Left = 93 Left = 93
Top = 65 Top = 65
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 93 ExplicitLeft = 93
ExplicitTop = 65 ExplicitTop = 65
ExplicitWidth = 270 ExplicitWidth = 270
ExplicitHeight = 0
Width = 270 Width = 270
end end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup inherited dxLayoutControl1Group_Root: TdxLayoutGroup

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

@ -15,7 +15,7 @@ uses
uViewDetallesBase, uViewDetallesAlbaranProveedor, uViewDetallesBase, uViewDetallesAlbaranProveedor,
dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar, uViewTotales, dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar, uViewTotales,
uIEditorAlbaranProveedor, uBizAlbaranesProveedor, uViewAlbaranProveedor, uIEditorAlbaranProveedor, uBizAlbaranesProveedor, uViewAlbaranProveedor,
uViewDetallesDTO, uViewDetallesArticulos, uDAInterfaces; uViewDetallesDTO, uViewDetallesArticulos, uDAInterfaces, cxLabel;
type type
TfEditorAlbaranProveedor = class(TfEditorDBItem, IEditorAlbaranProveedor) TfEditorAlbaranProveedor = class(TfEditorDBItem, IEditorAlbaranProveedor)

20
Source/Modulos/Articulos/Views/uViewDetallesArticulos.dfm
View File

@ -28,22 +28,6 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos
Left = 345 Left = 345
ExplicitLeft = 345 ExplicitLeft = 345
end end
inherited ToolButton12: TToolButton
Left = 428
ExplicitLeft = 428
end
inherited ToolButton9: TToolButton
Left = 436
ExplicitLeft = 436
end
inherited ToolButton10: TToolButton
Left = 581
ExplicitLeft = 581
end
inherited ToolButton11: TToolButton
Left = 706
ExplicitLeft = 706
end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
@ -134,7 +118,6 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos
end end
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
ExplicitTop = 68
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
inherited TBXSubmenuItem1: TTBXSubmenuItem inherited TBXSubmenuItem1: TTBXSubmenuItem
object TBXSeparatorItem8: TTBXSeparatorItem [4] object TBXSeparatorItem8: TTBXSeparatorItem [4]
@ -143,9 +126,6 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos
Enabled = False Enabled = False
Visible = False Visible = False
end end
object TBXItem17: TTBXItem
Action = actAnadirArticulos
end
end end
end end
end end

1
Source/Modulos/Articulos/Views/uViewDetallesArticulos.pas
View File

@ -28,7 +28,6 @@ type
cxGridViewUNIDAD_MEDIDA: TcxGridDBColumn; cxGridViewUNIDAD_MEDIDA: TcxGridDBColumn;
actBuscarArticulo: TAction; actBuscarArticulo: TAction;
TBXSeparatorItem8: TTBXSeparatorItem; TBXSeparatorItem8: TTBXSeparatorItem;
TBXItem17: TTBXItem;
cxGridViewREFERENCIA_FABRICANTE: TcxGridDBColumn; cxGridViewREFERENCIA_FABRICANTE: TcxGridDBColumn;
cxEditRepository1: TcxEditRepository; cxEditRepository1: TcxEditRepository;
cxEditRepositoryComboBox_IMPORTEUNIDAD: TcxEditRepositoryComboBoxItem; cxEditRepositoryComboBox_IMPORTEUNIDAD: TcxEditRepositoryComboBoxItem;

117
Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm
View File

@ -120,8 +120,10 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
798 798
316) 316)
inherited Label1: TLabel inherited Label1: TLabel
Left = 604 Left = 351
ExplicitLeft = 604 Width = 311
ExplicitLeft = 351
ExplicitWidth = 311
end end
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -158,8 +160,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Width = 111 Width = 111
end end
inherited bFormasPago: TButton inherited bFormasPago: TButton
Left = 433 Left = 180
ExplicitLeft = 433 ExplicitLeft = 180
end end
inherited cbCuentaBancaria: TcxDBComboBox inherited cbCuentaBancaria: TcxDBComboBox
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -170,38 +172,57 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Width = 249 Width = 249
end end
inherited cbClienteFinal: TcxDBTextEdit inherited cbClienteFinal: TcxDBTextEdit
Left = 604 Left = 351
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 604 ExplicitLeft = 351
ExplicitWidth = 339
Width = 339
end end
inherited bElegirClienteFinal: TButton inherited bElegirClienteFinal: TButton
Left = 725 Left = 725
ExplicitLeft = 725 ExplicitLeft = 725
end end
inherited frViewDatosYSeleccionClienteFacturaCliente1: TfrViewDatosYSeleccionClienteFacturaCliente inherited frViewDatosYSeleccionClienteFacturaCliente1: TfrViewDatosYSeleccionClienteFacturaCliente
Left = 593 Left = 340
ExplicitLeft = 593 Width = 505
ExplicitLeft = 340
ExplicitWidth = 505
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 505
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 224
Width = 224
end end
inherited edtNIFCIF: TcxDBTextEdit inherited edtNIFCIF: TcxDBTextEdit
Left = 306
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 306
end
inherited Button3: TBitBtn
Left = 217
ExplicitLeft = 217
end end
inherited edtDireccion: TcxTextEdit inherited edtDireccion: TcxTextEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121
Width = 121
end
inherited Button4: TButton
Left = 386
ExplicitLeft = 386
end end
end end
end end
@ -234,34 +255,22 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Height = 51 Height = 51
ExplicitWidth = 798 ExplicitWidth = 798
ExplicitHeight = 51 ExplicitHeight = 51
inherited ToolButton3: TToolButton inherited ToolButton14: TToolButton
Wrap = False Wrap = False
end end
inherited ToolButton4: TToolButton
Left = 278
Top = 0
ExplicitLeft = 278
ExplicitTop = 0
end
inherited FontName: TJvFontComboBox inherited FontName: TJvFontComboBox
Left = 334 Left = 399
Top = 0 Top = 0
ExplicitLeft = 334 ExplicitLeft = 399
ExplicitTop = 0 ExplicitTop = 0
end end
inherited FontSize: TEdit [5] inherited FontSize: TEdit
Left = 479 Left = 544
Top = 0 Top = 0
Width = 152 Width = 168
ExplicitLeft = 479 ExplicitLeft = 544
ExplicitTop = 0
ExplicitWidth = 152
end
inherited UpDown1: TUpDown [6]
Left = 631
Top = 0
ExplicitLeft = 631
ExplicitTop = 0 ExplicitTop = 0
ExplicitWidth = 168
end end
inherited ToolButton13: TToolButton [7] inherited ToolButton13: TToolButton [7]
Left = 0 Left = 0
@ -271,54 +280,54 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitTop = 0 ExplicitTop = 0
ExplicitHeight = 27 ExplicitHeight = 27
end end
inherited ToolButton6: TToolButton [8] inherited UpDown1: TUpDown [8]
Left = 0 Left = 0
Top = 27 Top = 27
ExplicitLeft = 0 ExplicitLeft = 0
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton7: TToolButton [9] inherited ToolButton6: TToolButton
Left = 66 Left = 17
Top = 27 Top = 27
Wrap = False ExplicitLeft = 17
ExplicitLeft = 66
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton14: TToolButton [10] inherited ToolButton7: TToolButton
Left = 133 Left = 83
Top = 27 Top = 27
ExplicitLeft = 133 ExplicitLeft = 83
end
inherited ToolButton8: TToolButton [11]
Left = 198
Top = 27
ExplicitLeft = 198
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton12: TToolButton [12] inherited ToolButton8: TToolButton
Left = 281 Left = 150
Top = 27
ExplicitLeft = 150
ExplicitTop = 27
end
inherited ToolButton12: TToolButton
Left = 233
Top = 27 Top = 27
Wrap = False Wrap = False
ExplicitLeft = 281 ExplicitLeft = 233
ExplicitTop = 27 ExplicitTop = 27
ExplicitHeight = 22 ExplicitHeight = 22
end end
inherited ToolButton9: TToolButton [13] inherited ToolButton9: TToolButton
Left = 289 Left = 241
Top = 27 Top = 27
ExplicitLeft = 289 ExplicitLeft = 241
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton10: TToolButton [14] inherited ToolButton10: TToolButton
Left = 434 Left = 386
Top = 27 Top = 27
ExplicitLeft = 434 ExplicitLeft = 386
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton11: TToolButton [15] inherited ToolButton11: TToolButton
Left = 559 Left = 511
Top = 27 Top = 27
ExplicitLeft = 559 ExplicitLeft = 511
ExplicitTop = 27 ExplicitTop = 27
end end
end end
@ -336,7 +345,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitTop = 51 ExplicitTop = 51
ExplicitWidth = 798 ExplicitWidth = 798
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 702 ExplicitWidth = 798
end end
end end
inherited cxGridPopupMenu: TcxGridPopupMenu inherited cxGridPopupMenu: TcxGridPopupMenu

22
Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm
View File

@ -75,7 +75,6 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 813 Width = 813
Height = 369 Height = 369
ActivePage = pagContenido
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitWidth = 813 ExplicitWidth = 813
ExplicitHeight = 369 ExplicitHeight = 369
@ -257,21 +256,8 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
Height = 51 Height = 51
ExplicitWidth = 805 ExplicitWidth = 805
ExplicitHeight = 51 ExplicitHeight = 51
inherited ToolButton3: TToolButton
Wrap = False
end
inherited ToolButton4: TToolButton
Left = 278
Top = 0
ExplicitLeft = 278
ExplicitTop = 0
end
inherited ToolButton14: TToolButton inherited ToolButton14: TToolButton
Left = 334
Top = 0
Wrap = False Wrap = False
ExplicitLeft = 334
ExplicitTop = 0
end end
inherited FontName: TJvFontComboBox inherited FontName: TJvFontComboBox
Left = 399 Left = 399
@ -282,10 +268,10 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
inherited FontSize: TEdit inherited FontSize: TEdit
Left = 544 Left = 544
Top = 0 Top = 0
Width = 152 Width = 168
ExplicitLeft = 544 ExplicitLeft = 544
ExplicitTop = 0 ExplicitTop = 0
ExplicitWidth = 152 ExplicitWidth = 168
end end
inherited ToolButton13: TToolButton [7] inherited ToolButton13: TToolButton [7]
Left = 0 Left = 0
@ -322,8 +308,10 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
inherited ToolButton12: TToolButton inherited ToolButton12: TToolButton
Left = 233 Left = 233
Top = 27 Top = 27
Wrap = False
ExplicitLeft = 233 ExplicitLeft = 233
ExplicitTop = 27 ExplicitTop = 27
ExplicitHeight = 22
end end
inherited ToolButton9: TToolButton inherited ToolButton9: TToolButton
Left = 241 Left = 241
@ -358,7 +346,7 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
ExplicitTop = 51 ExplicitTop = 51
ExplicitWidth = 805 ExplicitWidth = 805
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 702 ExplicitWidth = 805
end end
end end
inherited cxGridPopupMenu: TcxGridPopupMenu inherited cxGridPopupMenu: TcxGridPopupMenu

71
Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm
View File

@ -115,25 +115,19 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
Height = 46 Height = 46
ExplicitWidth = 865 ExplicitWidth = 865
ExplicitHeight = 46 ExplicitHeight = 46
inherited ToolButton3: TToolButton
Wrap = False
end
inherited ToolButton4: TToolButton inherited ToolButton4: TToolButton
Left = 278
Top = 0
Wrap = True Wrap = True
ExplicitLeft = 278
ExplicitTop = 0
end
inherited FontName: TJvFontComboBox
Left = 0
ExplicitLeft = 334
ExplicitTop = 0
end end
inherited ToolButton14: TToolButton inherited ToolButton14: TToolButton
Left = 479 Left = 0
Top = 0 Top = 22
ExplicitLeft = 479 Wrap = False
ExplicitLeft = 0
ExplicitTop = 22
end
inherited FontName: TJvFontComboBox
Left = 65
ExplicitLeft = 399
ExplicitTop = 0 ExplicitTop = 0
end end
inherited FontSize: TEdit inherited FontSize: TEdit
@ -158,49 +152,48 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
ExplicitTop = 0 ExplicitTop = 0
ExplicitHeight = 27 ExplicitHeight = 27
end end
inherited ToolButton11: TToolButton inherited ToolButton6: TToolButton
Left = 0 Left = 0
Top = 27 Top = 27
ExplicitLeft = 0 ExplicitLeft = 0
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton7: TToolButton
Left = 66
Top = 27
ExplicitLeft = 66
ExplicitTop = 27
end
inherited ToolButton8: TToolButton
Left = 133
Top = 27
ExplicitLeft = 133
ExplicitTop = 27
end
inherited ToolButton12: TToolButton inherited ToolButton12: TToolButton
Left = 141 Left = 216
Top = 27 Top = 27
Wrap = False Wrap = False
ExplicitLeft = 141 ExplicitLeft = 216
ExplicitTop = 27 ExplicitTop = 27
ExplicitHeight = 22 ExplicitHeight = 22
end end
inherited ToolButton9: TToolButton inherited ToolButton9: TToolButton
Left = 149 Left = 224
Top = 27 Top = 27
ExplicitLeft = 149 ExplicitLeft = 224
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton10: TToolButton inherited ToolButton10: TToolButton
Left = 294 Left = 369
Top = 27 Top = 27
ExplicitLeft = 294 ExplicitLeft = 369
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton6: TToolButton inherited ToolButton11: TToolButton
Left = 419 Left = 494
Top = 27 Top = 27
ExplicitLeft = 419 ExplicitLeft = 494
ExplicitTop = 27
end
inherited ToolButton7: TToolButton
Left = 485
Top = 27
Wrap = False
ExplicitLeft = 485
ExplicitTop = 27
end
inherited ToolButton8: TToolButton
Left = 552
Top = 27
ExplicitLeft = 552
ExplicitTop = 27 ExplicitTop = 27
end end
end end
@ -218,7 +211,7 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
ExplicitTop = 51 ExplicitTop = 51
ExplicitWidth = 865 ExplicitWidth = 865
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 745 ExplicitWidth = 865
end end
end end
inherited cxGridPopupMenu: TcxGridPopupMenu inherited cxGridPopupMenu: TcxGridPopupMenu

134
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm
View File

@ -5,7 +5,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ClientHeight = 615 ClientHeight = 615
ClientWidth = 764 ClientWidth = 764
OnClose = CustomEditorClose OnClose = CustomEditorClose
ExplicitTop = -101
ExplicitWidth = 772 ExplicitWidth = 772
ExplicitHeight = 649 ExplicitHeight = 649
PixelsPerInch = 96 PixelsPerInch = 96
@ -174,17 +173,16 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
TabOrder = 1 TabOrder = 1
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitWidth = 758 ExplicitWidth = 758
ExplicitHeight = 402 ExplicitHeight = 238
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 750 ExplicitWidth = 750
ExplicitHeight = 374 ExplicitHeight = 210
end end
object pagContenido: TTabSheet object pagContenido: TTabSheet
Caption = 'Contenido' Caption = 'Contenido'
ImageIndex = 1 ImageIndex = 1
ExplicitHeight = 374
inline frViewDetallesPresupuestoCliente1: TfrViewDetallesPresupuestoCliente inline frViewDetallesPresupuestoCliente1: TfrViewDetallesPresupuestoCliente
Left = 0 Left = 0
Top = 0 Top = 0
@ -202,77 +200,93 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 750 ExplicitWidth = 750
ExplicitHeight = 374 ExplicitHeight = 210
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 750 Width = 750
Height = 73 Height = 78
ExplicitWidth = 750 ExplicitWidth = 750
ExplicitHeight = 73 ExplicitHeight = 78
inherited ToolButton3: TToolButton inherited ToolButton14: TToolButton
Wrap = False Wrap = False
end end
inherited ToolButton4: TToolButton
Left = 278
Top = 0
ExplicitLeft = 278
ExplicitTop = 0
end
inherited FontName: TJvFontComboBox inherited FontName: TJvFontComboBox
Left = 334 Left = 399
Top = 0 Top = 0
ExplicitLeft = 334 ExplicitLeft = 399
ExplicitTop = 0 ExplicitTop = 0
end end
inherited ToolButton14: TToolButton inherited ToolButton13: TToolButton [6]
Left = 479 Left = 0
Top = 0 Top = 0
Wrap = True Wrap = True
ExplicitLeft = 479 ExplicitLeft = 0
ExplicitTop = 0 ExplicitTop = 0
ExplicitHeight = 27
end end
inherited FontSize: TEdit inherited FontSize: TEdit [7]
Left = 0 Left = 0
Top = 27
Width = 200 Width = 200
ExplicitLeft = 0 ExplicitLeft = 0
ExplicitTop = 27
ExplicitWidth = 200 ExplicitWidth = 200
end end
inherited UpDown1: TUpDown inherited UpDown1: TUpDown [8]
Left = 216 Left = 200
ExplicitLeft = 216 Top = 27
ExplicitLeft = 200
ExplicitTop = 27
end end
inherited ToolButton13: TToolButton inherited ToolButton6: TToolButton
Left = 233 Left = 217
ExplicitLeft = 233 Top = 27
end ExplicitLeft = 217
inherited ToolButton11: TToolButton ExplicitTop = 27
Left = 241
ExplicitLeft = 241
end end
inherited ToolButton7: TToolButton inherited ToolButton7: TToolButton
Wrap = False Left = 283
Top = 27
ExplicitLeft = 283
ExplicitTop = 27
end end
inherited ToolButton8: TToolButton inherited ToolButton8: TToolButton
Left = 403 Left = 350
Top = 49 Top = 27
ExplicitLeft = 403 ExplicitLeft = 350
ExplicitTop = 49 ExplicitTop = 27
end
inherited ToolButton12: TToolButton
Top = 27
ExplicitTop = 27
end
inherited ToolButton9: TToolButton
Top = 54
ExplicitTop = 54
end
inherited ToolButton10: TToolButton
Top = 54
ExplicitTop = 54
end
inherited ToolButton11: TToolButton
Top = 54
ExplicitTop = 54
end end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Top = 99 Top = 104
Width = 750 Width = 750
Height = 111 Height = 106
ExplicitTop = 99 ExplicitTop = 104
ExplicitWidth = 750 ExplicitWidth = 750
ExplicitHeight = 275 ExplicitHeight = 106
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Top = 73 Top = 78
Width = 750 Width = 750
ExplicitTop = 73 ExplicitTop = 78
ExplicitWidth = 750 ExplicitWidth = 750
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 702 ExplicitWidth = 750
end end
end end
inherited cxGridPopupMenu: TcxGridPopupMenu inherited cxGridPopupMenu: TcxGridPopupMenu
@ -289,7 +303,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
object pagPortada: TTabSheet object pagPortada: TTabSheet
Caption = 'Portada' Caption = 'Portada'
ImageIndex = 3 ImageIndex = 3
ExplicitHeight = 374
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
@ -397,7 +410,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ReadOnly = False ReadOnly = False
ExplicitLeft = 145 ExplicitLeft = 145
ExplicitWidth = 605 ExplicitWidth = 605
ExplicitHeight = 374 ExplicitHeight = 210
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Width = 605 Width = 605
ExplicitWidth = 605 ExplicitWidth = 605
@ -413,7 +426,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitWidth = 605 ExplicitWidth = 605
ExplicitHeight = 348 ExplicitHeight = 184
Height = 184 Height = 184
Width = 605 Width = 605
end end
@ -422,7 +435,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
object pagMemoria: TTabSheet object pagMemoria: TTabSheet
Caption = 'Memoria' Caption = 'Memoria'
ImageIndex = 4 ImageIndex = 4
ExplicitHeight = 374
object Panel2: TPanel object Panel2: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
@ -701,7 +713,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ReadOnly = False ReadOnly = False
ExplicitLeft = 145 ExplicitLeft = 145
ExplicitWidth = 605 ExplicitWidth = 605
ExplicitHeight = 374 ExplicitHeight = 210
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Width = 605 Width = 605
ExplicitWidth = 605 ExplicitWidth = 605
@ -717,7 +729,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitWidth = 605 ExplicitWidth = 605
ExplicitHeight = 348 ExplicitHeight = 184
Height = 184 Height = 184
Width = 605 Width = 605
end end
@ -726,7 +738,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
object pagInicidencias: TTabSheet object pagInicidencias: TTabSheet
Caption = 'Incidencias' Caption = 'Incidencias'
ImageIndex = 2 ImageIndex = 2
ExplicitHeight = 374
inline frViewIncidenciasCli: TfrViewIncidencias inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0 Left = 0
Top = 0 Top = 0
@ -742,7 +753,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 750 ExplicitWidth = 750
ExplicitHeight = 374 ExplicitHeight = 210
inherited pnlSup: TPanel inherited pnlSup: TPanel
Width = 750 Width = 750
ExplicitWidth = 750 ExplicitWidth = 750
@ -754,10 +765,10 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Width = 750 Width = 750
Height = 182 Height = 182
ExplicitWidth = 750 ExplicitWidth = 750
ExplicitHeight = 346 ExplicitHeight = 182
inherited eIncidencias: TcxDBMemo inherited eIncidencias: TcxDBMemo
ExplicitWidth = 727 ExplicitWidth = 727
ExplicitHeight = 313 ExplicitHeight = 149
Height = 149 Height = 149
Width = 727 Width = 727
end end
@ -767,7 +778,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
object pagDocumentos: TTabSheet object pagDocumentos: TTabSheet
Caption = 'Documentos' Caption = 'Documentos'
ImageIndex = 5 ImageIndex = 5
ExplicitHeight = 374
inline frViewDocumentosPresupuestoCliente1: TfrViewDocumentosPresupuestoCliente inline frViewDocumentosPresupuestoCliente1: TfrViewDocumentosPresupuestoCliente
Left = 0 Left = 0
Top = 0 Top = 0
@ -783,7 +793,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 750 ExplicitWidth = 750
ExplicitHeight = 374 ExplicitHeight = 210
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 750 Width = 750
ExplicitWidth = 750 ExplicitWidth = 750
@ -849,8 +859,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 87
Width = 87
end end
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Left = 624 Left = 624
@ -860,8 +868,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 624 ExplicitLeft = 624
ExplicitWidth = 20
Width = 20
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 554 Left = 554
@ -871,8 +877,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 554 ExplicitLeft = 554
ExplicitWidth = 90
Width = 90
end end
inherited edtDescuento: TcxDBSpinEdit inherited edtDescuento: TcxDBSpinEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -898,8 +902,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 553 ExplicitLeft = 553
ExplicitWidth = 91
Width = 91
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Left = 553 Left = 553
@ -918,8 +920,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 624 ExplicitLeft = 624
ExplicitWidth = 20
Width = 20
end end
inherited eImporteNeto: TcxDBCurrencyEdit inherited eImporteNeto: TcxDBCurrencyEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -927,8 +927,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 158
Width = 158
end end
inherited ePorte: TcxDBCurrencyEdit inherited ePorte: TcxDBCurrencyEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -936,16 +934,12 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 158
Width = 158
end end
inherited eIVA: TcxDBLookupComboBox inherited eIVA: TcxDBLookupComboBox
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 20
Width = 20
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 293 Left = 293

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN BEGIN
VALUE "FileVersion", "1.4.6.0\0" VALUE "FileVersion", "1.4.6.0\0"
VALUE "ProductVersion", "1.4.6.0\0" VALUE "ProductVersion", "1.4.6.0\0"
VALUE "CompileDate", "jueves, 13 de noviembre de 2008 11:42\0" VALUE "CompileDate", "jueves, 13 de noviembre de 2008 17:55\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"