Arreglos estéticos varios.

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

View File

@ -68,7 +68,7 @@ contains
uViewPerfilUsuario in 'Usuarios\Views\uViewPerfilUsuario.pas' {frViewPerfilUsuario: TFrame},
uIEditorPerfilesUsuario in 'Usuarios\Controller\View\uIEditorPerfilesUsuario.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},
uEditorUsuario in 'Usuarios\Views\uEditorUsuario.pas' {fEditorUsuario: TFrame},
uViewUsuario in 'Usuarios\Views\uViewUsuario.pas' {frViewUsuario: TFrame},

View File

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

View File

@ -44,17 +44,4 @@ inherited fEditorPerfilUsuario: TfEditorPerfilUsuario
Visible = False
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

View File

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

View File

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

View File

@ -50,71 +50,53 @@ inherited fEditorUsuario: TfEditorUsuario
ExplicitHeight = 332
inherited dxLayoutControlArticulo: TdxLayoutControl
Width = 887
LookAndFeel = dxLayoutOfficeLookAndFeel1
Height = 332
ExplicitWidth = 887
DesignSize = (
887
249)
inherited PngSpeedButton3: TPngSpeedButton
Top = 84
ExplicitTop = 84
end
ExplicitHeight = 332
inherited eNombre: TcxDBTextEdit
Top = 30
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 30
ExplicitWidth = 164
Width = 164
end
inherited eUsuario: TcxDBTextEdit
Top = 57
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 57
ExplicitWidth = 108
Width = 108
end
inherited eMail: TcxDBHyperLinkEdit
Top = 84
Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 84
end
inherited ePassword: TcxTextEdit
Top = 163
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 163
ExplicitWidth = 121
Width = 121
end
inherited eConfirmarPassword: TcxTextEdit
Top = 190
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 190
ExplicitWidth = 372
Width = 372
end
inherited cbPerfil: TcxComboBox
Top = 112
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 112
end
end
end
@ -155,17 +137,4 @@ inherited fEditorUsuario: TfEditorUsuario
inherited StatusBarImages: TPngImageList
Top = 312
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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

@ -54,58 +54,58 @@
<DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource>
</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="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">
<Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass>

View File

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

View File

@ -146,7 +146,22 @@ object dmBase: TdmBase
Bitmap = {}
end
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.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.Color = clWindowText
Fonts.NavPanelFont.Height = -13
@ -168,18 +183,18 @@ object dmBase: TdmBase
Fonts.HeaderFont.Name = 'Arial'
Fonts.HeaderFont.Style = [fsBold]
Theme = nptCustom
Left = 104
Left = 88
Top = 80
end
object JvLogFile: TJvLogFile
Left = 184
Left = 160
Top = 80
end
object dxPrintStyleManager1: TdxPrintStyleManager
CurrentStyle = dxPrintStyleManager1Style1
Version = 0
Left = 280
Top = 16
Left = 232
Top = 80
object dxPrintStyleManager1Style1: TdxPSPrintStyle
PrinterPage.DMPaper = 9
PrinterPage.Footer = 6350
@ -211,4 +226,12 @@ object dmBase: TdmBase
BuiltInStyle = True
end
end
object dxLayoutLookAndFeelList: TdxLayoutLookAndFeelList
Left = 88
Top = 16
object dxLayoutSkinLookAndFeel: TdxLayoutSkinLookAndFeel
LookAndFeel.Kind = lfStandard
LookAndFeel.NativeStyle = True
end
end
end

View File

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

View File

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

Binary file not shown.

View File

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

View File

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

View File

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

View File

@ -1,51 +1,103 @@
inherited frViewDetallesDTO: TfrViewDetallesDTO
inherited ToolBar1: TToolBar
Height = 73
ExplicitHeight = 73
inherited ToolButton1: TToolButton
ExplicitWidth = 109
end
inherited ToolButton2: TToolButton
inherited ToolButton3: TToolButton [1]
Left = 109
ExplicitLeft = 109
end
inherited ToolButton2: TToolButton [2]
Left = 164
ExplicitLeft = 164
ExplicitWidth = 114
end
inherited ToolButton3: TToolButton
Left = 223
ExplicitLeft = 223
end
inherited ToolButton4: TToolButton
inherited ToolButton14: TToolButton [3]
Left = 278
Top = 0
ExplicitLeft = 278
ExplicitTop = 0
end
inherited ToolButton14: TToolButton
Left = 334
ExplicitLeft = 334
inherited ToolButton4: TToolButton [4]
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
ExplicitLeft = 133
ExplicitTop = 52
ExplicitWidth = 41
end
inherited UpDown1: TUpDown
Left = 186
ExplicitLeft = 186
inherited ToolButton12: TToolButton [13]
Left = 174
Top = 52
ExplicitLeft = 174
ExplicitTop = 52
end
inherited ToolButton13: TToolButton
Left = 202
ExplicitLeft = 202
inherited ToolButton11: TToolButton [14]
Left = 182
Top = 52
ExplicitLeft = 182
ExplicitTop = 52
end
inherited ToolButton6: TToolButton
Left = 210
ExplicitLeft = 210
end
inherited ToolButton7: TToolButton
Left = 276
ExplicitLeft = 276
end
inherited ToolButton8: TToolButton
Left = 343
ExplicitLeft = 343
inherited ToolButton8: TToolButton [15]
Left = 323
Top = 52
ExplicitLeft = 323
ExplicitTop = 52
end
end
inherited cxGrid: TcxGrid
Top = 99
Height = 205
ExplicitTop = 126
ExplicitHeight = 178
inherited cxGridView: TcxGridDBTableView
object cxGridViewDESCUENTO: TcxGridDBColumn [7]
Caption = 'Dto'
@ -85,6 +137,9 @@ inherited frViewDetallesDTO: TfrViewDetallesDTO
end
end
end
inherited TBXDock1: TSpTBXDock
Top = 73
end
inherited ActionListContenido: TActionList
inherited actAnadir: TAction
Caption = 'A'#241'adir concepto'

View File

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

View File

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

View File

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

View File

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

View File

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

View File

@ -14,6 +14,7 @@
<Projects Include="..\Articulos\Views\Articulos_view.dproj" />
<Projects Include="..\Contactos\Controller\Contactos_controller.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 proveedor\Views\FacturasProveedor_view.dproj" />
<Projects Include="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" />
@ -261,14 +262,23 @@
<Target Name="FacturasCliente_view:Make">
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Make" />
</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">
<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 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 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>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

View File

@ -49,14 +49,14 @@
<DelphiCompile Include="AlbaranesCliente_controller.dpk">
<MainSource>MainSource</MainSource>
</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="uAlbaranesClienteReportController.pas" />
<DCCReference Include="uArticulosAlbaranClienteController.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\uIEditorAlbaranDevCliente.pas" />
<DCCReference Include="View\uIEditorAlbaranesCliente.pas" />

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

@ -65,6 +65,14 @@ object fEditorDetalleEtiqueta: TfEditorDetalleEtiqueta
Left = 21
Top = 37
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
Width = 262
end
@ -72,6 +80,14 @@ object fEditorDetalleEtiqueta: TfEditorDetalleEtiqueta
Left = 21
Top = 91
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
Value = 1
Width = 121

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

@ -13,7 +13,9 @@ uses
cxGrid,
uBizAlbaranesCliente, cxCurrencyEdit, Forms, uViewFiltroBase, ComCtrls, Tabs,
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
IViewAlbaranesCliente = interface(IViewGrid)

View File

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

View File

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

View File

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

View File

@ -5,13 +5,13 @@ interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
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,
pngimage, JvExControls, JvComponent, JvButton, JvTransparentButton, Mask,
DBCtrls, uClientesController, dxLayoutControl, Buttons, uDAInterfaces,
cxMaskEdit, cxButtonEdit, uBizAlbaranesCliente, uBizDireccionesContacto,
uDireccionesContactoController, Menus, cxLookAndFeelPainters, cxButtons,
cxMemo;
cxMemo, cxGraphics, cxLookAndFeels, dxLayoutcxEditAdapters;
type
IViewDatosYSeleccionClienteAlbaran = interface(IViewBase)

View File

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

View File

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

View File

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

View File

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

View File

@ -15,7 +15,7 @@ inherited fEditorAlmacen: TfEditorAlmacen
Caption = 'Almac'#233'n'
ExplicitWidth = 632
inherited Image1: TImage
Left = 605
Left = 499
Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
00001C0806000000720DDF940000000970485973000017120000171201679FD2
@ -39,6 +39,12 @@ inherited fEditorAlmacen: TfEditorAlmacen
889083DF93D867F65E51168D0000000049454E44AE426082}
ExplicitLeft = 607
end
inherited lblDesbloquear: TcxLabel
Left = 534
ExplicitLeft = 534
AnchorX = 579
AnchorY = 14
end
end
inherited TBXDock: TSpTBXDock
Width = 632
@ -127,17 +133,4 @@ inherited fEditorAlmacen: TfEditorAlmacen
end
inherited JvFormStorage: TJvFormStorage [8]
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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

@ -124,8 +124,8 @@ inherited fEditorArticulo: TfEditorArticulo
ExplicitWidth = 905
end
inherited EditorActionList: TActionList
Left = 64
Top = 136
Left = 40
Top = 128
object actFamilias: TAction
Category = 'Acciones'
Caption = 'Familias'
@ -657,17 +657,8 @@ inherited fEditorArticulo: TfEditorArticulo
Left = 432
Top = 152
end
object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList
Left = 240
Top = 136
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
inherited StatusBarImages: TPngImageList
Left = 72
Top = 128
end
end

View File

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

View File

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

View File

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

View File

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

View File

@ -1,5 +1,95 @@
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
Top = 143
Height = 161
inherited cxGridView: TcxGridDBTableView
inherited cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn
Visible = False
@ -11,4 +101,7 @@ inherited frViewDetallesArticulosParaVenta: TfrViewDetallesArticulosParaVenta
end
end
end
inherited TBXDock1: TSpTBXDock
Top = 117
end
end

View File

@ -43,18 +43,6 @@
<Borland.ProjectType>Package</Borland.ProjectType>
<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>
<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\JclFavoriteFoldersExpert100.bpl">JCL Open and Save IDE dialogs with favorite folders</Excluded_Packages>
@ -65,6 +53,30 @@
<DelphiCompile Include="Contactos_controller.dpk">
<MainSource>MainSource</MainSource>
</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="uContactosController.pas" />
<DCCReference Include="uDatosBancariosContactoController.pas" />
@ -78,25 +90,6 @@
<DCCReference Include="uPersonalContactoController.pas" />
<DCCReference Include="uProveedoresController.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\uIEditorClientes.pas" />
<DCCReference Include="View\uIEditorContacto.pas" />
@ -121,11 +114,6 @@
<DCCReference Include="View\uIEditorProveedores.pas" />
<DCCReference Include="View\uIEditorVendedor.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" />
</ItemGroup>
</Project>

View File

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

View File

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

View File

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

View File

@ -49,16 +49,18 @@
<DelphiCompile Include="Contactos_model.dpk">
<MainSource>MainSource</MainSource>
</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="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\uIDataModuleContactos.pas" />
<DCCReference Include="Data\uIDataModuleEmpleados.pas" />
@ -66,8 +68,6 @@
<DCCReference Include="Data\uIDataModuleFichasEmpleadoReport.pas" />
<DCCReference Include="Data\uIDataModuleProveedores.pas" />
<DCCReference Include="Data\uIDataModuleVendedores.pas" />
<DCCReference Include="Data\vcl.dcp" />
<DCCReference Include="Data\vcldb.dcp" />
<DCCReference Include="schContactosClient_Intf.pas" />
<DCCReference Include="schContactosServer_Intf.pas" />
<DCCReference Include="uBizClientesDescuentos.pas" />

View File

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

View File

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

View File

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

View File

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

View File

@ -75,7 +75,6 @@ inherited fEditorContacto: TfEditorContacto
end
inherited pgPaginas: TPageControl
Width = 626
ActivePage = pagDatosBancarios
ExplicitWidth = 626
inherited pagGeneral: TTabSheet
ExplicitLeft = 4
@ -199,17 +198,4 @@ inherited fEditorContacto: TfEditorContacto
inherited SmallImages: TPngImageList [10]
Top = 112
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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

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