Archivado/Noviseda_FactuGES2
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Arreglos estéticos varios.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@83 f33bb606-9f5c-448d-9c99-757f00063c96
This commit is contained in:
David Arranz 2010-02-01 19:24:25 +00:00
parent 60f5e16a38
commit 44fa0b0199
168 changed files with 2089 additions and 2706 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Source/ApplicationBase/ApplicationBase.dpk
View File

@ -68,7 +68,7 @@ contains
uViewPerfilUsuario in 'Usuarios\Views\uViewPerfilUsuario.pas' {frViewPerfilUsuario: TFrame}, uViewPerfilUsuario in 'Usuarios\Views\uViewPerfilUsuario.pas' {frViewPerfilUsuario: TFrame},
uIEditorPerfilesUsuario in 'Usuarios\Controller\View\uIEditorPerfilesUsuario.pas', uIEditorPerfilesUsuario in 'Usuarios\Controller\View\uIEditorPerfilesUsuario.pas',
uIEditorPerfilUsuario in 'Usuarios\Controller\View\uIEditorPerfilUsuario.pas', uIEditorPerfilUsuario in 'Usuarios\Controller\View\uIEditorPerfilUsuario.pas',
uEditorUsuarios in 'Usuarios\Views\uEditorUsuarios.pas' {fEditorUsuarios: TForm}, uEditorUsuarios in 'Usuarios\Views\uEditorUsuarios.pas' {fEditorUsuarios: T},
uViewUsuarios in 'Usuarios\Views\uViewUsuarios.pas' {frViewUsuarios: TFrame}, uViewUsuarios in 'Usuarios\Views\uViewUsuarios.pas' {frViewUsuarios: TFrame},
uEditorUsuario in 'Usuarios\Views\uEditorUsuario.pas' {fEditorUsuario: TFrame}, uEditorUsuario in 'Usuarios\Views\uEditorUsuario.pas' {fEditorUsuario: TFrame},
uViewUsuario in 'Usuarios\Views\uViewUsuario.pas' {frViewUsuario: TFrame}, uViewUsuario in 'Usuarios\Views\uViewUsuario.pas' {frViewUsuario: TFrame},

9
Source/ApplicationBase/ApplicationBase.dproj
View File

@ -55,11 +55,10 @@
<DelphiCompile Include="ApplicationBase.dpk"> <DelphiCompile Include="ApplicationBase.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Base.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="..\GUIBase.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
<DCCReference Include="..\JvJansD11R.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\JvJansD11R.dcp" />
<DCCReference Include="..\PluginSDK_D11R.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D11R.dcp" />
<DCCReference Include="..\PluginSDK_D110R.dcp" />
<DCCReference Include="Empresas\Controller\uDatosBancariosEmpresaController.pas" /> <DCCReference Include="Empresas\Controller\uDatosBancariosEmpresaController.pas" />
<DCCReference Include="Empresas\Controller\uEmpresasController.pas" /> <DCCReference Include="Empresas\Controller\uEmpresasController.pas" />
<DCCReference Include="Empresas\Controller\View\uIEditorDatosBancarioEmpresa.pas" /> <DCCReference Include="Empresas\Controller\View\uIEditorDatosBancarioEmpresa.pas" />

BIN
Source/ApplicationBase/ApplicationBase.res
View File

Binary file not shown.

13
Source/ApplicationBase/Usuarios/Views/uEditorPerfilUsuario.dfm
View File

@ -44,17 +44,4 @@ inherited fEditorPerfilUsuario: TfEditorPerfilUsuario
Visible = False Visible = False
end end
end end
object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList
Left = 248
Top = 168
object dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel
GroupOptions.CaptionOptions.Font.Charset = DEFAULT_CHARSET
GroupOptions.CaptionOptions.Font.Color = clWindowText
GroupOptions.CaptionOptions.Font.Height = -11
GroupOptions.CaptionOptions.Font.Name = 'Tahoma'
GroupOptions.CaptionOptions.Font.Style = [fsBold]
GroupOptions.CaptionOptions.TextColor = clHighlight
GroupOptions.CaptionOptions.UseDefaultFont = False
end
end
end end

7
Source/ApplicationBase/Usuarios/Views/uEditorPerfilUsuario.pas
View File

@ -10,12 +10,11 @@ uses
TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvNavigationPane, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvNavigationPane,
uIEditorPerfilUsuario, uUsuariosController, uCustomView, uViewBase, uIEditorPerfilUsuario, uUsuariosController, uCustomView, uViewBase,
uViewPerfilUsuario, uBizUsuarios, dxLayoutLookAndFeels, cxControls, uViewPerfilUsuario, uBizUsuarios, dxLayoutLookAndFeels, cxControls,
cxContainer, cxEdit, cxLabel; cxContainer, cxEdit, cxLabel, cxGraphics, cxLookAndFeels, uDMBase,
cxLookAndFeelPainters;
type type
TfEditorPerfilUsuario = class(TfEditorDBItem, IEditorPerfilUsuario) TfEditorPerfilUsuario = class(TfEditorDBItem, IEditorPerfilUsuario)
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
private private
FController : IUsuariosController; FController : IUsuariosController;
FPerfilUsuario : IBizPerfilUsuario; FPerfilUsuario : IBizPerfilUsuario;
@ -67,7 +66,7 @@ begin
begin begin
Parent := pagGeneral; Parent := pagGeneral;
Align := alClient; Align := alClient;
dxLayoutControlArticulo.LookAndFeel := dxLayoutOfficeLookAndFeel1; dxLayoutControlArticulo.LookAndFeel := dmBase.dxLayoutSkinLookAndFeel;
end; end;
ViewPerfilUsuario := AViewPerfilUsuario; ViewPerfilUsuario := AViewPerfilUsuario;
end; end;

3
Source/ApplicationBase/Usuarios/Views/uEditorPerfilesUsuario.pas
View File

@ -9,7 +9,8 @@ uses
PngImageList, StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, SpTBXItem, PngImageList, StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, SpTBXItem,
TB2ExtItems, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, TB2ExtItems, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
JvExControls, JvNavigationPane, uIEditorPerfilesUsuario, JvExControls, JvNavigationPane, uIEditorPerfilesUsuario,
uUsuariosController, uBizUsuarios, uViewPerfilesUsuario; uUsuariosController, uBizUsuarios, uViewPerfilesUsuario, StdCtrls,
TntStdCtrls, SpTBXEditors;
type type
TfEditorPerfilesUsuario = class(TfEditorGridBase, IEditorPerfilesUsuario) TfEditorPerfilesUsuario = class(TfEditorGridBase, IEditorPerfilesUsuario)

35
Source/ApplicationBase/Usuarios/Views/uEditorUsuario.dfm
View File

@ -50,71 +50,53 @@ inherited fEditorUsuario: TfEditorUsuario
ExplicitHeight = 332 ExplicitHeight = 332
inherited dxLayoutControlArticulo: TdxLayoutControl inherited dxLayoutControlArticulo: TdxLayoutControl
Width = 887 Width = 887
LookAndFeel = dxLayoutOfficeLookAndFeel1 Height = 332
ExplicitWidth = 887 ExplicitWidth = 887
DesignSize = ( ExplicitHeight = 332
887
249)
inherited PngSpeedButton3: TPngSpeedButton
Top = 84
ExplicitTop = 84
end
inherited eNombre: TcxDBTextEdit inherited eNombre: TcxDBTextEdit
Top = 30
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 30
ExplicitWidth = 164 ExplicitWidth = 164
Width = 164 Width = 164
end end
inherited eUsuario: TcxDBTextEdit inherited eUsuario: TcxDBTextEdit
Top = 57
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 57
ExplicitWidth = 108 ExplicitWidth = 108
Width = 108 Width = 108
end end
inherited eMail: TcxDBHyperLinkEdit inherited eMail: TcxDBHyperLinkEdit
Top = 84
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 84
end end
inherited ePassword: TcxTextEdit inherited ePassword: TcxTextEdit
Top = 163
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 163
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end
inherited eConfirmarPassword: TcxTextEdit inherited eConfirmarPassword: TcxTextEdit
Top = 190
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 190
ExplicitWidth = 372 ExplicitWidth = 372
Width = 372 Width = 372
end end
inherited cbPerfil: TcxComboBox inherited cbPerfil: TcxComboBox
Top = 112
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 112
end end
end end
end end
@ -155,17 +137,4 @@ inherited fEditorUsuario: TfEditorUsuario
inherited StatusBarImages: TPngImageList inherited StatusBarImages: TPngImageList
Top = 312 Top = 312
end end
object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList
Left = 336
Top = 160
object dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel
GroupOptions.CaptionOptions.Font.Charset = DEFAULT_CHARSET
GroupOptions.CaptionOptions.Font.Color = clWindowText
GroupOptions.CaptionOptions.Font.Height = -11
GroupOptions.CaptionOptions.Font.Name = 'Tahoma'
GroupOptions.CaptionOptions.Font.Style = [fsBold]
GroupOptions.CaptionOptions.TextColor = clHighlight
GroupOptions.CaptionOptions.UseDefaultFont = False
end
end
end end

5
Source/ApplicationBase/Usuarios/Views/uEditorUsuario.pas
View File

@ -9,13 +9,12 @@ uses
StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, SpTBXItem, TB2Item, StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, SpTBXItem, TB2Item,
TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvNavigationPane, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvNavigationPane,
uIEditorUsuario, uUsuariosController, uCustomView, uViewBase, uViewUsuario, uIEditorUsuario, uUsuariosController, uCustomView, uViewBase, uViewUsuario,
uBizUsuarios, dxLayoutLookAndFeels, cxControls, cxContainer, cxEdit, cxLabel; uBizUsuarios, dxLayoutLookAndFeels, cxControls, cxContainer, cxEdit, cxLabel,
cxGraphics, cxLookAndFeels, cxLookAndFeelPainters;
type type
TfEditorUsuario = class(TfEditorDBItem, IEditorUsuario) TfEditorUsuario = class(TfEditorDBItem, IEditorUsuario)
frViewUsuario1: TfrViewUsuario; frViewUsuario1: TfrViewUsuario;
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
actCambiarPassword: TAction; actCambiarPassword: TAction;
TBXSubmenuItem2: TSpTBXSubmenuItem; TBXSubmenuItem2: TSpTBXSubmenuItem;
TBXItem7: TSpTBXItem; TBXItem7: TSpTBXItem;

6
Source/ApplicationBase/Usuarios/Views/uEditorUsuarios.dfm
View File

@ -7,7 +7,10 @@ inherited fEditorUsuarios: TfEditorUsuarios
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Top = 75
Width = 840 Width = 840
ExplicitLeft = 8
ExplicitTop = 120
ExplicitWidth = 840 ExplicitWidth = 840
inherited Image1: TImage inherited Image1: TImage
Left = 813 Left = 813
@ -15,10 +18,11 @@ inherited fEditorUsuarios: TfEditorUsuarios
end end
end end
inherited TBXDock: TSpTBXDock inherited TBXDock: TSpTBXDock
Top = 0
Width = 840 Width = 840
ExplicitWidth = 840 ExplicitWidth = 840
inherited tbxMain: TSpTBXToolbar inherited tbxMain: TSpTBXToolbar
ExplicitWidth = 521 ExplicitWidth = 664
object TBXItem39: TSpTBXItem [8] object TBXItem39: TSpTBXItem [8]
Action = actCambiarPassword Action = actCambiarPassword
end end

2
Source/ApplicationBase/Usuarios/Views/uEditorUsuarios.pas
View File

@ -10,7 +10,7 @@ uses
TB2ExtItems, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, TB2ExtItems, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
JvExControls, JvNavigationPane, uCustomView, uViewBase, uViewGridBase, JvExControls, JvNavigationPane, uCustomView, uViewBase, uViewGridBase,
uViewGrid, uViewUsuarios, uIEditorUsuarios, uUsuariosController, uViewGrid, uViewUsuarios, uIEditorUsuarios, uUsuariosController,
uBizUsuarios; uBizUsuarios, StdCtrls, TntStdCtrls, SpTBXEditors;
type type
TfEditorUsuarios = class(TfEditorGridBase, IEditorUsuarios) TfEditorUsuarios = class(TfEditorGridBase, IEditorUsuarios)

26
Source/ApplicationBase/Usuarios/Views/uViewPerfilUsuario.dfm
View File

@ -7,22 +7,21 @@ inherited frViewPerfilUsuario: TfrViewPerfilUsuario
Left = 0 Left = 0
Top = 0 Top = 0
Width = 509 Width = 509
Height = 113 Height = 97
Align = alTop Align = alTop
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
AutoContentSizes = [acsWidth] TabStop = False
LayoutLookAndFeel = dmBase.dxLayoutSkinLookAndFeel
DesignSize = ( DesignSize = (
509 509
113) 97)
object eNombre: TcxDBTextEdit object eNombre: TcxDBTextEdit
Left = 68 Left = 68
Top = 28 Top = 28
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'USERNAME' DataBinding.DataField = 'USERNAME'
DataBinding.DataSource = dsUsuario DataBinding.DataSource = dsUsuario
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = 14745599 Style.Color = 14745599
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
@ -37,25 +36,28 @@ inherited frViewPerfilUsuario: TfrViewPerfilUsuario
Width = 164 Width = 164
end end
object dxLayoutGroup1: TdxLayoutGroup object dxLayoutGroup1: TdxLayoutGroup
ShowCaption = False AlignHorz = ahParentManaged
AlignVert = avTop
CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True Hidden = True
ShowBorder = False ShowBorder = False
object dxLayoutGroup2: TdxLayoutGroup object dxLayoutGroup2: TdxLayoutGroup
AutoAligns = []
AlignHorz = ahClient AlignHorz = ahClient
AlignVert = avClient AlignVert = avClient
Caption = 'Datos del perfil' CaptionOptions.Text = 'Datos del perfil'
ButtonOptions.Buttons = <>
object dxLayoutControlArticuloItem3: TdxLayoutItem object dxLayoutControlArticuloItem3: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Nombre:' CaptionOptions.Text = 'Nombre:'
Control = eNombre Control = eNombre
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
object dxLayoutControlArticuloGroup3: TdxLayoutGroup object dxLayoutControlArticuloGroup3: TdxLayoutGroup
Caption = 'New Group' CaptionOptions.Text = 'New Group'
ShowCaption = False CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
end end

3
Source/ApplicationBase/Usuarios/Views/uViewPerfilUsuario.pas
View File

@ -8,7 +8,8 @@ uses
dxLayoutControl, cxCurrencyEdit, uCustomView, cxControls, DB, uDAInterfaces, dxLayoutControl, cxCurrencyEdit, uCustomView, cxControls, DB, uDAInterfaces,
uDADataTable, ActnList, cxCheckBox, cxDBEdit, cxMaskEdit, cxSpinEdit, uDADataTable, ActnList, cxCheckBox, cxDBEdit, cxMaskEdit, cxSpinEdit,
cxHyperLinkEdit, cxContainer, cxEdit, cxTextEdit, Buttons, PngSpeedButton, cxHyperLinkEdit, cxContainer, cxEdit, cxTextEdit, Buttons, PngSpeedButton,
uBizUsuarios, cxDropDownEdit; uBizUsuarios, cxDropDownEdit, uDMBase, cxLookAndFeels, cxLookAndFeelPainters,
dxLayoutcxEditAdapters;
type type
IViewPerfilUsuario = interface(IViewBase) IViewPerfilUsuario = interface(IViewBase)

65
Source/ApplicationBase/Usuarios/Views/uViewUsuario.dfm
View File

@ -9,15 +9,16 @@ inherited frViewUsuario: TfrViewUsuario
Left = 0 Left = 0
Top = 0 Top = 0
Width = 509 Width = 509
Height = 249 Height = 275
Align = alTop Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth] LayoutLookAndFeel = dmBase.dxLayoutSkinLookAndFeel
ExplicitHeight = 249
DesignSize = ( DesignSize = (
509 509
249) 275)
object PngSpeedButton3: TPngSpeedButton object PngSpeedButton3: TPngSpeedButton
Left = 335 Left = 335
Top = 82 Top = 82
@ -48,8 +49,6 @@ inherited frViewUsuario: TfrViewUsuario
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'USERNAME' DataBinding.DataField = 'USERNAME'
DataBinding.DataSource = dsUsuario DataBinding.DataSource = dsUsuario
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = 14745599 Style.Color = 14745599
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
@ -72,8 +71,6 @@ inherited frViewUsuario: TfrViewUsuario
Top = 55 Top = 55
DataBinding.DataField = 'LOGIN' DataBinding.DataField = 'LOGIN'
DataBinding.DataSource = dsUsuario DataBinding.DataSource = dsUsuario
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = 14745599 Style.Color = 14745599
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
@ -101,8 +98,6 @@ inherited frViewUsuario: TfrViewUsuario
Properties.OnEditValueChanged = eMailPropertiesEditValueChanged Properties.OnEditValueChanged = eMailPropertiesEditValueChanged
Properties.OnValidate = eMailPropertiesValidate Properties.OnValidate = eMailPropertiesValidate
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
@ -124,8 +119,6 @@ inherited frViewUsuario: TfrViewUsuario
Top = 167 Top = 167
Properties.EchoMode = eemPassword Properties.EchoMode = eemPassword
Properties.PasswordChar = '*' Properties.PasswordChar = '*'
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -146,8 +139,6 @@ inherited frViewUsuario: TfrViewUsuario
Top = 194 Top = 194
Properties.EchoMode = eemPassword Properties.EchoMode = eemPassword
Properties.PasswordChar = '*' Properties.PasswordChar = '*'
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -171,13 +162,9 @@ inherited frViewUsuario: TfrViewUsuario
Properties.ImmediateUpdateText = True Properties.ImmediateUpdateText = True
Properties.PostPopupValueOnTab = True Properties.PostPopupValueOnTab = True
Properties.OnValidate = cbPerfilPropertiesValidate Properties.OnValidate = cbPerfilPropertiesValidate
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
@ -191,68 +178,72 @@ inherited frViewUsuario: TfrViewUsuario
Width = 194 Width = 194
end end
object dxLayoutGroup1: TdxLayoutGroup object dxLayoutGroup1: TdxLayoutGroup
ShowCaption = False AlignHorz = ahParentManaged
AlignVert = avClient
CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True Hidden = True
ShowBorder = False ShowBorder = False
object dxLayoutGroup2: TdxLayoutGroup object dxLayoutGroup2: TdxLayoutGroup
AutoAligns = []
AlignHorz = ahClient AlignHorz = ahClient
AlignVert = avClient AlignVert = avTop
Caption = 'Datos del usuario' CaptionOptions.Text = 'Datos del usuario'
ButtonOptions.Buttons = <>
object dxLayoutControlArticuloItem3: TdxLayoutItem object dxLayoutControlArticuloItem3: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Nombre completo:' CaptionOptions.Text = 'Nombre completo:'
Control = eNombre Control = eNombre
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControlArticuloItem8: TdxLayoutItem object dxLayoutControlArticuloItem8: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Usuario:' CaptionOptions.Text = 'Usuario:'
Control = eUsuario Control = eUsuario
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControlArticuloGroup2: TdxLayoutGroup object dxLayoutControlArticuloGroup2: TdxLayoutGroup
ShowCaption = False CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True Hidden = True
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
object dxLayoutControlArticuloItem4: TdxLayoutItem object dxLayoutControlArticuloItem4: TdxLayoutItem
AutoAligns = [aaVertical] AlignHorz = ahLeft
Caption = 'Correo electr'#243'nico' CaptionOptions.Text = 'Correo electr'#243'nico'
Control = eMail Control = eMail
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControlArticuloItem5: TdxLayoutItem object dxLayoutControlArticuloItem5: TdxLayoutItem
ShowCaption = False CaptionOptions.Visible = False
Control = PngSpeedButton3 Control = PngSpeedButton3
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
object dxLayoutControlArticuloItem1: TdxLayoutItem object dxLayoutControlArticuloItem1: TdxLayoutItem
AutoAligns = [aaVertical] AlignHorz = ahLeft
Caption = 'Perfil de usuario:' CaptionOptions.Text = 'Perfil de usuario:'
Control = cbPerfil Control = cbPerfil
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
object dxLayoutControlArticuloGroup5: TdxLayoutGroup object dxLayoutControlArticuloGroup5: TdxLayoutGroup
Caption = 'Seguridad' CaptionOptions.Text = 'Seguridad'
ButtonOptions.Buttons = <>
object dxLayoutControlArticuloItem11: TdxLayoutItem object dxLayoutControlArticuloItem11: TdxLayoutItem
Caption = 'Contrase'#241'a:' CaptionOptions.Text = 'Contrase'#241'a:'
Control = ePassword Control = ePassword
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControlArticuloItem12: TdxLayoutItem object dxLayoutControlArticuloItem12: TdxLayoutItem
Caption = 'Confirmar contrase'#241'a:' CaptionOptions.Text = 'Confirmar contrase'#241'a:'
Control = eConfirmarPassword Control = eConfirmarPassword
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
object dxLayoutControlArticuloGroup3: TdxLayoutGroup object dxLayoutControlArticuloGroup3: TdxLayoutGroup
Caption = 'New Group' CaptionOptions.Text = 'New Group'
ShowCaption = False CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
end end

3
Source/ApplicationBase/Usuarios/Views/uViewUsuario.pas
View File

@ -8,7 +8,8 @@ uses
dxLayoutControl, cxCurrencyEdit, uCustomView, cxControls, DB, uDAInterfaces, dxLayoutControl, cxCurrencyEdit, uCustomView, cxControls, DB, uDAInterfaces,
uDADataTable, ActnList, cxCheckBox, cxDBEdit, cxMaskEdit, cxSpinEdit, uDADataTable, ActnList, cxCheckBox, cxDBEdit, cxMaskEdit, cxSpinEdit,
cxHyperLinkEdit, cxContainer, cxEdit, cxTextEdit, Buttons, PngSpeedButton, cxHyperLinkEdit, cxContainer, cxEdit, cxTextEdit, Buttons, PngSpeedButton,
uBizUsuarios, cxDropDownEdit, ExtCtrls; uBizUsuarios, cxDropDownEdit, ExtCtrls, uDMBase, cxLookAndFeels,
cxLookAndFeelPainters, dxLayoutcxEditAdapters;
type type
IViewUsuario = interface(IViewBase) IViewUsuario = interface(IViewBase)

102
Source/Base/Base.dproj
View File

@ -54,58 +54,58 @@
<DelphiCompile Include="Base.dpk"> <DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Articulos\adortl.dcp" />
<DCCReference Include="..\Modulos\Articulos\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Articulos\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Articulos\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Articulos\designide.dcp" />
<DCCReference Include="..\Modulos\Articulos\dsnap.dcp" />
<DCCReference Include="..\Modulos\Articulos\dxCoreD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Articulos\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Articulos\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Articulos\Jcl.dcp" />
<DCCReference Include="..\Modulos\Articulos\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Articulos\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Articulos\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Articulos\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Articulos\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Articulos\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Articulos\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Articulos\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Articulos\RemObjects_Indy_D11.dcp" />
<DCCReference Include="..\Modulos\Articulos\rtl.dcp" />
<DCCReference Include="..\Modulos\Articulos\SpTBXLib_d11.dcp" />
<DCCReference Include="..\Modulos\Articulos\tb2k_d11.dcp" />
<DCCReference Include="..\Modulos\Articulos\vcl.dcp" />
<DCCReference Include="..\Modulos\Articulos\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Articulos\vcldb.dcp" />
<DCCReference Include="..\Modulos\Articulos\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Articulos\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Articulos\vclx.dcp" />
<DCCReference Include="..\Modulos\Articulos\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxCoreD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Indy_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\SpTBXLib_d11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tb2k_d11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
<DCCReference Include="Conexion\uConfigurarConexion.pas"> <DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form> <Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>

4
Source/Base/Configuracion/uDataModuleConfiguracion.dfm
View File

@ -1,7 +1,7 @@
object dmConfiguracion: TdmConfiguracion object dmConfiguracion: TdmConfiguracion
OldCreateOrder = False OldCreateOrder = False
Height = 160 Height = 104
Width = 100 Width = 109
object RORemoteService: TRORemoteService object RORemoteService: TRORemoteService
ServiceName = 'srvConfiguracion' ServiceName = 'srvConfiguracion'
Left = 24 Left = 24

31
Source/Base/uDMBase.dfm
View File

@ -146,7 +146,22 @@ object dmBase: TdmBase
Bitmap = {} Bitmap = {}
end end
object StyleManager: TJvNavPaneStyleManager object StyleManager: TJvNavPaneStyleManager
Colors.ButtonColorFrom = clWhite
Colors.ButtonColorTo = 12435133
Colors.ButtonHotColorFrom = 13009540
Colors.ButtonHotColorTo = 13009540
Colors.ButtonSelectedColorFrom = 14602190
Colors.ButtonSelectedColorTo = 14602190
Colors.ButtonSeparatorColor = 2987520 Colors.ButtonSeparatorColor = 2987520
Colors.SplitterColorFrom = 13026246
Colors.SplitterColorTo = 9211532
Colors.DividerColorFrom = 15725551
Colors.DividerColorTo = 13026246
Colors.HeaderColorFrom = 8684164
Colors.HeaderColorTo = 8684164
Colors.FrameColor = 8684676
Colors.ToolPanelHeaderColorFrom = clWhite
Colors.ToolPanelHeaderColorTo = 12435133
Fonts.NavPanelFont.Charset = DEFAULT_CHARSET Fonts.NavPanelFont.Charset = DEFAULT_CHARSET
Fonts.NavPanelFont.Color = clWindowText Fonts.NavPanelFont.Color = clWindowText
Fonts.NavPanelFont.Height = -13 Fonts.NavPanelFont.Height = -13
@ -168,18 +183,18 @@ object dmBase: TdmBase
Fonts.HeaderFont.Name = 'Arial' Fonts.HeaderFont.Name = 'Arial'
Fonts.HeaderFont.Style = [fsBold] Fonts.HeaderFont.Style = [fsBold]
Theme = nptCustom Theme = nptCustom
Left = 104 Left = 88
Top = 80 Top = 80
end end
object JvLogFile: TJvLogFile object JvLogFile: TJvLogFile
Left = 184 Left = 160
Top = 80 Top = 80
end end
object dxPrintStyleManager1: TdxPrintStyleManager object dxPrintStyleManager1: TdxPrintStyleManager
CurrentStyle = dxPrintStyleManager1Style1 CurrentStyle = dxPrintStyleManager1Style1
Version = 0 Version = 0
Left = 280 Left = 232
Top = 16 Top = 80
object dxPrintStyleManager1Style1: TdxPSPrintStyle object dxPrintStyleManager1Style1: TdxPSPrintStyle
PrinterPage.DMPaper = 9 PrinterPage.DMPaper = 9
PrinterPage.Footer = 6350 PrinterPage.Footer = 6350
@ -211,4 +226,12 @@ object dmBase: TdmBase
BuiltInStyle = True BuiltInStyle = True
end end
end end
object dxLayoutLookAndFeelList: TdxLayoutLookAndFeelList
Left = 88
Top = 16
object dxLayoutSkinLookAndFeel: TdxLayoutSkinLookAndFeel
LookAndFeel.Kind = lfStandard
LookAndFeel.NativeStyle = True
end
end
end end

4
Source/Base/uDMBase.pas
View File

@ -7,7 +7,7 @@ uses
Classes, ImgList, SysUtils, Classes, ImgList, SysUtils,
DataAbstract4_Intf, uDADataTable, JvAppStorage, JvAppRegistryStorage, DataAbstract4_Intf, uDADataTable, JvAppStorage, JvAppRegistryStorage,
JvComponentBase, JvLogFile, dxPSGlbl, dxPSUtl, dxPrnPg, JvComponentBase, JvLogFile, dxPSGlbl, dxPSUtl, dxPrnPg,
dxBkgnd, dxWrap, dxPrnDev, dxPgsDlg, dxPSCore; dxBkgnd, dxWrap, dxPrnDev, dxPgsDlg, dxPSCore, dxLayoutLookAndFeels;
type type
TdmBase = class(TDataModule) TdmBase = class(TDataModule)
@ -16,6 +16,8 @@ type
JvLogFile: TJvLogFile; JvLogFile: TJvLogFile;
dxPrintStyleManager1: TdxPrintStyleManager; dxPrintStyleManager1: TdxPrintStyleManager;
dxPrintStyleManager1Style1: TdxPSPrintStyle; dxPrintStyleManager1Style1: TdxPSPrintStyle;
dxLayoutLookAndFeelList: TdxLayoutLookAndFeelList;
dxLayoutSkinLookAndFeel: TdxLayoutSkinLookAndFeel;
procedure DAClientDataModuleCreate(Sender: TObject); procedure DAClientDataModuleCreate(Sender: TObject);
procedure DataModuleDestroy(Sender: TObject); procedure DataModuleDestroy(Sender: TObject);
private private

52
Source/GUIBase/GUIBase.dproj
View File

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

BIN
Source/GUIBase/GUIBase.res
View File

Binary file not shown.

2
Source/GUIBase/uEditorBase.dfm
View File

@ -76,7 +76,7 @@ object fEditorBase: TfEditorBase
Left = 0 Left = 0
Top = 23 Top = 23
ChevronHint = 'M'#225's botones|' ChevronHint = 'M'#225's botones|'
DockMode = dmCannotFloatOrChangeDocks DockMode = dmCannotFloat
DockPos = -23 DockPos = -23
DockRow = 1 DockRow = 1
Images = SmallImages Images = SmallImages

4
Source/GUIBase/uEditorDBItem.dfm
View File

@ -77,6 +77,10 @@ inherited fEditorDBItem: TfEditorDBItem
TabOrder = 2 TabOrder = 2
object pagGeneral: TTabSheet object pagGeneral: TTabSheet
Caption = 'General' Caption = 'General'
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar

6
Source/GUIBase/uViewDetallesBase.dfm
View File

@ -129,19 +129,19 @@ inherited frViewDetallesBase: TfrViewDetallesBase
end end
object ToolButton9: TToolButton object ToolButton9: TToolButton
Left = 0 Left = 0
Top = 49 Top = 52
Action = RichEditAlignLeft1 Action = RichEditAlignLeft1
AutoSize = True AutoSize = True
end end
object ToolButton10: TToolButton object ToolButton10: TToolButton
Left = 145 Left = 145
Top = 49 Top = 52
Action = RichEditAlignCenter1 Action = RichEditAlignCenter1
AutoSize = True AutoSize = True
end end
object ToolButton11: TToolButton object ToolButton11: TToolButton
Left = 270 Left = 270
Top = 49 Top = 52
Action = RichEditAlignRight1 Action = RichEditAlignRight1
AutoSize = True AutoSize = True
end end

109
Source/GUIBase/uViewDetallesDTO.dfm
View File

@ -1,51 +1,103 @@
inherited frViewDetallesDTO: TfrViewDetallesDTO inherited frViewDetallesDTO: TfrViewDetallesDTO
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Height = 73
ExplicitHeight = 73
inherited ToolButton1: TToolButton inherited ToolButton1: TToolButton
ExplicitWidth = 109 ExplicitWidth = 109
end end
inherited ToolButton2: TToolButton inherited ToolButton3: TToolButton [1]
Left = 109 Left = 109
ExplicitLeft = 109 ExplicitLeft = 109
end
inherited ToolButton2: TToolButton [2]
Left = 164
ExplicitLeft = 164
ExplicitWidth = 114 ExplicitWidth = 114
end end
inherited ToolButton3: TToolButton inherited ToolButton14: TToolButton [3]
Left = 223
ExplicitLeft = 223
end
inherited ToolButton4: TToolButton
Left = 278 Left = 278
Top = 0
ExplicitLeft = 278 ExplicitLeft = 278
ExplicitTop = 0
end end
inherited ToolButton14: TToolButton inherited ToolButton4: TToolButton [4]
Left = 334
ExplicitLeft = 334
end end
inherited FontSize: TEdit inherited ToolButton9: TToolButton [5]
Left = 56
Top = 22
ExplicitLeft = 56
ExplicitTop = 22
end
inherited ToolButton10: TToolButton [6]
Left = 201
Top = 22
ExplicitLeft = 201
ExplicitTop = 22
end
inherited FontName: TJvFontComboBox [7]
Left = 326
Top = 22
ExplicitLeft = 326
ExplicitTop = 22
end
inherited UpDown1: TUpDown [8]
Left = 471
Top = 22
ExplicitLeft = 471
ExplicitTop = 22
end
inherited ToolButton13: TToolButton [9]
Left = 0
Top = 22
Wrap = True
ExplicitLeft = 0
ExplicitTop = 22
ExplicitHeight = 30
end
inherited ToolButton6: TToolButton [10]
Left = 0
Top = 52
ExplicitLeft = 0
ExplicitTop = 52
end
inherited ToolButton7: TToolButton [11]
Left = 66
Top = 52
ExplicitLeft = 66
ExplicitTop = 52
end
inherited FontSize: TEdit [12]
Left = 133
Top = 52
Width = 41 Width = 41
ExplicitLeft = 133
ExplicitTop = 52
ExplicitWidth = 41 ExplicitWidth = 41
end end
inherited UpDown1: TUpDown inherited ToolButton12: TToolButton [13]
Left = 186 Left = 174
ExplicitLeft = 186 Top = 52
ExplicitLeft = 174
ExplicitTop = 52
end end
inherited ToolButton13: TToolButton inherited ToolButton11: TToolButton [14]
Left = 202 Left = 182
ExplicitLeft = 202 Top = 52
ExplicitLeft = 182
ExplicitTop = 52
end end
inherited ToolButton6: TToolButton inherited ToolButton8: TToolButton [15]
Left = 210 Left = 323
ExplicitLeft = 210 Top = 52
end ExplicitLeft = 323
inherited ToolButton7: TToolButton ExplicitTop = 52
Left = 276
ExplicitLeft = 276
end
inherited ToolButton8: TToolButton
Left = 343
ExplicitLeft = 343
end end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Top = 99
Height = 205
ExplicitTop = 126
ExplicitHeight = 178
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
object cxGridViewDESCUENTO: TcxGridDBColumn [7] object cxGridViewDESCUENTO: TcxGridDBColumn [7]
Caption = 'Dto' Caption = 'Dto'
@ -85,6 +137,9 @@ inherited frViewDetallesDTO: TfrViewDetallesDTO
end end
end end
end end
inherited TBXDock1: TSpTBXDock
Top = 73
end
inherited ActionListContenido: TActionList inherited ActionListContenido: TActionList
inherited actAnadir: TAction inherited actAnadir: TAction
Caption = 'A'#241'adir concepto' Caption = 'A'#241'adir concepto'

19
Source/GUIBase/uViewFiltroBase.dfm
View File

@ -24,12 +24,11 @@ inherited frViewFiltroBase: TfrViewFiltroBase
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
LayoutLookAndFeel = dmBase.dxLayoutSkinLookAndFeel
object txtFiltroTodo: TcxTextEdit object txtFiltroTodo: TcxTextEdit
Left = 87 Left = 87
Top = 10 Top = 10
Properties.OnChange = OnCamposFiltroChange Properties.OnChange = OnCamposFiltroChange
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
@ -50,14 +49,10 @@ inherited frViewFiltroBase: TfrViewFiltroBase
Left = 87 Left = 87
Top = 37 Top = 37
Properties.OnChange = OnCamposFiltroChange Properties.OnChange = OnCamposFiltroChange
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
@ -74,14 +69,10 @@ inherited frViewFiltroBase: TfrViewFiltroBase
Left = 198 Left = 198
Top = 37 Top = 37
Properties.OnChange = OnCamposFiltroChange Properties.OnChange = OnCamposFiltroChange
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
@ -99,12 +90,8 @@ inherited frViewFiltroBase: TfrViewFiltroBase
Top = 37 Top = 37
Properties.DropDownListStyle = lsEditFixedList Properties.DropDownListStyle = lsEditFixedList
Properties.OnChange = OnCamposFiltroChange Properties.OnChange = OnCamposFiltroChange
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
@ -190,10 +177,6 @@ inherited frViewFiltroBase: TfrViewFiltroBase
end end
end end
end end
object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList
Left = 136
Top = 16
end
object ActionList1: TActionList object ActionList1: TActionList
Images = PngImageList Images = PngImageList
Left = 280 Left = 280

3
Source/GUIBase/uViewFiltroBase.pas
View File

@ -7,7 +7,7 @@ uses
Dialogs, StdCtrls, Buttons, cxRadioGroup, SpTBXDkPanels, TB2ExtItems, Dialogs, StdCtrls, Buttons, cxRadioGroup, SpTBXDkPanels, TB2ExtItems,
SpTBXItem, TB2Item, TB2Dock, TB2Toolbar, ActnList, ImgList, PngImageList, SpTBXItem, TB2Item, TB2Dock, TB2Toolbar, ActnList, ImgList, PngImageList,
cxGraphics, dxLayoutLookAndFeels, dxLayoutControl, cxDropDownEdit, cxMaskEdit, cxGraphics, dxLayoutLookAndFeels, dxLayoutControl, cxDropDownEdit, cxMaskEdit,
cxCalendar, cxContainer, cxEdit, cxTextEdit, cxControls, uViewBase, cxCalendar, cxContainer, cxEdit, cxTextEdit, cxControls, uViewBase, uDMBase,
cxLookAndFeels, cxLookAndFeelPainters, dxLayoutcxEditAdapters; cxLookAndFeels, cxLookAndFeelPainters, dxLayoutcxEditAdapters;
type type
@ -29,7 +29,6 @@ type
TfrViewFiltroBase = class(TfrViewBase, IViewFiltroBase) TfrViewFiltroBase = class(TfrViewBase, IViewFiltroBase)
dxLayoutControl1Group_Root: TdxLayoutGroup; dxLayoutControl1Group_Root: TdxLayoutGroup;
dxLayoutControl1: TdxLayoutControl; dxLayoutControl1: TdxLayoutControl;
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
dxLayoutControl1Item1: TdxLayoutItem; dxLayoutControl1Item1: TdxLayoutItem;
txtFiltroTodo: TcxTextEdit; txtFiltroTodo: TcxTextEdit;
dxLayoutControl1Item2: TdxLayoutItem; dxLayoutControl1Item2: TdxLayoutItem;

4
Source/GUIBase/uViewGrid.dfm
View File

@ -18,7 +18,6 @@ inherited frViewGrid: TfrViewGrid
TabOrder = 0 TabOrder = 0
LookAndFeel.Kind = lfStandard LookAndFeel.Kind = lfStandard
LookAndFeel.NativeStyle = True LookAndFeel.NativeStyle = True
ExplicitHeight = 211
object cxGridView: TcxGridDBTableView object cxGridView: TcxGridDBTableView
OnDblClick = cxGridViewDblClick OnDblClick = cxGridViewDblClick
NavigatorButtons.ConfirmDelete = False NavigatorButtons.ConfirmDelete = False
@ -202,7 +201,7 @@ inherited frViewGrid: TfrViewGrid
PrinterPage.ScaleMode = smFit PrinterPage.ScaleMode = smFit
PrinterPage._dxMeasurementUnits_ = 0 PrinterPage._dxMeasurementUnits_ = 0
PrinterPage._dxLastMU_ = 2 PrinterPage._dxLastMU_ = 2
ReportDocument.CreationDate = 40200.519988935190000000 ReportDocument.CreationDate = 40210.831000844900000000
StyleManager = dmBase.dxPrintStyleManager1 StyleManager = dmBase.dxPrintStyleManager1
OptionsCards.Shadow.Depth = 0 OptionsCards.Shadow.Depth = 0
OptionsExpanding.ExpandGroupRows = True OptionsExpanding.ExpandGroupRows = True
@ -226,6 +225,7 @@ inherited frViewGrid: TfrViewGrid
end end
end end
object dxPSEngineController1: TdxPSEngineController object dxPSEngineController1: TdxPSEngineController
Active = True
DialogsLookAndFeel.Kind = lfStandard DialogsLookAndFeel.Kind = lfStandard
DialogsLookAndFeel.NativeStyle = True DialogsLookAndFeel.NativeStyle = True
PreviewDialogStyle = 'Advanced' PreviewDialogStyle = 'Advanced'

69
Source/GUIBase/uViewTotales.dfm
View File

@ -1,8 +1,8 @@
inherited frViewTotales: TfrViewTotales inherited frViewTotales: TfrViewTotales
Width = 788 Width = 451
Height = 233 Height = 233
Align = alBottom Align = alBottom
ExplicitWidth = 788 ExplicitWidth = 451
ExplicitHeight = 233 ExplicitHeight = 233
object Bevel5: TBevel object Bevel5: TBevel
Left = 666 Left = 666
@ -15,7 +15,7 @@ inherited frViewTotales: TfrViewTotales
AlignWithMargins = True AlignWithMargins = True
Left = 0 Left = 0
Top = 0 Top = 0
Width = 788 Width = 451
Height = 233 Height = 233
Margins.Left = 0 Margins.Left = 0
Margins.Top = 0 Margins.Top = 0
@ -25,17 +25,16 @@ inherited frViewTotales: TfrViewTotales
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
ExplicitWidth = 451 LayoutLookAndFeel = dmBase.dxLayoutSkinLookAndFeel
ExplicitHeight = 360
object Bevel3: TBevel object Bevel3: TBevel
Left = 329 Left = 278
Top = 28 Top = 28
Width = 3 Width = 3
Height = 100 Height = 100
Shape = bsRightLine Shape = bsRightLine
end end
object Bevel4: TBevel object Bevel4: TBevel
Left = 442 Left = 376
Top = 70 Top = 70
Width = 342 Width = 342
Height = 9 Height = 9
@ -53,8 +52,6 @@ inherited frViewTotales: TfrViewTotales
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False Properties.UseLeftAlignmentOnEditing = False
Properties.UseThousandSeparator = True Properties.UseThousandSeparator = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Font.Charset = DEFAULT_CHARSET Style.Font.Charset = DEFAULT_CHARSET
Style.Font.Color = clWindowText Style.Font.Color = clWindowText
Style.Font.Height = -11 Style.Font.Height = -11
@ -77,7 +74,7 @@ inherited frViewTotales: TfrViewTotales
Width = 87 Width = 87
end end
object ImporteIVA: TcxDBCurrencyEdit object ImporteIVA: TcxDBCurrencyEdit
Left = 513 Left = 447
Top = 105 Top = 105
AutoSize = False AutoSize = False
DataBinding.DataField = 'IMPORTE_IVA' DataBinding.DataField = 'IMPORTE_IVA'
@ -87,8 +84,6 @@ inherited frViewTotales: TfrViewTotales
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False Properties.UseLeftAlignmentOnEditing = False
Properties.UseThousandSeparator = True Properties.UseThousandSeparator = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Font.Charset = DEFAULT_CHARSET Style.Font.Charset = DEFAULT_CHARSET
Style.Font.Color = clWindowText Style.Font.Color = clWindowText
Style.Font.Height = -11 Style.Font.Height = -11
@ -111,7 +106,7 @@ inherited frViewTotales: TfrViewTotales
Width = 20 Width = 20
end end
object ImporteTotal: TcxDBCurrencyEdit object ImporteTotal: TcxDBCurrencyEdit
Left = 442 Left = 376
Top = 159 Top = 159
AutoSize = False AutoSize = False
DataBinding.DataField = 'IMPORTE_TOTAL' DataBinding.DataField = 'IMPORTE_TOTAL'
@ -121,8 +116,6 @@ inherited frViewTotales: TfrViewTotales
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False Properties.UseLeftAlignmentOnEditing = False
Properties.UseThousandSeparator = True Properties.UseThousandSeparator = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Font.Charset = DEFAULT_CHARSET Style.Font.Charset = DEFAULT_CHARSET
Style.Font.Color = clWindowText Style.Font.Color = clWindowText
Style.Font.Height = -12 Style.Font.Height = -12
@ -156,8 +149,6 @@ inherited frViewTotales: TfrViewTotales
Properties.DisplayFormat = ',0.00 %;-,0.00 %' Properties.DisplayFormat = ',0.00 %;-,0.00 %'
Properties.ImmediatePost = True Properties.ImmediatePost = True
Properties.MaxValue = 100.000000000000000000 Properties.MaxValue = 100.000000000000000000
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Font.Charset = DEFAULT_CHARSET Style.Font.Charset = DEFAULT_CHARSET
Style.Font.Color = clWindowText Style.Font.Color = clWindowText
Style.Font.Height = -11 Style.Font.Height = -11
@ -167,7 +158,6 @@ inherited frViewTotales: TfrViewTotales
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.TextColor = clWindowText Style.TextColor = clWindowText
Style.ButtonStyle = bts3D
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
@ -180,7 +170,7 @@ inherited frViewTotales: TfrViewTotales
Width = 65 Width = 65
end end
object edtIVA: TcxDBSpinEdit object edtIVA: TcxDBSpinEdit
Left = 442 Left = 376
Top = 105 Top = 105
AutoSize = False AutoSize = False
DataBinding.DataField = 'IVA' DataBinding.DataField = 'IVA'
@ -191,8 +181,6 @@ inherited frViewTotales: TfrViewTotales
Properties.DisplayFormat = ',0.00 %;-,0.00 %' Properties.DisplayFormat = ',0.00 %;-,0.00 %'
Properties.ImmediatePost = True Properties.ImmediatePost = True
Properties.MaxValue = 100.000000000000000000 Properties.MaxValue = 100.000000000000000000
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Font.Charset = DEFAULT_CHARSET Style.Font.Charset = DEFAULT_CHARSET
Style.Font.Color = clWindowText Style.Font.Color = clWindowText
Style.Font.Height = -11 Style.Font.Height = -11
@ -203,7 +191,6 @@ inherited frViewTotales: TfrViewTotales
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.TextColor = clWindowText Style.TextColor = clWindowText
Style.ButtonStyle = bts3D
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
@ -220,7 +207,7 @@ inherited frViewTotales: TfrViewTotales
Width = 65 Width = 65
end end
object ImporteBase: TcxDBCurrencyEdit object ImporteBase: TcxDBCurrencyEdit
Left = 442 Left = 376
Top = 28 Top = 28
AutoSize = False AutoSize = False
DataBinding.DataField = 'BASE_IMPONIBLE' DataBinding.DataField = 'BASE_IMPONIBLE'
@ -230,8 +217,6 @@ inherited frViewTotales: TfrViewTotales
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False Properties.UseLeftAlignmentOnEditing = False
Properties.UseThousandSeparator = True Properties.UseThousandSeparator = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Font.Charset = DEFAULT_CHARSET Style.Font.Charset = DEFAULT_CHARSET
Style.Font.Color = clWindowText Style.Font.Color = clWindowText
Style.Font.Height = -11 Style.Font.Height = -11
@ -254,7 +239,7 @@ inherited frViewTotales: TfrViewTotales
Width = 91 Width = 91
end end
object edtRE: TcxDBSpinEdit object edtRE: TcxDBSpinEdit
Left = 442 Left = 376
Top = 132 Top = 132
AutoSize = False AutoSize = False
DataBinding.DataField = 'RE' DataBinding.DataField = 'RE'
@ -265,8 +250,6 @@ inherited frViewTotales: TfrViewTotales
Properties.DisplayFormat = ',0.00 %;-,0.00 %' Properties.DisplayFormat = ',0.00 %;-,0.00 %'
Properties.ImmediatePost = True Properties.ImmediatePost = True
Properties.MaxValue = 100.000000000000000000 Properties.MaxValue = 100.000000000000000000
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Font.Charset = DEFAULT_CHARSET Style.Font.Charset = DEFAULT_CHARSET
Style.Font.Color = clWindowText Style.Font.Color = clWindowText
Style.Font.Height = -11 Style.Font.Height = -11
@ -277,7 +260,6 @@ inherited frViewTotales: TfrViewTotales
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.TextColor = clWindowText Style.TextColor = clWindowText
Style.ButtonStyle = bts3D
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
@ -294,7 +276,7 @@ inherited frViewTotales: TfrViewTotales
Width = 65 Width = 65
end end
object ImporteRE: TcxDBCurrencyEdit object ImporteRE: TcxDBCurrencyEdit
Left = 513 Left = 447
Top = 132 Top = 132
AutoSize = False AutoSize = False
DataBinding.DataField = 'IMPORTE_RE' DataBinding.DataField = 'IMPORTE_RE'
@ -304,8 +286,6 @@ inherited frViewTotales: TfrViewTotales
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False Properties.UseLeftAlignmentOnEditing = False
Properties.UseThousandSeparator = True Properties.UseThousandSeparator = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Font.Charset = DEFAULT_CHARSET Style.Font.Charset = DEFAULT_CHARSET
Style.Font.Color = clWindowText Style.Font.Color = clWindowText
Style.Font.Height = -11 Style.Font.Height = -11
@ -338,8 +318,6 @@ inherited frViewTotales: TfrViewTotales
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False Properties.UseLeftAlignmentOnEditing = False
Properties.UseThousandSeparator = True Properties.UseThousandSeparator = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Font.Charset = DEFAULT_CHARSET Style.Font.Charset = DEFAULT_CHARSET
Style.Font.Color = clWindowText Style.Font.Color = clWindowText
Style.Font.Height = -11 Style.Font.Height = -11
@ -372,8 +350,6 @@ inherited frViewTotales: TfrViewTotales
Properties.ReadOnly = False Properties.ReadOnly = False
Properties.UseLeftAlignmentOnEditing = False Properties.UseLeftAlignmentOnEditing = False
Properties.UseThousandSeparator = True Properties.UseThousandSeparator = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Font.Charset = DEFAULT_CHARSET Style.Font.Charset = DEFAULT_CHARSET
Style.Font.Color = clWindowText Style.Font.Color = clWindowText
Style.Font.Height = -11 Style.Font.Height = -11
@ -410,14 +386,10 @@ inherited frViewTotales: TfrViewTotales
Properties.ListOptions.ShowHeader = False Properties.ListOptions.ShowHeader = False
Properties.ListOptions.SyncMode = True Properties.ListOptions.SyncMode = True
Properties.ListSource = dsTiposIVA Properties.ListSource = dsTiposIVA
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
@ -431,7 +403,7 @@ inherited frViewTotales: TfrViewTotales
Width = 20 Width = 20
end end
object bTiposIVA: TButton object bTiposIVA: TButton
Left = 181 Left = 130
Top = 109 Top = 109
Width = 132 Width = 132
Height = 21 Height = 21
@ -450,8 +422,6 @@ inherited frViewTotales: TfrViewTotales
Properties.NullStyle = nssUnchecked Properties.NullStyle = nssUnchecked
Properties.ValueChecked = 1 Properties.ValueChecked = 1
Properties.ValueUnchecked = 0 Properties.ValueUnchecked = 0
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
@ -631,7 +601,6 @@ inherited frViewTotales: TfrViewTotales
object dxLayoutControl1Item3: TdxLayoutItem object dxLayoutControl1Item3: TdxLayoutItem
AlignHorz = ahClient AlignHorz = ahClient
CaptionOptions.Text = 'Importe total:' CaptionOptions.Text = 'Importe total:'
LayoutLookAndFeel = LookAndFeelIMPORTE_TOTAL
Control = ImporteTotal Control = ImporteTotal
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
@ -647,18 +616,6 @@ inherited frViewTotales: TfrViewTotales
Left = 8 Left = 8
Top = 8 Top = 8
end end
object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList
Left = 40
Top = 8
object LookAndFeelIMPORTE_TOTAL: TdxLayoutStandardLookAndFeel
ItemOptions.CaptionOptions.Font.Charset = DEFAULT_CHARSET
ItemOptions.CaptionOptions.Font.Color = clWindowText
ItemOptions.CaptionOptions.Font.Height = -12
ItemOptions.CaptionOptions.Font.Name = 'Tahoma'
ItemOptions.CaptionOptions.Font.Style = [fsBold]
ItemOptions.CaptionOptions.UseDefaultFont = False
end
end
object dsTiposIVA: TDADataSource object dsTiposIVA: TDADataSource
Left = 8 Left = 8
Top = 40 Top = 40

4
Source/GUIBase/uViewTotales.pas
View File

@ -5,7 +5,7 @@ interface
uses uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewBase, ExtCtrls, StdCtrls, DB, uDADataTable, cxGraphics, Dialogs, uViewBase, ExtCtrls, StdCtrls, DB, uDADataTable, cxGraphics,
cxTextEdit, cxMaskEdit, cxDropDownEdit, cxDBEdit, cxControls, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxDBEdit, cxControls, uDMBase,
cxContainer, cxEdit, cxLabel, cxDBLabel, cxCurrencyEdit, cxSpinEdit, cxContainer, cxEdit, cxLabel, cxDBLabel, cxCurrencyEdit, cxSpinEdit,
ComCtrls, dxLayoutControl, dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit, ComCtrls, dxLayoutControl, dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit,
cxDBLookupComboBox, cxCheckBox, uDAInterfaces, cxCalendar, cxLookAndFeels, cxDBLookupComboBox, cxCheckBox, uDAInterfaces, cxCalendar, cxLookAndFeels,
@ -48,8 +48,6 @@ type
Bevel4: TBevel; Bevel4: TBevel;
dxLayoutControl1Group9: TdxLayoutGroup; dxLayoutControl1Group9: TdxLayoutGroup;
dxLayoutControl1Group8: TdxLayoutGroup; dxLayoutControl1Group8: TdxLayoutGroup;
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
LookAndFeelIMPORTE_TOTAL: TdxLayoutStandardLookAndFeel;
dxLayoutControl1Item11: TdxLayoutItem; dxLayoutControl1Item11: TdxLayoutItem;
eIVA: TcxDBLookupComboBox; eIVA: TcxDBLookupComboBox;
dxLayoutControl1Item15: TdxLayoutItem; dxLayoutControl1Item15: TdxLayoutItem;

16
Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.groupproj
View File

@ -14,6 +14,7 @@
<Projects Include="..\Articulos\Views\Articulos_view.dproj" /> <Projects Include="..\Articulos\Views\Articulos_view.dproj" />
<Projects Include="..\Contactos\Controller\Contactos_controller.dproj" /> <Projects Include="..\Contactos\Controller\Contactos_controller.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" /> <Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Facturas de cliente\Data\FacturasCliente_data.dproj" />
<Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" /> <Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" />
<Projects Include="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" /> <Projects Include="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" />
<Projects Include="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" /> <Projects Include="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" />
@ -261,14 +262,23 @@
<Target Name="FacturasCliente_view:Make"> <Target Name="FacturasCliente_view:Make">
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Make" /> <MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Make" />
</Target> </Target>
<Target Name="FacturasCliente_data">
<MSBuild Projects="..\Facturas de cliente\Data\FacturasCliente_data.dproj" Targets="" />
</Target>
<Target Name="FacturasCliente_data:Clean">
<MSBuild Projects="..\Facturas de cliente\Data\FacturasCliente_data.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasCliente_data:Make">
<MSBuild Projects="..\Facturas de cliente\Data\FacturasCliente_data.dproj" Targets="Make" />
</Target>
<Target Name="Build"> <Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_controller;Articulos_view;AlbaranesCliente_model;AlbaranesCliente_data;AlbaranesCliente_controller;AlbCli_FacCli_relation;AlbaranesCliente_view;AlbaranesCliente_plugin;FactuGES;FactuGES_Server;AlbaranesProveedor_view;AlbProv_FacProv_relation;Contactos_controller;FacturasProveedor_view;PedidosProveedor_view;PresupuestosCliente_view;RecibosCliente_view;RecibosProveedor_view;RemesasCliente_view;RemesasProveedor_view;FacturasCliente_view" /> <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_controller;Articulos_view;AlbaranesCliente_model;AlbaranesCliente_data;AlbaranesCliente_controller;AlbCli_FacCli_relation;AlbaranesCliente_view;AlbaranesCliente_plugin;FactuGES;FactuGES_Server;AlbaranesProveedor_view;AlbProv_FacProv_relation;Contactos_controller;FacturasProveedor_view;PedidosProveedor_view;PresupuestosCliente_view;RecibosCliente_view;RecibosProveedor_view;RemesasCliente_view;RemesasProveedor_view;FacturasCliente_view;FacturasCliente_data" />
</Target> </Target>
<Target Name="Clean"> <Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;AlbaranesCliente_model:Clean;AlbaranesCliente_data:Clean;AlbaranesCliente_controller:Clean;AlbCli_FacCli_relation:Clean;AlbaranesCliente_view:Clean;AlbaranesCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbaranesProveedor_view:Clean;AlbProv_FacProv_relation:Clean;Contactos_controller:Clean;FacturasProveedor_view:Clean;PedidosProveedor_view:Clean;PresupuestosCliente_view:Clean;RecibosCliente_view:Clean;RecibosProveedor_view:Clean;RemesasCliente_view:Clean;RemesasProveedor_view:Clean;FacturasCliente_view:Clean" /> <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;AlbaranesCliente_model:Clean;AlbaranesCliente_data:Clean;AlbaranesCliente_controller:Clean;AlbCli_FacCli_relation:Clean;AlbaranesCliente_view:Clean;AlbaranesCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbaranesProveedor_view:Clean;AlbProv_FacProv_relation:Clean;Contactos_controller:Clean;FacturasProveedor_view:Clean;PedidosProveedor_view:Clean;PresupuestosCliente_view:Clean;RecibosCliente_view:Clean;RecibosProveedor_view:Clean;RemesasCliente_view:Clean;RemesasProveedor_view:Clean;FacturasCliente_view:Clean;FacturasCliente_data:Clean" />
</Target> </Target>
<Target Name="Make"> <Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;AlbaranesCliente_model:Make;AlbaranesCliente_data:Make;AlbaranesCliente_controller:Make;AlbCli_FacCli_relation:Make;AlbaranesCliente_view:Make;AlbaranesCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbaranesProveedor_view:Make;AlbProv_FacProv_relation:Make;Contactos_controller:Make;FacturasProveedor_view:Make;PedidosProveedor_view:Make;PresupuestosCliente_view:Make;RecibosCliente_view:Make;RecibosProveedor_view:Make;RemesasCliente_view:Make;RemesasProveedor_view:Make;FacturasCliente_view:Make" /> <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;AlbaranesCliente_model:Make;AlbaranesCliente_data:Make;AlbaranesCliente_controller:Make;AlbCli_FacCli_relation:Make;AlbaranesCliente_view:Make;AlbaranesCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbaranesProveedor_view:Make;AlbProv_FacProv_relation:Make;Contactos_controller:Make;FacturasProveedor_view:Make;PedidosProveedor_view:Make;PresupuestosCliente_view:Make;RecibosCliente_view:Make;RecibosProveedor_view:Make;RemesasCliente_view:Make;RemesasProveedor_view:Make;FacturasCliente_view:Make;FacturasCliente_data:Make" />
</Target> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

8
Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.dproj
View File

@ -49,14 +49,14 @@
<DelphiCompile Include="AlbaranesCliente_controller.dpk"> <DelphiCompile Include="AlbaranesCliente_controller.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Facturas de cliente\AlbaranesCliente_data.dcp" />
<DCCReference Include="..\..\Facturas de cliente\AlbaranesCliente_model.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Articulos_controller.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Contactos_controller.dcp" />
<DCCReference Include="uAlbaranesClienteController.pas" /> <DCCReference Include="uAlbaranesClienteController.pas" />
<DCCReference Include="uAlbaranesClienteReportController.pas" /> <DCCReference Include="uAlbaranesClienteReportController.pas" />
<DCCReference Include="uArticulosAlbaranClienteController.pas" /> <DCCReference Include="uArticulosAlbaranClienteController.pas" />
<DCCReference Include="uDetallesAlbaranClienteController.pas" /> <DCCReference Include="uDetallesAlbaranClienteController.pas" />
<DCCReference Include="View\AlbaranesCliente_data.dcp" />
<DCCReference Include="View\AlbaranesCliente_model.dcp" />
<DCCReference Include="View\Articulos_controller.dcp" />
<DCCReference Include="View\Contactos_controller.dcp" />
<DCCReference Include="View\uIEditorAlbaranCliente.pas" /> <DCCReference Include="View\uIEditorAlbaranCliente.pas" />
<DCCReference Include="View\uIEditorAlbaranDevCliente.pas" /> <DCCReference Include="View\uIEditorAlbaranDevCliente.pas" />
<DCCReference Include="View\uIEditorAlbaranesCliente.pas" /> <DCCReference Include="View\uIEditorAlbaranesCliente.pas" />

BIN
Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.res
View File

Binary file not shown.

2
Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm
View File

@ -10,12 +10,12 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
Top = 16 Top = 16
end end
object rda_AlbaranesCliente: TDARemoteDataAdapter object rda_AlbaranesCliente: TDARemoteDataAdapter
DataStreamer = Bin2DataStreamer
GetSchemaCall.RemoteService = RORemoteService GetSchemaCall.RemoteService = RORemoteService
GetDataCall.RemoteService = RORemoteService GetDataCall.RemoteService = RORemoteService
UpdateDataCall.RemoteService = RORemoteService UpdateDataCall.RemoteService = RORemoteService
GetScriptsCall.RemoteService = RORemoteService GetScriptsCall.RemoteService = RORemoteService
RemoteService = RORemoteService RemoteService = RORemoteService
DataStreamer = Bin2DataStreamer
Left = 43 Left = 43
Top = 151 Top = 151
end end

7
Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.pas
View File

@ -9,7 +9,8 @@ uses
uIDataModuleAlbaranesCliente, uBizAlbaranesCliente, uBizDetallesAlbaranCliente, uBizDetalleColoresAlbaranCliente, uIDataModuleAlbaranesCliente, uBizAlbaranesCliente, uBizDetallesAlbaranCliente, uBizDetalleColoresAlbaranCliente,
uIDataModuleAlbaranesClienteReport, uDataModuleBase, uDABin2DataStreamer, uDAMemDataTable, uIDataModuleAlbaranesClienteReport, uDataModuleBase, uDABin2DataStreamer, uDAMemDataTable,
uDAInterfaces, uDADataStreamer, uDARemoteDataAdapter, uIntegerListUtils; uDAInterfaces, uDADataStreamer, uDARemoteDataAdapter, uIntegerListUtils,
uDADataAdapter;
type type
TDataModuleAlbaranesCliente = class(TDataModuleBase, IDataModuleAlbaranesCliente, IDataModuleAlbaranesClienteReport) TDataModuleAlbaranesCliente = class(TDataModuleBase, IDataModuleAlbaranesCliente, IDataModuleAlbaranesClienteReport)
@ -76,7 +77,7 @@ begin
try try
Result := (RORemoteService as IsrvAlbaranesCliente).GenerarInforme(AParam); Result := (RORemoteService as IsrvAlbaranesCliente).GenerarInforme(AParam);
finally finally
// FreeAndNil(AParam); FreeAndNil(AParam);
end; end;
end; end;
@ -173,7 +174,7 @@ begin
try try
Result := (RORemoteService as IsrvAlbaranesCliente).GenerarInformeEtiquetas(AParam, Mercancia, Bultos) Result := (RORemoteService as IsrvAlbaranesCliente).GenerarInformeEtiquetas(AParam, Mercancia, Bultos)
finally finally
// FreeAndNil(AParam); FreeAndNil(AParam);
end; end;
end; end;

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

@ -54,28 +54,32 @@
<DelphiCompile Include="AlbaranesCliente_view.dpk"> <DelphiCompile Include="AlbaranesCliente_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="adortl.dcp" /> <DCCReference Include="..\..\Facturas de cliente\adortl.dcp" />
<DCCReference Include="AlbaranesCliente_controller.dcp" /> <DCCReference Include="..\..\Facturas de cliente\AlbaranesCliente_controller.dcp" />
<DCCReference Include="AlbaranesCliente_model.dcp" /> <DCCReference Include="..\..\Facturas de cliente\AlbaranesCliente_model.dcp" />
<DCCReference Include="AlbCli_FacCli_relation.dcp" /> <DCCReference Include="..\..\Facturas de cliente\AlbCli_FacCli_relation.dcp" />
<DCCReference Include="Almacenes_controller.dcp" /> <DCCReference Include="..\..\Facturas de cliente\Almacenes_controller.dcp" />
<DCCReference Include="ApplicationBase.dcp" /> <DCCReference Include="..\..\Facturas de cliente\ApplicationBase.dcp" />
<DCCReference Include="Articulos_view.dcp" /> <DCCReference Include="..\..\Facturas de cliente\Articulos_view.dcp" />
<DCCReference Include="Base.dcp" /> <DCCReference Include="..\..\Facturas de cliente\Base.dcp" />
<DCCReference Include="cxDataD11.dcp" /> <DCCReference Include="..\..\Facturas de cliente\cxDataD11.dcp" />
<DCCReference Include="cxEditorsD11.dcp" /> <DCCReference Include="..\..\Facturas de cliente\cxEditorsD11.dcp" />
<DCCReference Include="cxLibraryD11.dcp" /> <DCCReference Include="..\..\Facturas de cliente\cxLibraryD11.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\..\Facturas de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="dbrtl.dcp" /> <DCCReference Include="..\..\Facturas de cliente\dbrtl.dcp" />
<DCCReference Include="dsnap.dcp" /> <DCCReference Include="..\..\Facturas de cliente\dsnap.dcp" />
<DCCReference Include="dxComnD11.dcp" /> <DCCReference Include="..\..\Facturas de cliente\dxComnD11.dcp" />
<DCCReference Include="dxCoreD11.dcp" /> <DCCReference Include="..\..\Facturas de cliente\dxCoreD11.dcp" />
<DCCReference Include="dxGDIPlusD11.dcp" /> <DCCReference Include="..\..\Facturas de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="dxLayoutControlD11.dcp" /> <DCCReference Include="..\..\Facturas de cliente\dxLayoutControlD11.dcp" />
<DCCReference Include="dxThemeD11.dcp" /> <DCCReference Include="..\..\Facturas de cliente\dxThemeD11.dcp" />
<DCCReference Include="GUIBase.dcp" /> <DCCReference Include="..\..\Facturas de cliente\GUIBase.dcp" />
<DCCReference Include="RemObjects_Core_D11.dcp" /> <DCCReference Include="..\..\Facturas de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="rtl.dcp" /> <DCCReference Include="..\..\Facturas de cliente\rtl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\vcl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\vcldb.dcp" />
<DCCReference Include="..\..\Facturas de cliente\vcljpg.dcp" />
<DCCReference Include="..\..\Facturas de cliente\vclx.dcp" />
<DCCReference Include="uAlbaranesClienteViewRegister.pas" /> <DCCReference Include="uAlbaranesClienteViewRegister.pas" />
<DCCReference Include="uEditorAlbaranCliente.pas"> <DCCReference Include="uEditorAlbaranCliente.pas">
<Form>fEditorAlbaranCliente</Form> <Form>fEditorAlbaranCliente</Form>
@ -98,7 +102,7 @@
<DesignClass>TCustomEditor</DesignClass> <DesignClass>TCustomEditor</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uEditorDetalleEtiqueta.pas"> <DCCReference Include="uEditorDetalleEtiqueta.pas">
<Form>fEditorAlbaranDevCliente</Form> <Form>fEditorDetalleEtiqueta</Form>
<DesignClass>TCustomEditor</DesignClass> <DesignClass>TCustomEditor</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uEditorElegirAlbaranesCliente.pas"> <DCCReference Include="uEditorElegirAlbaranesCliente.pas">
@ -145,10 +149,6 @@
<Form>frViewTotalesAlbaran</Form> <Form>frViewTotalesAlbaran</Form>
<DesignClass>TCustomView</DesignClass> <DesignClass>TCustomView</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vcldb.dcp" />
<DCCReference Include="vcljpg.dcp" />
<DCCReference Include="vclx.dcp" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line

BIN
Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.res
View File

Binary file not shown.

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

@ -14,7 +14,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Caption = 'Nuevo albaran de cliente' Caption = 'Nuevo albaran de cliente'
ExplicitWidth = 855 ExplicitWidth = 855
inherited Image1: TImage inherited Image1: TImage
Left = 722 Left = 828
Picture.Data = { Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
0000180806000000E0773DF80000000970485973000017120000171201679FD2 0000180806000000E0773DF80000000970485973000017120000171201679FD2
@ -122,12 +122,14 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
6238D6646A63A40A2E11B101D67D9E600B664EE5C09982DEFDB662D8FA491D77 6238D6646A63A40A2E11B101D67D9E600B664EE5C09982DEFDB662D8FA491D77
59D43B65214ECDF6BCFB187818A5F1265190E12000B300003BBC36ACFF3E8021 59D43B65214ECDF6BCFB187818A5F1265190E12000B300003BBC36ACFF3E8021
0000000049454E44AE426082} 0000000049454E44AE426082}
ExplicitLeft = 735 ExplicitLeft = 842
ExplicitTop = -3
ExplicitHeight = 27
end end
inherited lblDesbloquear: TcxLabel inherited lblDesbloquear: TcxLabel
Left = 757 Left = 730
ExplicitLeft = 757 ExplicitLeft = 730
AnchorX = 802 AnchorX = 775
AnchorY = 14 AnchorY = 14
end end
end end
@ -178,10 +180,6 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
object pagContenido: TTabSheet object pagContenido: TTabSheet
Caption = 'Contenido' Caption = 'Contenido'
ImageIndex = 1 ImageIndex = 1
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewDetallesAlbaranCliente1: TfrViewDetallesAlbaranCliente inline frViewDetallesAlbaranCliente1: TfrViewDetallesAlbaranCliente
Left = 0 Left = 0
Top = 0 Top = 0
@ -211,96 +209,88 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
inherited ToolButton4: TToolButton inherited ToolButton4: TToolButton
Left = 278 Left = 278
Top = 0 Top = 0
Wrap = True
ExplicitLeft = 278 ExplicitLeft = 278
ExplicitTop = 0 ExplicitTop = 0
end end
inherited ToolButton14: TToolButton inherited FontName: TJvFontComboBox
Left = 334 Left = 0
Top = 0
ExplicitLeft = 334 ExplicitLeft = 334
ExplicitTop = 0 ExplicitTop = 0
end end
inherited FontName: TJvFontComboBox inherited ToolButton14: TToolButton
Top = 22 Left = 479
ExplicitTop = 22 Top = 0
ExplicitLeft = 479
ExplicitTop = 0
end end
inherited FontSize: TEdit inherited FontSize: TEdit
Top = 22 Top = 22
Width = 202 Width = 218
ExplicitTop = 22 ExplicitTop = 22
ExplicitWidth = 202 ExplicitWidth = 218
end end
inherited UpDown1: TUpDown inherited UpDown1: TUpDown
Left = 347 Left = 218
Top = 22 Top = 22
ExplicitLeft = 347 ExplicitLeft = 218
ExplicitTop = 22
end
inherited ToolButton13: TToolButton
Left = 364
Top = 22
ExplicitLeft = 364
ExplicitTop = 22
end
inherited ToolButton6: TToolButton
Left = 372
Top = 22
ExplicitLeft = 372
ExplicitTop = 22
end
inherited ToolButton7: TToolButton
Left = 438
Top = 22
ExplicitLeft = 438
ExplicitTop = 22
end
inherited ToolButton8: TToolButton
Left = 505
Top = 22
ExplicitLeft = 505
ExplicitTop = 22
end
inherited ToolButton12: TToolButton
Left = 588
Top = 22
ExplicitLeft = 588
ExplicitTop = 22 ExplicitTop = 22
end end
inherited ToolButton9: TToolButton inherited ToolButton9: TToolButton
Left = 596 Left = 235
Top = 22 Top = 22
ExplicitLeft = 596 ExplicitLeft = 235
ExplicitTop = 22 ExplicitTop = 22
end end
inherited ToolButton12: TToolButton
Top = 22
ExplicitTop = 22
end
inherited ToolButton6: TToolButton
Top = 52
ExplicitTop = 52
end
inherited ToolButton7: TToolButton
Top = 52
ExplicitTop = 52
end
inherited ToolButton8: TToolButton
Top = 52
Wrap = False
ExplicitTop = 52
end
inherited ToolButton10: TToolButton inherited ToolButton10: TToolButton
Left = 741 Left = 216
Top = 22 Top = 52
ExplicitLeft = 741 ExplicitLeft = 216
ExplicitTop = 22 ExplicitTop = 52
end
inherited ToolButton13: TToolButton
Left = 341
Top = 52
ExplicitLeft = 341
ExplicitTop = 52
end end
inherited ToolButton11: TToolButton inherited ToolButton11: TToolButton
Left = 866 Left = 349
Top = 22 Top = 52
ExplicitLeft = 866 ExplicitLeft = 349
ExplicitTop = 22 ExplicitTop = 52
end end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Top = 72 Top = 99
Width = 841 Width = 841
Height = 282 Height = 255
ExplicitTop = 99 ExplicitTop = 77
ExplicitWidth = 841 ExplicitWidth = 841
ExplicitHeight = 255 ExplicitHeight = 277
end end
inherited TBXDock1: TSpTBXDock inherited TBXDock1: TSpTBXDock
Top = 46 Top = 73
Width = 841 Width = 841
ExplicitTop = 73 ExplicitTop = 51
ExplicitWidth = 841 ExplicitWidth = 841
inherited TBXToolbar1: TSpTBXToolbar
ExplicitWidth = 762
end
end end
inherited cxGridPopupMenu: TcxGridPopupMenu inherited cxGridPopupMenu: TcxGridPopupMenu
PopupMenus = < PopupMenus = <
@ -316,10 +306,6 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
object pagInicidencias: TTabSheet object pagInicidencias: TTabSheet
Caption = 'Incidencias' Caption = 'Incidencias'
ImageIndex = 2 ImageIndex = 2
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewIncidenciasCli: TfrViewIncidencias inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0 Left = 0
Top = 0 Top = 0
@ -399,8 +385,10 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
inherited Bevel4: TBevel inherited Bevel4: TBevel
Left = 471 Left = 471
Width = 342 Width = 342
Height = 9
ExplicitLeft = 471 ExplicitLeft = 471
ExplicitWidth = 342 ExplicitWidth = 342
ExplicitHeight = 9
end end
inherited ImporteDto: TcxDBCurrencyEdit inherited ImporteDto: TcxDBCurrencyEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -419,13 +407,15 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
ExplicitLeft = 542 ExplicitLeft = 542
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 472 Left = 471
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 472 ExplicitLeft = 471
ExplicitWidth = 90
Width = 90
end end
inherited edtDescuento: TcxDBSpinEdit inherited edtDescuento: TcxDBSpinEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -1830,17 +1820,4 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Left = 24 Left = 24
Top = 136 Top = 136
end end
object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList
Left = 144
Top = 280
object dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel
GroupOptions.CaptionOptions.Font.Charset = DEFAULT_CHARSET
GroupOptions.CaptionOptions.Font.Color = clWindowText
GroupOptions.CaptionOptions.Font.Height = -11
GroupOptions.CaptionOptions.Font.Name = 'Tahoma'
GroupOptions.CaptionOptions.Font.Style = [fsBold]
GroupOptions.CaptionOptions.TextColor = clHighlight
GroupOptions.CaptionOptions.UseDefaultFont = False
end
end
end end

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

@ -4,7 +4,7 @@ interface
uses uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
uEditorDBItem, DB, uDADataTable, JvAppStorage, uEditorDBItem, DB, uDADataTable, JvAppStorage, uDMBase,
JvAppRegistryStorage, JvComponent, JvFormPlacement, ImgList, JvAppRegistryStorage, JvComponent, JvFormPlacement, ImgList,
PngImageList, StdActns, ActnList, ComCtrls, SpTBXItem, TB2Item, TB2Dock, PngImageList, StdActns, ActnList, ComCtrls, SpTBXItem, TB2Item, TB2Dock,
TB2Toolbar, ExtCtrls, JvExControls, JvNavigationPane, TB2Toolbar, ExtCtrls, JvExControls, JvNavigationPane,
@ -14,15 +14,14 @@ uses
dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar, uViewTotales, dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar, uViewTotales,
uIEditorAlbaranCliente, uBizAlbaranesCliente, uViewAlbaranCliente, uIEditorAlbaranCliente, uBizAlbaranesCliente, uViewAlbaranCliente,
uViewDetallesDTO, uViewDetallesArticulos, uDAInterfaces, uViewDetallesDTO, uViewDetallesArticulos, uDAInterfaces,
uViewDetallesArticulosParaVenta, cxLabel, Grids, DBGrids, uViewTotalesAlbaran; uViewDetallesArticulosParaVenta, cxLabel, Grids, DBGrids, uViewTotalesAlbaran,
cxGraphics, cxLookAndFeels, cxLookAndFeelPainters;
type type
TfEditorAlbaranCliente = class(TfEditorDBItem, IEditorAlbaranCliente) TfEditorAlbaranCliente = class(TfEditorDBItem, IEditorAlbaranCliente)
pagContenido: TTabSheet; pagContenido: TTabSheet;
pagInicidencias: TTabSheet; pagInicidencias: TTabSheet;
frViewIncidenciasCli: TfrViewIncidencias; frViewIncidenciasCli: TfrViewIncidencias;
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
frViewDetallesAlbaranCliente1: TfrViewDetallesAlbaranCliente; frViewDetallesAlbaranCliente1: TfrViewDetallesAlbaranCliente;
actEnviarEMail: TAction; actEnviarEMail: TAction;
TBXSubmenuItem2: TSpTBXSubmenuItem; TBXSubmenuItem2: TSpTBXSubmenuItem;
@ -113,7 +112,7 @@ begin
begin begin
Parent := pagGeneral; Parent := pagGeneral;
Align := alClient; Align := alClient;
dxLayoutControl1.LookAndFeel := dxLayoutOfficeLookAndFeel1; dxLayoutControl1.LookAndFeel := dmBase.dxLayoutSkinLookAndFeel;
end; end;
ViewAlbaran := AViewAlbaranCliente; ViewAlbaran := AViewAlbaranCliente;
end; end;

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

@ -34,18 +34,60 @@ inherited fEditorAlbaranDevCliente: TfEditorAlbaranDevCliente
CF64E1FD8EAB4462333BFDABE01FB5ECE4DE78A5FDCFED49477EE232E4EE5CAF CF64E1FD8EAB4462333BFDABE01FB5ECE4DE78A5FDCFED49477EE232E4EE5CAF
3CAB4D7E2B002400F40B7DA11C32DBE756950000000049454E44AE426082} 3CAB4D7E2B002400F40B7DA11C32DBE756950000000049454E44AE426082}
end end
inherited lblDesbloquear: TcxLabel
AnchorX = 775
AnchorY = 14
end
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
inherited pagContenido: TTabSheet inherited pagContenido: TTabSheet
inherited frViewDetallesAlbaranCliente1: TfrViewDetallesAlbaranCliente inherited frViewDetallesAlbaranCliente1: TfrViewDetallesAlbaranCliente
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
inherited FontSize: TEdit inherited FontSize: TEdit [4]
Left = 334
Width = 90 Width = 90
ExplicitLeft = 334
ExplicitWidth = 90 ExplicitWidth = 90
end end
inherited UpDown1: TUpDown inherited UpDown1: TUpDown [5]
Left = 634 Left = 424
ExplicitLeft = 634 ExplicitLeft = 424
end
inherited FontName: TJvFontComboBox [6]
Left = 441
ExplicitLeft = 441
end
inherited ToolButton13: TToolButton [7]
Wrap = True
end
inherited ToolButton6: TToolButton [8]
end
inherited ToolButton7: TToolButton [9]
end
inherited ToolButton8: TToolButton [10]
Wrap = False
end
inherited ToolButton14: TToolButton [11]
Left = 216
Top = 30
ExplicitTop = 30
end
inherited ToolButton12: TToolButton
Left = 281
Wrap = False
ExplicitLeft = 281
end
inherited ToolButton9: TToolButton
Left = 289
ExplicitLeft = 289
end
inherited ToolButton10: TToolButton
Left = 434
ExplicitLeft = 434
end
inherited ToolButton11: TToolButton
Left = 559
ExplicitLeft = 559
end end
end end
inherited cxGridPopupMenu: TcxGridPopupMenu inherited cxGridPopupMenu: TcxGridPopupMenu
@ -72,20 +114,22 @@ inherited fEditorAlbaranDevCliente: TfEditorAlbaranDevCliente
end end
end end
end end
inherited frViewTotales1: TfrViewTotales inherited frViewTotalesAlbaran1: TfrViewTotalesAlbaran
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
LookAndFeel = dxLayoutOfficeLookAndFeel1 LayoutLookAndFeel = nil
inherited Bevel3: TBevel inherited Bevel3: TBevel
Left = 340 Left = 361
Height = 54 Height = 54
ExplicitLeft = 340 ExplicitLeft = 361
ExplicitHeight = 54 ExplicitHeight = 54
end end
inherited Bevel4: TBevel inherited Bevel4: TBevel
Left = 456 Left = 494
Width = 285 Width = 285
ExplicitLeft = 456 Height = 9
ExplicitLeft = 494
ExplicitWidth = 285 ExplicitWidth = 285
ExplicitHeight = 9
end end
inherited ImporteDto: TcxDBCurrencyEdit inherited ImporteDto: TcxDBCurrencyEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -97,71 +141,74 @@ inherited fEditorAlbaranDevCliente: TfEditorAlbaranDevCliente
Width = 151 Width = 151
end end
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Left = 527 Left = 565
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 527 ExplicitLeft = 565
ExplicitWidth = 219 ExplicitWidth = 219
Width = 219 Width = 219
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 457 Left = 494
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 457 ExplicitLeft = 494
ExplicitWidth = 289 ExplicitWidth = 289
Width = 289 Width = 289
end end
inherited edtDescuento: TcxDBSpinEdit inherited edtDescuento: TcxDBSpinEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
end end
inherited edtIVA: TcxDBSpinEdit inherited edtIVA: TcxDBSpinEdit
Left = 456 Left = 494
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 456 ExplicitLeft = 494
end end
inherited ImporteBase: TcxDBCurrencyEdit inherited ImporteBase: TcxDBCurrencyEdit
Left = 456 Left = 494
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 456 ExplicitLeft = 494
ExplicitWidth = 290 ExplicitWidth = 290
Width = 290 Width = 290
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Left = 456 Left = 494
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 456 ExplicitLeft = 494
end end
inherited ImporteRE: TcxDBCurrencyEdit inherited ImporteRE: TcxDBCurrencyEdit
Left = 527 Left = 565
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 527 ExplicitLeft = 565
ExplicitWidth = 219 ExplicitWidth = 219
Width = 219 Width = 219
end end
@ -185,6 +232,8 @@ inherited fEditorAlbaranDevCliente: TfEditorAlbaranDevCliente
end end
inherited eIVA: TcxDBLookupComboBox inherited eIVA: TcxDBLookupComboBox
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
@ -192,8 +241,8 @@ inherited fEditorAlbaranDevCliente: TfEditorAlbaranDevCliente
Width = 84 Width = 84
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 192 Left = 213
ExplicitLeft = 192 ExplicitLeft = 213
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited cbRecargoEquivalencia: TcxDBCheckBox
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -203,36 +252,15 @@ inherited fEditorAlbaranDevCliente: TfEditorAlbaranDevCliente
ExplicitWidth = 222 ExplicitWidth = 222
Width = 222 Width = 222
end end
inherited edtRetencion: TcxDBSpinEdit inherited Panel1: TPanel
Style.LookAndFeel.SkinName = '' Width = 185
Style.IsFontAssigned = True ExplicitWidth = 185
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited edtImporteRetencion: TcxDBCurrencyEdit
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited edtFechaRetencion: TcxDBDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup inherited dxLayoutControl1Group1: TdxLayoutGroup
inherited dxLayoutControl1Group2: TdxLayoutGroup inherited dxLayoutControl1Group2: TdxLayoutGroup
Visible = False Visible = False
end end
inherited dxLayoutControl1Group5: TdxLayoutGroup
inherited dxLayoutControl1Item13: TdxLayoutItem
Visible = False
end
end
end end
end end
end end

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

@ -11,7 +11,8 @@ uses
uViewDetallesDTO, uViewDetallesArticulos, uViewDetallesAlbaranCliente, SpTBXItem, uViewDetallesDTO, uViewDetallesArticulos, uViewDetallesAlbaranCliente, SpTBXItem,
TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent,
JvNavigationPane, uIEditorAlbaranDevCliente, uDAInterfaces, dxGDIPlusClasses, JvNavigationPane, uIEditorAlbaranDevCliente, uDAInterfaces, dxGDIPlusClasses,
uViewDetallesArticulosParaVenta, cxControls, cxContainer, cxEdit, cxLabel; uViewDetallesArticulosParaVenta, cxControls, cxContainer, cxEdit, cxLabel,
cxGraphics, cxLookAndFeels, cxLookAndFeelPainters, uViewTotalesAlbaran, uDMBase;
type type
TfEditorAlbaranDevCliente = class(TfEditorAlbaranCliente, IEditorAlbaranDevCliente) TfEditorAlbaranDevCliente = class(TfEditorAlbaranCliente, IEditorAlbaranDevCliente)
@ -50,7 +51,7 @@ begin
begin begin
Parent := pagGeneral; Parent := pagGeneral;
Align := alClient; Align := alClient;
dxLayoutControl1.LookAndFeel := dxLayoutOfficeLookAndFeel1; dxLayoutControl1.LookAndFeel := dmBase.dxLayoutSkinLookAndFeel;
end; end;
ViewAlbaran := AViewAlbaranDevCliente; ViewAlbaran := AViewAlbaranDevCliente;
end; end;

16
Source/Modulos/Albaranes de cliente/Views/uEditorDetalleEtiqueta.dfm
View File

@ -65,6 +65,14 @@ object fEditorDetalleEtiqueta: TfEditorDetalleEtiqueta
Left = 21 Left = 21
Top = 37 Top = 37
Properties.OnEditValueChanged = eMercanciaPropertiesEditValueChanged Properties.OnEditValueChanged = eMercanciaPropertiesEditValueChanged
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 1 TabOrder = 1
Width = 262 Width = 262
end end
@ -72,6 +80,14 @@ object fEditorDetalleEtiqueta: TfEditorDetalleEtiqueta
Left = 21 Left = 21
Top = 91 Top = 91
Properties.OnEditValueChanged = eBultosPropertiesEditValueChanged Properties.OnEditValueChanged = eBultosPropertiesEditValueChanged
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 2 TabOrder = 2
Value = 1 Value = 1
Width = 121 Width = 121

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

@ -9,8 +9,7 @@ inherited fEditorElegirAlbaranesCliente: TfEditorElegirAlbaranesCliente
Top = 139 Top = 139
Width = 790 Width = 790
Visible = False Visible = False
ExplicitLeft = -8 ExplicitTop = 139
ExplicitTop = 280
ExplicitWidth = 790 ExplicitWidth = 790
inherited Image1: TImage inherited Image1: TImage
Left = 763 Left = 763
@ -20,12 +19,12 @@ inherited fEditorElegirAlbaranesCliente: TfEditorElegirAlbaranesCliente
inherited TBXDock: TSpTBXDock inherited TBXDock: TSpTBXDock
Top = 64 Top = 64
Width = 790 Width = 790
ExplicitTop = 91 ExplicitTop = 64
ExplicitWidth = 790 ExplicitWidth = 790
inherited tbxMain: TSpTBXToolbar inherited tbxMain: TSpTBXToolbar
Left = 359 Left = 367
ExplicitLeft = 359 ExplicitLeft = 367
ExplicitWidth = 263 ExplicitWidth = 126
inherited TBXItem2: TSpTBXItem inherited TBXItem2: TSpTBXItem
Visible = False Visible = False
end end
@ -74,7 +73,7 @@ inherited fEditorElegirAlbaranesCliente: TfEditorElegirAlbaranesCliente
DockPos = -185 DockPos = -185
DockRow = 1 DockRow = 1
ExplicitTop = 23 ExplicitTop = 23
ExplicitWidth = 359 ExplicitWidth = 367
inherited TBXItem34: TSpTBXItem inherited TBXItem34: TSpTBXItem
Action = actQuitarFiltro2 Action = actQuitarFiltro2
end end
@ -109,7 +108,6 @@ inherited fEditorElegirAlbaranesCliente: TfEditorElegirAlbaranesCliente
Padding.Bottom = 8 Padding.Bottom = 8
ParentBackground = False ParentBackground = False
TabOrder = 4 TabOrder = 4
ExplicitTop = 27
object lblTitle: TLabel object lblTitle: TLabel
AlignWithMargins = True AlignWithMargins = True
Left = 25 Left = 25

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

@ -11,7 +11,7 @@ uses
TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent,
JvNavigationPane, uViewBarraSeleccion, StdCtrls, JvNavigationPane, uViewBarraSeleccion, StdCtrls,
uEditorAlbaranesCliente, uBizAlbaranesCliente, uIEditorElegirAlbaranesCliente, uEditorAlbaranesCliente, uBizAlbaranesCliente, uIEditorElegirAlbaranesCliente,
JvExComCtrls, JvStatusBar, JSDialog, uDAInterfaces; JvExComCtrls, JvStatusBar, JSDialog, uDAInterfaces, TntStdCtrls, SpTBXEditors;
type type
TfEditorElegirAlbaranesCliente = class(TfEditorAlbaranesCliente, IEditorElegirAlbaranesCliente) TfEditorElegirAlbaranesCliente = class(TfEditorAlbaranesCliente, IEditorElegirAlbaranesCliente)

235
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm
View File

@ -14,15 +14,12 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitHeight = 506
DesignSize = ( DesignSize = (
903 903
542) 542)
object Label1: TLabel object Label1: TLabel
Left = 22 Left = 22
Top = 491 Top = 507
Width = 299 Width = 299
Height = 26 Height = 26
Caption = Caption =
@ -33,7 +30,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object edtFechaAlbaran: TcxDBDateEdit object edtFechaAlbaran: TcxDBDateEdit
Left = 116 Left = 116
Top = 84 Top = 82
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_ALBARAN' DataBinding.DataField = 'FECHA_ALBARAN'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -62,8 +59,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 336 Width = 336
end end
object memObservaciones: TcxDBMemo object memObservaciones: TcxDBMemo
Left = 477 Left = 470
Top = 346 Top = 356
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -85,11 +82,10 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object eReferencia: TcxDBTextEdit object eReferencia: TcxDBTextEdit
Left = 116 Left = 116
Top = 30 Top = 28
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA' DataBinding.DataField = 'REFERENCIA'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False
Properties.ReadOnly = False Properties.ReadOnly = False
Properties.ValidateOnEnter = True Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -115,7 +111,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object eCalle: TcxDBTextEdit object eCalle: TcxDBTextEdit
Left = 116 Left = 116
Top = 271 Top = 281
DataBinding.DataField = 'CALLE' DataBinding.DataField = 'CALLE'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False Enabled = False
@ -138,8 +134,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 336 Width = 336
end end
object eCodigoPostal: TcxDBTextEdit object eCodigoPostal: TcxDBTextEdit
Left = 384 Left = 375
Top = 298 Top = 308
DataBinding.DataField = 'CODIGO_POSTAL' DataBinding.DataField = 'CODIGO_POSTAL'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False Enabled = False
@ -163,7 +159,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object ePersonaContacto: TcxDBTextEdit object ePersonaContacto: TcxDBTextEdit
Left = 116 Left = 116
Top = 352 Top = 362
DataBinding.DataField = 'PERSONA_CONTACTO' DataBinding.DataField = 'PERSONA_CONTACTO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False Enabled = False
@ -188,7 +184,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object eTlfTrabajo: TcxDBTextEdit object eTlfTrabajo: TcxDBTextEdit
Left = 116 Left = 116
Top = 379 Top = 389
DataBinding.DataField = 'TELEFONO' DataBinding.DataField = 'TELEFONO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False Enabled = False
@ -211,8 +207,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 336 Width = 336
end end
object bElegirDireccion: TBitBtn object bElegirDireccion: TBitBtn
Left = 277 Left = 268
Top = 406 Top = 416
Width = 172 Width = 172
Height = 23 Height = 23
Action = actElegirDireccion Action = actElegirDireccion
@ -221,8 +217,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
TabOrder = 15 TabOrder = 15
end end
object Button1: TButton object Button1: TButton
Left = 317 Left = 308
Top = 111 Top = 109
Width = 132 Width = 132
Height = 23 Height = 23
Action = actVerPedidoCli Action = actVerPedidoCli
@ -231,7 +227,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object eReferenciaPedidoCli: TcxTextEdit object eReferenciaPedidoCli: TcxTextEdit
Left = 116 Left = 116
Top = 111 Top = 109
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
Enabled = False Enabled = False
Properties.ReadOnly = False Properties.ReadOnly = False
@ -258,7 +254,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object cbFormaPago: TcxDBLookupComboBox object cbFormaPago: TcxDBLookupComboBox
Left = 116 Left = 116
Top = 164 Top = 168
DataBinding.DataField = 'ID_FORMA_PAGO' DataBinding.DataField = 'ID_FORMA_PAGO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.KeyFieldNames = 'ID' Properties.KeyFieldNames = 'ID'
@ -291,8 +287,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 198 Width = 198
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 317 Left = 308
Top = 164 Top = 168
Width = 132 Width = 132
Height = 23 Height = 23
Caption = 'Ver las formas de pago...' Caption = 'Ver las formas de pago...'
@ -300,8 +296,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
OnClick = bFormasPagoClick OnClick = bFormasPagoClick
end end
object eFechaRecepcion: TcxDBDateEdit object eFechaRecepcion: TcxDBDateEdit
Left = 611 Left = 604
Top = 295 Top = 299
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_RECEPCION' DataBinding.DataField = 'FECHA_RECEPCION'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -331,7 +327,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object cbConAlmacen: TCheckBox object cbConAlmacen: TCheckBox
Left = 32 Left = 32
Top = 459 Top = 475
Width = 179 Width = 179
Height = 21 Height = 21
Caption = 'Asociar este albar'#225'n al almac'#233'n:' Caption = 'Asociar este albar'#225'n al almac'#233'n:'
@ -341,7 +337,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object cbAlmacen: TcxDBLookupComboBox object cbAlmacen: TcxDBLookupComboBox
Left = 217 Left = 217
Top = 459 Top = 475
DataBinding.DataField = 'ID_ALMACEN' DataBinding.DataField = 'ID_ALMACEN'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False Enabled = False
@ -376,7 +372,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object eRefFacturaCli: TcxDBTextEdit object eRefFacturaCli: TcxDBTextEdit
Left = 116 Left = 116
Top = 220 Top = 224
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REF_FACTURA' DataBinding.DataField = 'REF_FACTURA'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -404,8 +400,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 336 Width = 336
end end
object eFechaPrevista: TcxDBDateEdit object eFechaPrevista: TcxDBDateEdit
Left = 611 Left = 604
Top = 241 Top = 245
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_PREVISTA_ENVIO' DataBinding.DataField = 'FECHA_PREVISTA_ENVIO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -437,7 +433,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object eRefCliente: TcxDBTextEdit object eRefCliente: TcxDBTextEdit
Left = 116 Left = 116
Top = 57 Top = 55
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA_CLIENTE' DataBinding.DataField = 'REFERENCIA_CLIENTE'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -466,8 +462,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 336 Width = 336
end end
object eFechaEnvio: TcxDBDateEdit object eFechaEnvio: TcxDBDateEdit
Left = 611 Left = 604
Top = 268 Top = 272
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_ENVIO' DataBinding.DataField = 'FECHA_ENVIO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -497,7 +493,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object cbProvincia: TcxDBComboBox object cbProvincia: TcxDBComboBox
Left = 116 Left = 116
Top = 298 Top = 308
DataBinding.DataField = 'PROVINCIA' DataBinding.DataField = 'PROVINCIA'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False Enabled = False
@ -527,7 +523,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object cbPoblacion: TcxDBComboBox object cbPoblacion: TcxDBComboBox
Left = 116 Left = 116
Top = 325 Top = 335
DataBinding.DataField = 'POBLACION' DataBinding.DataField = 'POBLACION'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False Enabled = False
@ -556,8 +552,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 336 Width = 336
end end
inline frViewDatosYSeleccionClienteAlbaran1: TfrViewDatosYSeleccionClienteAlbaran inline frViewDatosYSeleccionClienteAlbaran1: TfrViewDatosYSeleccionClienteAlbaran
Left = 477 Left = 470
Top = 30 Top = 28
Width = 406 Width = 406
Height = 181 Height = 181
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -568,8 +564,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
ParentFont = False ParentFont = False
TabOrder = 18 TabOrder = 18
ReadOnly = False ReadOnly = False
ExplicitLeft = 477 ExplicitLeft = 470
ExplicitTop = 30 ExplicitTop = 28
ExplicitWidth = 406 ExplicitWidth = 406
ExplicitHeight = 181 ExplicitHeight = 181
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
@ -586,17 +582,17 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 224 Width = 224
end end
inherited edtNIFCIF: TcxDBTextEdit inherited edtNIFCIF: TcxDBTextEdit
Left = 291 Left = 281
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 = 291 ExplicitLeft = 281
end end
inherited Button3: TBitBtn inherited Button3: TBitBtn
Left = 202 Left = 192
Top = 139 Top = 139
ExplicitLeft = 202 ExplicitLeft = 192
ExplicitTop = 139 ExplicitTop = 139
end end
inherited edtPersonaContacto: TcxDBTextEdit inherited edtPersonaContacto: TcxDBTextEdit
@ -620,13 +616,13 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 287 Width = 287
end end
inherited Button4: TButton inherited Button4: TButton
Left = 371 Left = 361
ExplicitLeft = 371 ExplicitLeft = 361
end end
inherited Button5: TButton inherited Button5: TButton
Left = 371 Left = 361
Top = 108 Top = 108
ExplicitLeft = 371 ExplicitLeft = 361
ExplicitTop = 108 ExplicitTop = 108
end end
end end
@ -649,7 +645,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object cbCuentaBancaria: TcxDBComboBox object cbCuentaBancaria: TcxDBComboBox
Left = 116 Left = 116
Top = 193 Top = 197
DataBinding.DataField = 'DATOS_BANCARIOS' DataBinding.DataField = 'DATOS_BANCARIOS'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.DropDownListStyle = lsFixedList Properties.DropDownListStyle = lsFixedList
@ -670,180 +666,199 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 184 Width = 184
end end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False AlignHorz = ahParentManaged
AlignVert = avParentManaged
CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True Hidden = True
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
object dxLayoutControl1Group6: TdxLayoutGroup object dxLayoutControl1Group6: TdxLayoutGroup
AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
ShowCaption = False CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True Hidden = True
ShowBorder = False ShowBorder = False
object dxLayoutControl1Group1: TdxLayoutGroup object dxLayoutControl1Group1: TdxLayoutGroup
AutoAligns = []
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Datos del albar'#225'n' AlignVert = avTop
CaptionOptions.Text = 'Datos del albar'#225'n'
ButtonOptions.Buttons = <>
object dxLayoutControl1Item3: TdxLayoutItem object dxLayoutControl1Item3: TdxLayoutItem
Caption = 'Referencia:' CaptionOptions.Text = 'Referencia:'
Control = eReferencia Control = eReferencia
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item23: TdxLayoutItem object dxLayoutControl1Item23: TdxLayoutItem
Caption = 'Ref. cliente:' CaptionOptions.Text = 'Ref. cliente:'
Enabled = False Enabled = False
Visible = False Visible = False
Control = eRefCliente Control = eRefCliente
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item2: TdxLayoutItem object dxLayoutControl1Item2: TdxLayoutItem
Caption = 'Fecha del albar'#225'n:' CaptionOptions.Text = 'Fecha del albar'#225'n:'
Control = edtFechaAlbaran Control = edtFechaAlbaran
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Group5: TdxLayoutGroup object dxLayoutControl1Group5: TdxLayoutGroup
CaptionOptions.Visible = False
Enabled = False Enabled = False
ShowCaption = False
Visible = False Visible = False
ButtonOptions.Buttons = <>
Hidden = True Hidden = True
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
object dxLayoutControl1Item7: TdxLayoutItem object dxLayoutControl1Item7: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Ref. del pedido:' CaptionOptions.Text = 'Ref. del pedido:'
Enabled = False
Control = eReferenciaPedidoCli Control = eReferenciaPedidoCli
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item5: TdxLayoutItem object dxLayoutControl1Item5: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahRight AlignHorz = ahRight
Caption = 'Button1' CaptionOptions.Text = 'Button1'
ShowCaption = False CaptionOptions.Visible = False
Enabled = False
Control = Button1 Control = Button1
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
end end
object dxLayoutControl1Group16: TdxLayoutGroup object dxLayoutControl1Group16: TdxLayoutGroup
Caption = 'Forma de pago' CaptionOptions.Text = 'Forma de pago'
ButtonOptions.Buttons = <>
object dxLayoutControl1Group13: TdxLayoutGroup object dxLayoutControl1Group13: TdxLayoutGroup
ShowCaption = False CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True Hidden = True
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
object dxLayoutControl1Item4: TdxLayoutItem object dxLayoutControl1Item4: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Forma de pago' CaptionOptions.Text = 'Forma de pago'
Control = cbFormaPago Control = cbFormaPago
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item15: TdxLayoutItem object dxLayoutControl1Item15: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahRight AlignHorz = ahRight
ShowCaption = False CaptionOptions.Visible = False
Control = bFormasPago Control = bFormasPago
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
object dxLayoutControl1Item17: TdxLayoutItem object dxLayoutControl1Item17: TdxLayoutItem
Caption = 'Cuenta bancaria:' CaptionOptions.Text = 'Cuenta bancaria:'
Control = cbCuentaBancaria Control = cbCuentaBancaria
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item22: TdxLayoutItem object dxLayoutControl1Item22: TdxLayoutItem
Caption = 'Ref. factura:' CaptionOptions.Text = 'Ref. factura:'
Control = eRefFacturaCli Control = eRefFacturaCli
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
object dxLayoutControl1Group8: TdxLayoutGroup object dxLayoutControl1Group8: TdxLayoutGroup
AutoAligns = []
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Direcci'#243'n de entrega' AlignVert = avTop
CaptionOptions.Text = 'Direcci'#243'n de entrega'
Enabled = False Enabled = False
Visible = False Visible = False
ButtonOptions.Buttons = <>
object dxLayoutControl1Item8: TdxLayoutItem object dxLayoutControl1Item8: TdxLayoutItem
Caption = 'Calle:' CaptionOptions.Text = 'Calle:'
Enabled = False
Control = eCalle Control = eCalle
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Group4: TdxLayoutGroup object dxLayoutControl1Group4: TdxLayoutGroup
ShowCaption = False CaptionOptions.Visible = False
Enabled = False
ButtonOptions.Buttons = <>
Hidden = True Hidden = True
ShowBorder = False ShowBorder = False
object dxLayoutControl1Group9: TdxLayoutGroup object dxLayoutControl1Group9: TdxLayoutGroup
ShowCaption = False CaptionOptions.Visible = False
Enabled = False
ButtonOptions.Buttons = <>
Hidden = True Hidden = True
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
object dxLayoutControl1Item9: TdxLayoutItem object dxLayoutControl1Item9: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Provincia:' CaptionOptions.Text = 'Provincia:'
Enabled = False
Control = cbProvincia Control = cbProvincia
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item10: TdxLayoutItem object dxLayoutControl1Item10: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahRight AlignHorz = ahRight
Caption = 'C.P.:' CaptionOptions.Text = 'C.P.:'
Enabled = False
Control = eCodigoPostal Control = eCodigoPostal
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
object dxLayoutControl1Item11: TdxLayoutItem object dxLayoutControl1Item11: TdxLayoutItem
Caption = 'Poblaci'#243'n:' CaptionOptions.Text = 'Poblaci'#243'n:'
Enabled = False
Control = cbPoblacion Control = cbPoblacion
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item12: TdxLayoutItem object dxLayoutControl1Item12: TdxLayoutItem
Caption = 'Pers. de contacto:' CaptionOptions.Text = 'Pers. de contacto:'
Enabled = False
Control = ePersonaContacto Control = ePersonaContacto
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item13: TdxLayoutItem object dxLayoutControl1Item13: TdxLayoutItem
Caption = 'Tel'#233'fono:' CaptionOptions.Text = 'Tel'#233'fono:'
Enabled = False
Control = eTlfTrabajo Control = eTlfTrabajo
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item14: TdxLayoutItem object dxLayoutControl1Item14: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahRight AlignHorz = ahRight
ShowCaption = False CaptionOptions.Visible = False
Enabled = False
Control = bElegirDireccion Control = bElegirDireccion
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
end end
object dxLayoutControl1Group11: TdxLayoutGroup object dxLayoutControl1Group11: TdxLayoutGroup
Caption = 'Almac'#233'n de origen' CaptionOptions.Text = 'Almac'#233'n de origen'
Enabled = False Enabled = False
Visible = False Visible = False
ButtonOptions.Buttons = <>
object dxLayoutControl1Group10: TdxLayoutGroup object dxLayoutControl1Group10: TdxLayoutGroup
ShowCaption = False CaptionOptions.Visible = False
Enabled = False
ButtonOptions.Buttons = <>
Hidden = True Hidden = True
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
object dxLayoutControl1Item19: TdxLayoutItem object dxLayoutControl1Item19: TdxLayoutItem
CaptionOptions.Visible = False
Enabled = False
Offsets.Left = 10 Offsets.Left = 10
ShowCaption = False
Control = cbConAlmacen Control = cbConAlmacen
ControlOptions.AutoColor = True ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item20: TdxLayoutItem object dxLayoutControl1Item20: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
Enabled = False
Control = cbAlmacen Control = cbAlmacen
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
object dxLayoutControl1Item18: TdxLayoutItem object dxLayoutControl1Item18: TdxLayoutItem
CaptionOptions.Visible = False
Enabled = False
Offsets.Bottom = 5 Offsets.Bottom = 5
Offsets.Top = 5 Offsets.Top = 5
ShowCaption = False
Control = Label1 Control = Label1
ControlOptions.AutoColor = True ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
@ -851,54 +866,57 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
end end
object dxLayoutControl1Group3: TdxLayoutGroup object dxLayoutControl1Group3: TdxLayoutGroup
AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
ShowCaption = False CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True Hidden = True
ShowBorder = False ShowBorder = False
object dxLayoutControl1Group2: TdxLayoutGroup object dxLayoutControl1Group2: TdxLayoutGroup
Caption = 'Datos del cliente' CaptionOptions.Text = 'Datos del cliente'
ButtonOptions.Buttons = <>
object dxLayoutControl1Item1: TdxLayoutItem object dxLayoutControl1Item1: TdxLayoutItem
Caption = 'New Item' CaptionOptions.Text = 'New Item'
ShowCaption = False CaptionOptions.Visible = False
Control = frViewDatosYSeleccionClienteAlbaran1 Control = frViewDatosYSeleccionClienteAlbaran1
ControlOptions.AutoColor = True ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
object dxLayoutControl1Group12: TdxLayoutGroup object dxLayoutControl1Group12: TdxLayoutGroup
Caption = 'Fechas de envio y recepci'#243'n' CaptionOptions.Text = 'Fechas de envio y recepci'#243'n'
Enabled = False Enabled = False
Visible = False Visible = False
ButtonOptions.Buttons = <>
object dxLayoutControl1Item24: TdxLayoutItem object dxLayoutControl1Item24: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Fecha prevista de envio:' CaptionOptions.Text = 'Fecha prevista de envio:'
Enabled = False
Offsets.Left = 10 Offsets.Left = 10
Control = eFechaPrevista Control = eFechaPrevista
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item21: TdxLayoutItem object dxLayoutControl1Item21: TdxLayoutItem
Caption = 'Fecha de envio:' CaptionOptions.Text = 'Fecha de envio:'
Enabled = False
Offsets.Left = 10 Offsets.Left = 10
Control = eFechaEnvio Control = eFechaEnvio
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item16: TdxLayoutItem object dxLayoutControl1Item16: TdxLayoutItem
AutoAligns = []
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Fecha de recepci'#243'n:' AlignVert = avTop
CaptionOptions.Text = 'Fecha de recepci'#243'n:'
Enabled = False
Offsets.Left = 10 Offsets.Left = 10
Control = eFechaRecepcion Control = eFechaRecepcion
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
object dxLayoutControl1Group7: TdxLayoutGroup object dxLayoutControl1Group7: TdxLayoutGroup
AutoAligns = [aaHorizontal]
AlignVert = avClient AlignVert = avClient
Caption = 'Observaciones' CaptionOptions.Text = 'Observaciones'
ButtonOptions.Buttons = <>
object dxLayoutControl1Item6: TdxLayoutItem object dxLayoutControl1Item6: TdxLayoutItem
AutoAligns = [aaHorizontal]
AlignVert = avClient AlignVert = avClient
Control = memObservaciones Control = memObservaciones
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
@ -931,17 +949,4 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Left = 64 Left = 64
Top = 192 Top = 192
end end
object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList
Left = 120
Top = 24
object dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel
GroupOptions.CaptionOptions.Font.Charset = DEFAULT_CHARSET
GroupOptions.CaptionOptions.Font.Color = clWindowText
GroupOptions.CaptionOptions.Font.Height = -11
GroupOptions.CaptionOptions.Font.Name = 'Tahoma'
GroupOptions.CaptionOptions.Font.Style = [fsBold]
GroupOptions.CaptionOptions.TextColor = clHighlight
GroupOptions.CaptionOptions.UseDefaultFont = False
end
end
end end

5
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.pas
View File

@ -17,7 +17,8 @@ uses
ExtCtrls, cxLookupEdit, cxDBLookupEdit, uBizFormasPago, ExtCtrls, cxLookupEdit, cxDBLookupEdit, uBizFormasPago,
cxDBLookupComboBox, uFormasPagoController, uAlmacenesController, uDAInterfaces, cxDBLookupComboBox, uFormasPagoController, uAlmacenesController, uDAInterfaces,
uViewDatosYSeleccionClienteBase, uViewDatosYSeleccionClienteAlbaran, uViewDatosYSeleccionClienteBase, uViewDatosYSeleccionClienteAlbaran,
dxLayoutLookAndFeels, uAlbaranesClienteController; dxLayoutLookAndFeels, uAlbaranesClienteController, cxLookAndFeels,
cxLookAndFeelPainters, dxLayoutcxEditAdapters;
type type
IViewAlbaranCliente = interface(IViewBase) IViewAlbaranCliente = interface(IViewBase)
@ -101,8 +102,6 @@ type
dxLayoutControl1Group9: TdxLayoutGroup; dxLayoutControl1Group9: TdxLayoutGroup;
frViewDatosYSeleccionClienteAlbaran1: TfrViewDatosYSeleccionClienteAlbaran; frViewDatosYSeleccionClienteAlbaran1: TfrViewDatosYSeleccionClienteAlbaran;
dxLayoutControl1Item1: TdxLayoutItem; dxLayoutControl1Item1: TdxLayoutItem;
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
dxLayoutControl1Group16: TdxLayoutGroup; dxLayoutControl1Group16: TdxLayoutGroup;
dxLayoutControl1Group13: TdxLayoutGroup; dxLayoutControl1Group13: TdxLayoutGroup;
dxLayoutControl1Item17: TdxLayoutItem; dxLayoutControl1Item17: TdxLayoutItem;

31
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranDevCliente.dfm
View File

@ -17,8 +17,10 @@ inherited frViewAlbaranDevCliente: TfrViewAlbaranDevCliente
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 403
ExplicitHeight = 69 ExplicitHeight = 69
Height = 69 Height = 69
Width = 403
end end
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -143,8 +145,6 @@ inherited frViewAlbaranDevCliente: TfrViewAlbaranDevCliente
ExplicitWidth = 406 ExplicitWidth = 406
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 406 Width = 406
ExplicitWidth = 406
ExplicitHeight = 181
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
@ -177,26 +177,29 @@ inherited frViewAlbaranDevCliente: TfrViewAlbaranDevCliente
end end
end end
end end
inherited cbCuentaBancaria: TcxDBComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 184
Width = 184
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group6: TdxLayoutGroup inherited dxLayoutControl1Group6: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup inherited dxLayoutControl1Group1: TdxLayoutGroup
Caption = 'Datos de la orden' CaptionOptions.Text = 'Datos de la orden'
inherited dxLayoutControl1Item2: TdxLayoutItem inherited dxLayoutControl1Item2: TdxLayoutItem
Caption = 'Fecha de orden:' CaptionOptions.Text = 'Fecha de orden:'
end end
inherited dxLayoutControl1Group5: TdxLayoutGroup end
inherited dxLayoutControl1Group13: TdxLayoutGroup inherited dxLayoutControl1Group16: TdxLayoutGroup
inherited dxLayoutControl1Group15: TdxLayoutGroup inherited dxLayoutControl1Item22: TdxLayoutItem
Visible = False CaptionOptions.Text = 'Ref. abono:'
end
inherited dxLayoutControl1Item22: TdxLayoutItem
Caption = 'Ref. abono:'
end
end
end end
end end
inherited dxLayoutControl1Group11: TdxLayoutGroup inherited dxLayoutControl1Group11: TdxLayoutGroup
Caption = 'Almac'#233'n de entrada' CaptionOptions.Text = 'Almac'#233'n de entrada'
inherited dxLayoutControl1Group10: TdxLayoutGroup inherited dxLayoutControl1Group10: TdxLayoutGroup
inherited dxLayoutControl1Item19: TdxLayoutItem inherited dxLayoutControl1Item19: TdxLayoutItem
Visible = False Visible = False

3
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranDevCliente.pas
View File

@ -9,7 +9,8 @@ uses
cxDBLookupComboBox, cxTextEdit, Buttons, uCustomView, uViewBase, cxDBLookupComboBox, cxTextEdit, Buttons, uCustomView, uViewBase,
uViewDatosYSeleccionCliente, cxDBEdit, cxMemo, cxContainer, cxEdit, uViewDatosYSeleccionCliente, cxDBEdit, cxMemo, cxContainer, cxEdit,
cxMaskEdit, cxCalendar, cxControls, uDAInterfaces, cxMaskEdit, cxCalendar, cxControls, uDAInterfaces,
uViewDatosYSeleccionClienteAlbaran; uViewDatosYSeleccionClienteAlbaran, cxLookAndFeels, cxLookAndFeelPainters,
dxLayoutcxEditAdapters;
type type
TfrViewAlbaranDevCliente = class(TfrViewAlbaranCliente) TfrViewAlbaranDevCliente = class(TfrViewAlbaranCliente)

19
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm
View File

@ -195,6 +195,7 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
Width = 802 Width = 802
ExplicitWidth = 802 ExplicitWidth = 802
inherited TBXDockablePanel1: TSpTBXDockablePanel inherited TBXDockablePanel1: TSpTBXDockablePanel
Width = 802
ExplicitWidth = 802 ExplicitWidth = 802
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 802 Width = 802
@ -232,32 +233,31 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 638 ExplicitLeft = 638
ExplicitWidth = 215
Width = 215
end end
end end
inherited TBXAlignmentPanel1: TSpTBXDockablePanel inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 802 Width = 792
ExplicitWidth = 802 ExplicitWidth = 792
inherited tbxBotones: TSpTBXToolbar inherited tbxBotones: TSpTBXToolbar
Width = 792 Width = 792
ExplicitWidth = 792 ExplicitWidth = 792
end end
end end
end end
inherited dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList
Left = 104
Top = 72
end
end end
inherited pnlAgrupaciones: TSpTBXDockablePanel inherited pnlAgrupaciones: TSpTBXDockablePanel
Top = 464 Top = 464
Width = 802
ExplicitTop = 464 ExplicitTop = 464
ExplicitWidth = 802 ExplicitWidth = 802
inherited TBXAlignmentPanel1: TSpTBXDockablePanel inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 802 Width = 802
ExplicitWidth = 802 ExplicitWidth = 802
inherited TBXToolbar1: TSpTBXToolbar inherited TBXToolbar1: TSpTBXToolbar
Width = 792 Width = 802
ExplicitWidth = 792 ExplicitWidth = 802
object TBXSeparatorItem1: TSpTBXSeparatorItem object TBXSeparatorItem1: TSpTBXSeparatorItem
end end
object TBXItem3: TSpTBXItem object TBXItem3: TSpTBXItem
@ -280,6 +280,9 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
BuiltInReportLink = True BuiltInReportLink = True
end end
end end
inherited dxPSEngineController1: TdxPSEngineController
Active = True
end
inherited cxStyleRepository1: TcxStyleRepository inherited cxStyleRepository1: TcxStyleRepository
Left = 248 Left = 248
object cxStyleProximosAEnviar: TcxStyle object cxStyleProximosAEnviar: TcxStyle

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

@ -13,7 +13,9 @@ uses
cxGrid, cxGrid,
uBizAlbaranesCliente, cxCurrencyEdit, Forms, uViewFiltroBase, ComCtrls, Tabs, uBizAlbaranesCliente, cxCurrencyEdit, Forms, uViewFiltroBase, ComCtrls, Tabs,
cxPC, ActnList, TB2Item, SpTBXItem, TB2Dock, TB2Toolbar, SpTBXDkPanels, dxPgsDlg, cxPC, ActnList, TB2Item, SpTBXItem, TB2Dock, TB2Toolbar, SpTBXDkPanels, dxPgsDlg,
uDAInterfaces, uCustomView, uViewBase; uDAInterfaces, uCustomView, uViewBase, cxLookAndFeels, cxLookAndFeelPainters,
dxPSPDFExportCore, dxPSPDFExport, cxDrawTextUtils, dxPSPrVwStd, dxPSPrVwAdv,
dxPScxEditorProducers, dxPScxExtEditorProducers, dxPScxPageControlProducer;
type type
IViewAlbaranesCliente = interface(IViewGrid) IViewAlbaranesCliente = interface(IViewGrid)

16
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesDevCliente.dfm
View File

@ -28,15 +28,23 @@ inherited frViewAlbaranesDevCliente: TfrViewAlbaranesDevCliente
Width = 322 Width = 322
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 426 Left = 328
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 = 426 ExplicitLeft = 328
ExplicitWidth = 366 ExplicitWidth = 366
Width = 366 Width = 366
end end
inherited eLista: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 215
Width = 215
end
end end
end end
end end
@ -46,6 +54,9 @@ inherited frViewAlbaranesDevCliente: TfrViewAlbaranesDevCliente
BuiltInReportLink = True BuiltInReportLink = True
end end
end end
inherited dxPSEngineController1: TdxPSEngineController
Active = True
end
inherited GridPNGImageList: TPngImageList inherited GridPNGImageList: TPngImageList
PngImages = < PngImages = <
item item
@ -166,5 +177,6 @@ inherited frViewAlbaranesDevCliente: TfrViewAlbaranesDevCliente
Name = 'PngImage1' Name = 'PngImage1'
Background = clWindow Background = clWindow
end> end>
Bitmap = {}
end end
end end

5
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesDevCliente.pas
View File

@ -12,7 +12,10 @@ uses
dxPScxCommon, dxPScxGrid6Lnk, uDADataTable, TB2Item, SpTBXItem, TB2Toolbar, dxPScxCommon, dxPScxGrid6Lnk, uDADataTable, TB2Item, SpTBXItem, TB2Toolbar,
SpTBXDkPanels, TB2Dock, uViewFiltroBase, cxGridLevel, cxGridCustomTableView, SpTBXDkPanels, TB2Dock, uViewFiltroBase, cxGridLevel, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
cxGrid, uDAInterfaces; cxGrid, uDAInterfaces, cxLookAndFeels, cxLookAndFeelPainters,
dxPSPDFExportCore, dxPSPDFExport, cxDrawTextUtils, dxPSPrVwStd, dxPSPrVwAdv,
dxPScxEditorProducers, dxPScxExtEditorProducers, dxPScxPageControlProducer,
uCustomView, uViewBase;
type type
IViewAlbaranesDevCliente = interface(IViewAlbaranesCliente) IViewAlbaranesDevCliente = interface(IViewAlbaranesCliente)

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

@ -16,9 +16,7 @@ inherited frViewDatosYSeleccionClienteAlbaran: TfrViewDatosYSeleccionClienteAlba
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth, acsHeight] LayoutLookAndFeel = dmBase.dxLayoutSkinLookAndFeel
ExplicitWidth = 505
ExplicitHeight = 196
DesignSize = ( DesignSize = (
646 646
245) 245)
@ -29,12 +27,9 @@ inherited frViewDatosYSeleccionClienteAlbaran: TfrViewDatosYSeleccionClienteAlba
AutoSize = False AutoSize = False
DataBinding.DataField = 'NOMBRE' DataBinding.DataField = 'NOMBRE'
DataBinding.DataSource = dsCliente DataBinding.DataSource = dsCliente
Enabled = False
ParentFont = False ParentFont = False
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -56,12 +51,9 @@ inherited frViewDatosYSeleccionClienteAlbaran: TfrViewDatosYSeleccionClienteAlba
AutoSize = False AutoSize = False
DataBinding.DataField = 'NIF_CIF' DataBinding.DataField = 'NIF_CIF'
DataBinding.DataSource = dsCliente DataBinding.DataSource = dsCliente
Enabled = False
ParentFont = False ParentFont = False
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -216,8 +208,6 @@ inherited frViewDatosYSeleccionClienteAlbaran: TfrViewDatosYSeleccionClienteAlba
DataBinding.DataField = 'PERSONA_CONTACTO' DataBinding.DataField = 'PERSONA_CONTACTO'
DataBinding.DataSource = dsAlbaran DataBinding.DataSource = dsAlbaran
ParentFont = False ParentFont = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -235,8 +225,6 @@ inherited frViewDatosYSeleccionClienteAlbaran: TfrViewDatosYSeleccionClienteAlba
object edtDireccion: TcxMemo object edtDireccion: TcxMemo
Left = 63 Left = 63
Top = 68 Top = 68
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
@ -272,92 +260,94 @@ inherited frViewDatosYSeleccionClienteAlbaran: TfrViewDatosYSeleccionClienteAlba
TabOrder = 7 TabOrder = 7
end end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False AlignHorz = ahParentManaged
AlignVert = avParentManaged
CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True Hidden = True
ShowBorder = False ShowBorder = False
object dxLayoutControl1Group1: TdxLayoutGroup object dxLayoutControl1Group1: TdxLayoutGroup
ShowCaption = False CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True Hidden = True
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
object dxLayoutControl1Item7: TdxLayoutItem object dxLayoutControl1Item7: TdxLayoutItem
Caption = 'Button1' CaptionOptions.Text = 'Button1'
ShowCaption = False CaptionOptions.Visible = False
Control = Button1 Control = Button1
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item8: TdxLayoutItem object dxLayoutControl1Item8: TdxLayoutItem
Caption = 'Button2' CaptionOptions.Text = 'Button2'
ShowCaption = False CaptionOptions.Visible = False
Control = Button2 Control = Button2
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
object dxLayoutControl1Group2: TdxLayoutGroup object dxLayoutControl1Group2: TdxLayoutGroup
ShowCaption = False CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True Hidden = True
ShowBorder = False ShowBorder = False
object dxLayoutControl1Group4: TdxLayoutGroup object dxLayoutControl1Group4: TdxLayoutGroup
ShowCaption = False CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True Hidden = True
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
object dxLayoutControl1Item1: TdxLayoutItem object dxLayoutControl1Item1: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Nombre:' CaptionOptions.Text = 'Nombre:'
Control = edtlNombre Control = edtlNombre
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item2: TdxLayoutItem object dxLayoutControl1Item2: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahRight AlignHorz = ahRight
Caption = 'NIF/CIF:' CaptionOptions.Text = 'NIF/CIF:'
Control = edtNIFCIF Control = edtNIFCIF
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
object dxLayoutControl1Group3: TdxLayoutGroup object dxLayoutControl1Group3: TdxLayoutGroup
ShowCaption = False CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True Hidden = True
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
object dxLayoutControl1Item4: TdxLayoutItem object dxLayoutControl1Item4: TdxLayoutItem
AutoAligns = []
AlignHorz = ahClient AlignHorz = ahClient
AlignVert = avCenter AlignVert = avCenter
Caption = 'Direcci'#243'n' CaptionOptions.Text = 'Direcci'#243'n'
CaptionOptions.AlignVert = tavTop CaptionOptions.AlignVert = tavTop
Control = edtDireccion Control = edtDireccion
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item5: TdxLayoutItem object dxLayoutControl1Item5: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahRight AlignHorz = ahRight
Caption = 'Button4' CaptionOptions.Text = 'Button4'
ShowCaption = False CaptionOptions.Visible = False
Visible = False Visible = False
Control = Button4 Control = Button4
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
object dxLayoutControl1Group5: TdxLayoutGroup object dxLayoutControl1Group5: TdxLayoutGroup
ShowCaption = False CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True Hidden = True
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
object dxLayoutControl1Item3: TdxLayoutItem object dxLayoutControl1Item3: TdxLayoutItem
AutoAligns = []
AlignHorz = ahClient AlignHorz = ahClient
AlignVert = avCenter AlignVert = avCenter
Caption = 'Contacto:' CaptionOptions.Text = 'Contacto:'
Control = edtPersonaContacto Control = edtPersonaContacto
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item6: TdxLayoutItem object dxLayoutControl1Item6: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahRight AlignHorz = ahRight
ShowCaption = False CaptionOptions.Visible = False
Visible = False Visible = False
Control = Button5 Control = Button5
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
@ -365,10 +355,9 @@ inherited frViewDatosYSeleccionClienteAlbaran: TfrViewDatosYSeleccionClienteAlba
end end
end end
object dxLayoutControl1Item9: TdxLayoutItem object dxLayoutControl1Item9: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahRight AlignHorz = ahRight
Caption = 'Button3' CaptionOptions.Text = 'Button3'
ShowCaption = False CaptionOptions.Visible = False
Control = Button3 Control = Button3
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end

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

@ -5,13 +5,13 @@ interface
uses uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewBase, StdCtrls, cxControls, cxContainer, cxEdit, cxLabel, Dialogs, uViewBase, StdCtrls, cxControls, cxContainer, cxEdit, cxLabel,
cxDBLabel, ExtCtrls, DB, uDADataTable, uBizContactos, cxDBLabel, ExtCtrls, DB, uDADataTable, uBizContactos, uDMBase,
ComCtrls, ToolWin, ActnList, ImgList, PngImageList, cxTextEdit, cxDBEdit, ComCtrls, ToolWin, ActnList, ImgList, PngImageList, cxTextEdit, cxDBEdit,
pngimage, JvExControls, JvComponent, JvButton, JvTransparentButton, Mask, pngimage, JvExControls, JvComponent, JvButton, JvTransparentButton, Mask,
DBCtrls, uClientesController, dxLayoutControl, Buttons, uDAInterfaces, DBCtrls, uClientesController, dxLayoutControl, Buttons, uDAInterfaces,
cxMaskEdit, cxButtonEdit, uBizAlbaranesCliente, uBizDireccionesContacto, cxMaskEdit, cxButtonEdit, uBizAlbaranesCliente, uBizDireccionesContacto,
uDireccionesContactoController, Menus, cxLookAndFeelPainters, cxButtons, uDireccionesContactoController, Menus, cxLookAndFeelPainters, cxButtons,
cxMemo; cxMemo, cxGraphics, cxLookAndFeels, dxLayoutcxEditAdapters;
type type
IViewDatosYSeleccionClienteAlbaran = interface(IViewBase) IViewDatosYSeleccionClienteAlbaran = interface(IViewBase)

116
Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.dfm
View File

@ -1,96 +1,77 @@
inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Height = 100 Height = 117
ExplicitHeight = 100 ExplicitHeight = 117
inherited ToolButton3: TToolButton inherited FontName: TJvFontComboBox [4]
Wrap = False Left = 56
end
inherited ToolButton4: TToolButton
Left = 278
Top = 0
ExplicitLeft = 278
ExplicitTop = 0
end
inherited ToolButton14: TToolButton
Left = 334
Top = 0
ExplicitLeft = 334
ExplicitTop = 0
end
inherited FontName: TJvFontComboBox
Top = 22 Top = 22
ExplicitLeft = 56
ExplicitTop = 22 ExplicitTop = 22
end end
inherited ToolButton14: TToolButton [5]
Left = 201
end
inherited FontSize: TEdit inherited FontSize: TEdit
Top = 22 Left = 0
Width = 106 Width = 106
ExplicitTop = 22 ExplicitLeft = 0
ExplicitWidth = 106 ExplicitWidth = 106
end end
inherited ToolButton13: TToolButton [7] inherited UpDown1: TUpDown
Left = 106
ExplicitLeft = 106
end
inherited ToolButton9: TToolButton [8]
Left = 123
ExplicitLeft = 123
end
inherited ToolButton12: TToolButton [9]
Left = 0 Left = 0
Top = 22
Wrap = True Wrap = True
ExplicitLeft = 0 ExplicitLeft = 0
ExplicitTop = 22 ExplicitHeight = 30
ExplicitHeight = 27
end end
inherited UpDown1: TUpDown [8] inherited ToolButton6: TToolButton [10]
Left = 0 Left = 0
Top = 49 Top = 74
ExplicitLeft = 0 ExplicitLeft = 0
ExplicitTop = 49 ExplicitTop = 74
end end
inherited ToolButton6: TToolButton inherited ToolButton7: TToolButton [11]
Left = 17 Left = 66
Top = 49 Top = 74
ExplicitLeft = 17 ExplicitLeft = 66
ExplicitTop = 49 ExplicitTop = 74
end end
inherited ToolButton7: TToolButton inherited ToolButton8: TToolButton [12]
Left = 83 Left = 133
Top = 49 Top = 74
ExplicitLeft = 83
ExplicitTop = 49
end
inherited ToolButton8: TToolButton
Left = 150
Top = 49
ExplicitLeft = 150
ExplicitTop = 49
end
inherited ToolButton12: TToolButton
Left = 0
Top = 49
Wrap = True Wrap = True
ExplicitLeft = 0 ExplicitLeft = 133
ExplicitTop = 49 ExplicitTop = 74
ExplicitHeight = 27
end end
inherited ToolButton9: TToolButton inherited ToolButton10: TToolButton [13]
Left = 0 Left = 0
Top = 76 Top = 96
ExplicitLeft = 0 ExplicitLeft = 0
ExplicitTop = 76 ExplicitTop = 96
end end
inherited ToolButton10: TToolButton inherited ToolButton13: TToolButton [14]
Left = 145 Left = 125
Top = 76 Top = 96
ExplicitLeft = 145 ExplicitLeft = 125
ExplicitTop = 76 ExplicitTop = 96
end end
inherited ToolButton11: TToolButton inherited ToolButton11: TToolButton
Left = 270 Left = 133
Top = 76 Top = 96
ExplicitLeft = 270 ExplicitLeft = 133
ExplicitTop = 76 ExplicitTop = 96
end end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Top = 126 Top = 143
Height = 178 Height = 161
ExplicitTop = 126
ExplicitHeight = 178
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
inherited cxGridViewTIPO: TcxGridDBColumn inherited cxGridViewTIPO: TcxGridDBColumn
Visible = False Visible = False
@ -121,8 +102,7 @@ inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente
end end
end end
inherited TBXDock1: TSpTBXDock inherited TBXDock1: TSpTBXDock
Top = 100 Top = 117
ExplicitTop = 100
inherited TBXToolbar1: TSpTBXToolbar inherited TBXToolbar1: TSpTBXToolbar
DockPos = 0 DockPos = 0
ExplicitWidth = 447 ExplicitWidth = 447

3
Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.pas
View File

@ -15,7 +15,8 @@ uses
cxCalendar, cxDBEdit, dxLayoutControl, cxContainer, cxLookupEdit, cxCalendar, cxDBEdit, dxLayoutControl, cxContainer, cxLookupEdit,
cxDBLookupEdit, cxDBLookupComboBox, uDAInterfaces, cxButtonEdit, cxDBLookupEdit, cxDBLookupComboBox, uDAInterfaces, cxButtonEdit,
uViewDetallesArticulos, Menus, cxGridCustomPopupMenu, cxGridPopupMenu, uViewDetallesArticulos, Menus, cxGridCustomPopupMenu, cxGridPopupMenu,
uViewDetallesArticulosParaVenta, cxEditRepositoryItems; uViewDetallesArticulosParaVenta, cxEditRepositoryItems, cxLookAndFeels,
cxLookAndFeelPainters;
type type
IViewDetallesAlbaranCliente = interface(IViewDetallesArticulos) IViewDetallesAlbaranCliente = interface(IViewDetallesArticulos)

37
Source/Modulos/Albaranes de cliente/Views/uViewTotalesAlbaran.dfm
View File

@ -1,11 +1,8 @@
inherited frViewTotalesAlbaran: TfrViewTotalesAlbaran inherited frViewTotalesAlbaran: TfrViewTotalesAlbaran
Width = 612
Height = 270 Height = 270
ExplicitHeight = 270 ExplicitHeight = 270
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 612
Height = 270 Height = 270
ExplicitWidth = 451
ExplicitHeight = 270 ExplicitHeight = 270
inherited Bevel3: TBevel inherited Bevel3: TBevel
Left = 266 Left = 266
@ -17,9 +14,11 @@ inherited frViewTotalesAlbaran: TfrViewTotalesAlbaran
Left = 399 Left = 399
Top = 52 Top = 52
Width = 342 Width = 342
Height = 9
ExplicitLeft = 399 ExplicitLeft = 399
ExplicitTop = 52 ExplicitTop = 52
ExplicitWidth = 342 ExplicitWidth = 342
ExplicitHeight = 9
end end
inherited ImporteDto: TcxDBCurrencyEdit inherited ImporteDto: TcxDBCurrencyEdit
Left = 163 Left = 163
@ -48,7 +47,7 @@ inherited frViewTotalesAlbaran: TfrViewTotalesAlbaran
ExplicitTop = 87 ExplicitTop = 87
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 400 Left = 399
Top = 141 Top = 141
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
@ -56,8 +55,10 @@ inherited frViewTotalesAlbaran: TfrViewTotalesAlbaran
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 13 TabOrder = 13
ExplicitLeft = 400 ExplicitLeft = 399
ExplicitTop = 141 ExplicitTop = 141
ExplicitWidth = 90
Width = 90
end end
inherited edtDescuento: TcxDBSpinEdit inherited edtDescuento: TcxDBSpinEdit
Left = 92 Left = 92
@ -75,7 +76,6 @@ inherited frViewTotalesAlbaran: TfrViewTotalesAlbaran
Left = 399 Left = 399
Top = 87 Top = 87
DataBinding.DataField = 'DESCUENTO' DataBinding.DataField = 'DESCUENTO'
Enabled = True
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
@ -102,7 +102,6 @@ inherited frViewTotalesAlbaran: TfrViewTotalesAlbaran
Left = 399 Left = 399
Top = 114 Top = 114
DataBinding.DataField = 'DESCUENTO2' DataBinding.DataField = 'DESCUENTO2'
Enabled = True
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
@ -193,7 +192,7 @@ inherited frViewTotalesAlbaran: TfrViewTotalesAlbaran
end end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup inherited dxLayoutControl1Group1: TdxLayoutGroup
ShowCaption = False CaptionOptions.Visible = False
ShowBorder = False ShowBorder = False
inherited dxLayoutControl1Group2: TdxLayoutGroup inherited dxLayoutControl1Group2: TdxLayoutGroup
inherited dxLayoutControl1Item8: TdxLayoutItem inherited dxLayoutControl1Item8: TdxLayoutItem
@ -204,6 +203,12 @@ inherited frViewTotalesAlbaran: TfrViewTotalesAlbaran
inherited dxLayoutControl1Group10: TdxLayoutGroup inherited dxLayoutControl1Group10: TdxLayoutGroup
Enabled = False Enabled = False
Visible = False Visible = False
inherited dxLayoutControl1Item4: TdxLayoutItem
Enabled = False
end
inherited dxLayoutControl1Item1: TdxLayoutItem
Enabled = False
end
end end
inherited dxLayoutControl1Item9: TdxLayoutItem inherited dxLayoutControl1Item9: TdxLayoutItem
Enabled = False Enabled = False
@ -213,14 +218,20 @@ inherited frViewTotalesAlbaran: TfrViewTotalesAlbaran
inherited dxLayoutControl1Group6: TdxLayoutGroup inherited dxLayoutControl1Group6: TdxLayoutGroup
Enabled = False Enabled = False
Visible = False Visible = False
inherited dxLayoutControl1Item11: TdxLayoutItem
Enabled = False
end
inherited dxLayoutControl1Item15: TdxLayoutItem
Enabled = False
end
end end
inherited dxLayoutControl1Item16: TdxLayoutItem inherited dxLayoutControl1Item16: TdxLayoutItem
Enabled = False Enabled = False
Visible = False Visible = False
end end
object dxLayoutControl1Item20: TdxLayoutItem object dxLayoutControl1Item20: TdxLayoutItem
Caption = 'Panel1' CaptionOptions.Text = 'Panel1'
ShowCaption = False CaptionOptions.Visible = False
Control = Panel1 Control = Panel1
ControlOptions.AutoColor = True ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
@ -232,7 +243,7 @@ inherited frViewTotalesAlbaran: TfrViewTotalesAlbaran
end end
inherited dxLayoutControl1Group3: TdxLayoutGroup inherited dxLayoutControl1Group3: TdxLayoutGroup
inherited dxLayoutControl1Item12: TdxLayoutItem inherited dxLayoutControl1Item12: TdxLayoutItem
Caption = 'Importe neto:' CaptionOptions.Text = 'Importe neto:'
end end
inherited dxLayoutControl1Item14: TdxLayoutItem inherited dxLayoutControl1Item14: TdxLayoutItem
Enabled = False Enabled = False
@ -240,14 +251,14 @@ inherited frViewTotalesAlbaran: TfrViewTotalesAlbaran
end end
inherited dxLayoutControl1Group9: TdxLayoutGroup inherited dxLayoutControl1Group9: TdxLayoutGroup
inherited dxLayoutControl1Item5: TdxLayoutItem inherited dxLayoutControl1Item5: TdxLayoutItem
Caption = 'Dto. cliente (%):'
CaptionOptions.AlignHorz = taLeftJustify CaptionOptions.AlignHorz = taLeftJustify
CaptionOptions.Text = 'Dto. cliente (%):'
end end
end end
inherited dxLayoutControl1Group8: TdxLayoutGroup inherited dxLayoutControl1Group8: TdxLayoutGroup
inherited dxLayoutControl1Item6: TdxLayoutItem inherited dxLayoutControl1Item6: TdxLayoutItem
Caption = 'Dto. pronto pago (%):'
CaptionOptions.AlignHorz = taLeftJustify CaptionOptions.AlignHorz = taLeftJustify
CaptionOptions.Text = 'Dto. pronto pago (%):'
end end
inherited dxLayoutControl1Item7: TdxLayoutItem inherited dxLayoutControl1Item7: TdxLayoutItem
Visible = True Visible = True

3
Source/Modulos/Albaranes de cliente/Views/uViewTotalesAlbaran.pas
View File

@ -9,7 +9,8 @@ uses
uDADataTable, dxLayoutControl, cxDropDownEdit, cxCalendar, cxDBEdit, uDADataTable, dxLayoutControl, cxDropDownEdit, cxCalendar, cxDBEdit,
cxCheckBox, StdCtrls, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, cxCheckBox, StdCtrls, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox,
cxMaskEdit, cxSpinEdit, cxContainer, cxEdit, cxTextEdit, cxCurrencyEdit, cxMaskEdit, cxSpinEdit, cxContainer, cxEdit, cxTextEdit, cxCurrencyEdit,
cxControls, ExtCtrls; cxControls, ExtCtrls, cxLookAndFeels, cxLookAndFeelPainters,
dxLayoutcxEditAdapters, dxLayoutControlAdapters;
type type
TfrViewTotalesAlbaran = class(TfrViewTotales) TfrViewTotalesAlbaran = class(TfrViewTotales)

21
Source/Modulos/Almacenes/Views/uEditorAlmacen.dfm
View File

@ -15,7 +15,7 @@ inherited fEditorAlmacen: TfEditorAlmacen
Caption = 'Almac'#233'n' Caption = 'Almac'#233'n'
ExplicitWidth = 632 ExplicitWidth = 632
inherited Image1: TImage inherited Image1: TImage
Left = 605 Left = 499
Picture.Data = { Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
00001C0806000000720DDF940000000970485973000017120000171201679FD2 00001C0806000000720DDF940000000970485973000017120000171201679FD2
@ -39,6 +39,12 @@ inherited fEditorAlmacen: TfEditorAlmacen
889083DF93D867F65E51168D0000000049454E44AE426082} 889083DF93D867F65E51168D0000000049454E44AE426082}
ExplicitLeft = 607 ExplicitLeft = 607
end end
inherited lblDesbloquear: TcxLabel
Left = 534
ExplicitLeft = 534
AnchorX = 579
AnchorY = 14
end
end end
inherited TBXDock: TSpTBXDock inherited TBXDock: TSpTBXDock
Width = 632 Width = 632
@ -127,17 +133,4 @@ inherited fEditorAlmacen: TfEditorAlmacen
end end
inherited JvFormStorage: TJvFormStorage [8] inherited JvFormStorage: TJvFormStorage [8]
end end
object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList
Left = 320
Top = 248
object dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel
GroupOptions.CaptionOptions.Font.Charset = DEFAULT_CHARSET
GroupOptions.CaptionOptions.Font.Color = clWindowText
GroupOptions.CaptionOptions.Font.Height = -11
GroupOptions.CaptionOptions.Font.Name = 'Tahoma'
GroupOptions.CaptionOptions.Font.Style = [fsBold]
GroupOptions.CaptionOptions.TextColor = clHighlight
GroupOptions.CaptionOptions.UseDefaultFont = False
end
end
end end

9
Source/Modulos/Almacenes/Views/uEditorAlmacen.pas
View File

@ -9,16 +9,15 @@ uses
uEditorBase, StdActns, TB2Dock, TB2Toolbar, SpTBXItem, ImgList, PngImageList, uEditorBase, StdActns, TB2Dock, TB2Toolbar, SpTBXItem, ImgList, PngImageList,
TB2Item, uEditorItem, DB, uDADataTable, uEditorDBBase, JvFormAutoSize, TB2Item, uEditorItem, DB, uDADataTable, uEditorDBBase, JvFormAutoSize,
uDAScriptingProvider, uDACDSDataTable, StdCtrls, pngimage, ExtCtrls, uDAScriptingProvider, uDACDSDataTable, StdCtrls, pngimage, ExtCtrls,
SpTBXDkPanels, JvButton, AppEvnts, uCustomView, uViewBase, SpTBXDkPanels, JvButton, AppEvnts, uCustomView, uViewBase, uDMBase,
JvAppStorage, JvAppRegistryStorage, JvFormPlacement, JvComponentBase, JvAppStorage, JvAppRegistryStorage, JvFormPlacement, JvComponentBase,
uViewAlmacenes, uIEditorAlmacen, uAlmacenesController, JvExComCtrls, uViewAlmacenes, uIEditorAlmacen, uAlmacenesController, JvExComCtrls,
JvStatusBar, dxLayoutLookAndFeels, uDAInterfaces; JvStatusBar, dxLayoutLookAndFeels, uDAInterfaces, cxGraphics, cxControls,
cxLookAndFeels, cxLookAndFeelPainters, cxContainer, cxEdit, cxLabel;
type type
TfEditorAlmacen = class(TfEditorDBItem, IEditorAlmacen) TfEditorAlmacen = class(TfEditorDBItem, IEditorAlmacen)
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure dsDataTableDataChange(Sender: TObject; Field: TField); procedure dsDataTableDataChange(Sender: TObject; Field: TField);
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction); procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
@ -160,7 +159,7 @@ begin
begin begin
Parent := pagGeneral; Parent := pagGeneral;
Align := alClient; Align := alClient;
dxLayoutControlAlmacen.LookAndFeel := dxLayoutOfficeLookAndFeel1; dxLayoutControlAlmacen.LookAndFeel := dmBase.dxLayoutSkinLookAndFeel;
end; end;
ViewAlmacen := AViewAlmacen; ViewAlmacen := AViewAlmacen;
end; end;

44
Source/Modulos/Almacenes/Views/uViewAlmacen.dfm
View File

@ -14,7 +14,6 @@ inherited frViewAlmacen: TfrViewAlmacen
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
DesignSize = ( DesignSize = (
451 451
304) 304)
@ -186,81 +185,84 @@ inherited frViewAlmacen: TfrViewAlmacen
Width = 186 Width = 186
end end
object dxLayoutControlAlmacenGroup_Root: TdxLayoutGroup object dxLayoutControlAlmacenGroup_Root: TdxLayoutGroup
ShowCaption = False AlignHorz = ahParentManaged
AlignVert = avParentManaged
CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True Hidden = True
ShowBorder = False ShowBorder = False
object dxLayoutControlAlmacenGroup4: TdxLayoutGroup object dxLayoutControlAlmacenGroup4: TdxLayoutGroup
ShowCaption = False CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True Hidden = True
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
object dxLayoutControlAlmacenGroup1: TdxLayoutGroup object dxLayoutControlAlmacenGroup1: TdxLayoutGroup
AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Datos generales del almac'#233'n' CaptionOptions.Text = 'Datos generales del almac'#233'n'
ButtonOptions.Buttons = <>
object dxLayoutControlAlmacenItem3: TdxLayoutItem object dxLayoutControlAlmacenItem3: TdxLayoutItem
Caption = 'Nombre:' CaptionOptions.Text = 'Nombre:'
Control = eNombre Control = eNombre
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControlAlmacenItem4: TdxLayoutItem object dxLayoutControlAlmacenItem4: TdxLayoutItem
Caption = 'Persona de contacto:' CaptionOptions.Text = 'Persona de contacto:'
Control = ePersonaContacto Control = ePersonaContacto
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
object dxLayoutControlAlmacenGroup2: TdxLayoutGroup object dxLayoutControlAlmacenGroup2: TdxLayoutGroup
AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Tel'#233'fonos' CaptionOptions.Text = 'Tel'#233'fonos'
ButtonOptions.Buttons = <>
object dxLayoutControlAlmacenItem1: TdxLayoutItem object dxLayoutControlAlmacenItem1: TdxLayoutItem
Caption = 'Tel'#233'fono:' CaptionOptions.Text = 'Tel'#233'fono:'
Control = eTlfTelefono Control = eTlfTelefono
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControlAlmacenItem5: TdxLayoutItem object dxLayoutControlAlmacenItem5: TdxLayoutItem
Caption = 'M'#243'vil:' CaptionOptions.Text = 'M'#243'vil:'
Control = eTlfMovil Control = eTlfMovil
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControlAlmacenItem6: TdxLayoutItem object dxLayoutControlAlmacenItem6: TdxLayoutItem
Caption = 'N'#250'mero de fax:' CaptionOptions.Text = 'N'#250'mero de fax:'
Control = eFax Control = eFax
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
end end
object dxLayoutControlAlmacenGroup3: TdxLayoutGroup object dxLayoutControlAlmacenGroup3: TdxLayoutGroup
Caption = 'Direcci'#243'n' CaptionOptions.Text = 'Direcci'#243'n'
ButtonOptions.Buttons = <>
object dxLayoutControlAlmacenItem10: TdxLayoutItem object dxLayoutControlAlmacenItem10: TdxLayoutItem
Caption = 'Calle:' CaptionOptions.Text = 'Calle:'
Control = eCalle Control = eCalle
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControlAlmacenGroup6: TdxLayoutGroup object dxLayoutControlAlmacenGroup6: TdxLayoutGroup
ShowCaption = False CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True Hidden = True
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
object dxLayoutControlAlmacenItem9: TdxLayoutItem object dxLayoutControlAlmacenItem9: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Provincia:' CaptionOptions.Text = 'Provincia:'
Control = cbProvincia Control = cbProvincia
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControlAlmacenItem7: TdxLayoutItem object dxLayoutControlAlmacenItem7: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahRight AlignHorz = ahRight
Caption = 'C. P.:' CaptionOptions.Text = 'C. P.:'
Control = eCodigoPostal Control = eCodigoPostal
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
object dxLayoutControlAlmacenItem2: TdxLayoutItem object dxLayoutControlAlmacenItem2: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Poblaci'#243'n:' CaptionOptions.Text = 'Poblaci'#243'n:'
Control = cbPoblacion Control = cbPoblacion
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end

3
Source/Modulos/Almacenes/Views/uViewAlmacen.pas
View File

@ -7,7 +7,8 @@ uses
Dialogs, uViewBase, ExtCtrls, StdCtrls, Buttons, DB, uDADataTable, Dialogs, uViewBase, ExtCtrls, StdCtrls, Buttons, DB, uDADataTable,
DBCtrls, Grids, DBGrids, uBizAlmacenes, Mask, ComCtrls, uCustomView, DBCtrls, Grids, DBGrids, uBizAlmacenes, Mask, ComCtrls, uCustomView,
JvComponent, JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit, JvComponent, JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit,
cxDBEdit, dxLayoutControl, uDAInterfaces, cxGraphics, cxMaskEdit, cxDropDownEdit; cxDBEdit, dxLayoutControl, uDAInterfaces, cxGraphics, cxMaskEdit, cxDropDownEdit,
cxLookAndFeels, cxLookAndFeelPainters, dxLayoutcxEditAdapters;
type type
IViewAlmacen = interface(IViewBase) IViewAlmacen = interface(IViewBase)

32
Source/Modulos/Articulos/Controller/Articulos_controller.dproj
View File

@ -55,22 +55,22 @@
<DelphiCompile Include="Articulos_controller.dpk"> <DelphiCompile Include="Articulos_controller.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\adortl.dcp" /> <DCCReference Include="..\..\Facturas de cliente\adortl.dcp" />
<DCCReference Include="..\Articulos_data.dcp" /> <DCCReference Include="..\..\Facturas de cliente\Articulos_data.dcp" />
<DCCReference Include="..\Articulos_model.dcp" /> <DCCReference Include="..\..\Facturas de cliente\Articulos_model.dcp" />
<DCCReference Include="..\Contactos_controller.dcp" /> <DCCReference Include="..\..\Facturas de cliente\Contactos_controller.dcp" />
<DCCReference Include="..\Contactos_model.dcp" /> <DCCReference Include="..\..\Facturas de cliente\Contactos_model.dcp" />
<DCCReference Include="..\cxLibraryD11.dcp" /> <DCCReference Include="..\..\Facturas de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\..\Facturas de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\dbrtl.dcp" /> <DCCReference Include="..\..\Facturas de cliente\dbrtl.dcp" />
<DCCReference Include="..\dsnap.dcp" /> <DCCReference Include="..\..\Facturas de cliente\dsnap.dcp" />
<DCCReference Include="..\dxGDIPlusD11.dcp" /> <DCCReference Include="..\..\Facturas de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\dxThemeD11.dcp" /> <DCCReference Include="..\..\Facturas de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\GUIBase.dcp" /> <DCCReference Include="..\..\Facturas de cliente\GUIBase.dcp" />
<DCCReference Include="..\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\..\Facturas de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\rtl.dcp" /> <DCCReference Include="..\..\Facturas de cliente\rtl.dcp" />
<DCCReference Include="..\vcl.dcp" /> <DCCReference Include="..\..\Facturas de cliente\vcl.dcp" />
<DCCReference Include="..\vcldb.dcp" /> <DCCReference Include="..\..\Facturas de cliente\vcldb.dcp" />
<DCCReference Include="uArticulosController.pas" /> <DCCReference Include="uArticulosController.pas" />
<DCCReference Include="uControllerDetallesArticulos.pas" /> <DCCReference Include="uControllerDetallesArticulos.pas" />
<DCCReference Include="View\uIEditorArticulo.pas" /> <DCCReference Include="View\uIEditorArticulo.pas" />

BIN
Source/Modulos/Articulos/Controller/Articulos_controller.res
View File

Binary file not shown.

2
Source/Modulos/Articulos/Data/Articulos_data.dproj
View File

@ -57,7 +57,7 @@
<DelphiCompile Include="Articulos_data.dpk"> <DelphiCompile Include="Articulos_data.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Articulos_model.dcp" /> <DCCReference Include="..\..\Facturas de cliente\Articulos_model.dcp" />
<DCCReference Include="uDataModuleArticulos.pas"> <DCCReference Include="uDataModuleArticulos.pas">
<Form>DataModuleArticulos</Form> <Form>DataModuleArticulos</Form>
</DCCReference> </DCCReference>

BIN
Source/Modulos/Articulos/Data/Articulos_data.res
View File

Binary file not shown.

20
Source/Modulos/Articulos/Model/Articulos_model.dproj
View File

@ -55,21 +55,21 @@
<DelphiCompile Include="Articulos_model.dpk"> <DelphiCompile Include="Articulos_model.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="adortl.dcp" /> <DCCReference Include="..\..\Facturas de cliente\adortl.dcp" />
<DCCReference Include="ApplicationBase.dcp" /> <DCCReference Include="..\..\Facturas de cliente\ApplicationBase.dcp" />
<DCCReference Include="Base.dcp" /> <DCCReference Include="..\..\Facturas de cliente\Base.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\..\Facturas de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\dbrtl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\dsnap.dcp" />
<DCCReference Include="..\..\Facturas de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\rtl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\vcl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\vcldb.dcp" />
<DCCReference Include="Data\uIDataModuleArticulos.pas" /> <DCCReference Include="Data\uIDataModuleArticulos.pas" />
<DCCReference Include="dbrtl.dcp" />
<DCCReference Include="dsnap.dcp" />
<DCCReference Include="RemObjects_Core_D11.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="schArticulosClient_Intf.pas" /> <DCCReference Include="schArticulosClient_Intf.pas" />
<DCCReference Include="schArticulosServer_Intf.pas" /> <DCCReference Include="schArticulosServer_Intf.pas" />
<DCCReference Include="uBizArticulos.pas" /> <DCCReference Include="uBizArticulos.pas" />
<DCCReference Include="uBizArticulosProveedores.pas" /> <DCCReference Include="uBizArticulosProveedores.pas" />
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vcldb.dcp" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line

BIN
Source/Modulos/Articulos/Model/Articulos_model.res
View File

Binary file not shown.

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

@ -55,14 +55,14 @@
<DelphiCompile Include="Articulos_view.dpk"> <DelphiCompile Include="Articulos_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\..\Servidor\Articulos_controller.dcp" /> <DCCReference Include="..\..\Facturas de cliente\Articulos_controller.dcp" />
<DCCReference Include="..\..\..\Servidor\Articulos_model.dcp" /> <DCCReference Include="..\..\Facturas de cliente\Articulos_model.dcp" />
<DCCReference Include="..\..\..\Servidor\Contactos_view.dcp" /> <DCCReference Include="..\..\Facturas de cliente\Contactos_view.dcp" />
<DCCReference Include="..\..\..\Servidor\Fabricantes_controller.dcp" /> <DCCReference Include="..\..\Facturas de cliente\Fabricantes_controller.dcp" />
<DCCReference Include="..\..\..\Servidor\Familias_controller.dcp" /> <DCCReference Include="..\..\Facturas de cliente\Familias_controller.dcp" />
<DCCReference Include="..\..\..\Servidor\GUIBase.dcp" /> <DCCReference Include="..\..\Facturas de cliente\GUIBase.dcp" />
<DCCReference Include="..\..\..\Servidor\GUISDK_D11R.dcp" /> <DCCReference Include="..\..\Facturas de cliente\GUISDK_D11R.dcp" />
<DCCReference Include="..\..\..\Servidor\UnidadesMedida_controller.dcp" /> <DCCReference Include="..\..\Facturas de cliente\UnidadesMedida_controller.dcp" />
<DCCReference Include="uArticulosViewRegister.pas" /> <DCCReference Include="uArticulosViewRegister.pas" />
<DCCReference Include="uEditorArticulo.pas"> <DCCReference Include="uEditorArticulo.pas">
<Form>fEditorArticulo</Form> <Form>fEditorArticulo</Form>

BIN
Source/Modulos/Articulos/Views/Articulos_view.res
View File

Binary file not shown.

19
Source/Modulos/Articulos/Views/uEditorArticulo.dfm
View File

@ -124,8 +124,8 @@ inherited fEditorArticulo: TfEditorArticulo
ExplicitWidth = 905 ExplicitWidth = 905
end end
inherited EditorActionList: TActionList inherited EditorActionList: TActionList
Left = 64 Left = 40
Top = 136 Top = 128
object actFamilias: TAction object actFamilias: TAction
Category = 'Acciones' Category = 'Acciones'
Caption = 'Familias' Caption = 'Familias'
@ -657,17 +657,8 @@ inherited fEditorArticulo: TfEditorArticulo
Left = 432 Left = 432
Top = 152 Top = 152
end end
object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList inherited StatusBarImages: TPngImageList
Left = 240 Left = 72
Top = 136 Top = 128
object dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel
GroupOptions.CaptionOptions.Font.Charset = DEFAULT_CHARSET
GroupOptions.CaptionOptions.Font.Color = clWindowText
GroupOptions.CaptionOptions.Font.Height = -11
GroupOptions.CaptionOptions.Font.Name = 'Tahoma'
GroupOptions.CaptionOptions.Font.Style = [fsBold]
GroupOptions.CaptionOptions.TextColor = clHighlight
GroupOptions.CaptionOptions.UseDefaultFont = False
end
end end
end end

6
Source/Modulos/Articulos/Views/uEditorArticulo.pas
View File

@ -13,7 +13,7 @@ uses
JvAppStorage, JvAppRegistryStorage, JvFormPlacement, JvComponentBase, JvAppStorage, JvAppRegistryStorage, JvFormPlacement, JvComponentBase,
uViewArticulos, uIEditorArticulo, uArticulosController, JvExComCtrls, uViewArticulos, uIEditorArticulo, uArticulosController, JvExComCtrls,
JvStatusBar, dxLayoutLookAndFeels, uDAInterfaces, Grids, DBGrids, cxStyles, JvStatusBar, dxLayoutLookAndFeels, uDAInterfaces, Grids, DBGrids, cxStyles,
cxCustomData, cxCustomData, uDMBase,
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel,
cxClasses, cxControls, cxGridCustomView, cxGrid, uViewDetallesGenerico, cxClasses, cxControls, cxGridCustomView, cxGrid, uViewDetallesGenerico,
@ -23,8 +23,6 @@ uses
type type
TfEditorArticulo = class(TfEditorDBItem, IEditorArticulo) TfEditorArticulo = class(TfEditorDBItem, IEditorArticulo)
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
TBXItem33: TSpTBXItem; TBXItem33: TSpTBXItem;
actFamilias: TAction; actFamilias: TAction;
TBXSeparatorItem6: TSpTBXSeparatorItem; TBXSeparatorItem6: TSpTBXSeparatorItem;
@ -183,7 +181,7 @@ begin
begin begin
Parent := pagGeneral; Parent := pagGeneral;
Align := alClient; Align := alClient;
dxLayoutControlArticulo.LookAndFeel := dxLayoutOfficeLookAndFeel1; dxLayoutControlArticulo.LookAndFeel := dmBase.dxLayoutSkinLookAndFeel;
end; end;
ViewArticulo := AViewArticulo; ViewArticulo := AViewArticulo;
end; end;

62
Source/Modulos/Articulos/Views/uViewArticulo.dfm
View File

@ -1,6 +1,6 @@
inherited frViewArticulo: TfrViewArticulo inherited frViewArticulo: TfrViewArticulo
Width = 610 Width = 658
Height = 405 Height = 504
Align = alClient Align = alClient
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
@ -9,18 +9,19 @@ inherited frViewArticulo: TfrViewArticulo
object dxLayoutControlArticulo: TdxLayoutControl object dxLayoutControlArticulo: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 610 Width = 658
Height = 405 Height = 504
Align = alClient Align = alClient
ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
ExplicitWidth = 451 ExplicitWidth = 451
ExplicitHeight = 304 ExplicitHeight = 304
DesignSize = ( DesignSize = (
610 658
405) 504)
object PngSpeedButton2: TPngSpeedButton object PngSpeedButton2: TPngSpeedButton
Left = 548 Left = 613
Top = 358 Top = 358
Width = 23 Width = 23
Height = 22 Height = 22
@ -47,7 +48,7 @@ inherited frViewArticulo: TfrViewArticulo
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
end end
object PngSpeedButton1: TPngSpeedButton object PngSpeedButton1: TPngSpeedButton
Left = 548 Left = 613
Top = 386 Top = 386
Width = 23 Width = 23
Height = 22 Height = 22
@ -55,7 +56,7 @@ inherited frViewArticulo: TfrViewArticulo
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
end end
object eReferencia: TcxDBTextEdit object eReferencia: TcxDBTextEdit
Left = 127 Left = 116
Top = 28 Top = 28
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA' DataBinding.DataField = 'REFERENCIA'
@ -80,7 +81,7 @@ inherited frViewArticulo: TfrViewArticulo
Width = 290 Width = 290
end end
object eDescripcion: TcxDBTextEdit object eDescripcion: TcxDBTextEdit
Left = 127 Left = 116
Top = 55 Top = 55
DataBinding.DataField = 'DESCRIPCION' DataBinding.DataField = 'DESCRIPCION'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
@ -104,7 +105,7 @@ inherited frViewArticulo: TfrViewArticulo
Width = 290 Width = 290
end end
object eNoComisionable: TcxDBCheckBox object eNoComisionable: TcxDBCheckBox
Left = 127 Left = 116
Top = 217 Top = 217
Caption = 'Art'#237'culo no comisionable' Caption = 'Art'#237'culo no comisionable'
DataBinding.DataField = 'COMISIONABLE' DataBinding.DataField = 'COMISIONABLE'
@ -132,7 +133,7 @@ inherited frViewArticulo: TfrViewArticulo
Width = 290 Width = 290
end end
object eImagen: TcxImage object eImagen: TcxImage
Left = 33 Left = 22
Top = 358 Top = 358
Properties.GraphicClassName = 'TJPEGImage' Properties.GraphicClassName = 'TJPEGImage'
Properties.ImmediatePost = True Properties.ImmediatePost = True
@ -158,7 +159,7 @@ inherited frViewArticulo: TfrViewArticulo
Width = 355 Width = 355
end end
object cbFamilia: TcxDBComboBox object cbFamilia: TcxDBComboBox
Left = 127 Left = 116
Top = 136 Top = 136
DataBinding.DataField = 'FAMILIA' DataBinding.DataField = 'FAMILIA'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
@ -186,7 +187,7 @@ inherited frViewArticulo: TfrViewArticulo
Width = 290 Width = 290
end end
object cbNoInventariable: TcxDBCheckBox object cbNoInventariable: TcxDBCheckBox
Left = 127 Left = 116
Top = 190 Top = 190
Caption = 'Art'#237'culo no inventariable' Caption = 'Art'#237'culo no inventariable'
DataBinding.DataField = 'INVENTARIABLE' DataBinding.DataField = 'INVENTARIABLE'
@ -214,7 +215,7 @@ inherited frViewArticulo: TfrViewArticulo
Width = 290 Width = 290
end end
object cbUnidadMedida: TcxDBComboBox object cbUnidadMedida: TcxDBComboBox
Left = 127 Left = 116
Top = 163 Top = 163
DataBinding.DataField = 'UNIDAD_MEDIDA' DataBinding.DataField = 'UNIDAD_MEDIDA'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
@ -242,7 +243,7 @@ inherited frViewArticulo: TfrViewArticulo
Width = 290 Width = 290
end end
object cbFabricante: TcxDBComboBox object cbFabricante: TcxDBComboBox
Left = 127 Left = 116
Top = 274 Top = 274
DataBinding.DataField = 'FABRICANTE' DataBinding.DataField = 'FABRICANTE'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
@ -270,7 +271,7 @@ inherited frViewArticulo: TfrViewArticulo
Width = 290 Width = 290
end end
object eReferenciaFabr: TcxDBTextEdit object eReferenciaFabr: TcxDBTextEdit
Left = 127 Left = 116
Top = 301 Top = 301
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA_FABR' DataBinding.DataField = 'REFERENCIA_FABR'
@ -296,7 +297,7 @@ inherited frViewArticulo: TfrViewArticulo
Width = 171 Width = 171
end end
object eCodigo: TcxDBTextEdit object eCodigo: TcxDBTextEdit
Left = 362 Left = 392
Top = 28 Top = 28
DataBinding.DataField = 'CODIGOTECNICO' DataBinding.DataField = 'CODIGOTECNICO'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
@ -320,7 +321,7 @@ inherited frViewArticulo: TfrViewArticulo
Width = 300 Width = 300
end end
object eCampoTecnico: TcxDBTextEdit object eCampoTecnico: TcxDBTextEdit
Left = 127 Left = 116
Top = 82 Top = 82
DataBinding.DataField = 'CAMPOTECNICO' DataBinding.DataField = 'CAMPOTECNICO'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
@ -344,7 +345,7 @@ inherited frViewArticulo: TfrViewArticulo
Width = 727 Width = 727
end end
object ePrecio: TcxDBCurrencyEdit object ePrecio: TcxDBCurrencyEdit
Left = 456 Left = 499
Top = 109 Top = 109
DataBinding.DataField = 'PRECIO' DataBinding.DataField = 'PRECIO'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
@ -368,7 +369,7 @@ inherited frViewArticulo: TfrViewArticulo
Width = 300 Width = 300
end end
object eDiseno: TcxDBTextEdit object eDiseno: TcxDBTextEdit
Left = 127 Left = 116
Top = 109 Top = 109
DataBinding.DataField = 'DISENOTECNICO' DataBinding.DataField = 'DISENOTECNICO'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
@ -393,22 +394,15 @@ inherited frViewArticulo: TfrViewArticulo
end end
object dxLayoutControlArticuloGroup_Root: TdxLayoutGroup object dxLayoutControlArticuloGroup_Root: TdxLayoutGroup
AlignHorz = ahParentManaged AlignHorz = ahParentManaged
AlignVert = avTop AlignVert = avClient
CaptionOptions.Visible = False CaptionOptions.Visible = False
ButtonOptions.Buttons = <> ButtonOptions.Buttons = <>
Hidden = True Hidden = True
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
object dxLayoutControlArticuloGroup3: TdxLayoutGroup
CaptionOptions.Text = 'New Group'
CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
LayoutDirection = ldHorizontal
ShowBorder = False
end
object dxLayoutControlArticuloGroup14: TdxLayoutGroup object dxLayoutControlArticuloGroup14: TdxLayoutGroup
AlignHorz = ahClient AlignHorz = ahClient
AlignVert = avTop AlignVert = avClient
CaptionOptions.Text = 'New Group' CaptionOptions.Text = 'New Group'
CaptionOptions.Visible = False CaptionOptions.Visible = False
ButtonOptions.Buttons = <> ButtonOptions.Buttons = <>
@ -528,7 +522,7 @@ inherited frViewArticulo: TfrViewArticulo
end end
object dxLayoutControlArticuloGroup2: TdxLayoutGroup object dxLayoutControlArticuloGroup2: TdxLayoutGroup
AlignHorz = ahClient AlignHorz = ahClient
AlignVert = avTop AlignVert = avClient
CaptionOptions.Text = 'Imagen' CaptionOptions.Text = 'Imagen'
Visible = False Visible = False
ButtonOptions.Buttons = <> ButtonOptions.Buttons = <>
@ -565,7 +559,7 @@ inherited frViewArticulo: TfrViewArticulo
Top = 32 Top = 32
end end
object OpenDialog1: TOpenDialog object OpenDialog1: TOpenDialog
Left = 24 Left = 16
Top = 32 Top = 32
end end
object SmallImages: TPngImageList object SmallImages: TPngImageList
@ -622,13 +616,13 @@ inherited frViewArticulo: TfrViewArticulo
Background = clWindow Background = clWindow
end> end>
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
Left = 27 Left = 19
Top = 64 Top = 64
Bitmap = {} Bitmap = {}
end end
object ActionList1: TActionList object ActionList1: TActionList
Images = SmallImages Images = SmallImages
Left = 56 Left = 64
Top = 64 Top = 64
object actAnadir: TAction object actAnadir: TAction
Hint = 'Cambiar la imagen del producto' Hint = 'Cambiar la imagen del producto'

3
Source/Modulos/Articulos/Views/uViewArticulo.pas
View File

@ -8,7 +8,7 @@ uses
DBCtrls, Grids, DBGrids, uBizArticulos, Mask, ComCtrls, uCustomView, DBCtrls, Grids, DBGrids, uBizArticulos, Mask, ComCtrls, uCustomView,
JvComponent, JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit, JvComponent, JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit,
cxDBEdit, dxLayoutControl, cxCheckBox, PngSpeedButton, cxImage, ActnList, cxDBEdit, dxLayoutControl, cxCheckBox, PngSpeedButton, cxImage, ActnList,
ImgList, PngImageList, cxGraphics, cxMaskEdit, cxDropDownEdit, ImgList, PngImageList, cxGraphics, cxMaskEdit, cxDropDownEdit,
uFamiliasController, uViewDatosYSeleccionProveedor, cxSpinEdit, cxCurrencyEdit, uFamiliasController, uViewDatosYSeleccionProveedor, cxSpinEdit, cxCurrencyEdit,
uArticulosController, uUnidadesMedidaController, uFabricantesController, uDAInterfaces, uArticulosController, uUnidadesMedidaController, uFabricantesController, uDAInterfaces,
cxLookAndFeels, cxLookAndFeelPainters, dxLayoutcxEditAdapters; cxLookAndFeels, cxLookAndFeelPainters, dxLayoutcxEditAdapters;
@ -47,7 +47,6 @@ type
PngSpeedButton2: TPngSpeedButton; PngSpeedButton2: TPngSpeedButton;
dxLayoutControlArticuloItem5: TdxLayoutItem; dxLayoutControlArticuloItem5: TdxLayoutItem;
PngSpeedButton1: TPngSpeedButton; PngSpeedButton1: TPngSpeedButton;
dxLayoutControlArticuloGroup3: TdxLayoutGroup;
eImagen: TcxImage; eImagen: TcxImage;
dxLayoutControlArticuloItem6: TdxLayoutItem; dxLayoutControlArticuloItem6: TdxLayoutItem;
dxLayoutControlArticuloGroup5: TdxLayoutGroup; dxLayoutControlArticuloGroup5: TdxLayoutGroup;

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

@ -2,89 +2,97 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos
ParentBiDiMode = False ParentBiDiMode = False
OnShow = CustomViewShow OnShow = CustomViewShow
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Height = 100 Height = 95
ExplicitHeight = 100 ExplicitHeight = 95
inherited ToolButton14: TToolButton inherited ToolButton3: TToolButton [1]
Left = 109
Wrap = False Wrap = False
ExplicitLeft = 109
end end
inherited ToolButton9: TToolButton [5] inherited ToolButton2: TToolButton [2]
Left = 121 Left = 164
Top = 22 ExplicitLeft = 164
ExplicitLeft = 121
ExplicitTop = 22
end end
inherited FontName: TJvFontComboBox [6] inherited ToolButton13: TToolButton [3]
Left = 266 Left = 278
Top = 22 Top = 0
ExplicitLeft = 266 Wrap = False
ExplicitTop = 22 ExplicitLeft = 278
ExplicitTop = 0
ExplicitHeight = 22
end end
inherited UpDown1: TUpDown inherited ToolButton12: TToolButton [4]
Left = 411 Top = 0
Top = 22 ExplicitTop = 0
end
inherited ToolButton4: TToolButton [5]
Top = 30
ExplicitTop = 30
end
inherited ToolButton14: TToolButton [6]
Top = 30
ExplicitTop = 30
end
inherited ToolButton9: TToolButton [7]
Top = 30
Wrap = True
ExplicitTop = 30
end
inherited FontName: TJvFontComboBox [8]
Left = 0
Top = 52
ExplicitLeft = 0
ExplicitTop = 52
end
inherited UpDown1: TUpDown [9]
Left = 145
Top = 52
Width = 17 Width = 17
ExplicitLeft = 411 ExplicitLeft = 145
ExplicitTop = 22 ExplicitTop = 52
ExplicitWidth = 17 ExplicitWidth = 17
end end
inherited ToolButton13: TToolButton
Left = 0
Top = 22
Wrap = True
ExplicitLeft = 0
ExplicitTop = 22
ExplicitHeight = 27
end
inherited ToolButton6: TToolButton
Left = 0
Top = 49
ExplicitLeft = 0
ExplicitTop = 49
end
inherited ToolButton7: TToolButton inherited ToolButton7: TToolButton
Left = 66 Left = 162
Top = 49 ExplicitLeft = 162
ExplicitLeft = 66
ExplicitTop = 49
end end
inherited FontSize: TEdit [11] inherited ToolButton10: TToolButton [11]
Left = 133 Left = 229
Top = 49 Top = 52
Wrap = True
ExplicitLeft = 229
ExplicitTop = 52
end
inherited ToolButton6: TToolButton [12]
Top = 74
ExplicitTop = 74
end
inherited FontSize: TEdit [13]
Left = 66
Top = 74
Width = 42 Width = 42
ExplicitLeft = 133 ExplicitLeft = 66
ExplicitTop = 49 ExplicitTop = 74
ExplicitWidth = 42 ExplicitWidth = 42
end end
inherited ToolButton11: TToolButton [12] inherited ToolButton11: TToolButton [14]
Left = 175 Left = 108
Top = 49 Top = 74
ExplicitLeft = 175 ExplicitLeft = 108
ExplicitTop = 49 ExplicitTop = 74
end end
inherited ToolButton12: TToolButton [13] inherited ToolButton8: TToolButton
Left = 0 Left = 249
Top = 49 Top = 74
Wrap = True ExplicitLeft = 249
ExplicitLeft = 0 ExplicitTop = 74
ExplicitTop = 49
ExplicitHeight = 27
end
inherited ToolButton10: TToolButton
Left = 0
Top = 76
ExplicitLeft = 0
ExplicitTop = 76
end
inherited ToolButton8: TToolButton [15]
Left = 125
Top = 76
ExplicitLeft = 125
ExplicitTop = 76
end end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Top = 126 Top = 121
Height = 178 Height = 183
ExplicitTop = 121
ExplicitHeight = 178
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
inherited cxGridViewTIPO: TcxGridDBColumn inherited cxGridViewTIPO: TcxGridDBColumn
MinWidth = 69 MinWidth = 69
@ -173,7 +181,8 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos
end end
end end
inherited TBXDock1: TSpTBXDock inherited TBXDock1: TSpTBXDock
Top = 100 Top = 95
ExplicitTop = 100
inherited TBXToolbar1: TSpTBXToolbar inherited TBXToolbar1: TSpTBXToolbar
inherited TBXSubmenuItem1: TSpTBXSubmenuItem inherited TBXSubmenuItem1: TSpTBXSubmenuItem
object TBXSeparatorItem8: TSpTBXSeparatorItem [4] object TBXSeparatorItem8: TSpTBXSeparatorItem [4]

93
Source/Modulos/Articulos/Views/uViewDetallesArticulosParaVenta.dfm
View File

@ -1,5 +1,95 @@
inherited frViewDetallesArticulosParaVenta: TfrViewDetallesArticulosParaVenta inherited frViewDetallesArticulosParaVenta: TfrViewDetallesArticulosParaVenta
inherited ToolBar1: TToolBar
Height = 117
ExplicitHeight = 117
inherited ToolButton13: TToolButton [1]
Left = 0
ExplicitLeft = 0
end
inherited ToolButton12: TToolButton [2]
end
inherited ToolButton2: TToolButton [3]
Left = 0
Top = 52
ExplicitLeft = 0
ExplicitTop = 52
end
inherited ToolButton3: TToolButton [4]
Left = 114
Top = 52
Wrap = False
ExplicitLeft = 114
ExplicitTop = 52
end
inherited ToolButton4: TToolButton [5]
Left = 169
Top = 52
ExplicitLeft = 169
ExplicitTop = 52
end
inherited ToolButton14: TToolButton [6]
Left = 225
Top = 52
ExplicitLeft = 225
ExplicitTop = 52
end
inherited UpDown1: TUpDown [7]
Left = 290
Top = 52
ExplicitLeft = 290
ExplicitTop = 52
end
inherited ToolButton7: TToolButton [8]
Left = 307
ExplicitLeft = 307
end
inherited ToolButton8: TToolButton [9]
Left = 374
Top = 52
ExplicitLeft = 374
ExplicitTop = 52
end
inherited ToolButton9: TToolButton [10]
Left = 457
Top = 52
Wrap = True
ExplicitLeft = 457
ExplicitTop = 52
end
inherited FontSize: TEdit
Left = 0
Top = 74
ExplicitLeft = 0
ExplicitTop = 74
end
inherited FontName: TJvFontComboBox [12]
Left = 42
ExplicitLeft = 42
end
inherited ToolButton10: TToolButton [13]
Left = 187
Top = 74
Wrap = True
ExplicitLeft = 187
ExplicitTop = 74
end
inherited ToolButton6: TToolButton
Left = 0
Top = 96
ExplicitLeft = 0
ExplicitTop = 96
end
inherited ToolButton11: TToolButton [15]
Left = 66
Top = 96
Wrap = False
ExplicitLeft = 66
ExplicitTop = 96
end
end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Top = 143
Height = 161
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
inherited cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn inherited cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn
Visible = False Visible = False
@ -11,4 +101,7 @@ inherited frViewDetallesArticulosParaVenta: TfrViewDetallesArticulosParaVenta
end end
end end
end end
inherited TBXDock1: TSpTBXDock
Top = 117
end
end end

60
Source/Modulos/Contactos/Controller/Contactos_controller.dproj
View File

@ -43,18 +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="D:\MISDOC~1\BORLAN~1\Bpl\JclDebugExpert100.bpl">JCL Debug IDE extension</Excluded_Packages> <Excluded_Packages Name="D:\MISDOC~1\BORLAN~1\Bpl\JclDebugExpert100.bpl">JCL Debug IDE extension</Excluded_Packages>
<Excluded_Packages Name="D:\MISDOC~1\BORLAN~1\Bpl\JclProjectAnalysisExpert100.bpl">JCL Project Analyzer</Excluded_Packages> <Excluded_Packages Name="D:\MISDOC~1\BORLAN~1\Bpl\JclProjectAnalysisExpert100.bpl">JCL Project Analyzer</Excluded_Packages>
<Excluded_Packages Name="D:\MISDOC~1\BORLAN~1\Bpl\JclFavoriteFoldersExpert100.bpl">JCL Open and Save IDE dialogs with favorite folders</Excluded_Packages> <Excluded_Packages Name="D:\MISDOC~1\BORLAN~1\Bpl\JclFavoriteFoldersExpert100.bpl">JCL Open and Save IDE dialogs with favorite folders</Excluded_Packages>
@ -65,6 +53,30 @@
<DelphiCompile Include="Contactos_controller.dpk"> <DelphiCompile Include="Contactos_controller.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Facturas de cliente\adortl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\ApplicationBase.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Base.dcp" />
<DCCReference Include="..\..\Facturas de cliente\ccpackD11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\cfpack_d11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Contactos_data.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Contactos_model.dcp" />
<DCCReference Include="..\..\Facturas de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\dbrtl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\designide.dcp" />
<DCCReference Include="..\..\Facturas de cliente\dsnap.dcp" />
<DCCReference Include="..\..\Facturas de cliente\dxCoreD11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\GUIBase.dcp" />
<DCCReference Include="..\..\Facturas de cliente\GUISDK_D11R.dcp" />
<DCCReference Include="..\..\Facturas de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\rtl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\vcl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\vclactnband.dcp" />
<DCCReference Include="..\..\Facturas de cliente\vcldb.dcp" />
<DCCReference Include="..\..\Facturas de cliente\vclx.dcp" />
<DCCReference Include="..\..\Facturas de cliente\xmlrtl.dcp" />
<DCCReference Include="uClientesController.pas" /> <DCCReference Include="uClientesController.pas" />
<DCCReference Include="uContactosController.pas" /> <DCCReference Include="uContactosController.pas" />
<DCCReference Include="uDatosBancariosContactoController.pas" /> <DCCReference Include="uDatosBancariosContactoController.pas" />
@ -78,25 +90,6 @@
<DCCReference Include="uPersonalContactoController.pas" /> <DCCReference Include="uPersonalContactoController.pas" />
<DCCReference Include="uProveedoresController.pas" /> <DCCReference Include="uProveedoresController.pas" />
<DCCReference Include="uVendedoresController.pas" /> <DCCReference Include="uVendedoresController.pas" />
<DCCReference Include="View\adortl.dcp" />
<DCCReference Include="View\ApplicationBase.dcp" />
<DCCReference Include="View\Base.dcp" />
<DCCReference Include="View\ccpackD11.dcp" />
<DCCReference Include="View\cfpack_d11.dcp" />
<DCCReference Include="View\Contactos_data.dcp" />
<DCCReference Include="View\Contactos_model.dcp" />
<DCCReference Include="View\cxLibraryD11.dcp" />
<DCCReference Include="View\DataAbstract_Core_D11.dcp" />
<DCCReference Include="View\dbrtl.dcp" />
<DCCReference Include="View\designide.dcp" />
<DCCReference Include="View\dsnap.dcp" />
<DCCReference Include="View\dxCoreD11.dcp" />
<DCCReference Include="View\dxGDIPlusD11.dcp" />
<DCCReference Include="View\dxThemeD11.dcp" />
<DCCReference Include="View\GUIBase.dcp" />
<DCCReference Include="View\GUISDK_D11R.dcp" />
<DCCReference Include="View\RemObjects_Core_D11.dcp" />
<DCCReference Include="View\rtl.dcp" />
<DCCReference Include="View\uIEditorCliente.pas" /> <DCCReference Include="View\uIEditorCliente.pas" />
<DCCReference Include="View\uIEditorClientes.pas" /> <DCCReference Include="View\uIEditorClientes.pas" />
<DCCReference Include="View\uIEditorContacto.pas" /> <DCCReference Include="View\uIEditorContacto.pas" />
@ -121,11 +114,6 @@
<DCCReference Include="View\uIEditorProveedores.pas" /> <DCCReference Include="View\uIEditorProveedores.pas" />
<DCCReference Include="View\uIEditorVendedor.pas" /> <DCCReference Include="View\uIEditorVendedor.pas" />
<DCCReference Include="View\uIEditorVendedores.pas" /> <DCCReference Include="View\uIEditorVendedores.pas" />
<DCCReference Include="View\vcl.dcp" />
<DCCReference Include="View\vclactnband.dcp" />
<DCCReference Include="View\vcldb.dcp" />
<DCCReference Include="View\vclx.dcp" />
<DCCReference Include="View\xmlrtl.dcp" />
<None Include="ModelSupport_Contactos_controller\default.txaPackage" /> <None Include="ModelSupport_Contactos_controller\default.txaPackage" />
</ItemGroup> </ItemGroup>
</Project> </Project>

BIN
Source/Modulos/Contactos/Controller/Contactos_controller.res
View File

Binary file not shown.

36
Source/Modulos/Contactos/Data/Contactos_data.dproj
View File

@ -49,20 +49,23 @@
<DelphiCompile Include="Contactos_data.dpk"> <DelphiCompile Include="Contactos_data.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="adortl.dcp" /> <DCCReference Include="..\..\Facturas de cliente\adortl.dcp" />
<DCCReference Include="ApplicationBase.dcp" /> <DCCReference Include="..\..\Facturas de cliente\ApplicationBase.dcp" />
<DCCReference Include="Base.dcp" /> <DCCReference Include="..\..\Facturas de cliente\Base.dcp" />
<DCCReference Include="Contactos_model.dcp" /> <DCCReference Include="..\..\Facturas de cliente\Contactos_model.dcp" />
<DCCReference Include="cxLibraryD11.dcp" /> <DCCReference Include="..\..\Facturas de cliente\cxLibraryD11.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\..\Facturas de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="dbrtl.dcp" /> <DCCReference Include="..\..\Facturas de cliente\dbrtl.dcp" />
<DCCReference Include="dsnap.dcp" /> <DCCReference Include="..\..\Facturas de cliente\dsnap.dcp" />
<DCCReference Include="dxCoreD11.dcp" /> <DCCReference Include="..\..\Facturas de cliente\dxCoreD11.dcp" />
<DCCReference Include="dxGDIPlusD11.dcp" /> <DCCReference Include="..\..\Facturas de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="dxThemeD11.dcp" /> <DCCReference Include="..\..\Facturas de cliente\dxThemeD11.dcp" />
<DCCReference Include="GUIBase.dcp" /> <DCCReference Include="..\..\Facturas de cliente\GUIBase.dcp" />
<DCCReference Include="RemObjects_Core_D11.dcp" /> <DCCReference Include="..\..\Facturas de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="rtl.dcp" /> <DCCReference Include="..\..\Facturas de cliente\rtl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\vcl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\vcldb.dcp" />
<DCCReference Include="..\..\Facturas de cliente\vclx.dcp" />
<DCCReference Include="uDataModuleClientes.pas"> <DCCReference Include="uDataModuleClientes.pas">
<Form>DataModuleClientes</Form> <Form>DataModuleClientes</Form>
<DesignClass>TDAClientDataModule</DesignClass> <DesignClass>TDAClientDataModule</DesignClass>
@ -80,12 +83,9 @@
<DesignClass>TDAClientDataModule</DesignClass> <DesignClass>TDAClientDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uDataModuleVendedores.pas"> <DCCReference Include="uDataModuleVendedores.pas">
<Form>DataModuleEmpleados</Form> <Form>DataModuleVendedores</Form>
<DesignClass>TDAClientDataModule</DesignClass> <DesignClass>TDAClientDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vcldb.dcp" />
<DCCReference Include="vclx.dcp" />
<None Include="ModelSupport_Contactos_data\default.txaPackage" /> <None Include="ModelSupport_Contactos_data\default.txaPackage" />
</ItemGroup> </ItemGroup>
</Project> </Project>

BIN
Source/Modulos/Contactos/Data/Contactos_data.res
View File

Binary file not shown.

2
Source/Modulos/Contactos/Data/uDataModuleContactos.dfm
View File

@ -11,12 +11,12 @@ inherited DataModuleContactos: TDataModuleContactos
Top = 16 Top = 16
end end
object rda_Contactos: TDARemoteDataAdapter object rda_Contactos: TDARemoteDataAdapter
DataStreamer = Bin2DataStreamer
GetSchemaCall.RemoteService = RORemoteService GetSchemaCall.RemoteService = RORemoteService
GetDataCall.RemoteService = RORemoteService GetDataCall.RemoteService = RORemoteService
UpdateDataCall.RemoteService = RORemoteService UpdateDataCall.RemoteService = RORemoteService
GetScriptsCall.RemoteService = RORemoteService GetScriptsCall.RemoteService = RORemoteService
RemoteService = RORemoteService RemoteService = RORemoteService
DataStreamer = Bin2DataStreamer
Left = 43 Left = 43
Top = 143 Top = 143
end end

2
Source/Modulos/Contactos/Data/uDataModuleContactos.pas
View File

@ -12,7 +12,7 @@ uses
uIDataModuleContactos, uDADesigntimeCall, uROTypes, uRODynamicRequest, uIDataModuleContactos, uDADesigntimeCall, uROTypes, uRODynamicRequest,
uDAInterfaces, uDADataStreamer, uDARemoteDataAdapter, uDABin2DataStreamer, uDAInterfaces, uDADataStreamer, uDARemoteDataAdapter, uDABin2DataStreamer,
uDAMemDataTable, uDataModuleBase, uBizContactosPersonal, uDAMemDataTable, uDataModuleBase, uBizContactosPersonal,
uIntegerListUtils; uIntegerListUtils, uDADataAdapter;
type type
TDataModuleContactos = class(TDataModuleBase, IDataModuleContactos, IDataModuleEtiquetasContactosReport) TDataModuleContactos = class(TDataModuleBase, IDataModuleContactos, IDataModuleEtiquetasContactosReport)

22
Source/Modulos/Contactos/Model/Contactos_model.dproj
View File

@ -49,16 +49,18 @@
<DelphiCompile Include="Contactos_model.dpk"> <DelphiCompile Include="Contactos_model.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Facturas de cliente\adortl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\ApplicationBase.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Base.dcp" />
<DCCReference Include="..\..\Facturas de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\dbrtl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\dsnap.dcp" />
<DCCReference Include="..\..\Facturas de cliente\GUIBase.dcp" />
<DCCReference Include="..\..\Facturas de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\rtl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\vcl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\vcldb.dcp" />
<DCCReference Include="..\Utiles\uRegimenIVAUtils.pas" /> <DCCReference Include="..\Utiles\uRegimenIVAUtils.pas" />
<DCCReference Include="Data\adortl.dcp" />
<DCCReference Include="Data\ApplicationBase.dcp" />
<DCCReference Include="Data\Base.dcp" />
<DCCReference Include="Data\DataAbstract_Core_D11.dcp" />
<DCCReference Include="Data\dbrtl.dcp" />
<DCCReference Include="Data\dsnap.dcp" />
<DCCReference Include="Data\GUIBase.dcp" />
<DCCReference Include="Data\RemObjects_Core_D11.dcp" />
<DCCReference Include="Data\rtl.dcp" />
<DCCReference Include="Data\uIDataModuleClientes.pas" /> <DCCReference Include="Data\uIDataModuleClientes.pas" />
<DCCReference Include="Data\uIDataModuleContactos.pas" /> <DCCReference Include="Data\uIDataModuleContactos.pas" />
<DCCReference Include="Data\uIDataModuleEmpleados.pas" /> <DCCReference Include="Data\uIDataModuleEmpleados.pas" />
@ -66,8 +68,6 @@
<DCCReference Include="Data\uIDataModuleFichasEmpleadoReport.pas" /> <DCCReference Include="Data\uIDataModuleFichasEmpleadoReport.pas" />
<DCCReference Include="Data\uIDataModuleProveedores.pas" /> <DCCReference Include="Data\uIDataModuleProveedores.pas" />
<DCCReference Include="Data\uIDataModuleVendedores.pas" /> <DCCReference Include="Data\uIDataModuleVendedores.pas" />
<DCCReference Include="Data\vcl.dcp" />
<DCCReference Include="Data\vcldb.dcp" />
<DCCReference Include="schContactosClient_Intf.pas" /> <DCCReference Include="schContactosClient_Intf.pas" />
<DCCReference Include="schContactosServer_Intf.pas" /> <DCCReference Include="schContactosServer_Intf.pas" />
<DCCReference Include="uBizClientesDescuentos.pas" /> <DCCReference Include="uBizClientesDescuentos.pas" />

BIN
Source/Modulos/Contactos/Model/Contactos_model.res
View File

Binary file not shown.

114
Source/Modulos/Contactos/Views/Contactos_view.dproj
View File

@ -49,63 +49,63 @@
<DelphiCompile Include="Contactos_view.dpk"> <DelphiCompile Include="Contactos_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Model\adortl.dcp" /> <DCCReference Include="..\adortl.dcp" />
<DCCReference Include="..\Model\ApplicationBase.dcp" /> <DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="..\Model\Base.dcp" /> <DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\Model\bdertl.dcp" /> <DCCReference Include="..\bdertl.dcp" />
<DCCReference Include="..\Model\ccpackD11.dcp" /> <DCCReference Include="..\ccpackD11.dcp" />
<DCCReference Include="..\Model\cfpack_d11.dcp" /> <DCCReference Include="..\cfpack_d11.dcp" />
<DCCReference Include="..\Model\Contactos_controller.dcp" /> <DCCReference Include="..\Contactos_controller.dcp" />
<DCCReference Include="..\Model\Contactos_model.dcp" /> <DCCReference Include="..\Contactos_model.dcp" />
<DCCReference Include="..\Model\cxDataD11.dcp" /> <DCCReference Include="..\cxDataD11.dcp" />
<DCCReference Include="..\Model\cxEditorsD11.dcp" /> <DCCReference Include="..\cxEditorsD11.dcp" />
<DCCReference Include="..\Model\cxExportD11.dcp" /> <DCCReference Include="..\cxExportD11.dcp" />
<DCCReference Include="..\Model\cxExtEditorsD11.dcp" /> <DCCReference Include="..\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Model\cxGridD11.dcp" /> <DCCReference Include="..\cxGridD11.dcp" />
<DCCReference Include="..\Model\cxLibraryD11.dcp" /> <DCCReference Include="..\cxLibraryD11.dcp" />
<DCCReference Include="..\Model\cxPageControlD11.dcp" /> <DCCReference Include="..\cxPageControlD11.dcp" />
<DCCReference Include="..\Model\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Model\dbrtl.dcp" /> <DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="..\Model\dclcxLibraryD11.dcp" /> <DCCReference Include="..\dclcxLibraryD11.dcp" />
<DCCReference Include="..\Model\designide.dcp" /> <DCCReference Include="..\designide.dcp" />
<DCCReference Include="..\Model\dsnap.dcp" /> <DCCReference Include="..\dsnap.dcp" />
<DCCReference Include="..\Model\dxComnD11.dcp" /> <DCCReference Include="..\dxComnD11.dcp" />
<DCCReference Include="..\Model\dxCoreD11.dcp" /> <DCCReference Include="..\dxCoreD11.dcp" />
<DCCReference Include="..\Model\dxGDIPlusD11.dcp" /> <DCCReference Include="..\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Model\dxLayoutControlD11.dcp" /> <DCCReference Include="..\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Model\dxPSCoreD11.dcp" /> <DCCReference Include="..\dxPSCoreD11.dcp" />
<DCCReference Include="..\Model\dxPScxCommonD11.dcp" /> <DCCReference Include="..\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Model\dxPScxGrid6LnkD11.dcp" /> <DCCReference Include="..\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Model\dxPSLnksD11.dcp" /> <DCCReference Include="..\dxPSLnksD11.dcp" />
<DCCReference Include="..\Model\dxThemeD11.dcp" /> <DCCReference Include="..\dxThemeD11.dcp" />
<DCCReference Include="..\Model\FormasPago_controller.dcp" /> <DCCReference Include="..\FormasPago_controller.dcp" />
<DCCReference Include="..\Model\FormasPago_model.dcp" /> <DCCReference Include="..\FormasPago_model.dcp" />
<DCCReference Include="..\Model\GUIBase.dcp" /> <DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\Model\GUISDK_D11R.dcp" /> <DCCReference Include="..\GUISDK_D11R.dcp" />
<DCCReference Include="..\Model\Jcl.dcp" /> <DCCReference Include="..\Jcl.dcp" />
<DCCReference Include="..\Model\JclVcl.dcp" /> <DCCReference Include="..\JclVcl.dcp" />
<DCCReference Include="..\Model\JSDialog100.dcp" /> <DCCReference Include="..\JSDialog100.dcp" />
<DCCReference Include="..\Model\JvCoreD11R.dcp" /> <DCCReference Include="..\JvCoreD11R.dcp" />
<DCCReference Include="..\Model\JvCtrlsD11R.dcp" /> <DCCReference Include="..\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Model\JvGlobusD11R.dcp" /> <DCCReference Include="..\JvGlobusD11R.dcp" />
<DCCReference Include="..\Model\JvPageCompsD11R.dcp" /> <DCCReference Include="..\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Model\JvStdCtrlsD11R.dcp" /> <DCCReference Include="..\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Model\JvSystemD11R.dcp" /> <DCCReference Include="..\JvSystemD11R.dcp" />
<DCCReference Include="..\Model\PngComponentsD10.dcp" /> <DCCReference Include="..\PngComponentsD10.dcp" />
<DCCReference Include="..\Model\PNG_D10.dcp" /> <DCCReference Include="..\PNG_D10.dcp" />
<DCCReference Include="..\Model\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Model\rtl.dcp" /> <DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\Model\tb2k_d11.dcp" /> <DCCReference Include="..\SpTBXLib_d11.dcp" />
<DCCReference Include="..\Model\SpTBXLib_d11.dcp" /> <DCCReference Include="..\tb2k_d11.dcp" />
<DCCReference Include="..\Model\TiposIVA_controller.dcp" /> <DCCReference Include="..\TiposIVA_controller.dcp" />
<DCCReference Include="..\Model\TiposIVA_model.dcp" /> <DCCReference Include="..\TiposIVA_model.dcp" />
<DCCReference Include="..\Model\vcl.dcp" /> <DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\Model\vclactnband.dcp" /> <DCCReference Include="..\vclactnband.dcp" />
<DCCReference Include="..\Model\vcldb.dcp" /> <DCCReference Include="..\vcldb.dcp" />
<DCCReference Include="..\Model\vcljpg.dcp" /> <DCCReference Include="..\vcljpg.dcp" />
<DCCReference Include="..\Model\vclshlctrls.dcp" /> <DCCReference Include="..\vclshlctrls.dcp" />
<DCCReference Include="..\Model\vclx.dcp" /> <DCCReference Include="..\vclx.dcp" />
<DCCReference Include="..\Model\xmlrtl.dcp" /> <DCCReference Include="..\xmlrtl.dcp" />
<DCCReference Include="uContactosViewRegister.pas" /> <DCCReference Include="uContactosViewRegister.pas" />
<DCCReference Include="uEditorCliente.pas"> <DCCReference Include="uEditorCliente.pas">
<Form>fEditorCliente</Form> <Form>fEditorCliente</Form>

BIN
Source/Modulos/Contactos/Views/Contactos_view.res
View File

Binary file not shown.

193
Source/Modulos/Contactos/Views/uEditorCliente.dfm
View File

@ -123,7 +123,6 @@ inherited fEditorCliente: TfEditorCliente
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 786 Width = 786
Height = 530 Height = 530
ActivePage = pagGeneral
ExplicitWidth = 786 ExplicitWidth = 786
ExplicitHeight = 530 ExplicitHeight = 530
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
@ -148,80 +147,67 @@ inherited fEditorCliente: TfEditorCliente
inherited dxLayoutControlContacto: TdxLayoutControl inherited dxLayoutControlContacto: TdxLayoutControl
Width = 778 Width = 778
Height = 502 Height = 502
LayoutLookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 778 ExplicitWidth = 778
ExplicitHeight = 502 ExplicitHeight = 502
inherited PngSpeedButton1: TPngSpeedButton inherited PngSpeedButton1: TPngSpeedButton
Left = 733 Left = 716
Top = 218 ExplicitLeft = 716
ExplicitLeft = 733
ExplicitTop = 218
end end
inherited PngSpeedButton2: TPngSpeedButton inherited PngSpeedButton2: TPngSpeedButton
Left = 733 Left = 716
Top = 190 ExplicitLeft = 716
ExplicitLeft = 733
ExplicitTop = 190
end end
inherited PngSpeedButton3: TPngSpeedButton inherited PngSpeedButton3: TPngSpeedButton
Left = 733 Left = 716
Top = 162 ExplicitLeft = 716
ExplicitLeft = 733
ExplicitTop = 162
end end
inherited eCalle: TcxDBTextEdit inherited eCalle: TcxDBTextEdit
Left = 138 Left = 138
Top = 240
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 = 138 ExplicitLeft = 138
ExplicitTop = 240
ExplicitWidth = 246 ExplicitWidth = 246
Width = 246 Width = 246
end end
inherited cbProvincia: TcxDBComboBox inherited cbProvincia: TcxDBComboBox
Left = 138 Left = 138
Top = 267
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 138 ExplicitLeft = 138
ExplicitTop = 267
ExplicitWidth = 145 ExplicitWidth = 145
Width = 145 Width = 145
end end
inherited cbPoblacion: TcxDBComboBox inherited cbPoblacion: TcxDBComboBox
Left = 138 Left = 138
Top = 294
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 138 ExplicitLeft = 138
ExplicitTop = 294
ExplicitWidth = 246 ExplicitWidth = 246
Width = 246 Width = 246
end end
inherited eCodigoPostal: TcxDBTextEdit inherited eCodigoPostal: TcxDBTextEdit
Left = 311 Left = 301
Top = 267
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 = 311 ExplicitLeft = 301
ExplicitTop = 267
end end
inherited eObservaciones: TcxDBMemo inherited eObservaciones: TcxDBMemo
Top = 399
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 399
ExplicitWidth = 656 ExplicitWidth = 656
ExplicitHeight = 87 ExplicitHeight = 87
Height = 87 Height = 87
@ -229,185 +215,169 @@ inherited fEditorCliente: TfEditorCliente
end end
inherited eNombreComercial: TcxDBTextEdit inherited eNombreComercial: TcxDBTextEdit
Left = 138 Left = 138
Top = 84
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 = 138 ExplicitLeft = 138
ExplicitTop = 84
ExplicitWidth = 246 ExplicitWidth = 246
Width = 246 Width = 246
end end
inherited cbClienteBloqueado: TcxDBCheckBox inherited cbClienteBloqueado: TcxDBCheckBox
Top = 162
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 162
ExplicitWidth = 356 ExplicitWidth = 356
Width = 356 Width = 356
end end
inherited cbGrupoCliente: TcxDBComboBox inherited cbGrupoCliente: TcxDBComboBox
Left = 138 Left = 138
Top = 111
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 138 ExplicitLeft = 138
ExplicitTop = 111
ExplicitWidth = 246 ExplicitWidth = 246
Width = 246 Width = 246
end end
inherited eBloqueo: TcxDBTextEdit inherited eBloqueo: TcxDBTextEdit
Left = 138 Left = 138
Top = 189
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 = 138 ExplicitLeft = 138
ExplicitTop = 189
ExplicitWidth = 246 ExplicitWidth = 246
Width = 246 Width = 246
end end
inherited cbFelicitacion: TcxDBCheckBox
Left = 396
ExplicitLeft = 396
ExplicitWidth = 370
Width = 370
end
inherited eTlfParticular: TcxDBTextEdit inherited eTlfParticular: TcxDBTextEdit
Top = 57 Left = 491
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 57 ExplicitLeft = 491
ExplicitWidth = 177 ExplicitWidth = 177
Width = 177 Width = 177
end end
inherited eTlfTrabajo: TcxDBTextEdit inherited eTlfTrabajo: TcxDBTextEdit
Top = 30 Left = 491
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 30 ExplicitLeft = 491
ExplicitWidth = 177 ExplicitWidth = 177
Width = 177 Width = 177
end end
inherited cbFelicitacion: TcxDBCheckBox
Top = 270
ExplicitTop = 270
ExplicitWidth = 370
Width = 370
end
inherited eTlfMovil: TcxDBTextEdit inherited eTlfMovil: TcxDBTextEdit
Top = 84 Left = 491
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 84 ExplicitLeft = 491
ExplicitWidth = 177 ExplicitWidth = 177
Width = 177 Width = 177
end end
inherited eFax: TcxDBTextEdit inherited eFax: TcxDBTextEdit
Top = 111 Left = 491
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 111 ExplicitLeft = 491
ExplicitWidth = 177 ExplicitWidth = 177
Width = 177 Width = 177
end end
inherited eNombre: TcxDBTextEdit inherited eNombre: TcxDBTextEdit
Left = 138 Left = 138
Top = 57
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 = 138 ExplicitLeft = 138
ExplicitTop = 57
ExplicitWidth = 246 ExplicitWidth = 246
Width = 246 Width = 246
end end
inherited eNIFCIF: TcxDBTextEdit inherited eNIFCIF: TcxDBTextEdit
Left = 219 Left = 215
Top = 30
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 = 219 ExplicitLeft = 215
ExplicitTop = 30
ExplicitWidth = 162 ExplicitWidth = 162
Width = 162 Width = 162
end end
inherited eMailTrabajo: TcxDBHyperLinkEdit inherited eMailTrabajo: TcxDBHyperLinkEdit
Top = 162 Left = 491
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 162 ExplicitLeft = 491
ExplicitWidth = 148 ExplicitWidth = 148
Width = 148 Width = 148
end end
inherited eMailParticular: TcxDBHyperLinkEdit inherited eMailParticular: TcxDBHyperLinkEdit
Top = 190 Left = 491
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 190 ExplicitLeft = 491
ExplicitWidth = 148 ExplicitWidth = 148
Width = 148 Width = 148
end end
inherited ePaginaWeb: TcxDBHyperLinkEdit inherited ePaginaWeb: TcxDBHyperLinkEdit
Top = 217 Left = 491
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 217 ExplicitLeft = 491
ExplicitWidth = 148 ExplicitWidth = 148
Width = 148 Width = 148
end end
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
Left = 138 Left = 138
Top = 30
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 = 138 ExplicitLeft = 138
ExplicitTop = 30
ExplicitWidth = 31 ExplicitWidth = 31
Width = 31 Width = 31
end end
inherited ePersonaContacto: TcxDBTextEdit inherited ePersonaContacto: TcxDBTextEdit
Left = 138 Left = 138
Top = 348
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 = 138 ExplicitLeft = 138
ExplicitTop = 348
ExplicitWidth = 246 ExplicitWidth = 246
Width = 246 Width = 246
end end
inherited ePais: TcxDBTextEdit inherited ePais: TcxDBTextEdit
Left = 138 Left = 138
Top = 321
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 = 138 ExplicitLeft = 138
ExplicitTop = 321
ExplicitWidth = 256 ExplicitWidth = 256
Width = 256 Width = 256
end end
@ -454,18 +424,6 @@ inherited fEditorCliente: TfEditorCliente
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 778 Width = 778
ExplicitWidth = 778 ExplicitWidth = 778
inherited ToolButton1: TToolButton
ExplicitWidth = 62
end
inherited ToolButton4: TToolButton
ExplicitWidth = 74
end
inherited ToolButton2: TToolButton
ExplicitWidth = 67
end
inherited ToolButton7: TToolButton
ExplicitWidth = 117
end
end end
end end
end end
@ -490,133 +448,102 @@ inherited fEditorCliente: TfEditorCliente
ExplicitHeight = 261 ExplicitHeight = 261
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 778 Width = 778
LayoutLookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 778 ExplicitWidth = 778
inherited Label1: TLabel inherited Label1: TLabel
Left = 524 Left = 525
Top = 30
Width = 193 Width = 193
ExplicitLeft = 524 ExplicitLeft = 525
ExplicitTop = 30
ExplicitWidth = 193 ExplicitWidth = 193
end end
inherited Bevel1: TBevel inherited Bevel1: TBevel
Top = 138
Width = 263 Width = 263
ExplicitTop = 138
ExplicitWidth = 263 ExplicitWidth = 263
end end
inherited Bevel3: TBevel inherited Bevel3: TBevel
Top = 203
Width = 385 Width = 385
ExplicitTop = 203
ExplicitWidth = 385 ExplicitWidth = 385
end end
inherited eDiasVencimiento1: TcxDBSpinEdit inherited eDiasVencimiento1: TcxDBSpinEdit
Left = 596 Left = 597
Top = 62
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 = 596 ExplicitLeft = 597
ExplicitTop = 62
end end
inherited cbRegimenIVA: TcxDBComboBox inherited cbRegimenIVA: TcxDBComboBox
Top = 30
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 30
ExplicitWidth = 307 ExplicitWidth = 307
Width = 307 Width = 307
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited cbRecargoEquivalencia: TcxDBCheckBox
Top = 111
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 111
ExplicitWidth = 307 ExplicitWidth = 307
Width = 307 Width = 307
end end
inherited cbFormaPago: TcxDBLookupComboBox inherited cbFormaPago: TcxDBLookupComboBox
Top = 57
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 57
ExplicitWidth = 169 ExplicitWidth = 169
Width = 169 Width = 169
end end
inherited bFormasPago: TButton inherited bFormasPago: TButton
Left = 364 Left = 363
Top = 57 ExplicitLeft = 363
ExplicitLeft = 364
ExplicitTop = 57
end end
inherited eIVA: TcxDBLookupComboBox inherited eIVA: TcxDBLookupComboBox
Top = 84
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 84
ExplicitWidth = 169 ExplicitWidth = 169
Width = 169 Width = 169
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 364 Left = 363
Top = 84 ExplicitLeft = 363
ExplicitLeft = 364
ExplicitTop = 84
end end
inherited eDescuento: TcxDBSpinEdit inherited eDescuento: TcxDBSpinEdit
Top = 149
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 149
end end
inherited eDiasVencimiento2: TcxDBSpinEdit inherited eDiasVencimiento2: TcxDBSpinEdit
Left = 596 Left = 597
Top = 89
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 = 596 ExplicitLeft = 597
ExplicitTop = 89
end end
inherited eDiasVencimiento3: TcxDBSpinEdit inherited eDiasVencimiento3: TcxDBSpinEdit
Left = 596 Left = 597
Top = 116
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 = 596 ExplicitLeft = 597
ExplicitTop = 116
end end
inherited eDescuento2: TcxDBSpinEdit inherited eDescuento2: TcxDBSpinEdit
Top = 176
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 176
end end
inherited eVendedor: TcxDBLookupComboBox inherited eVendedor: TcxDBLookupComboBox
Top = 214
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 214
ExplicitWidth = 165 ExplicitWidth = 165
Width = 165 Width = 165
end end
@ -657,6 +584,18 @@ inherited fEditorCliente: TfEditorCliente
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 778 Width = 778
ExplicitWidth = 778 ExplicitWidth = 778
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
end end
end end
end end
@ -723,18 +662,6 @@ inherited fEditorCliente: TfEditorCliente
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 778 Width = 778
ExplicitWidth = 778 ExplicitWidth = 778
inherited ToolButton1: TToolButton
ExplicitWidth = 62
end
inherited ToolButton4: TToolButton
ExplicitWidth = 74
end
inherited ToolButton2: TToolButton
ExplicitWidth = 67
end
inherited ToolButton7: TToolButton
ExplicitWidth = 117
end
end end
end end
end end

3
Source/Modulos/Contactos/Views/uEditorClientes.dfm
View File

@ -225,9 +225,6 @@ inherited fEditorClientes: TfEditorClientes
BuiltInReportLink = True BuiltInReportLink = True
end end
end end
inherited dxPSEngineController1: TdxPSEngineController
Active = True
end
inherited cxViewGridPopupMenu: TcxGridPopupMenu inherited cxViewGridPopupMenu: TcxGridPopupMenu
PopupMenus = < PopupMenus = <
item item

8
Source/Modulos/Contactos/Views/uEditorClientes.pas
View File

@ -173,10 +173,10 @@ begin
end; end;
procedure TfEditorClientes.ImprimirInterno; procedure TfEditorClientes.ImprimirInterno;
var {var
Respuesta : Integer; Respuesta : Integer;
AClientes: IBizCliente; AClientes: IBizCliente;
AllItems: Boolean; AllItems: Boolean;}
begin begin
inherited; inherited;
@ -232,10 +232,10 @@ begin
end; end;
procedure TfEditorClientes.PrevisualizarInterno; procedure TfEditorClientes.PrevisualizarInterno;
var {var
Respuesta : Integer; Respuesta : Integer;
AClientes: IBizCliente; AClientes: IBizCliente;
AllItems: Boolean; AllItems: Boolean;}
begin begin
inherited; inherited;

14
Source/Modulos/Contactos/Views/uEditorContacto.dfm
View File

@ -75,7 +75,6 @@ inherited fEditorContacto: TfEditorContacto
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 626 Width = 626
ActivePage = pagDatosBancarios
ExplicitWidth = 626 ExplicitWidth = 626
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
@ -199,17 +198,4 @@ inherited fEditorContacto: TfEditorContacto
inherited SmallImages: TPngImageList [10] inherited SmallImages: TPngImageList [10]
Top = 112 Top = 112
end end
object dxLayoutLookAndFeel: TdxLayoutLookAndFeelList
Left = 320
Top = 248
object dxLayoutOfficeLookAndFeel: TdxLayoutOfficeLookAndFeel
GroupOptions.CaptionOptions.Font.Charset = DEFAULT_CHARSET
GroupOptions.CaptionOptions.Font.Color = clWindowText
GroupOptions.CaptionOptions.Font.Height = -11
GroupOptions.CaptionOptions.Font.Name = 'Tahoma'
GroupOptions.CaptionOptions.Font.Style = [fsBold]
GroupOptions.CaptionOptions.TextColor = clHighlight
GroupOptions.CaptionOptions.UseDefaultFont = False
end
end
end end

2
Source/Modulos/Contactos/Views/uEditorContacto.pas
View File

@ -21,8 +21,6 @@ uses
type type
TfEditorContacto = class(TfEditorDBItem, IEditorContacto) TfEditorContacto = class(TfEditorDBItem, IEditorContacto)
pagDatosBancarios: TTabSheet; pagDatosBancarios: TTabSheet;
dxLayoutLookAndFeel: TdxLayoutLookAndFeelList;
dxLayoutOfficeLookAndFeel: TdxLayoutOfficeLookAndFeel;
frViewListaDatosBancarios: TfrViewListaDatosBancarios; frViewListaDatosBancarios: TfrViewListaDatosBancarios;
pagPersonal: TTabSheet; pagPersonal: TTabSheet;
frViewPersonalContacto1: TfrViewPersonalContacto; frViewPersonalContacto1: TfrViewPersonalContacto;

9
Source/Modulos/Contactos/Views/uEditorDatoBancario.dfm
View File

@ -3,7 +3,7 @@ object fEditorDatoBancario: TfEditorDatoBancario
Top = 108 Top = 108
BorderStyle = bsDialog BorderStyle = bsDialog
Caption = 'Cambiar datos bancarios' Caption = 'Cambiar datos bancarios'
ClientHeight = 128 ClientHeight = 131
ClientWidth = 645 ClientWidth = 645
Color = clBtnFace Color = clBtnFace
ParentFont = True ParentFont = True
@ -11,7 +11,7 @@ object fEditorDatoBancario: TfEditorDatoBancario
Position = poOwnerFormCenter Position = poOwnerFormCenter
DesignSize = ( DesignSize = (
645 645
128) 131)
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
object CancelBtn: TButton object CancelBtn: TButton
@ -24,17 +24,17 @@ object fEditorDatoBancario: TfEditorDatoBancario
Caption = '&Cancelar' Caption = '&Cancelar'
ModalResult = 2 ModalResult = 2
TabOrder = 0 TabOrder = 0
ExplicitLeft = 419
end end
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 553 Width = 553
Height = 128 Height = 131
Align = alLeft Align = alLeft
ParentBackground = True ParentBackground = True
TabOrder = 1 TabOrder = 1
TabStop = False TabStop = False
ExplicitHeight = 128
object eEntidad: TcxDBTextEdit object eEntidad: TcxDBTextEdit
Left = 117 Left = 117
Top = 55 Top = 55
@ -208,7 +208,6 @@ object fEditorDatoBancario: TfEditorDatoBancario
Caption = '&Aceptar' Caption = '&Aceptar'
ModalResult = 1 ModalResult = 1
TabOrder = 2 TabOrder = 2
ExplicitLeft = 419
end end
object dsDatosBancarios: TDADataSource object dsDatosBancarios: TDADataSource
Left = 352 Left = 352

2
Source/Modulos/Contactos/Views/uEditorDatoBancario.pas
View File

@ -4,7 +4,7 @@ interface
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, ExtCtrls, Mask, DBCtrls, DB, uDAInterfaces, uDADataTable, Buttons, ExtCtrls, Mask, DBCtrls, DB, uDAInterfaces, uDADataTable,
uBizContactosDatosBancarios, uIEditorDatoBancarioContacto, uBizContactosDatosBancarios, uIEditorDatoBancarioContacto, uDMBase,
uDatosBancariosContactoController, cxGraphics, cxControls, cxLookAndFeels, uDatosBancariosContactoController, cxGraphics, cxControls, cxLookAndFeels,
cxLookAndFeelPainters, cxContainer, cxEdit, dxLayoutcxEditAdapters, cxLookAndFeelPainters, cxContainer, cxEdit, dxLayoutcxEditAdapters,
dxLayoutControl, cxTextEdit, cxDBEdit; dxLayoutControl, cxTextEdit, cxDBEdit;

3
Source/Modulos/Contactos/Views/uEditorDireccion.pas
View File

@ -6,7 +6,8 @@ uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, ExtCtrls, Mask, DBCtrls, DB, uDADataTable, PngSpeedButton, Buttons, ExtCtrls, Mask, DBCtrls, DB, uDADataTable, PngSpeedButton,
cxControls, cxContainer, cxEdit, cxTextEdit, cxHyperLinkEdit, cxDBEdit, cxControls, cxContainer, cxEdit, cxTextEdit, cxHyperLinkEdit, cxDBEdit,
uIEditorDireccionContacto, uDireccionesContactoController, uBizDireccionesContacto, uIEditorDireccionContacto, uDireccionesContactoController, uBizDireccionesContacto,
cxCurrencyEdit, uDAInterfaces; cxCurrencyEdit, uDAInterfaces, cxGraphics, cxLookAndFeels,
cxLookAndFeelPainters;
type type
TfEditorDireccion = class(TForm, IEditorEditorDireccion) TfEditorDireccion = class(TForm, IEditorEditorDireccion)

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

@ -8,8 +8,7 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
Top = 113 Top = 113
Width = 683 Width = 683
Visible = False Visible = False
ExplicitLeft = -8 ExplicitTop = 113
ExplicitTop = 133
ExplicitWidth = 683 ExplicitWidth = 683
inherited Image1: TImage inherited Image1: TImage
Left = 656 Left = 656
@ -24,17 +23,17 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
ExplicitWidth = 683 ExplicitWidth = 683
ExplicitHeight = 49 ExplicitHeight = 49
inherited tbxMain: TSpTBXToolbar inherited tbxMain: TSpTBXToolbar
ExplicitWidth = 378 ExplicitWidth = 284
inherited TBXItem36: TSpTBXItem inherited TBXItem36: TSpTBXItem
Action = actAnchoAuto2 Action = actAnchoAuto2
end end
end end
inherited tbxFiltro: TSpTBXToolbar inherited tbxFiltro: TSpTBXToolbar
Left = 378 Left = 284
Top = 23 Top = 23
DockPos = 96 DockPos = 96
DockRow = 1 DockRow = 1
ExplicitLeft = 378 ExplicitLeft = 284
ExplicitTop = 23 ExplicitTop = 23
inherited TBXItem34: TSpTBXItem inherited TBXItem34: TSpTBXItem
Action = actQuitarFiltro2 Action = actQuitarFiltro2
@ -117,7 +116,6 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
Padding.Bottom = 8 Padding.Bottom = 8
ParentBackground = False ParentBackground = False
TabOrder = 5 TabOrder = 5
ExplicitTop = 27
object lblTitle: TLabel object lblTitle: TLabel
AlignWithMargins = True AlignWithMargins = True
Left = 25 Left = 25
@ -161,9 +159,9 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
Padding.Right = 10 Padding.Right = 10
Padding.Bottom = 5 Padding.Bottom = 5
TabOrder = 4 TabOrder = 4
ExplicitTop = 166 ExplicitTop = 140
ExplicitWidth = 683 ExplicitWidth = 683
ExplicitHeight = 298 ExplicitHeight = 324
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Left = 10 Left = 10
Top = 112 Top = 112
@ -172,7 +170,7 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
ExplicitLeft = 10 ExplicitLeft = 10
ExplicitTop = 112 ExplicitTop = 112
ExplicitWidth = 663 ExplicitWidth = 663
ExplicitHeight = 155 ExplicitHeight = 181
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
@ -191,6 +189,7 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
ExplicitTop = 10 ExplicitTop = 10
ExplicitWidth = 663 ExplicitWidth = 663
inherited TBXDockablePanel1: TSpTBXDockablePanel inherited TBXDockablePanel1: TSpTBXDockablePanel
Width = 663
ExplicitWidth = 663 ExplicitWidth = 663
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 663 Width = 663
@ -200,41 +199,35 @@ 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 Left = 385
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 ExplicitLeft = 385
ExplicitWidth = 123 ExplicitWidth = 123
Width = 123 Width = 123
end end
inherited eLista: TcxComboBox inherited eLista: TcxComboBox
Left = 515 Left = 520
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 = 515 ExplicitLeft = 520
ExplicitWidth = 215
Width = 215
end end
end end
inherited TBXAlignmentPanel1: TSpTBXDockablePanel inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 663 Width = 653
ExplicitWidth = 663 ExplicitWidth = 653
inherited tbxBotones: TSpTBXToolbar inherited tbxBotones: TSpTBXToolbar
Width = 653 Width = 653
ExplicitWidth = 653 ExplicitWidth = 653
@ -245,15 +238,16 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
inherited pnlAgrupaciones: TSpTBXDockablePanel inherited pnlAgrupaciones: TSpTBXDockablePanel
Left = 10 Left = 10
Top = 293 Top = 293
Width = 663
ExplicitLeft = 10 ExplicitLeft = 10
ExplicitTop = 267 ExplicitTop = 293
ExplicitWidth = 663 ExplicitWidth = 663
inherited TBXAlignmentPanel1: TSpTBXDockablePanel inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 663 Width = 663
ExplicitWidth = 663 ExplicitWidth = 663
inherited TBXToolbar1: TSpTBXToolbar inherited TBXToolbar1: TSpTBXToolbar
Width = 653 Width = 663
ExplicitWidth = 653 ExplicitWidth = 663
end end
end end
end end
@ -266,6 +260,9 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
BuiltInReportLink = True BuiltInReportLink = True
end end
end end
inherited dxPSEngineController1: TdxPSEngineController
Active = True
end
inherited cxViewGridPopupMenu: TcxGridPopupMenu inherited cxViewGridPopupMenu: TcxGridPopupMenu
PopupMenus = < PopupMenus = <
item item

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

@ -11,7 +11,7 @@ uses
TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent,
JvNavigationPane, uIEditorElegirClientes, uViewBarraSeleccion, JvNavigationPane, uIEditorElegirClientes, uViewBarraSeleccion,
StdCtrls, uBizContactos, JvExComCtrls, JvStatusBar, JSDialog, StdCtrls, uBizContactos, JvExComCtrls, JvStatusBar, JSDialog,
uDAInterfaces; uDAInterfaces, TntStdCtrls, SpTBXEditors;
type type
TfEditorElegirClientes = class(TfEditorClientes, IEditorElegirClientes) TfEditorElegirClientes = class(TfEditorClientes, IEditorElegirClientes)

234
Source/Modulos/Contactos/Views/uEditorEmpleado.dfm
View File

@ -49,6 +49,12 @@ inherited fEditorEmpleado: TfEditorEmpleado
83B80000000049454E44AE426082} 83B80000000049454E44AE426082}
ExplicitLeft = 645 ExplicitLeft = 645
end end
inherited lblDesbloquear: TcxLabel
Left = 804
ExplicitLeft = 804
AnchorX = 849
AnchorY = 14
end
end end
inherited TBXDock: TSpTBXDock inherited TBXDock: TSpTBXDock
Width = 929 Width = 929
@ -63,12 +69,9 @@ inherited fEditorEmpleado: TfEditorEmpleado
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 923 Width = 923
Height = 482 Height = 482
ActivePage = pagGeneral
ExplicitWidth = 923 ExplicitWidth = 923
ExplicitHeight = 482 ExplicitHeight = 482
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 915 ExplicitWidth = 915
ExplicitHeight = 454 ExplicitHeight = 454
inline frViewEmpleado1: TfrViewEmpleado inline frViewEmpleado1: TfrViewEmpleado
@ -90,282 +93,249 @@ inherited fEditorEmpleado: TfEditorEmpleado
inherited dxLayoutControlContacto: TdxLayoutControl inherited dxLayoutControlContacto: TdxLayoutControl
Width = 915 Width = 915
Height = 454 Height = 454
LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 915 ExplicitWidth = 915
ExplicitHeight = 454 ExplicitHeight = 454
inherited PngSpeedButton1: TPngSpeedButton inherited PngSpeedButton1: TPngSpeedButton
Left = 870 Left = 870
Top = 218
ExplicitLeft = 870 ExplicitLeft = 870
ExplicitTop = 218
end end
inherited PngSpeedButton2: TPngSpeedButton inherited PngSpeedButton2: TPngSpeedButton
Left = 870 Left = 870
Top = 190
ExplicitLeft = 870 ExplicitLeft = 870
ExplicitTop = 190
end end
inherited PngSpeedButton3: TPngSpeedButton inherited PngSpeedButton3: TPngSpeedButton
Left = 870 Left = 870
Top = 162
ExplicitLeft = 870 ExplicitLeft = 870
ExplicitTop = 162
end end
inherited eCalle: TcxDBTextEdit inherited eCalle: TcxDBTextEdit
Top = 243
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 243
ExplicitWidth = 341 ExplicitWidth = 341
Width = 341 Width = 341
end end
inherited cbProvincia: TcxDBComboBox inherited cbProvincia: TcxDBComboBox
Top = 270
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 270
ExplicitWidth = 240 ExplicitWidth = 240
Width = 240 Width = 240
end end
inherited cbPoblacion: TcxDBComboBox inherited cbPoblacion: TcxDBComboBox
Top = 297
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 297
ExplicitWidth = 341 ExplicitWidth = 341
Width = 341 Width = 341
end end
inherited eCodigoPostal: TcxDBTextEdit inherited eCodigoPostal: TcxDBTextEdit
Left = 397 Left = 396
Top = 270
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 ExplicitLeft = 396
ExplicitTop = 270
end end
inherited eObservaciones: TcxDBMemo inherited eObservaciones: TcxDBMemo
Top = 375
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 375
ExplicitWidth = 871 ExplicitWidth = 871
ExplicitHeight = 63 ExplicitHeight = 63
Height = 63 Height = 63
Width = 871 Width = 871
end end
inherited eFechaNacimiento: TcxDBDateEdit inherited eFechaNacimiento: TcxDBDateEdit
Top = 84
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 84
ExplicitWidth = 341 ExplicitWidth = 341
Width = 341 Width = 341
end end
inherited eFechaAltaEmpresa: TcxDBDateEdit inherited eFechaAltaEmpresa: TcxDBDateEdit
Top = 111
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 111
ExplicitWidth = 341 ExplicitWidth = 341
Width = 341 Width = 341
end end
inherited cbCategoria: TcxDBComboBox inherited cbCategoria: TcxDBComboBox
Top = 138
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 138
ExplicitWidth = 341 ExplicitWidth = 341
Width = 341 Width = 341
end end
inherited cbContrato: TcxDBComboBox inherited cbContrato: TcxDBComboBox
Left = 585 Left = 586
Top = 270
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 585 ExplicitLeft = 586
ExplicitTop = 270
ExplicitWidth = 308 ExplicitWidth = 308
Width = 308 Width = 308
end end
inherited eDuracionContrato: TcxDBTextEdit inherited eDuracionContrato: TcxDBTextEdit
Left = 585 Left = 586
Top = 297
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 = 585 ExplicitLeft = 586
ExplicitTop = 297
ExplicitWidth = 308 ExplicitWidth = 308
Width = 308 Width = 308
end end
inherited eTlfParticular: TcxDBTextEdit inherited eTlfParticular: TcxDBTextEdit
Left = 585 Left = 586
Top = 57
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 = 585 ExplicitLeft = 586
ExplicitTop = 57
ExplicitWidth = 308 ExplicitWidth = 308
Width = 308 Width = 308
end end
inherited eTlfTrabajo: TcxDBTextEdit inherited eTlfTrabajo: TcxDBTextEdit
Left = 585 Left = 586
Top = 30
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 = 585 ExplicitLeft = 586
ExplicitTop = 30
ExplicitWidth = 308 ExplicitWidth = 308
Width = 308 Width = 308
end end
inherited eTlfMovil: TcxDBTextEdit inherited eTlfMovil: TcxDBTextEdit
Left = 585 Left = 586
Top = 84
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 = 585 ExplicitLeft = 586
ExplicitTop = 84
ExplicitWidth = 308 ExplicitWidth = 308
Width = 308 Width = 308
end end
inherited eFax: TcxDBTextEdit inherited eFax: TcxDBTextEdit
Left = 585 Left = 586
Top = 111
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 = 585 ExplicitLeft = 586
ExplicitTop = 111
ExplicitWidth = 308 ExplicitWidth = 308
Width = 308 Width = 308
end end
inherited eNombre: TcxDBTextEdit inherited eNombre: TcxDBTextEdit
Top = 57
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 57 ExplicitWidth = 341
Width = 341
end
inherited eFechaBaja: TcxDBDateEdit
Properties.ImmediatePost = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 341
Width = 341
end
inherited eCausaBaja: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 341 ExplicitWidth = 341
Width = 341 Width = 341
end end
inherited eNIFCIF: TcxDBTextEdit inherited eNIFCIF: TcxDBTextEdit
Left = 259 Left = 259
Top = 30
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 = 259 ExplicitLeft = 259
ExplicitTop = 30
ExplicitWidth = 203 ExplicitWidth = 203
Width = 203 Width = 203
end end
inherited eMailTrabajo: TcxDBHyperLinkEdit inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 585 Left = 586
Top = 162
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
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 = 585 ExplicitLeft = 586
ExplicitTop = 162
ExplicitWidth = 279 ExplicitWidth = 279
Width = 279 Width = 279
end end
inherited eMailParticular: TcxDBHyperLinkEdit inherited eMailParticular: TcxDBHyperLinkEdit
Left = 585 Left = 586
Top = 190
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
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 = 585 ExplicitLeft = 586
ExplicitTop = 190
ExplicitWidth = 279 ExplicitWidth = 279
Width = 279 Width = 279
end end
inherited eFechaBaja: TcxDBDateEdit
Top = 165
Properties.ImmediatePost = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 165
ExplicitWidth = 341
Width = 341
end
inherited eCausaBaja: TcxDBTextEdit
Top = 192
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 192
ExplicitWidth = 341
Width = 341
end
inherited ePaginaWeb: TcxDBHyperLinkEdit inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 585 Left = 586
Top = 217
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 = 585 ExplicitLeft = 586
ExplicitTop = 217
ExplicitWidth = 279 ExplicitWidth = 279
Width = 279 Width = 279
end end
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
Top = 30
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 30
ExplicitWidth = 105 ExplicitWidth = 105
Width = 105 Width = 105
end end
inherited ePersonaContacto: TcxDBTextEdit inherited ePersonaContacto: TcxDBTextEdit
Top = 324
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 324
ExplicitWidth = 341 ExplicitWidth = 341
Width = 341 Width = 341
end end
inherited ePais: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
end end
inherited dsContacto: TDADataSource inherited dsContacto: TDADataSource
Left = 8 Left = 8
@ -390,18 +360,6 @@ inherited fEditorEmpleado: TfEditorEmpleado
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 915 Width = 915
ExplicitWidth = 915 ExplicitWidth = 915
inherited ToolButton1: TToolButton
ExplicitWidth = 62
end
inherited ToolButton4: TToolButton
ExplicitWidth = 74
end
inherited ToolButton2: TToolButton
ExplicitWidth = 67
end
inherited ToolButton7: TToolButton
ExplicitWidth = 117
end
end end
end end
end end
@ -423,28 +381,12 @@ inherited fEditorEmpleado: TfEditorEmpleado
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 915 Width = 915
ExplicitWidth = 915 ExplicitWidth = 915
inherited ToolButton1: TToolButton
ExplicitWidth = 62
end
inherited ToolButton4: TToolButton
ExplicitWidth = 74
end
inherited ToolButton2: TToolButton
ExplicitWidth = 67
end
inherited ToolButton7: TToolButton
ExplicitWidth = 117
end
end end
end end
end end
object pagFormacion: TTabSheet object pagFormacion: TTabSheet
Caption = 'Formaci'#243'n' Caption = 'Formaci'#243'n'
ImageIndex = 2 ImageIndex = 2
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
@ -454,11 +396,9 @@ inherited fEditorEmpleado: TfEditorEmpleado
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel
object eFormacionBasica: TcxDBMemo object eFormacionBasica: TcxDBMemo
Left = 22 Left = 22
Top = 30 Top = 28
DataBinding.DataField = 'FORMACION_BASE' DataBinding.DataField = 'FORMACION_BASE'
DataBinding.DataSource = frViewEmpleado1.dsContacto DataBinding.DataSource = frViewEmpleado1.dsContacto
Properties.ScrollBars = ssVertical Properties.ScrollBars = ssVertical
@ -483,7 +423,7 @@ inherited fEditorEmpleado: TfEditorEmpleado
end end
object eFormacionComplementaria: TcxDBMemo object eFormacionComplementaria: TcxDBMemo
Left = 22 Left = 22
Top = 176 Top = 175
DataBinding.DataField = 'FORMACION_COMPLE' DataBinding.DataField = 'FORMACION_COMPLE'
DataBinding.DataSource = frViewEmpleado1.dsContacto DataBinding.DataSource = frViewEmpleado1.dsContacto
Properties.ScrollBars = ssVertical Properties.ScrollBars = ssVertical
@ -508,7 +448,7 @@ inherited fEditorEmpleado: TfEditorEmpleado
end end
object eFormacionRecibida: TcxDBMemo object eFormacionRecibida: TcxDBMemo
Left = 22 Left = 22
Top = 322 Top = 321
DataBinding.DataField = 'FORMACION_RECIBIDA' DataBinding.DataField = 'FORMACION_RECIBIDA'
DataBinding.DataSource = frViewEmpleado1.dsContacto DataBinding.DataSource = frViewEmpleado1.dsContacto
Properties.ScrollBars = ssVertical Properties.ScrollBars = ssVertical
@ -532,38 +472,38 @@ inherited fEditorEmpleado: TfEditorEmpleado
Width = 871 Width = 871
end end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
Caption = 'Formaci'#243'n b'#225'sica' AlignHorz = ahParentManaged
ShowCaption = False AlignVert = avParentManaged
CaptionOptions.Text = 'Formaci'#243'n b'#225'sica'
CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True Hidden = True
ShowBorder = False ShowBorder = False
object dxLayoutControl1Group1: TdxLayoutGroup object dxLayoutControl1Group1: TdxLayoutGroup
AutoAligns = [aaHorizontal]
AlignVert = avClient AlignVert = avClient
Caption = 'Formaci'#243'n basica' CaptionOptions.Text = 'Formaci'#243'n basica'
ButtonOptions.Buttons = <>
object dxLayoutControl1Item1: TdxLayoutItem object dxLayoutControl1Item1: TdxLayoutItem
AutoAligns = [aaHorizontal]
AlignVert = avClient AlignVert = avClient
Control = eFormacionBasica Control = eFormacionBasica
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
object dxLayoutControl1Group2: TdxLayoutGroup object dxLayoutControl1Group2: TdxLayoutGroup
AutoAligns = [aaHorizontal]
AlignVert = avClient AlignVert = avClient
Caption = 'Fomaci'#243'n complementaria' CaptionOptions.Text = 'Fomaci'#243'n complementaria'
ButtonOptions.Buttons = <>
object dxLayoutControl1Item2: TdxLayoutItem object dxLayoutControl1Item2: TdxLayoutItem
AutoAligns = [aaHorizontal]
AlignVert = avClient AlignVert = avClient
Control = eFormacionComplementaria Control = eFormacionComplementaria
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
object dxLayoutControl1Group3: TdxLayoutGroup object dxLayoutControl1Group3: TdxLayoutGroup
AutoAligns = [aaHorizontal]
AlignVert = avClient AlignVert = avClient
Caption = 'Formaci'#243'n recibida' CaptionOptions.Text = 'Formaci'#243'n recibida'
ButtonOptions.Buttons = <>
object dxLayoutControl1Item3: TdxLayoutItem object dxLayoutControl1Item3: TdxLayoutItem
AutoAligns = [aaHorizontal]
AlignVert = avClient AlignVert = avClient
Control = eFormacionRecibida Control = eFormacionRecibida
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
@ -575,10 +515,6 @@ inherited fEditorEmpleado: TfEditorEmpleado
object pagExperiencia: TTabSheet object pagExperiencia: TTabSheet
Caption = 'Experiencia' Caption = 'Experiencia'
ImageIndex = 3 ImageIndex = 3
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object dxLayoutControl2: TdxLayoutControl object dxLayoutControl2: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
@ -588,11 +524,9 @@ inherited fEditorEmpleado: TfEditorEmpleado
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel
object eExperiencia: TcxDBMemo object eExperiencia: TcxDBMemo
Left = 22 Left = 22
Top = 30 Top = 28
Align = alClient Align = alClient
DataBinding.DataField = 'EXPERIENCIA' DataBinding.DataField = 'EXPERIENCIA'
DataBinding.DataSource = frViewEmpleado1.dsContacto DataBinding.DataSource = frViewEmpleado1.dsContacto
@ -617,16 +551,18 @@ inherited fEditorEmpleado: TfEditorEmpleado
Width = 871 Width = 871
end end
object dxLayoutGroup1: TdxLayoutGroup object dxLayoutGroup1: TdxLayoutGroup
Caption = 'Formaci'#243'n b'#225'sica' AlignHorz = ahParentManaged
ShowCaption = False AlignVert = avParentManaged
CaptionOptions.Text = 'Formaci'#243'n b'#225'sica'
CaptionOptions.Visible = False
ButtonOptions.Buttons = <>
Hidden = True Hidden = True
ShowBorder = False ShowBorder = False
object dxLayoutGroup3: TdxLayoutGroup object dxLayoutGroup3: TdxLayoutGroup
AutoAligns = [aaHorizontal]
AlignVert = avClient AlignVert = avClient
Caption = 'Experiencia (Acci'#243'n formativa / Fecha / Duraci'#243'n)' CaptionOptions.Text = 'Experiencia (Acci'#243'n formativa / Fecha / Duraci'#243'n)'
ButtonOptions.Buttons = <>
object dxLayoutItem1: TdxLayoutItem object dxLayoutItem1: TdxLayoutItem
AutoAligns = [aaHorizontal]
AlignVert = avClient AlignVert = avClient
Control = eExperiencia Control = eExperiencia
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False

4
Source/Modulos/Contactos/Views/uEditorEmpleado.pas
View File

@ -12,7 +12,9 @@ uses
uIEditorEmpleado, pngimage, JvExComCtrls, JvStatusBar, uIEditorEmpleado, pngimage, JvExComCtrls, JvStatusBar,
uViewDetallesGenerico, uViewContactoDatosBancarios, dxLayoutLookAndFeels, uViewDetallesGenerico, uViewContactoDatosBancarios, dxLayoutLookAndFeels,
dxLayoutControl, cxContainer, cxEdit, cxTextEdit, cxMemo, cxDBEdit, cxControls, dxLayoutControl, cxContainer, cxEdit, cxTextEdit, cxMemo, cxDBEdit, cxControls,
uDAInterfaces, uViewContactoListaDatosBancarios, uViewPersonalContacto; uDAInterfaces, uViewContactoListaDatosBancarios, uViewPersonalContacto,
cxGraphics, cxLookAndFeels, cxLookAndFeelPainters, dxLayoutcxEditAdapters,
cxLabel;
type type
TfEditorEmpleado = class(TfEditorContacto, IEditorEmpleado) TfEditorEmpleado = class(TfEditorContacto, IEditorEmpleado)

8
Source/Modulos/Contactos/Views/uEditorGruposEmpleado.dfm
View File

@ -4,7 +4,7 @@ object fEditorGruposEmpleado: TfEditorGruposEmpleado
ActiveControl = ListaGruposEmpleado ActiveControl = ListaGruposEmpleado
BorderIcons = [biSystemMenu] BorderIcons = [biSystemMenu]
BorderStyle = bsSingle BorderStyle = bsSingle
Caption = 'Administraci'#243'n de categorías de empleados' Caption = 'Administraci'#243'n de categor'#237'as de empleados'
ClientHeight = 499 ClientHeight = 499
ClientWidth = 404 ClientWidth = 404
Color = clBtnFace Color = clBtnFace
@ -47,13 +47,13 @@ object fEditorGruposEmpleado: TfEditorGruposEmpleado
ActivePage = TabSheet1 ActivePage = TabSheet1
TabOrder = 0 TabOrder = 0
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = 'Categorías de empleado' Caption = 'Categor'#237'as de empleado'
object Label1: TLabel object Label1: TLabel
Left = 10 Left = 10
Top = 12 Top = 12
Width = 121 Width = 155
Height = 13 Height = 13
Caption = 'Lista de categorías de empleado' Caption = 'Lista de categor'#237'as de empleado'
end end
object ListaGruposEmpleado: TDBLookupListBox object ListaGruposEmpleado: TDBLookupListBox
Left = 8 Left = 8

2
Source/Modulos/Contactos/Views/uEditorGruposEmpleado.pas
View File

@ -29,7 +29,7 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, StdCtrls, DBCtrls, uDADataTable, ActnList, Dialogs, DB, StdCtrls, DBCtrls, uDADataTable, ActnList,
uIEditorGruposEmpleado, uCustomEditor, uGUIBase, ExtCtrls, uIEditorGruposEmpleado, uCustomEditor, uGUIBase, ExtCtrls,
ComCtrls, uBizGruposEmpleado, uGruposEmpleadoController; ComCtrls, uBizGruposEmpleado, uGruposEmpleadoController, uDAInterfaces;
type type
TfEditorGruposEmpleado = class(TCustomEditor, IEditorGruposEmpleado) TfEditorGruposEmpleado = class(TCustomEditor, IEditorGruposEmpleado)

3
Source/Modulos/Contactos/Views/uEditorPersonal.pas
View File

@ -6,7 +6,8 @@ uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, ExtCtrls, Mask, DBCtrls, DB, uDADataTable, PngSpeedButton, Buttons, ExtCtrls, Mask, DBCtrls, DB, uDADataTable, PngSpeedButton,
cxControls, cxContainer, cxEdit, cxTextEdit, cxHyperLinkEdit, cxDBEdit, cxControls, cxContainer, cxEdit, cxTextEdit, cxHyperLinkEdit, cxDBEdit,
uPersonalContactoController, uBizContactosPersonal, uPersonalContactoController, uBizContactosPersonal,
uDAInterfaces, uIEditorPersonalContacto; uDAInterfaces, uIEditorPersonalContacto, cxGraphics, cxLookAndFeels,
cxLookAndFeelPainters;
type type
TfEditorPersonal = class(TForm, IEditorPersonalContacto) TfEditorPersonal = class(TForm, IEditorPersonalContacto)

Some files were not shown because too many files have changed in this diff Show More