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

Se deja de usar JvWizardHeader

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@963 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2009-07-09 11:21:22 +00:00
parent 0e920883a2
commit 8d090e5693
51 changed files with 1484 additions and 1094 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Source/Base/Base.res
View File

Binary file not shown.

40
Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dproj
View File

@ -43,30 +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">File c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl not found</Excluded_Packages> <Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl not found</Excluded_Packages>
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclnet100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclnet100.bpl not found</Excluded_Packages> <Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclnet100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclnet100.bpl not found</Excluded_Packages>
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclsoap100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclsoap100.bpl not found</Excluded_Packages> <Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclsoap100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclsoap100.bpl not found</Excluded_Packages>
@ -78,14 +54,14 @@
<DelphiCompile Include="AlbaranesCliente_view.dpk"> <DelphiCompile Include="AlbaranesCliente_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="AlbaranesCliente_controller.dcp" /> <DCCReference Include="..\..\Albaranes de proveedor\AlbaranesCliente_controller.dcp" />
<DCCReference Include="AlbaranesCliente_model.dcp" /> <DCCReference Include="..\..\Albaranes de proveedor\AlbaranesCliente_model.dcp" />
<DCCReference Include="AlbCli_FacCli_relation.dcp" /> <DCCReference Include="..\..\Albaranes de proveedor\AlbCli_FacCli_relation.dcp" />
<DCCReference Include="Almacenes_controller.dcp" /> <DCCReference Include="..\..\Albaranes de proveedor\Almacenes_controller.dcp" />
<DCCReference Include="ApplicationBase.dcp" /> <DCCReference Include="..\..\Albaranes de proveedor\ApplicationBase.dcp" />
<DCCReference Include="Articulos_view.dcp" /> <DCCReference Include="..\..\Albaranes de proveedor\Articulos_view.dcp" />
<DCCReference Include="Base.dcp" /> <DCCReference Include="..\..\Albaranes de proveedor\Base.dcp" />
<DCCReference Include="GUIBase.dcp" /> <DCCReference Include="..\..\Albaranes de proveedor\GUIBase.dcp" />
<DCCReference Include="uAlbaranesClienteViewRegister.pas" /> <DCCReference Include="uAlbaranesClienteViewRegister.pas" />
<DCCReference Include="uEditorAlbaranCliente.pas"> <DCCReference Include="uEditorAlbaranCliente.pas">
<Form>fEditorAlbaranCliente</Form> <Form>fEditorAlbaranCliente</Form>

89
Source/Modulos/Albaranes de cliente/Views/uEditorElegirAlbaranesCliente.dfm
View File

@ -5,42 +5,12 @@ inherited fEditorElegirAlbaranesCliente: TfEditorElegirAlbaranesCliente
ExplicitHeight = 538 ExplicitHeight = 538
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
object JvgWizardHeader1: TJvgWizardHeader [0]
Left = 0
Top = 27
Width = 790
Height = 60
CaptionFont.Charset = DEFAULT_CHARSET
CaptionFont.Color = clWindowText
CaptionFont.Height = -11
CaptionFont.Name = 'Tahoma'
CaptionFont.Style = [fsBold]
CommentFont.Charset = DEFAULT_CHARSET
CommentFont.Color = clWindowText
CommentFont.Height = -11
CommentFont.Name = 'Tahoma'
CommentFont.Style = []
SymbolFont.Charset = DEFAULT_CHARSET
SymbolFont.Color = clHighlightText
SymbolFont.Height = -35
SymbolFont.Name = 'Wingdings'
SymbolFont.Style = [fsBold]
Captions.Strings = (
'Seleccione el albar'#225'n de cliente')
Comments.Strings = (
' ')
Gradient.FromColor = clHighlight
Gradient.ToColor = clWindow
Gradient.Active = False
Gradient.Orientation = fgdVertical
BufferedDraw = False
ExplicitLeft = -8
ExplicitTop = 8
ExplicitWidth = 656
end
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Top = 139
Width = 790 Width = 790
Visible = False Visible = False
ExplicitLeft = -8
ExplicitTop = 280
ExplicitWidth = 790 ExplicitWidth = 790
inherited Image1: TImage inherited Image1: TImage
Left = 763 Left = 763
@ -48,9 +18,9 @@ inherited fEditorElegirAlbaranesCliente: TfEditorElegirAlbaranesCliente
end end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Top = 87 Top = 64
Width = 790 Width = 790
ExplicitTop = 87 ExplicitTop = 91
ExplicitWidth = 790 ExplicitWidth = 790
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
Left = 359 Left = 359
@ -125,6 +95,55 @@ inherited fEditorElegirAlbaranesCliente: TfEditorElegirAlbaranesCliente
Width = 790 Width = 790
ExplicitWidth = 790 ExplicitWidth = 790
end end
object pnlHeader: TPanel [3]
Left = 0
Top = 0
Width = 790
Height = 64
Align = alTop
BevelOuter = bvNone
Color = clWhite
Padding.Left = 25
Padding.Top = 8
Padding.Right = 25
Padding.Bottom = 8
ParentBackground = False
TabOrder = 4
ExplicitTop = 27
object lblTitle: TLabel
AlignWithMargins = True
Left = 25
Top = 8
Width = 740
Height = 13
Margins.Left = 0
Margins.Top = 0
Margins.Right = 0
Margins.Bottom = 8
Align = alTop
Caption = 'Seleccione el albar'#225'n de cliente'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
ExplicitWidth = 177
end
object lblComments: TLabel
AlignWithMargins = True
Left = 50
Top = 29
Width = 715
Height = 24
Margins.Left = 25
Margins.Top = 0
Margins.Right = 0
Align = alClient
ExplicitWidth = 3
ExplicitHeight = 13
end
end
inline frViewBarraSeleccion1: TfrViewBarraSeleccion [4] inline frViewBarraSeleccion1: TfrViewBarraSeleccion [4]
Left = 0 Left = 0
Top = 449 Top = 449

9
Source/Modulos/Albaranes de cliente/Views/uEditorElegirAlbaranesCliente.pas
View File

@ -9,14 +9,15 @@ uses
ActnList, uCustomView, uViewBase, uViewGridBase, uViewGrid, ActnList, uCustomView, uViewBase, uViewGridBase, uViewGrid,
uViewAlbaranesCliente, ComCtrls, TB2ExtItems, TBXExtItems, TBX, uViewAlbaranesCliente, ComCtrls, TB2ExtItems, TBXExtItems, TBX,
TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent,
JvNavigationPane, uViewBarraSeleccion, JvgWizardHeader, StdCtrls, JvNavigationPane, uViewBarraSeleccion, StdCtrls,
uEditorAlbaranesCliente, uBizAlbaranesCliente, uIEditorElegirAlbaranesCliente, uEditorAlbaranesCliente, uBizAlbaranesCliente, uIEditorElegirAlbaranesCliente,
JvExComCtrls, JvStatusBar, JSDialog, uDAInterfaces; JvExComCtrls, JvStatusBar, JSDialog, uDAInterfaces;
type type
TfEditorElegirAlbaranesCliente = class(TfEditorAlbaranesCliente, IEditorElegirAlbaranesCliente) TfEditorElegirAlbaranesCliente = class(TfEditorAlbaranesCliente, IEditorElegirAlbaranesCliente)
frViewBarraSeleccion1: TfrViewBarraSeleccion; frViewBarraSeleccion1: TfrViewBarraSeleccion;
JvgWizardHeader1: TJvgWizardHeader; lblTitle: TLabel;
lblComments: TLabel;
EditorSeleccionActionList: TActionList; EditorSeleccionActionList: TActionList;
actBuscar2: TAction; actBuscar2: TAction;
actQuitarFiltro2: TAction; actQuitarFiltro2: TAction;
@ -97,12 +98,12 @@ end;
function TfEditorElegirAlbaranesCliente.GetMensaje: String; function TfEditorElegirAlbaranesCliente.GetMensaje: String;
begin begin
Result := JvgWizardHeader1.Comments.Text; Result := lblComments.Caption;
end; end;
procedure TfEditorElegirAlbaranesCliente.SetMensaje(const AValue: String); procedure TfEditorElegirAlbaranesCliente.SetMensaje(const AValue: String);
begin begin
JvgWizardHeader1.Comments.Text := AValue; lblComments.Caption := AValue;
end; end;
procedure TfEditorElegirAlbaranesCliente.SetViewGrid(const Value: IViewGridBase); procedure TfEditorElegirAlbaranesCliente.SetViewGrid(const Value: IViewGridBase);

1
Source/Modulos/Albaranes de cliente/Views/uEditorElegirArticulosAlbaranCliente.dfm
View File

@ -1,6 +1,5 @@
inherited fEditorElegirArticulosAlbaranCliente: TfEditorElegirArticulosAlbaranCliente inherited fEditorElegirArticulosAlbaranCliente: TfEditorElegirArticulosAlbaranCliente
Caption = 'fEditorElegirArticulosAlbaranCliente' Caption = 'fEditorElegirArticulosAlbaranCliente'
ExplicitHeight = 478
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
end end

4
Source/Modulos/Albaranes de cliente/Views/uEditorElegirArticulosAlbaranCliente.pas
View File

@ -9,8 +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, uIEditorElegirArticulosAlbaranesCliente, uDAInterfaces, uIEditorElegirArticulosAlbaranesCliente, uDAInterfaces,
uViewGridBase, uViewGrid, uViewArticulos; uViewGridBase, uViewGrid, uViewArticulos, StdCtrls;
type type
TfEditorElegirArticulosAlbaranCliente = class(TfEditorElegirArticulos, IEditorElegirArticulosAlbaranesCliente) TfEditorElegirArticulosAlbaranCliente = class(TfEditorElegirArticulos, IEditorElegirArticulosAlbaranesCliente)

77
Source/Modulos/Albaranes de proveedor/Views/uEditorElegirAlbaranesProveedor.dfm
View File

@ -5,38 +5,53 @@ inherited fEditorElegirAlbaranesProveedor: TfEditorElegirAlbaranesProveedor
ExplicitHeight = 538 ExplicitHeight = 538
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
object JvgWizardHeader1: TJvgWizardHeader [0] object pnlHeader: TPanel
Left = 0 Left = 0
Top = 27 Top = 0
Width = 790 Width = 656
Height = 60 Height = 64
CaptionFont.Charset = DEFAULT_CHARSET Align = alTop
CaptionFont.Color = clWindowText BevelOuter = bvNone
CaptionFont.Height = -11 Color = clWhite
CaptionFont.Name = 'Tahoma' Padding.Left = 25
CaptionFont.Style = [fsBold] Padding.Top = 8
CommentFont.Charset = DEFAULT_CHARSET Padding.Right = 25
CommentFont.Color = clWindowText Padding.Bottom = 8
CommentFont.Height = -11 ParentBackground = False
CommentFont.Name = 'Tahoma' TabOrder = 5
CommentFont.Style = [] object lblTitle: TLabel
SymbolFont.Charset = DEFAULT_CHARSET AlignWithMargins = True
SymbolFont.Color = clHighlightText Left = 25
SymbolFont.Height = -35 Top = 8
SymbolFont.Name = 'Wingdings' Width = 606
SymbolFont.Style = [fsBold] Height = 13
Captions.Strings = ( Margins.Left = 0
'Seleccione el albar'#225'n de proveedor') Margins.Top = 0
Comments.Strings = ( Margins.Right = 0
' ') Margins.Bottom = 8
Gradient.FromColor = clHighlight Align = alTop
Gradient.ToColor = clWindow Caption = 'Seleccione el albar'#225'n de proveedor'
Gradient.Active = False Font.Charset = DEFAULT_CHARSET
Gradient.Orientation = fgdVertical Font.Color = clWindowText
BufferedDraw = False Font.Height = -11
ExplicitLeft = -8 Font.Name = 'Tahoma'
ExplicitTop = 8 Font.Style = [fsBold]
ExplicitWidth = 656 ParentFont = False
ExplicitWidth = 135
end
object lblComments: TLabel
AlignWithMargins = True
Left = 50
Top = 29
Width = 581
Height = 27
Margins.Left = 25
Margins.Top = 0
Margins.Right = 0
Align = alClient
ExplicitWidth = 3
ExplicitHeight = 13
end
end end
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 790 Width = 790

9
Source/Modulos/Albaranes de proveedor/Views/uEditorElegirAlbaranesProveedor.pas
View File

@ -9,14 +9,15 @@ uses
ActnList, uCustomView, uViewBase, uViewGridBase, uViewGrid, ActnList, uCustomView, uViewBase, uViewGridBase, uViewGrid,
uViewAlbaranesProveedor, ComCtrls, TB2ExtItems, TBXExtItems, TBX, uViewAlbaranesProveedor, ComCtrls, TB2ExtItems, TBXExtItems, TBX,
TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent,
JvNavigationPane, uViewBarraSeleccion, JvgWizardHeader, StdCtrls, JvNavigationPane, uViewBarraSeleccion, StdCtrls,
uEditorAlbaranesProveedor, uBizAlbaranesProveedor, uIEditorElegirAlbaranesProveedor, uEditorAlbaranesProveedor, uBizAlbaranesProveedor, uIEditorElegirAlbaranesProveedor,
JvExComCtrls, JvStatusBar, JSDialog, uDAInterfaces; JvExComCtrls, JvStatusBar, JSDialog, uDAInterfaces;
type type
TfEditorElegirAlbaranesProveedor = class(TfEditorAlbaranesProveedor, IEditorElegirAlbaranesProveedor) TfEditorElegirAlbaranesProveedor = class(TfEditorAlbaranesProveedor, IEditorElegirAlbaranesProveedor)
frViewBarraSeleccion1: TfrViewBarraSeleccion; frViewBarraSeleccion1: TfrViewBarraSeleccion;
JvgWizardHeader1: TJvgWizardHeader; lblTitle: TLabel;
lblComments: TLabel;
EditorSeleccionActionList: TActionList; EditorSeleccionActionList: TActionList;
actBuscar2: TAction; actBuscar2: TAction;
actQuitarFiltro2: TAction; actQuitarFiltro2: TAction;
@ -98,7 +99,7 @@ end;
function TfEditorElegirAlbaranesProveedor.GetMensaje: String; function TfEditorElegirAlbaranesProveedor.GetMensaje: String;
begin begin
Result := JvgWizardHeader1.Comments.Text; Result := lblComments.Caption;
end; end;
function TfEditorElegirAlbaranesProveedor.GetMultiSelect: Boolean; function TfEditorElegirAlbaranesProveedor.GetMultiSelect: Boolean;
@ -108,7 +109,7 @@ end;
procedure TfEditorElegirAlbaranesProveedor.SetMensaje(const AValue: String); procedure TfEditorElegirAlbaranesProveedor.SetMensaje(const AValue: String);
begin begin
JvgWizardHeader1.Comments.Text := AValue; lblComments.Caption := AValue;
end; end;
procedure TfEditorElegirAlbaranesProveedor.SetMultiSelect(AValue: Boolean); procedure TfEditorElegirAlbaranesProveedor.SetMultiSelect(AValue: Boolean);

9
Source/Modulos/Albaranes de proveedor/Views/uEditorElegirArticulosAlbaranProveedor.dfm
View File

@ -2,4 +2,13 @@ inherited fEditorElegirArticulosAlbaranProveedor: TfEditorElegirArticulosAlbaran
Caption = 'fEditorElegirArticulosAlbaranProveedor' Caption = 'fEditorElegirArticulosAlbaranProveedor'
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited pnlHeader: TPanel
inherited lblTitle: TLabel
Width = 606
end
inherited lblComments: TLabel
Width = 581
Height = 24
end
end
end end

4
Source/Modulos/Albaranes de proveedor/Views/uEditorElegirArticulosAlbaranProveedor.pas
View File

@ -9,8 +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, uIEditorElegirArticulosAlbaranesProveedor, uBizContactos, uIEditorElegirArticulosAlbaranesProveedor, uBizContactos,
uDAInterfaces, uViewGridBase, uViewGrid, uViewArticulos; uDAInterfaces, uViewGridBase, uViewGrid, uViewArticulos, StdCtrls;
type type
TfEditorElegirArticulosAlbaranProveedor = class(TfEditorElegirArticulos, IEditorElegirArticulosAlbaranesProveedor) TfEditorElegirArticulosAlbaranProveedor = class(TfEditorElegirArticulos, IEditorElegirArticulosAlbaranesProveedor)

86
Source/Modulos/Articulos/Views/uEditorElegirArticulos.dfm
View File

@ -4,41 +4,12 @@ inherited fEditorElegirArticulos: TfEditorElegirArticulos
ExplicitWidth = 664 ExplicitWidth = 664
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
object JvgWizardHeader1: TJvgWizardHeader [0]
Left = 0
Top = 27
Width = 656
Height = 60
CaptionFont.Charset = DEFAULT_CHARSET
CaptionFont.Color = clWindowText
CaptionFont.Height = -11
CaptionFont.Name = 'Tahoma'
CaptionFont.Style = [fsBold]
CommentFont.Charset = DEFAULT_CHARSET
CommentFont.Color = clWindowText
CommentFont.Height = -11
CommentFont.Name = 'Tahoma'
CommentFont.Style = []
SymbolFont.Charset = DEFAULT_CHARSET
SymbolFont.Color = clHighlightText
SymbolFont.Height = -35
SymbolFont.Name = 'Wingdings'
SymbolFont.Style = [fsBold]
Captions.Strings = (
'Seleccione los art'#237'culos')
Comments.Strings = (
' ')
Gradient.FromColor = clHighlight
Gradient.ToColor = clWindow
Gradient.Active = False
Gradient.Orientation = fgdVertical
BufferedDraw = False
ExplicitTop = 87
end
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Top = 113
Width = 656 Width = 656
Caption = 'Lista de art'#237'culos' Caption = 'Lista de art'#237'culos'
Visible = False Visible = False
ExplicitTop = 168
ExplicitWidth = 656 ExplicitWidth = 656
inherited Image1: TImage inherited Image1: TImage
Left = 629 Left = 629
@ -46,10 +17,10 @@ inherited fEditorElegirArticulos: TfEditorElegirArticulos
end end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Top = 87 Top = 64
Width = 656 Width = 656
Height = 49 Height = 49
ExplicitTop = 87 ExplicitTop = 91
ExplicitWidth = 656 ExplicitWidth = 656
ExplicitHeight = 49 ExplicitHeight = 49
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
@ -92,6 +63,55 @@ inherited fEditorElegirArticulos: TfEditorElegirArticulos
Visible = False Visible = False
ExplicitWidth = 656 ExplicitWidth = 656
end end
object pnlHeader: TPanel [3]
Left = 0
Top = 0
Width = 656
Height = 64
Align = alTop
BevelOuter = bvNone
Color = clWhite
Padding.Left = 25
Padding.Top = 8
Padding.Right = 25
Padding.Bottom = 8
ParentBackground = False
TabOrder = 4
ExplicitTop = 27
object lblTitle: TLabel
AlignWithMargins = True
Left = 25
Top = 8
Width = 606
Height = 13
Margins.Left = 0
Margins.Top = 0
Margins.Right = 0
Margins.Bottom = 8
Align = alTop
Caption = 'Seleccione los art'#237'culos'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
ExplicitWidth = 131
end
object lblComments: TLabel
AlignWithMargins = True
Left = 50
Top = 29
Width = 581
Height = 24
Margins.Left = 25
Margins.Top = 0
Margins.Right = 0
Align = alClient
ExplicitWidth = 3
ExplicitHeight = 13
end
end
inline frViewBarraSeleccion1: TfrViewBarraSeleccion [4] inline frViewBarraSeleccion1: TfrViewBarraSeleccion [4]
Left = 0 Left = 0
Top = 436 Top = 436

9
Source/Modulos/Articulos/Views/uEditorElegirArticulos.pas
View File

@ -9,14 +9,15 @@ uses
ActnList, uCustomView, uViewBase, uViewGridBase, uViewGrid, ActnList, uCustomView, uViewBase, uViewGridBase, uViewGrid,
uViewArticulos, ComCtrls, TB2ExtItems, TBXExtItems, TBX, uViewArticulos, ComCtrls, TB2ExtItems, TBXExtItems, TBX,
TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent,
JvNavigationPane, uViewBarraSeleccion, JvgWizardHeader, StdCtrls, JvNavigationPane, uViewBarraSeleccion, StdCtrls,
uEditorArticulos, uBizArticulos, uIEditorElegirArticulos, uEditorArticulos, uBizArticulos, uIEditorElegirArticulos,
JvExComCtrls, JvStatusBar, uDAInterfaces, uEditorGridBase, uArticulosController; JvExComCtrls, JvStatusBar, uDAInterfaces, uEditorGridBase, uArticulosController;
type type
TfEditorElegirArticulos = class(TfEditorGridBase, IEditorElegirArticulos) TfEditorElegirArticulos = class(TfEditorGridBase, IEditorElegirArticulos)
frViewBarraSeleccion1: TfrViewBarraSeleccion; frViewBarraSeleccion1: TfrViewBarraSeleccion;
JvgWizardHeader1: TJvgWizardHeader; lblTitle: TLabel;
lblComments: TLabel;
EditorSeleccionActionList: TActionList; EditorSeleccionActionList: TActionList;
actBuscar2: TAction; actBuscar2: TAction;
actQuitarFiltro2: TAction; actQuitarFiltro2: TAction;
@ -146,7 +147,7 @@ end;
function TfEditorElegirArticulos.GetMensaje: String; function TfEditorElegirArticulos.GetMensaje: String;
begin begin
Result := JvgWizardHeader1.Comments.Text; Result := lblComments.Caption;
end; end;
function TfEditorElegirArticulos.GetMultiSelect: Boolean; function TfEditorElegirArticulos.GetMultiSelect: Boolean;
@ -196,7 +197,7 @@ end;
procedure TfEditorElegirArticulos.SetMensaje(const AValue: String); procedure TfEditorElegirArticulos.SetMensaje(const AValue: String);
begin begin
JvgWizardHeader1.Comments.Text := AValue; lblComments.Caption := AValue;
end; end;
procedure TfEditorElegirArticulos.SetMultiSelect(AValue: Boolean); procedure TfEditorElegirArticulos.SetMultiSelect(AValue: Boolean);

75
Source/Modulos/Banca electronica/Views/uEditorExportacionNorma19.dfm
View File

@ -41,37 +41,54 @@ object fEditorExportacionNorma19: TfEditorExportacionNorma19
Height = 13 Height = 13
Caption = 'Fecha de cargo:' Caption = 'Fecha de cargo:'
end end
object JvgWizardHeader1: TJvgWizardHeader object pnlHeader: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
Width = 389 Width = 656
Height = 60 Height = 64
CaptionFont.Charset = DEFAULT_CHARSET Align = alTop
CaptionFont.Color = clWindowText BevelOuter = bvNone
CaptionFont.Height = -11 Color = clWhite
CaptionFont.Name = 'Tahoma' Padding.Left = 25
CaptionFont.Style = [fsBold] Padding.Top = 8
CommentFont.Charset = DEFAULT_CHARSET Padding.Right = 25
CommentFont.Color = clWindowText Padding.Bottom = 8
CommentFont.Height = -11 ParentBackground = False
CommentFont.Name = 'Tahoma' TabOrder = 5
CommentFont.Style = [] object lblTitle: TLabel
SymbolFont.Charset = DEFAULT_CHARSET AlignWithMargins = True
SymbolFont.Color = clHighlightText Left = 25
SymbolFont.Height = -35 Top = 8
SymbolFont.Name = 'Wingdings' Width = 606
SymbolFont.Style = [fsBold] Height = 13
Captions.Strings = ( Margins.Left = 0
'Volcado de remesas a disco') Margins.Top = 0
Comments.Strings = ( Margins.Right = 0
'Introduzca los siguientes datos para realizar el volcado') Margins.Bottom = 8
Gradient.FromColor = clHighlight Align = alTop
Gradient.ToColor = clWindow Caption = 'Volcado de remesas a disco'
Gradient.Active = False Font.Charset = DEFAULT_CHARSET
Gradient.Orientation = fgdVertical Font.Color = clWindowText
BufferedDraw = False Font.Height = -11
ExplicitLeft = -8 Font.Name = 'Tahoma'
ExplicitTop = 76 Font.Style = [fsBold]
ParentFont = False
ExplicitWidth = 135
end
object lblComments: TLabel
AlignWithMargins = True
Caption = 'Introduzca los siguientes datos para realizar el volcado'
Left = 50
Top = 29
Width = 581
Height = 27
Margins.Left = 25
Margins.Top = 0
Margins.Right = 0
Align = alClient
ExplicitWidth = 3
ExplicitHeight = 13
end
end end
object Image1: TImage object Image1: TImage
Left = 345 Left = 345

5
Source/Modulos/Banca electronica/Views/uEditorExportacionNorma19.pas
View File

@ -6,7 +6,7 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, pngimage, cxControls, cxContainer, cxEdit, Dialogs, ExtCtrls, StdCtrls, pngimage, cxControls, cxContainer, cxEdit,
cxTextEdit, cxMaskEdit, cxDropDownEdit, cxCalendar, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxCalendar,
uIEditorExportacionNorma19, JvExControls, JvComponent, JvgWizardHeader, uIEditorExportacionNorma19, JvExControls, JvComponent,
JvAppStorage, JvAppRegistryStorage, JvComponentBase, JvFormPlacement, JvAppStorage, JvAppRegistryStorage, JvComponentBase, JvFormPlacement,
JvDialogs, Mask, JvExMask, JvToolEdit, ActnList; JvDialogs, Mask, JvExMask, JvToolEdit, ActnList;
@ -21,7 +21,8 @@ type
Label4: TLabel; Label4: TLabel;
edtCodEntidad: TcxMaskEdit; edtCodEntidad: TcxMaskEdit;
edtCodAgencia: TcxMaskEdit; edtCodAgencia: TcxMaskEdit;
JvgWizardHeader1: TJvgWizardHeader; lblTitle: TLabel;
lblComments: TLabel;
Bevel1: TBevel; Bevel1: TBevel;
JvFormStorage: TJvFormStorage; JvFormStorage: TJvFormStorage;
JvAppRegistryStorage: TJvAppRegistryStorage; JvAppRegistryStorage: TJvAppRegistryStorage;

155
Source/Modulos/Contactos/Views/uEditorElegirClientes.dfm
View File

@ -4,41 +4,12 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
ExplicitWidth = 691 ExplicitWidth = 691
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
object JvgWizardHeader1: TJvgWizardHeader [0]
Left = 0
Top = 27
Width = 683
Height = 60
CaptionFont.Charset = DEFAULT_CHARSET
CaptionFont.Color = clWindowText
CaptionFont.Height = -11
CaptionFont.Name = 'Tahoma'
CaptionFont.Style = [fsBold]
CommentFont.Charset = DEFAULT_CHARSET
CommentFont.Color = clWindowText
CommentFont.Height = -11
CommentFont.Name = 'Tahoma'
CommentFont.Style = []
SymbolFont.Charset = DEFAULT_CHARSET
SymbolFont.Color = clHighlightText
SymbolFont.Height = -35
SymbolFont.Name = 'Wingdings'
SymbolFont.Style = [fsBold]
Captions.Strings = (
'Seleccione el cliente')
Comments.Strings = (
' ')
Gradient.FromColor = clHighlight
Gradient.ToColor = clWindow
Gradient.Active = False
Gradient.Orientation = fgdVertical
BufferedDraw = True
ExplicitLeft = 16
ExplicitTop = 8
end
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Top = 113
Width = 683 Width = 683
Visible = False Visible = False
ExplicitLeft = -8
ExplicitTop = 133
ExplicitWidth = 683 ExplicitWidth = 683
inherited Image1: TImage inherited Image1: TImage
Left = 656 Left = 656
@ -46,22 +17,24 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
end end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Top = 87 Top = 64
Width = 683 Width = 683
ExplicitTop = 87 Height = 49
ExplicitTop = 64
ExplicitWidth = 683 ExplicitWidth = 683
ExplicitHeight = 49
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 284 ExplicitWidth = 378
inherited TBXItem36: TTBXItem inherited TBXItem36: TTBXItem
Action = actAnchoAuto2 Action = actAnchoAuto2
end end
end end
inherited tbxFiltro: TTBXToolbar inherited tbxFiltro: TTBXToolbar
Left = 284 Left = 378
Top = 23 Top = 23
DockPos = 96 DockPos = 96
DockRow = 1 DockRow = 1
ExplicitLeft = 284 ExplicitLeft = 378
ExplicitTop = 23 ExplicitTop = 23
inherited TBXItem34: TTBXItem inherited TBXItem34: TTBXItem
Action = actQuitarFiltro2 Action = actQuitarFiltro2
@ -70,13 +43,21 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 683 ExplicitWidth = 683
end end
inherited TBXTMain2: TTBXToolbar
Left = 647
Top = 23
DockPos = 656
DockRow = 1
ExplicitLeft = 647
ExplicitTop = 23
end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Width = 683 Width = 683
Visible = False Visible = False
ExplicitWidth = 683 ExplicitWidth = 683
end end
inline frViewBarraSeleccion1: TfrViewBarraSeleccion [4] inline frViewBarraSeleccion1: TfrViewBarraSeleccion [3]
Left = 0 Left = 0
Top = 464 Top = 464
Width = 683 Width = 683
@ -122,27 +103,76 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
end end
end end
end end
inherited frViewClientes1: TfrViewClientes [5] object pnlHeader: TPanel [4]
Top = 162 Left = 0
Top = 0
Width = 683 Width = 683
Height = 302 Height = 64
Align = alTop
BevelOuter = bvNone
Color = clWhite
Padding.Left = 25
Padding.Top = 8
Padding.Right = 25
Padding.Bottom = 8
ParentBackground = False
TabOrder = 5
ExplicitTop = 27
object lblTitle: TLabel
AlignWithMargins = True
Left = 25
Top = 8
Width = 633
Height = 13
Margins.Left = 0
Margins.Top = 0
Margins.Right = 0
Margins.Bottom = 8
Align = alTop
Caption = 'Seleccione el cliente'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
ExplicitWidth = 114
end
object lblComments: TLabel
AlignWithMargins = True
Left = 50
Top = 29
Width = 608
Height = 24
Margins.Left = 25
Margins.Top = 0
Margins.Right = 0
Align = alClient
ExplicitWidth = 3
ExplicitHeight = 13
end
end
inherited frViewClientes1: TfrViewClientes [5]
Top = 140
Width = 683
Height = 324
Padding.Left = 10 Padding.Left = 10
Padding.Top = 10 Padding.Top = 10
Padding.Right = 10 Padding.Right = 10
Padding.Bottom = 5 Padding.Bottom = 5
TabOrder = 4 TabOrder = 4
ExplicitTop = 162 ExplicitTop = 166
ExplicitWidth = 683 ExplicitWidth = 683
ExplicitHeight = 302 ExplicitHeight = 298
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Left = 10 Left = 10
Top = 112 Top = 112
Width = 663 Width = 663
Height = 159 Height = 181
ExplicitLeft = 10 ExplicitLeft = 10
ExplicitTop = 112 ExplicitTop = 112
ExplicitWidth = 663 ExplicitWidth = 663
ExplicitHeight = 159 ExplicitHeight = 155
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
@ -170,21 +200,37 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 689
Width = 689
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
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 = 460
Width = 460
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 397
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 = 397
ExplicitWidth = 123 ExplicitWidth = 123
Width = 123 Width = 123
end end
inherited eLista: TcxComboBox
Left = 515
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 515
ExplicitWidth = 215
Width = 215
end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 663 Width = 663
@ -198,15 +244,16 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
end end
inherited pnlAgrupaciones: TTBXDockablePanel inherited pnlAgrupaciones: TTBXDockablePanel
Left = 10 Left = 10
Top = 271 Top = 293
ExplicitLeft = 10 ExplicitLeft = 10
ExplicitTop = 271 ExplicitTop = 267
ExplicitWidth = 663 ExplicitWidth = 663
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 663 Width = 663
ExplicitWidth = 663 ExplicitWidth = 663
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
Width = 653 Width = 653
ExplicitWidth = 653
end end
end end
end end
@ -219,6 +266,14 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
BuiltInReportLink = True BuiltInReportLink = True
end end
end end
inherited cxViewGridPopupMenu: TcxGridPopupMenu
PopupMenus = <
item
GridView = frViewClientes1.cxGridView
HitTypes = [gvhtCell]
Index = 0
end>
end
end end
inherited EditorActionList: TActionList [6] inherited EditorActionList: TActionList [6]
Left = 112 Left = 112
@ -226,6 +281,9 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
inherited actNuevo: TAction inherited actNuevo: TAction
Visible = False Visible = False
end end
inherited actGruposCliente: TAction
Visible = False
end
inherited actModificar: TAction inherited actModificar: TAction
Visible = False Visible = False
end end
@ -283,9 +341,6 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
inherited actDuplicar: TAction inherited actDuplicar: TAction
Visible = False Visible = False
end end
inherited actGruposCliente: TAction
Visible = False
end
end end
inherited SmallImages: TPngImageList [7] inherited SmallImages: TPngImageList [7]
end end

9
Source/Modulos/Contactos/Views/uEditorElegirClientes.pas
View File

@ -9,14 +9,15 @@ uses
StdActns, ActnList, uCustomView, uViewBase, uViewGridBase, uViewGrid, StdActns, ActnList, uCustomView, uViewBase, uViewGridBase, uViewGrid,
uViewContactos, uViewClientes, ComCtrls, TB2ExtItems, TBXExtItems, TBX, uViewContactos, uViewClientes, ComCtrls, TB2ExtItems, TBXExtItems, TBX,
TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent,
JvNavigationPane, uIEditorElegirClientes, uViewBarraSeleccion, JvgWizardHeader, JvNavigationPane, uIEditorElegirClientes, uViewBarraSeleccion,
StdCtrls, uBizContactos, TBXStatusBars, JvExComCtrls, JvStatusBar, JSDialog, StdCtrls, uBizContactos, TBXStatusBars, JvExComCtrls, JvStatusBar, JSDialog,
uDAInterfaces; uDAInterfaces;
type type
TfEditorElegirClientes = class(TfEditorClientes, IEditorElegirClientes) TfEditorElegirClientes = class(TfEditorClientes, IEditorElegirClientes)
frViewBarraSeleccion1: TfrViewBarraSeleccion; frViewBarraSeleccion1: TfrViewBarraSeleccion;
JvgWizardHeader1: TJvgWizardHeader; lblTitle: TLabel;
lblComments: TLabel;
JsClienteBloqueadoDialog: TJSDialog; JsClienteBloqueadoDialog: TJSDialog;
EditorSeleccionActionList: TActionList; EditorSeleccionActionList: TActionList;
actBuscar2: TAction; actBuscar2: TAction;
@ -128,7 +129,7 @@ end;
function TfEditorElegirClientes.GetMensaje: String; function TfEditorElegirClientes.GetMensaje: String;
begin begin
Result := JvgWizardHeader1.Comments.Text; Result := lblComments.Caption;
end; end;
function TfEditorElegirClientes.GetMultiSelect: Boolean; function TfEditorElegirClientes.GetMultiSelect: Boolean;
@ -138,7 +139,7 @@ end;
procedure TfEditorElegirClientes.SetMensaje(const AValue: String); procedure TfEditorElegirClientes.SetMensaje(const AValue: String);
begin begin
JvgWizardHeader1.Comments.Text := AValue; lblComments.Caption := AValue;
end; end;
procedure TfEditorElegirClientes.SetMultiSelect(AValue: Boolean); procedure TfEditorElegirClientes.SetMultiSelect(AValue: Boolean);

79
Source/Modulos/Contactos/Views/uEditorElegirDireccionEntrega.dfm
View File

@ -14,40 +14,55 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega
OnShow = FormShow OnShow = FormShow
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
object JvgWizardHeader1: TJvgWizardHeader object pnlHeader: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
Width = 599 Width = 656
Height = 60 Height = 64
CaptionFont.Charset = DEFAULT_CHARSET Align = alTop
CaptionFont.Color = clWindowText BevelOuter = bvNone
CaptionFont.Height = -11 Color = clWhite
CaptionFont.Name = 'Tahoma' Padding.Left = 25
CaptionFont.Style = [fsBold] Padding.Top = 8
CommentFont.Charset = DEFAULT_CHARSET Padding.Right = 25
CommentFont.Color = clWindowText Padding.Bottom = 8
CommentFont.Height = -11 ParentBackground = False
CommentFont.Name = 'Tahoma' TabOrder = 5
CommentFont.Style = [] object lblTitle: TLabel
SymbolFont.Charset = DEFAULT_CHARSET AlignWithMargins = True
SymbolFont.Color = clHighlightText Left = 25
SymbolFont.Height = -35 Top = 8
SymbolFont.Name = 'Wingdings' Width = 606
SymbolFont.Style = [fsBold] Height = 13
Captions.Strings = ( Margins.Left = 0
'Seleccione una direcci'#243'n del cliente') Margins.Top = 0
Comments.Strings = ( Margins.Right = 0
Margins.Bottom = 8
'El cliente dispone de varias direcciones dadas de alta en su fic' + Align = alTop
'ha. Seleccione la direcci'#243'n del cliente que quiere utilizar.') Caption = 'Seleccione una direcci'#243'n del cliente'
Gradient.FromColor = clHighlight Font.Charset = DEFAULT_CHARSET
Gradient.ToColor = clWindow Font.Color = clWindowText
Gradient.Active = False Font.Height = -11
Gradient.Orientation = fgdVertical Font.Name = 'Tahoma'
BufferedDraw = False Font.Style = [fsBold]
ExplicitLeft = -57 ParentFont = False
ExplicitTop = 27 ExplicitWidth = 135
ExplicitWidth = 656 end
object lblComments: TLabel
AlignWithMargins = True
Left = 50
Top = 29
Width = 581
Height = 27
Margins.Left = 25
Margins.Top = 0
Margins.Right = 0
Align = alClient
ExplicitWidth = 3
ExplicitHeight = 13
Caption = 'El cliente dispone de varias direcciones dadas de alta en su fic' +
'ha. Seleccione la direcci'#243'n del cliente que quiere utilizar.'
end
end end
inline frViewBarraSeleccion1: TfrViewBarraSeleccion inline frViewBarraSeleccion1: TfrViewBarraSeleccion
Left = 0 Left = 0

15
Source/Modulos/Contactos/Views/uEditorElegirDireccionEntrega.pas
View File

@ -6,7 +6,7 @@ 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,
uIEditorElegirDireccionEntrega, uCustomView, uBizContactos, uIEditorElegirDireccionEntrega, uCustomView, uBizContactos,
uViewBase, uViewBarraSeleccion, JvExControls, JvComponent, JvgWizardHeader, uViewBase, uViewBarraSeleccion, JvExControls, JvComponent,
DBCGrids, uBizDireccionesContacto, uDAInterfaces, ActnList, DBCGrids, uBizDireccionesContacto, uDAInterfaces, ActnList,
uDireccionesContactoController; uDireccionesContactoController;
@ -14,7 +14,8 @@ type
TfEditorElegirDireccionEntrega = class(TForm, IEditorElegirDireccionEntrega) TfEditorElegirDireccionEntrega = class(TForm, IEditorElegirDireccionEntrega)
dsDirecciones: TDADataSource; dsDirecciones: TDADataSource;
frViewBarraSeleccion1: TfrViewBarraSeleccion; frViewBarraSeleccion1: TfrViewBarraSeleccion;
JvgWizardHeader1: TJvgWizardHeader; lblTitle: TLabel;
lblComments: TLabel;
DBCtrlGrid1: TDBCtrlGrid; DBCtrlGrid1: TDBCtrlGrid;
eCalle: TDBText; eCalle: TDBText;
ePoblacion: TDBText; ePoblacion: TDBText;
@ -106,12 +107,12 @@ begin
if Supports(FContacto, IBizCliente) then if Supports(FContacto, IBizCliente) then
begin begin
Caption := 'Elegir una dirección de cliente'; Caption := 'Elegir una dirección de cliente';
JvgWizardHeader1.Captions.Text := 'Seleccione una dirección de cliente'; lblTitle.Caption := 'Seleccione una dirección de cliente';
end; end;
if Supports(FContacto, IBizProveedor) then if Supports(FContacto, IBizProveedor) then
begin begin
Caption := 'Elegir una dirección de proveedor'; Caption := 'Elegir una dirección de proveedor';
JvgWizardHeader1.Captions.Text := 'Seleccione una dirección de proveedor'; lblTitle.Caption := 'Seleccione una dirección de proveedor';
end; end;
end; end;
@ -198,7 +199,7 @@ end;
function TfEditorElegirDireccionEntrega.GetMensaje: String; function TfEditorElegirDireccionEntrega.GetMensaje: String;
begin begin
Result := JvgWizardHeader1.Comments.Text; Result := lblComments.Caption;
end; end;
procedure TfEditorElegirDireccionEntrega.RefrescarEstado; procedure TfEditorElegirDireccionEntrega.RefrescarEstado;
@ -267,9 +268,9 @@ end;
procedure TfEditorElegirDireccionEntrega.SetMensaje(const AValue: String); procedure TfEditorElegirDireccionEntrega.SetMensaje(const AValue: String);
begin begin
if not EsCadenaVacia(AValue) then if not EsCadenaVacia(AValue) then
JvgWizardHeader1.Comments.Text := AValue lblComments.Caption := AValue
else else
JvgWizardHeader1.Comments.Text := ' '; lblComments.Caption := ' ';
end; end;
end. end.

79
Source/Modulos/Contactos/Views/uEditorElegirPersonaContacto.dfm
View File

@ -11,40 +11,55 @@ object fEditorElegirPersonaContacto: TfEditorElegirPersonaContacto
Position = poOwnerFormCenter Position = poOwnerFormCenter
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
object JvgWizardHeader1: TJvgWizardHeader object pnlHeader: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
Width = 599 Width = 656
Height = 60 Height = 64
CaptionFont.Charset = DEFAULT_CHARSET Align = alTop
CaptionFont.Color = clWindowText BevelOuter = bvNone
CaptionFont.Height = -11 Color = clWhite
CaptionFont.Name = 'Tahoma' Padding.Left = 25
CaptionFont.Style = [fsBold] Padding.Top = 8
CommentFont.Charset = DEFAULT_CHARSET Padding.Right = 25
CommentFont.Color = clWindowText Padding.Bottom = 8
CommentFont.Height = -11 ParentBackground = False
CommentFont.Name = 'Tahoma' TabOrder = 5
CommentFont.Style = [] object lblTitle: TLabel
SymbolFont.Charset = DEFAULT_CHARSET AlignWithMargins = True
SymbolFont.Color = clHighlightText Left = 25
SymbolFont.Height = -35 Top = 8
SymbolFont.Name = 'Wingdings' Width = 606
SymbolFont.Style = [fsBold] Height = 13
Captions.Strings = ( Margins.Left = 0
'Seleccione una persona de contacto') Margins.Top = 0
Comments.Strings = ( Margins.Right = 0
Margins.Bottom = 8
'El cliente dispone de personas de contacto dadas de alta en su f' + Align = alTop
'icha. Seleccione la que quiere utilizar.') Caption = 'Seleccione una persona de contacto'
Gradient.FromColor = clHighlight Font.Charset = DEFAULT_CHARSET
Gradient.ToColor = clWindow Font.Color = clWindowText
Gradient.Active = False Font.Height = -11
Gradient.Orientation = fgdVertical Font.Name = 'Tahoma'
BufferedDraw = False Font.Style = [fsBold]
ExplicitLeft = -57 ParentFont = False
ExplicitTop = 27 ExplicitWidth = 135
ExplicitWidth = 656 end
object lblComments: TLabel
AlignWithMargins = True
Left = 50
Top = 29
Width = 581
Height = 27
Margins.Left = 25
Margins.Top = 0
Margins.Right = 0
Align = alClient
ExplicitWidth = 3
ExplicitHeight = 13
Caption = 'El cliente dispone de personas de contacto dadas de alta en su f' +
'icha. Seleccione la que quiere utilizar.'
end
end end
inline frViewBarraSeleccion1: TfrViewBarraSeleccion inline frViewBarraSeleccion1: TfrViewBarraSeleccion
Left = 0 Left = 0

9
Source/Modulos/Contactos/Views/uEditorElegirPersonaContacto.pas
View File

@ -6,14 +6,15 @@ 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,
uIEditorElegirPersonaContacto, uCustomView, uIEditorElegirPersonaContacto, uCustomView,
uViewBase, uViewBarraSeleccion, JvExControls, JvComponent, JvgWizardHeader, uViewBase, uViewBarraSeleccion, JvExControls, JvComponent,
DBCGrids, uBizContactosPersonal, uDAInterfaces; DBCGrids, uBizContactosPersonal, uDAInterfaces;
type type
TfEditorElegirPersonaContacto = class(TForm, IEditorElegirPersonaContacto) TfEditorElegirPersonaContacto = class(TForm, IEditorElegirPersonaContacto)
dsPersonas: TDADataSource; dsPersonas: TDADataSource;
frViewBarraSeleccion1: TfrViewBarraSeleccion; frViewBarraSeleccion1: TfrViewBarraSeleccion;
JvgWizardHeader1: TJvgWizardHeader; lblTitle: TLabel;
lblComments: TLabel;
DBCtrlGrid1: TDBCtrlGrid; DBCtrlGrid1: TDBCtrlGrid;
ePuesto: TDBText; ePuesto: TDBText;
eTelefono: TDBText; eTelefono: TDBText;
@ -90,7 +91,7 @@ end;
function TfEditorElegirPersonaContacto.GetMensaje: String; function TfEditorElegirPersonaContacto.GetMensaje: String;
begin begin
Result := JvgWizardHeader1.Comments.Text; Result := lblComments.Caption;
end; end;
procedure TfEditorElegirPersonaContacto.SetPersonas(const Value: IBizContactoPersonal); procedure TfEditorElegirPersonaContacto.SetPersonas(const Value: IBizContactoPersonal);
@ -104,7 +105,7 @@ end;
procedure TfEditorElegirPersonaContacto.SetMensaje(const AValue: String); procedure TfEditorElegirPersonaContacto.SetMensaje(const AValue: String);
begin begin
JvgWizardHeader1.Comments.Text := AValue; lblComments.Caption := AValue;
end; end;
end. end.

151
Source/Modulos/Contactos/Views/uEditorElegirProveedores.dfm
View File

@ -6,41 +6,12 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
ExplicitHeight = 514 ExplicitHeight = 514
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
object JvgWizardHeader1: TJvgWizardHeader [0]
Left = 0
Top = 27
Width = 656
Height = 60
CaptionFont.Charset = DEFAULT_CHARSET
CaptionFont.Color = clWindowText
CaptionFont.Height = -11
CaptionFont.Name = 'Tahoma'
CaptionFont.Style = [fsBold]
CommentFont.Charset = DEFAULT_CHARSET
CommentFont.Color = clWindowText
CommentFont.Height = -11
CommentFont.Name = 'Tahoma'
CommentFont.Style = []
SymbolFont.Charset = DEFAULT_CHARSET
SymbolFont.Color = clHighlightText
SymbolFont.Height = -35
SymbolFont.Name = 'Wingdings'
SymbolFont.Style = [fsBold]
Captions.Strings = (
'Seleccione el proveedor')
Comments.Strings = (
' ')
Gradient.FromColor = clHighlight
Gradient.ToColor = clWindow
Gradient.Active = False
Gradient.BufferedDraw = True
Gradient.Orientation = fgdVertical
BufferedDraw = True
ExplicitTop = -10
end
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Top = 113
Width = 656 Width = 656
Visible = False Visible = False
ExplicitLeft = 8
ExplicitTop = 166
ExplicitWidth = 656 ExplicitWidth = 656
inherited Image1: TImage inherited Image1: TImage
Left = 629 Left = 629
@ -48,22 +19,24 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
end end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Top = 87 Top = 64
Width = 656 Width = 656
ExplicitTop = 87 Height = 49
ExplicitTop = 64
ExplicitWidth = 656 ExplicitWidth = 656
ExplicitHeight = 49
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 284 ExplicitWidth = 351
inherited TBXItem36: TTBXItem inherited TBXItem36: TTBXItem
Action = actAnchoAuto2 Action = actAnchoAuto2
end end
end end
inherited tbxFiltro: TTBXToolbar inherited tbxFiltro: TTBXToolbar
Left = 284 Left = 351
Top = 23 Top = 23
DockPos = 108 DockPos = 108
DockRow = 1 DockRow = 1
ExplicitLeft = 284 ExplicitLeft = 351
ExplicitTop = 23 ExplicitTop = 23
inherited TBXItem34: TTBXItem inherited TBXItem34: TTBXItem
Action = actQuitarFiltro2 Action = actQuitarFiltro2
@ -72,6 +45,14 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 656 ExplicitWidth = 656
end end
inherited TBXTMain2: TTBXToolbar
Left = 620
Top = 23
DockPos = 629
DockRow = 1
ExplicitLeft = 620
ExplicitTop = 23
end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 461 Top = 461
@ -80,7 +61,7 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
ExplicitTop = 461 ExplicitTop = 461
ExplicitWidth = 656 ExplicitWidth = 656
end end
inline frViewBarraSeleccion1: TfrViewBarraSeleccion [4] inline frViewBarraSeleccion1: TfrViewBarraSeleccion [3]
Left = 0 Left = 0
Top = 425 Top = 425
Width = 656 Width = 656
@ -125,27 +106,76 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
end end
end end
end end
inherited frViewProveedores1: TfrViewProveedores [5] object pnlHeader: TPanel [4]
Top = 162 Left = 0
Top = 0
Width = 656 Width = 656
Height = 263 Height = 64
Align = alTop
BevelOuter = bvNone
Color = clWhite
Padding.Left = 25
Padding.Top = 8
Padding.Right = 25
Padding.Bottom = 8
ParentBackground = False
TabOrder = 5
ExplicitTop = 27
object lblTitle: TLabel
AlignWithMargins = True
Left = 25
Top = 8
Width = 606
Height = 13
Margins.Left = 0
Margins.Top = 0
Margins.Right = 0
Margins.Bottom = 8
Align = alTop
Caption = 'Seleccione el proveedor'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
ExplicitWidth = 135
end
object lblComments: TLabel
AlignWithMargins = True
Left = 50
Top = 29
Width = 581
Height = 24
Margins.Left = 25
Margins.Top = 0
Margins.Right = 0
Align = alClient
ExplicitWidth = 3
ExplicitHeight = 13
end
end
inherited frViewProveedores1: TfrViewProveedores [5]
Top = 140
Width = 656
Height = 285
Padding.Left = 10 Padding.Left = 10
Padding.Top = 10 Padding.Top = 10
Padding.Right = 10 Padding.Right = 10
Padding.Bottom = 5 Padding.Bottom = 5
TabOrder = 4 TabOrder = 4
ExplicitTop = 162 ExplicitTop = 166
ExplicitWidth = 656 ExplicitWidth = 656
ExplicitHeight = 263 ExplicitHeight = 259
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Left = 10 Left = 10
Top = 112 Top = 112
Width = 636 Width = 636
Height = 120 Height = 142
ExplicitLeft = 10 ExplicitLeft = 10
ExplicitTop = 112 ExplicitTop = 112
ExplicitWidth = 636 ExplicitWidth = 636
ExplicitHeight = 120 ExplicitHeight = 116
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
@ -174,18 +204,36 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 446
Width = 446
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
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 = 219
Width = 219
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 261
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 = 261
ExplicitWidth = 210
Width = 210
end
inherited eLista: TcxComboBox
Left = 462
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 462
ExplicitWidth = 215
Width = 215
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
@ -200,9 +248,10 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
end end
inherited pnlAgrupaciones: TTBXDockablePanel inherited pnlAgrupaciones: TTBXDockablePanel
Left = 10 Left = 10
Top = 232 Top = 254
ExplicitLeft = 10 ExplicitLeft = 10
ExplicitTop = 232 ExplicitTop = 228
ExplicitWidth = 636
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 636 Width = 636
ExplicitWidth = 636 ExplicitWidth = 636
@ -221,6 +270,14 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
BuiltInReportLink = True BuiltInReportLink = True
end end
end end
inherited cxViewGridPopupMenu: TcxGridPopupMenu
PopupMenus = <
item
GridView = frViewProveedores1.cxGridView
HitTypes = [gvhtCell]
Index = 0
end>
end
end end
inherited EditorActionList: TActionList [6] inherited EditorActionList: TActionList [6]
Left = 112 Left = 112

9
Source/Modulos/Contactos/Views/uEditorElegirProveedores.pas
View File

@ -9,14 +9,15 @@ uses
StdActns, ActnList, uCustomView, uViewBase, uViewGridBase, uViewGrid, StdActns, ActnList, uCustomView, uViewBase, uViewGridBase, uViewGrid,
uViewContactos, uViewProveedores, ComCtrls, TB2ExtItems, TBXExtItems, TBX, uViewContactos, uViewProveedores, ComCtrls, TB2ExtItems, TBXExtItems, TBX,
TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent,
JvNavigationPane, uIEditorElegirProveedores, uViewBarraSeleccion, JvgWizardHeader, JvNavigationPane, uIEditorElegirProveedores, uViewBarraSeleccion,
StdCtrls, uBizContactos, TBXStatusBars, JvExComCtrls, JvStatusBar, JSDialog, StdCtrls, uBizContactos, TBXStatusBars, JvExComCtrls, JvStatusBar, JSDialog,
uDAInterfaces; uDAInterfaces;
type type
TfEditorElegirProveedores = class(TfEditorProveedores, IEditorElegirProveedores) TfEditorElegirProveedores = class(TfEditorProveedores, IEditorElegirProveedores)
frViewBarraSeleccion1: TfrViewBarraSeleccion; frViewBarraSeleccion1: TfrViewBarraSeleccion;
JvgWizardHeader1: TJvgWizardHeader; lblTitle: TLabel;
lblComments: TLabel;
EditorSeleccionActionList: TActionList; EditorSeleccionActionList: TActionList;
actBuscar2: TAction; actBuscar2: TAction;
actQuitarFiltro2: TAction; actQuitarFiltro2: TAction;
@ -104,7 +105,7 @@ end;
function TfEditorElegirProveedores.GetMensaje: String; function TfEditorElegirProveedores.GetMensaje: String;
begin begin
Result := JvgWizardHeader1.Comments.Text; Result := lblComments.Caption;
end; end;
function TfEditorElegirProveedores.GetMultiSelect: Boolean; function TfEditorElegirProveedores.GetMultiSelect: Boolean;
@ -114,7 +115,7 @@ end;
procedure TfEditorElegirProveedores.SetMensaje(const AValue: String); procedure TfEditorElegirProveedores.SetMensaje(const AValue: String);
begin begin
JvgWizardHeader1.Comments.Text := AValue; lblComments.Caption := AValue;
end; end;
procedure TfEditorElegirProveedores.SetMultiSelect(AValue: Boolean); procedure TfEditorElegirProveedores.SetMultiSelect(AValue: Boolean);

24
Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dproj
View File

@ -49,17 +49,18 @@
<DelphiCompile Include="FacturasCliente_view.dpk"> <DelphiCompile Include="FacturasCliente_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="AlbCli_FacCli_relation.dcp" /> <DCCReference Include="..\AlbCli_FacCli_relation.dcp" />
<DCCReference Include="ApplicationBase.dcp" /> <DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="Articulos_view.dcp" /> <DCCReference Include="..\Articulos_view.dcp" />
<DCCReference Include="Base.dcp" /> <DCCReference Include="..\Base.dcp" />
<DCCReference Include="Contactos_view.dcp" /> <DCCReference Include="..\Contactos_view.dcp" />
<DCCReference Include="FacturasCliente_controller.dcp" /> <DCCReference Include="..\FacturasCliente_controller.dcp" />
<DCCReference Include="FacturasCliente_model.dcp" /> <DCCReference Include="..\FacturasCliente_model.dcp" />
<DCCReference Include="GestorInformes_controller.dcp" /> <DCCReference Include="..\GestorInformes_controller.dcp" />
<DCCReference Include="GUIBase.dcp" /> <DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="PreCli_FacCli_relation.dcp" /> <DCCReference Include="..\PreCli_FacCli_relation.dcp" />
<DCCReference Include="rtl.dcp" /> <DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\vcl.dcp" />
<DCCReference Include="uDialogOpcionesImpresionFacturasCliente.pas"> <DCCReference Include="uDialogOpcionesImpresionFacturasCliente.pas">
<Form>fDialogOpcionesImpresionFacturasCliente</Form> <Form>fDialogOpcionesImpresionFacturasCliente</Form>
<DesignClass>TfEditorElegirFacturasCliente</DesignClass> <DesignClass>TfEditorElegirFacturasCliente</DesignClass>
@ -104,7 +105,6 @@
<Form>frViewFacturasCliente</Form> <Form>frViewFacturasCliente</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="vcl.dcp" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line

2
Source/Modulos/Facturas de cliente/Views/uEditorElegirArticulosFacturaCliente.pas
View File

@ -9,7 +9,7 @@ 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, uIEditorElegirArticulosFacturasCliente, uDAInterfaces, uIEditorElegirArticulosFacturasCliente, uDAInterfaces,
uViewGridBase, uViewGrid, uViewArticulos; uViewGridBase, uViewGrid, uViewArticulos;
type type

135
Source/Modulos/Facturas de cliente/Views/uEditorElegirFacturasCliente.dfm
View File

@ -4,47 +4,13 @@ inherited fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente
ExplicitWidth = 662 ExplicitWidth = 662
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
object JvgWizardHeader1: TJvgWizardHeader [0]
Left = 0
Top = 0
Width = 654
Height = 60
CaptionFont.Charset = DEFAULT_CHARSET
CaptionFont.Color = clWindowText
CaptionFont.Height = -11
CaptionFont.Name = 'Tahoma'
CaptionFont.Style = [fsBold]
CommentFont.Charset = DEFAULT_CHARSET
CommentFont.Color = clWindowText
CommentFont.Height = -11
CommentFont.Name = 'Tahoma'
CommentFont.Style = []
SymbolFont.Charset = DEFAULT_CHARSET
SymbolFont.Color = clHighlightText
SymbolFont.Height = -35
SymbolFont.Name = 'Wingdings'
SymbolFont.Style = [fsBold]
Captions.Strings = (
'Seleccione las facturas de cliente, que desea liquidar su comisi' +
#243'n')
Comments.Strings = (
' ')
Gradient.FromColor = clHighlight
Gradient.ToColor = clWindow
Gradient.Active = False
Gradient.Orientation = fgdVertical
BufferedDraw = False
ExplicitLeft = -8
ExplicitTop = -21
ExplicitWidth = 656
end
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Top = 60 Top = 113
Width = 654 Width = 654
Caption = 'Lista de facturas de cliente para liquidar su comisi'#243'n' Caption = 'Lista de facturas de cliente para liquidar su comisi'#243'n'
Visible = False Visible = False
ExplicitTop = 60 ExplicitLeft = -8
ExplicitTop = 169
ExplicitWidth = 654 ExplicitWidth = 654
inherited Image1: TImage inherited Image1: TImage
Left = 627 Left = 627
@ -52,12 +18,12 @@ inherited fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente
end end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Top = 87 Top = 64
Width = 654 Width = 654
Height = 72 Height = 49
ExplicitTop = 87 ExplicitTop = 64
ExplicitWidth = 654 ExplicitWidth = 654
ExplicitHeight = 72 ExplicitHeight = 49
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
Left = 97 Left = 97
ExplicitLeft = 97 ExplicitLeft = 97
@ -101,16 +67,19 @@ inherited fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente
ExplicitWidth = 654 ExplicitWidth = 654
end end
inherited TBXTMain2: TTBXToolbar inherited TBXTMain2: TTBXToolbar
Left = 318 Left = 468
ExplicitLeft = 318 Top = 23
ExplicitHeight = 23 DockPos = 462
DockRow = 1
ExplicitLeft = 468
ExplicitTop = 23
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Width = 654 Width = 654
ExplicitWidth = 654 ExplicitWidth = 654
end end
inline frViewBarraSeleccion1: TfrViewBarraSeleccion [4] inline frViewBarraSeleccion1: TfrViewBarraSeleccion [3]
Left = 0 Left = 0
Top = 611 Top = 611
Width = 654 Width = 654
@ -155,19 +124,69 @@ inherited fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente
end end
end end
end end
inherited frViewFacturasCliente1: TfrViewFacturasCliente [5] object pnlHeader: TPanel [4]
Top = 159 Left = 0
Top = 0
Width = 654 Width = 654
Height = 452 Height = 64
ExplicitTop = 159 Align = alTop
BevelOuter = bvNone
Color = clWhite
Padding.Left = 25
Padding.Top = 8
Padding.Right = 25
Padding.Bottom = 8
ParentBackground = False
TabOrder = 5
object lblTitle: TLabel
AlignWithMargins = True
Left = 25
Top = 8
Width = 604
Height = 13
Margins.Left = 0
Margins.Top = 0
Margins.Right = 0
Margins.Bottom = 8
Align = alTop
Caption =
'Seleccione las facturas de cliente, que desea liquidar su comisi' +
#243'n'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
ExplicitWidth = 365
end
object lblComments: TLabel
AlignWithMargins = True
Left = 50
Top = 29
Width = 579
Height = 24
Margins.Left = 25
Margins.Top = 0
Margins.Right = 0
Align = alClient
ExplicitWidth = 3
ExplicitHeight = 13
end
end
inherited frViewFacturasCliente1: TfrViewFacturasCliente [5]
Top = 140
Width = 654
Height = 471
ExplicitTop = 163
ExplicitWidth = 654 ExplicitWidth = 654
ExplicitHeight = 452 ExplicitHeight = 448
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 654 Width = 654
Height = 324 Height = 343
RootLevelOptions.DetailTabsPosition = dtpNone RootLevelOptions.DetailTabsPosition = dtpNone
ExplicitWidth = 654 ExplicitWidth = 654
ExplicitHeight = 324 ExplicitHeight = 320
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <
item item
@ -215,22 +234,22 @@ inherited fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente
Width = 121 Width = 121
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 225 Left = 208
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 = 225 ExplicitLeft = 208
ExplicitWidth = 416 ExplicitWidth = 416
Width = 416 Width = 416
end end
inherited eLista: TcxComboBox inherited eLista: TcxComboBox
Left = 678 Left = 624
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 = 678 ExplicitLeft = 624
ExplicitWidth = 20 ExplicitWidth = 20
Width = 20 Width = 20
end end
@ -246,8 +265,8 @@ inherited fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente
end end
end end
inherited pnlAgrupaciones: TTBXDockablePanel inherited pnlAgrupaciones: TTBXDockablePanel
Top = 426 Top = 445
ExplicitTop = 426 ExplicitTop = 422
ExplicitWidth = 654 ExplicitWidth = 654
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 654 Width = 654

9
Source/Modulos/Facturas de cliente/Views/uEditorElegirFacturasCliente.pas
View File

@ -33,7 +33,7 @@ uses
JvExComCtrls, JvStatusBar, JvExComCtrls, JvStatusBar,
ComCtrls, TB2ExtItems, TBXExtItems, TBX, ComCtrls, TB2ExtItems, TBXExtItems, TBX,
TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent,
JvNavigationPane, uViewBarraSeleccion, JvgWizardHeader, StdCtrls, JvNavigationPane, uViewBarraSeleccion, StdCtrls,
uViewFacturasCliente, uEditorFacturasCliente, uBizFacturasCliente, uIEditorElegirFacturasCliente, uViewFacturasCliente, uEditorFacturasCliente, uBizFacturasCliente, uIEditorElegirFacturasCliente,
Buttons, cxRadioGroup, cxMaskEdit, cxDropDownEdit, cxCalendar, cxControls, Buttons, cxRadioGroup, cxMaskEdit, cxDropDownEdit, cxCalendar, cxControls,
@ -43,7 +43,8 @@ uses
type type
TfEditorElegirFacturasCliente = class(TfEditorFacturasCliente, IEditorElegirFacturasCliente) TfEditorElegirFacturasCliente = class(TfEditorFacturasCliente, IEditorElegirFacturasCliente)
frViewBarraSeleccion1: TfrViewBarraSeleccion; frViewBarraSeleccion1: TfrViewBarraSeleccion;
JvgWizardHeader1: TJvgWizardHeader; lblTitle: TLabel;
lblComments: TLabel;
EditorSeleccionActionList: TActionList; EditorSeleccionActionList: TActionList;
actBuscar2: TAction; actBuscar2: TAction;
actQuitarFiltro2: TAction; actQuitarFiltro2: TAction;
@ -121,7 +122,7 @@ end;
function TfEditorElegirFacturasCliente.GetMensaje: String; function TfEditorElegirFacturasCliente.GetMensaje: String;
begin begin
Result := JvgWizardHeader1.Comments.Text; Result := lblComments.Caption;
end; end;
function TfEditorElegirFacturasCliente.GetMultiSelect: Boolean; function TfEditorElegirFacturasCliente.GetMultiSelect: Boolean;
@ -131,7 +132,7 @@ end;
procedure TfEditorElegirFacturasCliente.SetMensaje(const AValue: String); procedure TfEditorElegirFacturasCliente.SetMensaje(const AValue: String);
begin begin
JvgWizardHeader1.Comments.Text := AValue; lblComments.Caption := AValue;
end; end;
procedure TfEditorElegirFacturasCliente.SetMultiSelect(AValue: Boolean); procedure TfEditorElegirFacturasCliente.SetMultiSelect(AValue: Boolean);

2
Source/Modulos/Facturas de proveedor/Views/uEditorElegirArticulosFacturaProveedor.pas
View File

@ -9,7 +9,7 @@ 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, uIEditorElegirArticulosFacturasProveedor, uBizContactos, uIEditorElegirArticulosFacturasProveedor, uBizContactos,
uDAInterfaces, uViewGridBase, uViewGrid, uViewArticulos; uDAInterfaces, uViewGridBase, uViewGrid, uViewArticulos;
type type

2
Source/Modulos/Facturas de proveedor/Views/uEditorElegirDomiciliacion.dfm
View File

@ -82,6 +82,6 @@ object fEditorElegirDomiciliacion: TfEditorElegirDomiciliacion
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 1 TabOrder = 1
Width = 378 Width = 297
end end
end end

6
Source/Modulos/Inventario/Model/schInventarioClient_Intf.pas
View File

@ -3,7 +3,7 @@ unit schInventarioClient_Intf;
interface interface
uses uses
Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
@ -221,7 +221,7 @@ type
end; end;
{ TInventarioDataTableRules } { TInventarioDataTableRules }
TInventarioDataTableRules = class(TDADataTableRules, IInventario) TInventarioDataTableRules = class(TIntfObjectDADataTableRules, IInventario)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -460,7 +460,7 @@ type
end; end;
{ TDetalleReservasDataTableRules } { TDetalleReservasDataTableRules }
TDetalleReservasDataTableRules = class(TDADataTableRules, IDetalleReservas) TDetalleReservasDataTableRules = class(TIntfObjectDADataTableRules, IDetalleReservas)
private private
protected protected
{ Property getters and setters } { Property getters and setters }

147
Source/Modulos/Inventario/Views/uEditorElegirArticulosAlmacen.dfm
View File

@ -4,43 +4,14 @@ inherited fEditorElegirArticulosAlmacen: TfEditorElegirArticulosAlmacen
ExplicitWidth = 840 ExplicitWidth = 840
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
object JvgWizardHeader1: TJvgWizardHeader [0]
Left = 0
Top = 27
Width = 832
Height = 60
CaptionFont.Charset = DEFAULT_CHARSET
CaptionFont.Color = clWindowText
CaptionFont.Height = -11
CaptionFont.Name = 'Tahoma'
CaptionFont.Style = [fsBold]
CommentFont.Charset = DEFAULT_CHARSET
CommentFont.Color = clWindowText
CommentFont.Height = -11
CommentFont.Name = 'Tahoma'
CommentFont.Style = []
SymbolFont.Charset = DEFAULT_CHARSET
SymbolFont.Color = clHighlightText
SymbolFont.Height = -35
SymbolFont.Name = 'Wingdings'
SymbolFont.Style = [fsBold]
Captions.Strings = (
'Seleccione los art'#237'culos')
Comments.Strings = (
' ')
Gradient.FromColor = clHighlight
Gradient.ToColor = clWindow
Gradient.Active = False
Gradient.Orientation = fgdVertical
BufferedDraw = False
ExplicitTop = 87
ExplicitWidth = 656
end
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Top = 113
Width = 832 Width = 832
Caption = 'Lista de art'#237'culos' Caption = 'Lista de art'#237'culos'
Visible = False Visible = False
ExplicitWidth = 656 ExplicitLeft = 8
ExplicitTop = 146
ExplicitWidth = 832
inherited Image1: TImage inherited Image1: TImage
Left = 805 Left = 805
ExplicitLeft = 629 ExplicitLeft = 629
@ -51,11 +22,11 @@ inherited fEditorElegirArticulosAlmacen: TfEditorElegirArticulosAlmacen
end end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Top = 87 Top = 64
Width = 832 Width = 832
Height = 49 Height = 49
ExplicitTop = 87 ExplicitTop = 91
ExplicitWidth = 656 ExplicitWidth = 832
ExplicitHeight = 49 ExplicitHeight = 49
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
Align = alLeft Align = alLeft
@ -106,9 +77,9 @@ inherited fEditorElegirArticulosAlmacen: TfEditorElegirArticulosAlmacen
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Width = 832 Width = 832
Visible = False Visible = False
ExplicitWidth = 656 ExplicitWidth = 832
end end
inline frViewBarraSeleccion1: TfrViewBarraSeleccion [4] inline frViewBarraSeleccion1: TfrViewBarraSeleccion [3]
Left = 0 Left = 0
Top = 472 Top = 472
Width = 832 Width = 832
@ -123,10 +94,10 @@ inherited fEditorElegirArticulosAlmacen: TfEditorElegirArticulosAlmacen
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitTop = 472 ExplicitTop = 472
ExplicitWidth = 656 ExplicitWidth = 832
inherited JvFooter1: TJvFooter inherited JvFooter1: TJvFooter
Width = 832 Width = 832
ExplicitWidth = 656 ExplicitWidth = 832
DesignSize = ( DesignSize = (
832 832
49) 49)
@ -151,18 +122,67 @@ inherited fEditorElegirArticulosAlmacen: TfEditorElegirArticulosAlmacen
end end
end end
end end
inherited frViewInventario1: TfrViewInventario [5] object pnlHeader: TPanel [4]
Top = 136 Left = 0
Top = 0
Width = 832 Width = 832
Height = 336 Height = 64
ExplicitTop = 136 Align = alTop
ExplicitWidth = 656 BevelOuter = bvNone
ExplicitHeight = 336 Color = clWhite
Padding.Left = 25
Padding.Top = 8
Padding.Right = 25
Padding.Bottom = 8
ParentBackground = False
TabOrder = 5
ExplicitTop = 27
object lblTitle: TLabel
AlignWithMargins = True
Left = 25
Top = 8
Width = 782
Height = 13
Margins.Left = 0
Margins.Top = 0
Margins.Right = 0
Margins.Bottom = 8
Align = alTop
Caption = 'Seleccione los art'#237'culos'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
ExplicitWidth = 131
end
object lblComments: TLabel
AlignWithMargins = True
Left = 50
Top = 29
Width = 757
Height = 24
Margins.Left = 25
Margins.Top = 0
Margins.Right = 0
Align = alClient
ExplicitWidth = 3
ExplicitHeight = 13
end
end
inherited frViewInventario1: TfrViewInventario [5]
Top = 140
Width = 832
Height = 332
ExplicitTop = 140
ExplicitWidth = 832
ExplicitHeight = 332
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 832 Width = 832
Height = 167 Height = 163
ExplicitWidth = 656 ExplicitWidth = 832
ExplicitHeight = 167 ExplicitHeight = 163
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <
item item
@ -185,12 +205,12 @@ inherited fEditorElegirArticulosAlmacen: TfEditorElegirArticulosAlmacen
end end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase
Width = 832 Width = 832
ExplicitWidth = 656 ExplicitWidth = 832
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
ExplicitWidth = 656 ExplicitWidth = 832
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 832 Width = 832
ExplicitWidth = 656 ExplicitWidth = 832
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
@ -206,52 +226,55 @@ inherited fEditorElegirArticulosAlmacen: TfEditorElegirArticulosAlmacen
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 440
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 = 440
ExplicitWidth = 241 ExplicitWidth = 241
Width = 241 Width = 241
end end
inherited eLista: TcxComboBox inherited eLista: TcxComboBox
Left = 628 Left = 788
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 = 628 ExplicitLeft = 788
ExplicitWidth = 20 ExplicitWidth = 20
Width = 20 Width = 20
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 832 Width = 832
ExplicitWidth = 656 ExplicitWidth = 832
inherited tbxBotones: TTBXToolbar inherited tbxBotones: TTBXToolbar
Width = 822 Width = 822
ExplicitWidth = 646 ExplicitWidth = 822
end end
end end
end end
end end
inherited pnlAgrupaciones: TTBXDockablePanel inherited pnlAgrupaciones: TTBXDockablePanel
Top = 310 Top = 306
ExplicitTop = 310 ExplicitTop = 306
ExplicitWidth = 656 ExplicitWidth = 832
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 832 Width = 832
ExplicitWidth = 656 ExplicitWidth = 832
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
Width = 822 Width = 822
ExplicitWidth = 646 ExplicitWidth = 822
end end
end end
end end
inherited pnlAlmacenes: TPanel inherited pnlAlmacenes: TPanel
Width = 832 Width = 832
ExplicitWidth = 656 ExplicitWidth = 832
inherited cxListaAlmacenesObras: TcxComboBox inherited cxListaAlmacenesObras: TcxComboBox
Properties.OnEditValueChanged = nil Properties.OnEditValueChanged = nil
ExplicitWidth = 757
Width = 757 Width = 757
end end
end end

9
Source/Modulos/Inventario/Views/uEditorElegirArticulosAlmacen.pas
View File

@ -9,7 +9,7 @@ uses
ActnList, uCustomView, uViewBase, uViewGridBase, uViewGrid, ActnList, uCustomView, uViewBase, uViewGridBase, uViewGrid,
uViewArticulos, ComCtrls, TB2ExtItems, TBXExtItems, TBX, uViewArticulos, ComCtrls, TB2ExtItems, TBXExtItems, TBX,
TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent,
JvNavigationPane, uViewBarraSeleccion, JvgWizardHeader, StdCtrls, JvNavigationPane, uViewBarraSeleccion, StdCtrls,
uEditorArticulos, uBizArticulos, uIEditorElegirArticulosAlmacen, uEditorArticulos, uBizArticulos, uIEditorElegirArticulosAlmacen,
JvExComCtrls, JvStatusBar, uEditorInventario, uViewInventario, uBizInventario, JvExComCtrls, JvStatusBar, uEditorInventario, uViewInventario, uBizInventario,
JSDialog, uDAInterfaces, dxGDIPlusClasses; JSDialog, uDAInterfaces, dxGDIPlusClasses;
@ -17,7 +17,8 @@ uses
type type
TfEditorElegirArticulosAlmacen = class(TfEditorInventario, IEditorElegirArticulosAlmacen) TfEditorElegirArticulosAlmacen = class(TfEditorInventario, IEditorElegirArticulosAlmacen)
frViewBarraSeleccion1: TfrViewBarraSeleccion; frViewBarraSeleccion1: TfrViewBarraSeleccion;
JvgWizardHeader1: TJvgWizardHeader; lblTitle: TLabel;
lblComments: TLabel;
EditorSeleccionActionList: TActionList; EditorSeleccionActionList: TActionList;
actBuscar2: TAction; actBuscar2: TAction;
actQuitarFiltro2: TAction; actQuitarFiltro2: TAction;
@ -99,7 +100,7 @@ end;
function TfEditorElegirArticulosAlmacen.GetMensaje: String; function TfEditorElegirArticulosAlmacen.GetMensaje: String;
begin begin
Result := JvgWizardHeader1.Comments.Text; Result := lblComments.Caption;
end; end;
function TfEditorElegirArticulosAlmacen.GetMultiSelect: Boolean; function TfEditorElegirArticulosAlmacen.GetMultiSelect: Boolean;
@ -109,7 +110,7 @@ end;
procedure TfEditorElegirArticulosAlmacen.SetMensaje(const AValue: String); procedure TfEditorElegirArticulosAlmacen.SetMensaje(const AValue: String);
begin begin
JvgWizardHeader1.Comments.Text := AValue; lblComments.Caption := AValue;
end; end;
procedure TfEditorElegirArticulosAlmacen.SetMultiSelect(AValue: Boolean); procedure TfEditorElegirArticulosAlmacen.SetMultiSelect(AValue: Boolean);

49
Source/Modulos/Inventario/Views/uEditorElegirArticulosCatalogo.dfm
View File

@ -6,8 +6,53 @@ inherited fEditorElegirArticulosCatalogo: TfEditorElegirArticulosCatalogo
ExplicitHeight = 611 ExplicitHeight = 611
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvgWizardHeader1: TJvgWizardHeader object pnlHeader: TPanel
Width = 697 Left = 0
Top = 0
Width = 656
Height = 64
Align = alTop
BevelOuter = bvNone
Color = clWhite
Padding.Left = 25
Padding.Top = 8
Padding.Right = 25
Padding.Bottom = 8
ParentBackground = False
TabOrder = 5
object lblTitle: TLabel
AlignWithMargins = True
Left = 25
Top = 8
Width = 606
Height = 13
Margins.Left = 0
Margins.Top = 0
Margins.Right = 0
Margins.Bottom = 8
Align = alTop
Caption = ''
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
ExplicitWidth = 135
end
object lblComments: TLabel
AlignWithMargins = True
Left = 50
Top = 29
Width = 581
Height = 27
Margins.Left = 25
Margins.Top = 0
Margins.Right = 0
Align = alClient
ExplicitWidth = 3
ExplicitHeight = 13
end
end end
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 697 Width = 697

2
Source/Modulos/Inventario/Views/uEditorElegirArticulosCatalogo.pas
View File

@ -9,7 +9,7 @@ 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, uIEditorElegirArticulosCatalogo, uDAInterfaces, uIEditorElegirArticulosCatalogo, uDAInterfaces,
uViewGridBase, uViewGrid, uViewArticulos, uViewElegirArticulosCatalogo; uViewGridBase, uViewGrid, uViewArticulos, uViewElegirArticulosCatalogo;
type type

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

@ -9,7 +9,7 @@ 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, uIEditorElegirArticulosPedidosProveedor, uBizContactos,
uDAInterfaces, uViewGridBase, uViewGrid, uViewArticulos, uBizArticulos, uDAInterfaces, uViewGridBase, uViewGrid, uViewArticulos, uBizArticulos,
uViewArticulosPorProveedor, uEditorElegirArticulos; uViewArticulosPorProveedor, uEditorElegirArticulos;

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

@ -5,41 +5,13 @@ inherited fEditorElegirPedidosProveedor: TfEditorElegirPedidosProveedor
ExplicitHeight = 538 ExplicitHeight = 538
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
object JvgWizardHeader1: TJvgWizardHeader [0]
Left = 0
Top = 27
Width = 656
Height = 60
CaptionFont.Charset = DEFAULT_CHARSET
CaptionFont.Color = clWindowText
CaptionFont.Height = -11
CaptionFont.Name = 'Tahoma'
CaptionFont.Style = [fsBold]
CommentFont.Charset = DEFAULT_CHARSET
CommentFont.Color = clWindowText
CommentFont.Height = -11
CommentFont.Name = 'Tahoma'
CommentFont.Style = []
SymbolFont.Charset = DEFAULT_CHARSET
SymbolFont.Color = clHighlightText
SymbolFont.Height = -35
SymbolFont.Name = 'Wingdings'
SymbolFont.Style = [fsBold]
Captions.Strings = (
'Seleccione el pedido de proveedor')
Comments.Strings = (
' ')
Gradient.FromColor = clHighlight
Gradient.ToColor = clWindow
Gradient.Active = False
Gradient.Orientation = fgdVertical
BufferedDraw = False
ExplicitTop = 16
end
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Top = 113
Width = 656 Width = 656
Caption = 'Lista de pedidos de proveedor' Caption = 'Lista de pedidos de proveedor'
Visible = False Visible = False
ExplicitLeft = 8
ExplicitTop = 169
ExplicitWidth = 656 ExplicitWidth = 656
inherited Image1: TImage inherited Image1: TImage
Left = 629 Left = 629
@ -47,12 +19,12 @@ inherited fEditorElegirPedidosProveedor: TfEditorElegirPedidosProveedor
end end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Top = 87 Top = 64
Width = 656 Width = 656
Height = 72 Height = 49
ExplicitTop = 87 ExplicitTop = 64
ExplicitWidth = 656 ExplicitWidth = 656
ExplicitHeight = 72 ExplicitHeight = 49
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
Left = 427 Left = 427
Align = alRight Align = alRight
@ -86,11 +58,14 @@ inherited fEditorElegirPedidosProveedor: TfEditorElegirPedidosProveedor
ExplicitWidth = 656 ExplicitWidth = 656
end end
inherited TBXTMain2: TTBXToolbar inherited TBXTMain2: TTBXToolbar
Left = 318 Left = 559
Top = 23
DockPos = 559
DockRow = 1
Visible = False Visible = False
ExplicitLeft = 318 ExplicitLeft = 559
ExplicitTop = 23
ExplicitWidth = 66 ExplicitWidth = 66
ExplicitHeight = 23
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
@ -98,7 +73,7 @@ inherited fEditorElegirPedidosProveedor: TfEditorElegirPedidosProveedor
Visible = False Visible = False
ExplicitWidth = 656 ExplicitWidth = 656
end end
inline frViewBarraSeleccion1: TfrViewBarraSeleccion [4] inline frViewBarraSeleccion1: TfrViewBarraSeleccion [3]
Left = 0 Left = 0
Top = 436 Top = 436
Width = 656 Width = 656
@ -136,19 +111,68 @@ inherited fEditorElegirPedidosProveedor: TfEditorElegirPedidosProveedor
end end
end end
end end
inherited frViewPedidosProveedor1: TfrViewPedidosProveedor [5] object pnlHeader: TPanel [4]
Top = 159 Left = 0
Top = 0
Width = 656 Width = 656
Height = 277 Height = 64
ExplicitTop = 159 Align = alTop
BevelOuter = bvNone
Color = clWhite
Padding.Left = 25
Padding.Top = 8
Padding.Right = 25
Padding.Bottom = 8
ParentBackground = False
TabOrder = 5
ExplicitTop = 27
object lblTitle: TLabel
AlignWithMargins = True
Left = 25
Top = 8
Width = 606
Height = 13
Margins.Left = 0
Margins.Top = 0
Margins.Right = 0
Margins.Bottom = 8
Align = alTop
Caption = 'Seleccione el pedido de proveedor'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
ExplicitWidth = 193
end
object lblComments: TLabel
AlignWithMargins = True
Left = 50
Top = 29
Width = 581
Height = 24
Margins.Left = 25
Margins.Top = 0
Margins.Right = 0
Align = alClient
ExplicitWidth = 3
ExplicitHeight = 13
end
end
inherited frViewPedidosProveedor1: TfrViewPedidosProveedor [5]
Top = 140
Width = 656
Height = 296
ExplicitTop = 163
ExplicitWidth = 656 ExplicitWidth = 656
ExplicitHeight = 277 ExplicitHeight = 273
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 656 Width = 656
Height = 149 Height = 168
RootLevelOptions.DetailTabsPosition = dtpNone RootLevelOptions.DetailTabsPosition = dtpNone
ExplicitWidth = 656 ExplicitWidth = 656
ExplicitHeight = 149 ExplicitHeight = 145
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <
item item
@ -186,22 +210,26 @@ inherited fEditorElegirPedidosProveedor: TfEditorElegirPedidosProveedor
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 267
Width = 267
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 271
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 = 271
ExplicitWidth = 277 ExplicitWidth = 277
Width = 277 Width = 277
end end
inherited eLista: TcxComboBox inherited eLista: TcxComboBox
Left = 685 Left = 502
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 = 685 ExplicitLeft = 502
ExplicitWidth = 215 ExplicitWidth = 215
Width = 215 Width = 215
end end
@ -217,8 +245,8 @@ inherited fEditorElegirPedidosProveedor: TfEditorElegirPedidosProveedor
end end
end end
inherited pnlAgrupaciones: TTBXDockablePanel inherited pnlAgrupaciones: TTBXDockablePanel
Top = 251 Top = 270
ExplicitTop = 251 ExplicitTop = 247
ExplicitWidth = 656 ExplicitWidth = 656
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 656 Width = 656

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

@ -9,7 +9,7 @@ uses
ActnList, uCustomView, uViewBase, uViewGridBase, uViewGrid, ActnList, uCustomView, uViewBase, uViewGridBase, uViewGrid,
ComCtrls, TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, ComCtrls, TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar,
pngimage, ExtCtrls, JvExControls, JvComponent, pngimage, ExtCtrls, JvExControls, JvComponent,
JvNavigationPane, uViewBarraSeleccion, JvgWizardHeader, StdCtrls, JvNavigationPane, uViewBarraSeleccion, StdCtrls,
uBizPedidosProveedor, uIEditorElegirPedidosProveedor, uBizPedidosProveedor, uIEditorElegirPedidosProveedor,
JvExComCtrls, JvStatusBar, uEditorPedidosProveedor, uViewPedidosProveedor, JvExComCtrls, JvStatusBar, uEditorPedidosProveedor, uViewPedidosProveedor,
JSDialog, uDAInterfaces; JSDialog, uDAInterfaces;
@ -17,7 +17,8 @@ uses
type type
TfEditorElegirPedidosProveedor = class(TfEditorPedidosProveedor, IEditorElegirPedidosProveedor) TfEditorElegirPedidosProveedor = class(TfEditorPedidosProveedor, IEditorElegirPedidosProveedor)
frViewBarraSeleccion1: TfrViewBarraSeleccion; frViewBarraSeleccion1: TfrViewBarraSeleccion;
JvgWizardHeader1: TJvgWizardHeader; lblTitle: TLabel;
lblComments: TLabel;
EditorSeleccionActionList: TActionList; EditorSeleccionActionList: TActionList;
actBuscar2: TAction; actBuscar2: TAction;
actQuitarFiltro2: TAction; actQuitarFiltro2: TAction;
@ -99,7 +100,7 @@ end;
function TfEditorElegirPedidosProveedor.GetMensaje: String; function TfEditorElegirPedidosProveedor.GetMensaje: String;
begin begin
Result := JvgWizardHeader1.Comments.Text; Result := lblComments.Caption;
end; end;
function TfEditorElegirPedidosProveedor.GetMultiSelect: Boolean; function TfEditorElegirPedidosProveedor.GetMultiSelect: Boolean;
@ -109,7 +110,7 @@ end;
procedure TfEditorElegirPedidosProveedor.SetMensaje(const AValue: String); procedure TfEditorElegirPedidosProveedor.SetMensaje(const AValue: String);
begin begin
JvgWizardHeader1.Comments.Text := AValue; lblComments.Caption := AValue;
end; end;
procedure TfEditorElegirPedidosProveedor.SetMultiSelect(AValue: Boolean); procedure TfEditorElegirPedidosProveedor.SetMultiSelect(AValue: Boolean);

12
Source/Modulos/Pedidos a proveedor/Views/uEditorElegirPersonaContactoPedido.dfm
View File

@ -2,11 +2,11 @@ inherited fEditorElegirPersonaContactoPedido: TfEditorElegirPersonaContactoPedid
BorderStyle = bsDialog BorderStyle = bsDialog
Caption = 'Entrega del material del pedido' Caption = 'Entrega del material del pedido'
ClientHeight = 269 ClientHeight = 269
ClientWidth = 410 ClientWidth = 435
Position = poScreenCenter Position = poScreenCenter
OnCreate = CustomEditorCreate OnCreate = CustomEditorCreate
OnShow = CustomEditorShow OnShow = CustomEditorShow
ExplicitWidth = 416 ExplicitWidth = 441
ExplicitHeight = 301 ExplicitHeight = 301
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
@ -21,15 +21,15 @@ inherited fEditorElegirPersonaContactoPedido: TfEditorElegirPersonaContactoPedid
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 228 Top = 228
Width = 410 Width = 435
Height = 41 Height = 41
Align = alBottom Align = alBottom
TabOrder = 0 TabOrder = 0
DesignSize = ( DesignSize = (
410 435
41) 41)
object bAceptar: TButton object bAceptar: TButton
Left = 246 Left = 271
Top = 8 Top = 8
Width = 75 Width = 75
Height = 25 Height = 25
@ -39,7 +39,7 @@ inherited fEditorElegirPersonaContactoPedido: TfEditorElegirPersonaContactoPedid
TabOrder = 0 TabOrder = 0
end end
object bCancelar: TButton object bCancelar: TButton
Left = 327 Left = 352
Top = 8 Top = 8
Width = 75 Width = 75
Height = 25 Height = 25

77
Source/Modulos/Pedidos a proveedor/Views/uEditorSituacionPedidoProveedor.dfm
View File

@ -15,38 +15,55 @@ object fEditorSituacionPedidoProveedor: TfEditorSituacionPedidoProveedor
Position = poMainFormCenter Position = poMainFormCenter
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
object JvgWizardHeader1: TJvgWizardHeader object pnlHeader: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
Width = 434 Width = 656
Height = 73 Height = 64
CaptionFont.Charset = DEFAULT_CHARSET Align = alTop
CaptionFont.Color = clWindowText BevelOuter = bvNone
CaptionFont.Height = -11 Color = clWhite
CaptionFont.Name = 'Tahoma' Padding.Left = 25
CaptionFont.Style = [fsBold] Padding.Top = 8
CommentFont.Charset = DEFAULT_CHARSET Padding.Right = 25
CommentFont.Color = clWindowText Padding.Bottom = 8
CommentFont.Height = -11 ParentBackground = False
CommentFont.Name = 'Tahoma' TabOrder = 5
CommentFont.Style = [] object lblTitle: TLabel
SymbolFont.Charset = DEFAULT_CHARSET AlignWithMargins = True
SymbolFont.Color = clHighlightText Left = 25
SymbolFont.Height = -35 Top = 8
SymbolFont.Name = 'Wingdings' Width = 606
SymbolFont.Style = [fsBold] Height = 13
Captions.Strings = ( Margins.Left = 0
'Cambiar la situaci'#243'n del pedido') Margins.Top = 0
Comments.Strings = ( Margins.Right = 0
Margins.Bottom = 8
'Indique la nueva situaci'#243'n del pedido o pulse en '#39'Cancelar'#39' para' + Align = alTop
' no hacer ning'#250'n cambio.') Caption = 'Cambiar la situaci'#243'n del pedido'
Gradient.FromColor = clHighlight Font.Charset = DEFAULT_CHARSET
Gradient.ToColor = clWindow Font.Color = clWindowText
Gradient.Active = True Font.Height = -11
Gradient.Orientation = fgdVertical Font.Name = 'Tahoma'
BufferedDraw = False Font.Style = [fsBold]
ExplicitWidth = 491 ParentFont = False
ExplicitWidth = 135
end
object lblComments: TLabel
AlignWithMargins = True
Left = 50
Top = 29
Width = 581
Height = 27
Margins.Left = 25
Margins.Top = 0
Margins.Right = 0
Align = alClient
ExplicitWidth = 3
ExplicitHeight = 13
Caption = 'Indique la nueva situaci'#243'n del pedido o pulse en '#39'Cancelar'#39' para' +
' no hacer ning'#250'n cambio.'
end
end end
object Label4: TLabel object Label4: TLabel
Left = 56 Left = 56

5
Source/Modulos/Pedidos a proveedor/Views/uEditorSituacionPedidoProveedor.pas
View File

@ -6,7 +6,7 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Dialogs, StdCtrls, ExtCtrls,
uIEditorSituacionPedidoProveedor, uPedidosProveedorController, uBizPedidosProveedor, uIEditorSituacionPedidoProveedor, uPedidosProveedorController, uBizPedidosProveedor,
JvExControls, JvComponent, JvgWizardHeader, cxControls, cxContainer, cxEdit, JvExControls, JvComponent, cxControls, cxContainer, cxEdit,
cxTextEdit, cxMaskEdit, cxDropDownEdit, cxCalendar, cxDBEdit, ActnList; cxTextEdit, cxMaskEdit, cxDropDownEdit, cxCalendar, cxDBEdit, ActnList;
type type
@ -14,7 +14,8 @@ type
pnlSeleccion: TPanel; pnlSeleccion: TPanel;
bAceptar: TButton; bAceptar: TButton;
bCancelar: TButton; bCancelar: TButton;
JvgWizardHeader1: TJvgWizardHeader; lblTitle: TLabel;
lblComments: TLabel;
rbPendiente: TRadioButton; rbPendiente: TRadioButton;
rbParcial: TRadioButton; rbParcial: TRadioButton;
ActionList1: TActionList; ActionList1: TActionList;

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

@ -49,27 +49,30 @@
<DelphiCompile Include="PresupuestosCliente_view.dpk"> <DelphiCompile Include="PresupuestosCliente_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="adortl.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\adortl.dcp" />
<DCCReference Include="Articulos_view.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\Articulos_view.dcp" />
<DCCReference Include="Base.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\Base.dcp" />
<DCCReference Include="cxDataD11.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\cxDataD11.dcp" />
<DCCReference Include="cxEditorsD11.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\cxEditorsD11.dcp" />
<DCCReference Include="cxLibraryD11.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\cxLibraryD11.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="dbrtl.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\dbrtl.dcp" />
<DCCReference Include="dsnap.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\dsnap.dcp" />
<DCCReference Include="dxComnD11.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\dxComnD11.dcp" />
<DCCReference Include="dxGDIPlusD11.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="dxLayoutControlD11.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\dxLayoutControlD11.dcp" />
<DCCReference Include="dxThemeD11.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\dxThemeD11.dcp" />
<DCCReference Include="GestorInformes_controller.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\GestorInformes_controller.dcp" />
<DCCReference Include="GUIBase.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\GUIBase.dcp" />
<DCCReference Include="PreCli_AlbCli_relation.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\PreCli_AlbCli_relation.dcp" />
<DCCReference Include="PreCli_FacCli_relation.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\PreCli_FacCli_relation.dcp" />
<DCCReference Include="PresupuestosCliente_controller.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\PresupuestosCliente_controller.dcp" />
<DCCReference Include="PresupuestosCliente_model.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\PresupuestosCliente_model.dcp" />
<DCCReference Include="RemObjects_Core_D11.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="rtl.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\rtl.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\vcl.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\vcldb.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\vcljpg.dcp" />
<DCCReference Include="uEditorAsignarDescuento.pas"> <DCCReference Include="uEditorAsignarDescuento.pas">
<Form>fEditorAsignarDescuento</Form> <Form>fEditorAsignarDescuento</Form>
</DCCReference> </DCCReference>
@ -130,9 +133,6 @@
<Form>frViewTotalesPresupuesto</Form> <Form>frViewTotalesPresupuesto</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vcldb.dcp" />
<DCCReference Include="vcljpg.dcp" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line

2
Source/Modulos/Presupuestos de cliente/Views/uEditorElegirArticulosPresupuestoCliente.pas
View File

@ -9,7 +9,7 @@ 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, uIEditorElegirArticulosPresupuestosCliente, uDAInterfaces, uIEditorElegirArticulosPresupuestosCliente, uDAInterfaces,
uViewGridBase, uViewGrid, uViewArticulos; uViewGridBase, uViewGrid, uViewArticulos;
type type

88
Source/Modulos/Presupuestos de cliente/Views/uEditorElegirPresupuestosCliente.dfm
View File

@ -5,41 +5,12 @@ inherited fEditorElegirPresupuestosCliente: TfEditorElegirPresupuestosCliente
ExplicitHeight = 538 ExplicitHeight = 538
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
object JvgWizardHeader1: TJvgWizardHeader [0]
Left = 0
Top = 27
Width = 656
Height = 60
CaptionFont.Charset = DEFAULT_CHARSET
CaptionFont.Color = clWindowText
CaptionFont.Height = -11
CaptionFont.Name = 'Tahoma'
CaptionFont.Style = [fsBold]
CommentFont.Charset = DEFAULT_CHARSET
CommentFont.Color = clWindowText
CommentFont.Height = -11
CommentFont.Name = 'Tahoma'
CommentFont.Style = []
SymbolFont.Charset = DEFAULT_CHARSET
SymbolFont.Color = clHighlightText
SymbolFont.Height = -35
SymbolFont.Name = 'Wingdings'
SymbolFont.Style = [fsBold]
Captions.Strings = (
'Seleccione el pedido de cliente')
Comments.Strings = (
' ')
Gradient.FromColor = clHighlight
Gradient.ToColor = clWindow
Gradient.Active = False
Gradient.Orientation = fgdVertical
BufferedDraw = False
ExplicitLeft = -8
ExplicitTop = 8
end
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Top = 139
Width = 656 Width = 656
Visible = False Visible = False
ExplicitLeft = 8
ExplicitTop = 232
ExplicitWidth = 656 ExplicitWidth = 656
inherited Image1: TImage inherited Image1: TImage
Left = 629 Left = 629
@ -47,9 +18,9 @@ inherited fEditorElegirPresupuestosCliente: TfEditorElegirPresupuestosCliente
end end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Top = 87 Top = 64
Width = 656 Width = 656
ExplicitTop = 87 ExplicitTop = 91
ExplicitWidth = 656 ExplicitWidth = 656
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
Left = 427 Left = 427
@ -97,6 +68,55 @@ inherited fEditorElegirPresupuestosCliente: TfEditorElegirPresupuestosCliente
Width = 656 Width = 656
ExplicitWidth = 656 ExplicitWidth = 656
end end
object pnlHeader: TPanel [3]
Left = 0
Top = 0
Width = 656
Height = 64
Align = alTop
BevelOuter = bvNone
Color = clWhite
Padding.Left = 25
Padding.Top = 8
Padding.Right = 25
Padding.Bottom = 8
ParentBackground = False
TabOrder = 4
ExplicitTop = 27
object lblTitle: TLabel
AlignWithMargins = True
Left = 25
Top = 8
Width = 606
Height = 13
Margins.Left = 0
Margins.Top = 0
Margins.Right = 0
Margins.Bottom = 8
Align = alTop
Caption = 'Seleccione el pedido de cliente'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
ExplicitWidth = 172
end
object lblComments: TLabel
AlignWithMargins = True
Left = 50
Top = 29
Width = 581
Height = 24
Margins.Left = 25
Margins.Top = 0
Margins.Right = 0
Align = alClient
ExplicitWidth = 3
ExplicitHeight = 13
end
end
inline frViewBarraSeleccion1: TfrViewBarraSeleccion [4] inline frViewBarraSeleccion1: TfrViewBarraSeleccion [4]
Left = 0 Left = 0
Top = 449 Top = 449

9
Source/Modulos/Presupuestos de cliente/Views/uEditorElegirPresupuestosCliente.pas
View File

@ -9,14 +9,15 @@ uses
ActnList, uCustomView, uViewBase, uViewGridBase, uViewGrid, ActnList, uCustomView, uViewBase, uViewGridBase, uViewGrid,
uViewPresupuestosCliente, ComCtrls, TB2ExtItems, TBXExtItems, TBX, uViewPresupuestosCliente, ComCtrls, TB2ExtItems, TBXExtItems, TBX,
TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent,
JvNavigationPane, uViewBarraSeleccion, JvgWizardHeader, StdCtrls, JvNavigationPane, uViewBarraSeleccion, StdCtrls,
uEditorPresupuestosCliente, uBizPresupuestosCliente, uIEditorElegirPresupuestosCliente, uEditorPresupuestosCliente, uBizPresupuestosCliente, uIEditorElegirPresupuestosCliente,
JvExComCtrls, JvStatusBar, JSDialog, uDAInterfaces; JvExComCtrls, JvStatusBar, JSDialog, uDAInterfaces;
type type
TfEditorElegirPresupuestosCliente = class(TfEditorPresupuestosCliente, IEditorElegirPresupuestosCliente) TfEditorElegirPresupuestosCliente = class(TfEditorPresupuestosCliente, IEditorElegirPresupuestosCliente)
frViewBarraSeleccion1: TfrViewBarraSeleccion; frViewBarraSeleccion1: TfrViewBarraSeleccion;
JvgWizardHeader1: TJvgWizardHeader; lblTitle: TLabel;
lblComments: TLabel;
EditorSeleccionActionList: TActionList; EditorSeleccionActionList: TActionList;
actBuscar2: TAction; actBuscar2: TAction;
actQuitarFiltro2: TAction; actQuitarFiltro2: TAction;
@ -99,7 +100,7 @@ end;
function TfEditorElegirPresupuestosCliente.GetMensaje: String; function TfEditorElegirPresupuestosCliente.GetMensaje: String;
begin begin
Result := JvgWizardHeader1.Comments.Text; Result := lblComments.Caption;
end; end;
function TfEditorElegirPresupuestosCliente.GetMultiSelect: Boolean; function TfEditorElegirPresupuestosCliente.GetMultiSelect: Boolean;
@ -109,7 +110,7 @@ end;
procedure TfEditorElegirPresupuestosCliente.SetMensaje(const AValue: String); procedure TfEditorElegirPresupuestosCliente.SetMensaje(const AValue: String);
begin begin
JvgWizardHeader1.Comments.Text := AValue; lblComments.Caption := AValue;
end; end;
procedure TfEditorElegirPresupuestosCliente.SetMultiSelect(AValue: Boolean); procedure TfEditorElegirPresupuestosCliente.SetMultiSelect(AValue: Boolean);

10
Source/Modulos/Recibos de cliente/Views/RecibosCliente_view.dproj
View File

@ -47,11 +47,11 @@
<DelphiCompile Include="RecibosCliente_view.dpk"> <DelphiCompile Include="RecibosCliente_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Lib\GestorInformes_controller.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\GestorInformes_controller.dcp" />
<DCCReference Include="..\..\Lib\GUIBase.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\GUIBase.dcp" />
<DCCReference Include="..\..\Lib\JvGlobusD11R.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\JvGlobusD11R.dcp" />
<DCCReference Include="..\..\Lib\RecibosCliente_controller.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\RecibosCliente_controller.dcp" />
<DCCReference Include="..\..\Lib\RecibosCliente_model.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\RecibosCliente_model.dcp" />
<DCCReference Include="uEditorElegirRecibosCliente.pas"> <DCCReference Include="uEditorElegirRecibosCliente.pas">
<Form>fEditorElegirRecibosCliente</Form> <Form>fEditorElegirRecibosCliente</Form>
<DesignClass>TfEditorElegirRecibosCliente</DesignClass> <DesignClass>TfEditorElegirRecibosCliente</DesignClass>

119
Source/Modulos/Recibos de cliente/Views/uEditorElegirRecibosCliente.dfm
View File

@ -4,44 +4,11 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
ExplicitWidth = 678 ExplicitWidth = 678
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
object JvgWizardHeader1: TJvgWizardHeader [0]
Left = 0
Top = 0
Width = 670
Height = 60
CaptionFont.Charset = DEFAULT_CHARSET
CaptionFont.Color = clWindowText
CaptionFont.Height = -11
CaptionFont.Name = 'Tahoma'
CaptionFont.Style = [fsBold]
CommentFont.Charset = DEFAULT_CHARSET
CommentFont.Color = clWindowText
CommentFont.Height = -11
CommentFont.Name = 'Tahoma'
CommentFont.Style = []
SymbolFont.Charset = DEFAULT_CHARSET
SymbolFont.Color = clHighlightText
SymbolFont.Height = -35
SymbolFont.Name = 'Wingdings'
SymbolFont.Style = [fsBold]
Captions.Strings = (
'Seleccione recibos de cliente')
Comments.Strings = (
' ')
Gradient.FromColor = clHighlight
Gradient.ToColor = clWindow
Gradient.Active = False
Gradient.Orientation = fgdVertical
BufferedDraw = False
ExplicitLeft = -8
ExplicitTop = -21
ExplicitWidth = 656
end
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Top = 144 Top = 220
Width = 670 Width = 670
Visible = False Visible = False
ExplicitTop = 144 ExplicitTop = 214
ExplicitWidth = 670 ExplicitWidth = 670
inherited Image1: TImage inherited Image1: TImage
Left = 643 Left = 643
@ -49,10 +16,10 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
end end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Top = 171 Top = 148
Width = 670 Width = 670
Height = 72 Height = 72
ExplicitTop = 171 ExplicitTop = 175
ExplicitWidth = 670 ExplicitWidth = 670
ExplicitHeight = 72 ExplicitHeight = 72
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
@ -108,7 +75,7 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
ExplicitTop = 506 ExplicitTop = 506
ExplicitWidth = 670 ExplicitWidth = 670
end end
inline frViewBarraSeleccion1: TfrViewBarraSeleccion [4] inline frViewBarraSeleccion1: TfrViewBarraSeleccion [3]
Left = 0 Left = 0
Top = 525 Top = 525
Width = 670 Width = 670
@ -153,19 +120,67 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
end end
end end
end end
inherited frViewRecibosCliente1: TfrViewRecibosCliente [5] object pnlHeader: TPanel [4]
Top = 243 Left = 0
Top = 0
Width = 670 Width = 670
Height = 263 Height = 64
ExplicitTop = 243 Align = alTop
BevelOuter = bvNone
Color = clWhite
Padding.Left = 25
Padding.Top = 8
Padding.Right = 25
Padding.Bottom = 8
ParentBackground = False
TabOrder = 6
object lblTitle: TLabel
AlignWithMargins = True
Left = 25
Top = 8
Width = 620
Height = 13
Margins.Left = 0
Margins.Top = 0
Margins.Right = 0
Margins.Bottom = 8
Align = alTop
Caption = 'Seleccione recibos de cliente'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
ExplicitWidth = 162
end
object lblComments: TLabel
AlignWithMargins = True
Left = 50
Top = 29
Width = 595
Height = 24
Margins.Left = 25
Margins.Top = 0
Margins.Right = 0
Align = alClient
ExplicitWidth = 3
ExplicitHeight = 13
end
end
inherited frViewRecibosCliente1: TfrViewRecibosCliente [5]
Top = 247
Width = 670
Height = 259
ExplicitTop = 247
ExplicitWidth = 670 ExplicitWidth = 670
ExplicitHeight = 263 ExplicitHeight = 259
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 670 Width = 670
Height = 135 Height = 131
RootLevelOptions.DetailTabsPosition = dtpNone RootLevelOptions.DetailTabsPosition = dtpNone
ExplicitWidth = 670 ExplicitWidth = 670
ExplicitHeight = 135 ExplicitHeight = 131
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <
item item
@ -211,22 +226,22 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
Width = 205 Width = 205
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 309 Left = 229
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 = 309 ExplicitLeft = 229
ExplicitWidth = 351 ExplicitWidth = 351
Width = 351 Width = 351
end end
inherited eLista: TcxComboBox inherited eLista: TcxComboBox
Left = 697 Left = 515
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 = 697 ExplicitLeft = 515
ExplicitWidth = 215 ExplicitWidth = 215
Width = 215 Width = 215
end end
@ -242,8 +257,8 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
end end
end end
inherited pnlAgrupaciones: TTBXDockablePanel inherited pnlAgrupaciones: TTBXDockablePanel
Top = 237 Top = 233
ExplicitTop = 237 ExplicitTop = 233
ExplicitWidth = 670 ExplicitWidth = 670
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 670 Width = 670
@ -270,7 +285,7 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
end end
object pnlFiltrar: TTBXDockablePanel [6] object pnlFiltrar: TTBXDockablePanel [6]
Left = 0 Left = 0
Top = 60 Top = 64
Align = alTop Align = alTop
Caption = 'Filtrar' Caption = 'Filtrar'
CaptionRotation = dpcrAlwaysVert CaptionRotation = dpcrAlwaysVert

9
Source/Modulos/Recibos de cliente/Views/uEditorElegirRecibosCliente.pas
View File

@ -33,7 +33,7 @@ uses
JvExComCtrls, JvStatusBar, JvExComCtrls, JvStatusBar,
ComCtrls, TB2ExtItems, TBXExtItems, TBX, ComCtrls, TB2ExtItems, TBXExtItems, TBX,
TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent,
JvNavigationPane, uViewBarraSeleccion, JvgWizardHeader, StdCtrls, JvNavigationPane, uViewBarraSeleccion, StdCtrls,
uViewRecibosCliente, uEditorRecibosCliente, uBizRecibosCliente, uIEditorElegirRecibosCliente, uViewRecibosCliente, uEditorRecibosCliente, uBizRecibosCliente, uIEditorElegirRecibosCliente,
Buttons, cxRadioGroup, cxMaskEdit, cxDropDownEdit, cxCalendar, cxControls, Buttons, cxRadioGroup, cxMaskEdit, cxDropDownEdit, cxCalendar, cxControls,
@ -44,7 +44,8 @@ uses
type type
TfEditorElegirRecibosCliente = class(TfEditorRecibosCliente, IEditorElegirRecibosCliente) TfEditorElegirRecibosCliente = class(TfEditorRecibosCliente, IEditorElegirRecibosCliente)
frViewBarraSeleccion1: TfrViewBarraSeleccion; frViewBarraSeleccion1: TfrViewBarraSeleccion;
JvgWizardHeader1: TJvgWizardHeader; lblTitle: TLabel;
lblComments: TLabel;
EditorSeleccionActionList: TActionList; EditorSeleccionActionList: TActionList;
actBuscar2: TAction; actBuscar2: TAction;
actQuitarFiltro2: TAction; actQuitarFiltro2: TAction;
@ -179,7 +180,7 @@ end;
function TfEditorElegirRecibosCliente.GetMensaje: String; function TfEditorElegirRecibosCliente.GetMensaje: String;
begin begin
Result := JvgWizardHeader1.Comments.Text; Result := lblComments.Caption;
end; end;
function TfEditorElegirRecibosCliente.GetMultiSelect: Boolean; function TfEditorElegirRecibosCliente.GetMultiSelect: Boolean;
@ -189,7 +190,7 @@ end;
procedure TfEditorElegirRecibosCliente.SetMensaje(const AValue: String); procedure TfEditorElegirRecibosCliente.SetMensaje(const AValue: String);
begin begin
JvgWizardHeader1.Comments.Text := AValue; lblComments.Caption := AValue;
end; end;
procedure TfEditorElegirRecibosCliente.SetMultiSelect(AValue: Boolean); procedure TfEditorElegirRecibosCliente.SetMultiSelect(AValue: Boolean);

75
Source/Modulos/Recibos de proveedor/Views/uEditorElegirRecibosProveedor.dfm
View File

@ -4,38 +4,53 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor
ExplicitWidth = 662 ExplicitWidth = 662
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
object JvgWizardHeader1: TJvgWizardHeader [0] object pnlHeader: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
Width = 654 Width = 656
Height = 60 Height = 64
CaptionFont.Charset = DEFAULT_CHARSET Align = alTop
CaptionFont.Color = clWindowText BevelOuter = bvNone
CaptionFont.Height = -11 Color = clWhite
CaptionFont.Name = 'Tahoma' Padding.Left = 25
CaptionFont.Style = [fsBold] Padding.Top = 8
CommentFont.Charset = DEFAULT_CHARSET Padding.Right = 25
CommentFont.Color = clWindowText Padding.Bottom = 8
CommentFont.Height = -11 ParentBackground = False
CommentFont.Name = 'Tahoma' TabOrder = 5
CommentFont.Style = [] object lblTitle: TLabel
SymbolFont.Charset = DEFAULT_CHARSET AlignWithMargins = True
SymbolFont.Color = clHighlightText Left = 25
SymbolFont.Height = -35 Top = 8
SymbolFont.Name = 'Wingdings' Width = 606
SymbolFont.Style = [fsBold] Height = 13
Captions.Strings = ( Margins.Left = 0
'Seleccione recibos de cliente') Margins.Top = 0
Comments.Strings = ( Margins.Right = 0
' ') Margins.Bottom = 8
Gradient.FromColor = clHighlight Align = alTop
Gradient.ToColor = clWindow Caption = 'Seleccione recibos de cliente'
Gradient.Active = False Font.Charset = DEFAULT_CHARSET
Gradient.Orientation = fgdVertical Font.Color = clWindowText
BufferedDraw = False Font.Height = -11
ExplicitLeft = -8 Font.Name = 'Tahoma'
ExplicitTop = -21 Font.Style = [fsBold]
ExplicitWidth = 656 ParentFont = False
ExplicitWidth = 135
end
object lblComments: TLabel
AlignWithMargins = True
Left = 50
Top = 29
Width = 581
Height = 27
Margins.Left = 25
Margins.Top = 0
Margins.Right = 0
Align = alClient
ExplicitWidth = 3
ExplicitHeight = 13
end
end end
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Top = 144 Top = 144

9
Source/Modulos/Recibos de proveedor/Views/uEditorElegirRecibosProveedor.pas
View File

@ -33,7 +33,7 @@ uses
JvExComCtrls, JvStatusBar, JvExComCtrls, JvStatusBar,
ComCtrls, TB2ExtItems, TBXExtItems, TBX, ComCtrls, TB2ExtItems, TBXExtItems, TBX,
TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent,
JvNavigationPane, uViewBarraSeleccion, JvgWizardHeader, StdCtrls, JvNavigationPane, uViewBarraSeleccion, StdCtrls,
uViewRecibosProveedor, uEditorRecibosProveedor, uBizRecibosProveedor, uIEditorElegirRecibosProveedor, uViewRecibosProveedor, uEditorRecibosProveedor, uBizRecibosProveedor, uIEditorElegirRecibosProveedor,
Buttons, cxRadioGroup, cxMaskEdit, cxDropDownEdit, cxCalendar, cxControls, Buttons, cxRadioGroup, cxMaskEdit, cxDropDownEdit, cxCalendar, cxControls,
@ -43,7 +43,8 @@ uses
type type
TfEditorElegirRecibosProveedor = class(TfEditorRecibosProveedor, IEditorElegirRecibosProveedor) TfEditorElegirRecibosProveedor = class(TfEditorRecibosProveedor, IEditorElegirRecibosProveedor)
frViewBarraSeleccion1: TfrViewBarraSeleccion; frViewBarraSeleccion1: TfrViewBarraSeleccion;
JvgWizardHeader1: TJvgWizardHeader; lblTitle: TLabel;
lblComments: TLabel;
EditorSeleccionActionList: TActionList; EditorSeleccionActionList: TActionList;
actBuscar2: TAction; actBuscar2: TAction;
actQuitarFiltro2: TAction; actQuitarFiltro2: TAction;
@ -178,7 +179,7 @@ end;
function TfEditorElegirRecibosProveedor.GetMensaje: String; function TfEditorElegirRecibosProveedor.GetMensaje: String;
begin begin
Result := JvgWizardHeader1.Comments.Text; Result := lblComments.Caption;
end; end;
function TfEditorElegirRecibosProveedor.GetMultiSelect: Boolean; function TfEditorElegirRecibosProveedor.GetMultiSelect: Boolean;
@ -188,7 +189,7 @@ end;
procedure TfEditorElegirRecibosProveedor.SetMensaje(const AValue: String); procedure TfEditorElegirRecibosProveedor.SetMensaje(const AValue: String);
begin begin
JvgWizardHeader1.Comments.Text := AValue; lblComments.Caption := AValue;
end; end;
procedure TfEditorElegirRecibosProveedor.SetMultiSelect(AValue: Boolean); procedure TfEditorElegirRecibosProveedor.SetMultiSelect(AValue: Boolean);

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

168
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,4 +1,4 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid> <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
@ -33,24 +33,20 @@
</PropertyGroup> </PropertyGroup>
<ProjectExtensions> <ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType /> <Borland.ProjectType/>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">7</VersionInfo><VersionInfo Name="Release">6</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.7.6.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.7.6.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 05 de mayo de 2009 16:47</VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">7</VersionInfo><VersionInfo Name="Release">6</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.7.6.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.7.6.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 05 de mayo de 2009 16:47</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages> <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
<ItemGroup> <ItemGroup>
<DelphiCompile Include="FactuGES_Server.dpr"> <DelphiCompile Include="FactuGES_Server.dpr">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" /> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" /> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas" /> <DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas"> <DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<Form>srvEmpresas</Form> <Form>srvEmpresas</Form>
<DesignClass>TDARemoteService</DesignClass> <DesignClass>TDARemoteService</DesignClass>
@ -59,18 +55,18 @@
<Form>srvProvinciasPoblaciones_Impl</Form> <Form>srvProvinciasPoblaciones_Impl</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" /> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" /> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"> <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas">
<Form>srvUsuarios</Form> <Form>srvUsuarios</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Base\schBase_Intf.pas" /> <DCCReference Include="..\Base\schBase_Intf.pas"/>
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" /> <DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/>
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas" /> <DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas"> <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
<Form>RptAlbaranesCliente</Form> <Form>RptAlbaranesCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
@ -83,9 +79,9 @@
<Form>srvAlbaranesCliente</Form> <Form>srvAlbaranesCliente</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" /> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" /> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" /> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptAlbaranesProveedor_Server.pas"> <DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptAlbaranesProveedor_Server.pas">
<Form>RptAlbaranesProveedor</Form> <Form>RptAlbaranesProveedor</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
@ -98,25 +94,25 @@
<Form>srvAlbaranesProveedor</Form> <Form>srvAlbaranesProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" /> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" /> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas"> <DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<Form>srvAlmacenes</Form> <Form>srvAlmacenes</Form>
<DesignClass>TDARemoteService</DesignClass> <DesignClass>TDARemoteService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" /> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" /> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas" /> <DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas"/>
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"> <DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
<Form>srvArticulos</Form> <Form>srvArticulos</Form>
<DesignClass>TDARemoteService</DesignClass> <DesignClass>TDARemoteService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas"> <DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<Form>RptEtiquetasContacto</Form> <Form>RptEtiquetasContacto</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
@ -129,15 +125,15 @@
<Form>srvContactos</Form> <Form>srvContactos</Form>
<DesignClass>TDARemoteService</DesignClass> <DesignClass>TDARemoteService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas" /> <DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas" /> <DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas"> <DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
<Form>srvFabricantes</Form> <Form>srvFabricantes</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" /> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" /> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" /> <DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas"> <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<Form>RptFacturasCliente</Form> <Form>RptFacturasCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
@ -150,9 +146,9 @@
<Form>srvFacturasCliente</Form> <Form>srvFacturasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas"> <DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
<Form>RptFacturasProveedor</Form> <Form>RptFacturasProveedor</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
@ -161,14 +157,14 @@
<Form>srvFacturasProveedor</Form> <Form>srvFacturasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" /> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" /> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"> <DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas">
<Form>srvFamilias</Form> <Form>srvFamilias</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" /> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" /> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"> <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas">
<Form>srvFormasPago</Form> <Form>srvFormasPago</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
@ -181,28 +177,28 @@
<Form>srvGestorInformes</Form> <Form>srvGestorInformes</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" /> <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" /> <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas"> <DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<Form>srvHistoricoMovimientos</Form> <Form>srvHistoricoMovimientos</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" /> <DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" /> <DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas"> <DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<Form>srvInventario</Form> <Form>srvInventario</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas" /> <DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas" /> <DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas" /> <DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas"/>
<DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas"> <DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas">
<Form>srvObras</Form> <Form>srvObras</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas"> <DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
<Form>RptPedidosProveedor</Form> <Form>RptPedidosProveedor</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
@ -215,9 +211,9 @@
<Form>srvPedidosProveedor</Form> <Form>srvPedidosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas"> <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<Form>RptPresupuestosCliente</Form> <Form>RptPresupuestosCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
@ -234,8 +230,8 @@
<Form>srvPresupuestosCliente</Form> <Form>srvPresupuestosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" /> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" /> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas"> <DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
<Form>RptRecibosCliente</Form> <Form>RptRecibosCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
@ -244,8 +240,8 @@
<Form>srvRecibosCliente</Form> <Form>srvRecibosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" /> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" /> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas"> <DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
<Form>RptRecibosProveedor</Form> <Form>RptRecibosProveedor</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
@ -254,40 +250,40 @@
<Form>srvRecibosProveedor</Form> <Form>srvRecibosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" /> <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" /> <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas"> <DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<Form>srvReferencias</Form> <Form>srvReferencias</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" /> <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" /> <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" /> <DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas"> <DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<Form>srvRemesasCliente</Form> <Form>srvRemesasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" /> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" /> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" /> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<Form>srvRemesasProveedor</Form> <Form>srvRemesasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" /> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" /> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"> <DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas">
<Form>srvTiposIVA</Form> <Form>srvTiposIVA</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" /> <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" /> <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas"> <DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
<Form>srvUnidadesMedida</Form> <Form>srvUnidadesMedida</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
<DCCReference Include="..\Servicios\FactuGES_Invk.pas" /> <DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas"> <DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<Form>srvConfiguracion</Form> <Form>srvConfiguracion</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
@ -322,16 +318,16 @@
<DCCReference Include="uServerMainForm.pas"> <DCCReference Include="uServerMainForm.pas">
<Form>fServerForm</Form> <Form>fServerForm</Form>
</DCCReference> </DCCReference>
<DCCReference Include="Utiles\AHWord97.pas" /> <DCCReference Include="Utiles\AHWord97.pas"/>
<DCCReference Include="Utiles\MidasSpeedFix.pas" /> <DCCReference Include="Utiles\MidasSpeedFix.pas"/>
<DCCReference Include="Utiles\RegExpr.pas" /> <DCCReference Include="Utiles\RegExpr.pas"/>
<DCCReference Include="Utiles\uBusinessUtils.pas" /> <DCCReference Include="Utiles\uBusinessUtils.pas"/>
<DCCReference Include="Utiles\uDatabaseUtils.pas" /> <DCCReference Include="Utiles\uDatabaseUtils.pas"/>
<DCCReference Include="Utiles\uReferenciasUtils.pas" /> <DCCReference Include="Utiles\uReferenciasUtils.pas"/>
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" /> <DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" /> <DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
<DCCReference Include="Utiles\uServerAppUtils.pas" /> <DCCReference Include="Utiles\uServerAppUtils.pas"/>
<DCCReference Include="Utiles\uSesionesUtils.pas" /> <DCCReference Include="Utiles\uSesionesUtils.pas"/>
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN BEGIN
VALUE "FileVersion", "1.7.6.0\0" VALUE "FileVersion", "1.7.6.0\0"
VALUE "ProductVersion", "1.7.6.0\0" VALUE "ProductVersion", "1.7.6.0\0"
VALUE "CompileDate", "miércoles, 08 de julio de 2009 11:18\0" VALUE "CompileDate", "jueves, 09 de julio de 2009 13:09\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"