Ticket #24 -> Falta el menú contextual de copiar-pegar en los campos observaciones

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@419 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2009-04-15 14:45:54 +00:00
parent 7c0c5e7938
commit d6e17f78d6
56 changed files with 1673 additions and 2312 deletions

View File

@ -49,9 +49,6 @@
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\DataAbstract_SQLiteDriver_D11.bpl">RemObjects Data Abstract - SQLite Driver</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
@ -62,29 +59,29 @@
<DelphiCompile Include="ApplicationBase.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Modulos\Contactos\adortl.dcp" />
<DCCReference Include="..\Modulos\Contactos\Base.dcp" />
<DCCReference Include="..\Modulos\Contactos\ccpackD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\cfpack_d11.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Contactos\designide.dcp" />
<DCCReference Include="..\Modulos\Contactos\dsnap.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxNavBarD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\GUIBase.dcp" />
<DCCReference Include="..\Modulos\Contactos\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvJansD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Contactos\rtl.dcp" />
<DCCReference Include="..\Modulos\Contactos\vcl.dcp" />
<DCCReference Include="..\Modulos\Contactos\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Contactos\vcldb.dcp" />
<DCCReference Include="..\Modulos\Contactos\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Contactos\vclx.dcp" />
<DCCReference Include="..\Modulos\Contactos\xmlrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ccpackD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cfpack_d11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.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\designide.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxNavBarD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvJansD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.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\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\vclx.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
<DCCReference Include="Configuracion\Controller\uConfiguracionController.pas" />
<DCCReference Include="Configuracion\Controller\Views\uIViewConfiguracionBase.pas" />
<DCCReference Include="Configuracion\Views\uEditorConfiguracion.pas">

View File

@ -74,23 +74,32 @@ inherited fEditorEmpresa: TfEditorEmpresa
end
end
end
inherited StatusBar: TJvStatusBar
Top = 535
Width = 674
Panels = <
item
Width = 200
end>
ExplicitTop = 535
ExplicitWidth = 674
end
inherited pgPaginas: TPageControl
Width = 668
Height = 453
ExplicitLeft = 3
ExplicitTop = 79
Height = 423
ExplicitTop = 109
ExplicitWidth = 668
ExplicitHeight = 453
ExplicitHeight = 423
inherited pagGeneral: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
ExplicitWidth = 660
ExplicitHeight = 425
ExplicitHeight = 395
inline frViewEmpresa1: TfrViewEmpresa
Left = 0
Top = 0
Width = 660
Height = 425
Height = 395
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -101,13 +110,13 @@ inherited fEditorEmpresa: TfEditorEmpresa
TabOrder = 0
ReadOnly = False
ExplicitWidth = 660
ExplicitHeight = 425
ExplicitHeight = 395
inherited dxLayoutControl1: TdxLayoutControl
Width = 660
Height = 425
Height = 395
LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 660
ExplicitHeight = 425
ExplicitHeight = 395
inherited PngSpeedButton1: TPngSpeedButton
Left = 615
Top = 295
@ -121,137 +130,125 @@ inherited fEditorEmpresa: TfEditorEmpresa
ExplicitTop = 267
end
inherited eCalle: TcxDBTextEdit
Top = 189
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 189
ExplicitWidth = 84
Width = 84
end
inherited cbProvincia: TcxDBComboBox
Top = 216
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 216
ExplicitWidth = 106
Width = 106
ExplicitWidth = 84
Width = 84
end
inherited cbPoblacion: TcxDBComboBox
inherited cbProvincia: TcxDBComboBox
Top = 243
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 243
ExplicitWidth = 106
Width = 106
end
inherited cbPoblacion: TcxDBComboBox
Top = 270
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 270
ExplicitWidth = 100
Width = 100
end
inherited eCodigoPostal: TcxDBTextEdit
Left = 345
Top = 216
Left = 351
Top = 243
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 345
ExplicitTop = 216
ExplicitLeft = 351
ExplicitTop = 243
end
inherited ePaginaWeb: TcxDBTextEdit
Left = 533
Left = 539
Top = 216
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 533
ExplicitLeft = 539
ExplicitTop = 216
ExplicitWidth = 165
Width = 165
end
inherited eMailParticular: TcxDBTextEdit
Left = 533
Left = 539
Top = 189
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 533
ExplicitLeft = 539
ExplicitTop = 189
ExplicitWidth = 165
Width = 165
end
inherited eMailTrabajo: TcxDBTextEdit
Left = 533
Left = 539
Top = 162
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 533
ExplicitLeft = 539
ExplicitTop = 162
ExplicitWidth = 129
Width = 129
end
inherited cxDBMemo1: TcxDBMemo
Top = 294
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 294
ExplicitWidth = 107
ExplicitHeight = 234
Height = 234
Width = 107
end
inherited eTlfParticular: TcxDBTextEdit
Left = 533
Left = 539
Top = 57
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 533
ExplicitLeft = 539
ExplicitTop = 57
ExplicitWidth = 91
Width = 91
end
inherited eTlfTrabajo: TcxDBTextEdit
Left = 533
Left = 539
Top = 30
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 533
ExplicitLeft = 539
ExplicitTop = 30
ExplicitWidth = 127
Width = 127
end
inherited eTlfMovil: TcxDBTextEdit
Left = 533
Left = 539
Top = 84
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 533
ExplicitLeft = 539
ExplicitTop = 84
ExplicitWidth = 155
Width = 155
end
inherited eFax: TcxDBTextEdit
Left = 533
Left = 539
Top = 111
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 533
ExplicitLeft = 539
ExplicitTop = 111
ExplicitWidth = 121
Width = 121
@ -287,13 +284,13 @@ inherited fEditorEmpresa: TfEditorEmpresa
Width = 76
end
inherited cxDBImage1: TcxDBImage
Left = 438
Left = 444
Top = 267
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 438
ExplicitLeft = 444
ExplicitTop = 267
ExplicitWidth = 140
ExplicitHeight = 100
@ -301,14 +298,37 @@ inherited fEditorEmpresa: TfEditorEmpresa
Width = 140
end
inherited cbFormaPago: TcxComboBox
Top = 165
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 165
ExplicitWidth = 359
Width = 359
end
inherited cbTipoIVA: TcxComboBox
Top = 138
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 138
ExplicitWidth = 359
Width = 359
ExplicitWidth = 202
Width = 202
end
inherited frViewObservaciones1: TfrViewObservaciones
Top = 321
Width = 521
Height = 150
ExplicitTop = 321
ExplicitWidth = 521
ExplicitHeight = 150
inherited memObservaciones: TcxDBMemo
DataBinding.DataSource = frViewEmpresa1.DADataSource
Height = 150
Width = 521
end
end
end
end
@ -320,7 +340,7 @@ inherited fEditorEmpresa: TfEditorEmpresa
Left = 0
Top = 0
Width = 660
Height = 425
Height = 395
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -331,12 +351,12 @@ inherited fEditorEmpresa: TfEditorEmpresa
TabOrder = 0
ReadOnly = False
ExplicitWidth = 660
ExplicitHeight = 425
ExplicitHeight = 395
inherited cxGrid: TcxGrid
Width = 660
Height = 400
Height = 370
ExplicitWidth = 660
ExplicitHeight = 400
ExplicitHeight = 370
end
inherited ToolBar1: TToolBar
Width = 660
@ -363,7 +383,7 @@ inherited fEditorEmpresa: TfEditorEmpresa
Left = 0
Top = 0
Width = 660
Height = 425
Height = 395
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -374,10 +394,10 @@ inherited fEditorEmpresa: TfEditorEmpresa
TabOrder = 0
ReadOnly = False
ExplicitWidth = 660
ExplicitHeight = 425
ExplicitHeight = 395
inherited cxGrid: TcxGrid
Width = 660
Height = 400
Height = 370
ExplicitWidth = 660
ExplicitHeight = 400
inherited cxGridView: TcxGridDBTableView
@ -405,35 +425,33 @@ inherited fEditorEmpresa: TfEditorEmpresa
end
end
end
inherited StatusBar: TJvStatusBar
Top = 535
inherited PnlComentario: TPanel
Width = 674
Panels = <
item
Width = 200
end>
ExplicitTop = 535
ExplicitWidth = 674
inherited lbComentario: TLabel
Width = 664
Height = 25
end
end
inherited EditorActionList: TActionList
Top = 128
end
inherited SmallImages: TPngImageList
Left = 403
Top = 176
end
inherited dsDataTable: TDADataSource [6]
Left = 168
Top = 120
end
inherited LargeImages: TPngImageList [7]
inherited LargeImages: TPngImageList
Left = 435
Top = 176
end
inherited JvFormStorage: TJvFormStorage [8]
inherited JvFormStorage: TJvFormStorage
Left = 408
Top = 208
end
inherited SmallImages: TPngImageList [9]
Left = 403
Top = 176
end
inherited JvAppRegistryStorage: TJvAppRegistryStorage
Left = 440
Top = 208

View File

@ -1,24 +1,25 @@
inherited frViewEmpresa: TfrViewEmpresa
Width = 590
Height = 385
Width = 861
Height = 517
OnShow = CustomViewShow
ExplicitWidth = 590
ExplicitHeight = 385
ExplicitWidth = 861
ExplicitHeight = 517
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
Width = 590
Height = 385
Width = 861
Height = 517
Align = alClient
ParentBackground = True
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
ExplicitWidth = 681
DesignSize = (
590
385)
861
517)
object PngSpeedButton1: TPngSpeedButton
Left = 545
Left = 816
Top = 305
Width = 23
Height = 22
@ -26,7 +27,7 @@ inherited frViewEmpresa: TfrViewEmpresa
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
end
object PngSpeedButton2: TPngSpeedButton
Left = 545
Left = 816
Top = 277
Width = 23
Height = 22
@ -106,7 +107,7 @@ inherited frViewEmpresa: TfrViewEmpresa
Width = 100
end
object eCodigoPostal: TcxDBTextEdit
Left = 299
Left = 364
Top = 247
DataBinding.DataField = 'CODIGO_POSTAL'
DataBinding.DataSource = DADataSource
@ -128,7 +129,7 @@ inherited frViewEmpresa: TfrViewEmpresa
Width = 65
end
object ePaginaWeb: TcxDBTextEdit
Left = 489
Left = 554
Top = 220
DataBinding.DataField = 'PAGINA_WEB'
DataBinding.DataSource = DADataSource
@ -150,7 +151,7 @@ inherited frViewEmpresa: TfrViewEmpresa
Width = 165
end
object eMailParticular: TcxDBTextEdit
Left = 489
Left = 554
Top = 193
DataBinding.DataField = 'EMAIL_2'
DataBinding.DataSource = DADataSource
@ -172,7 +173,7 @@ inherited frViewEmpresa: TfrViewEmpresa
Width = 165
end
object eMailTrabajo: TcxDBTextEdit
Left = 489
Left = 554
Top = 166
DataBinding.DataField = 'EMAIL_1'
DataBinding.DataSource = DADataSource
@ -193,31 +194,8 @@ inherited frViewEmpresa: TfrViewEmpresa
TabOrder = 14
Width = 129
end
object cxDBMemo1: TcxDBMemo
Left = 22
Top = 331
DataBinding.DataField = 'NOTAS'
DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 9
Height = 234
Width = 107
end
object eTlfParticular: TcxDBTextEdit
Left = 489
Left = 554
Top = 55
DataBinding.DataField = 'TELEFONO_2'
DataBinding.DataSource = DADataSource
@ -239,7 +217,7 @@ inherited frViewEmpresa: TfrViewEmpresa
Width = 91
end
object eTlfTrabajo: TcxDBTextEdit
Left = 489
Left = 554
Top = 28
DataBinding.DataField = 'TELEFONO_1'
DataBinding.DataSource = DADataSource
@ -261,7 +239,7 @@ inherited frViewEmpresa: TfrViewEmpresa
Width = 127
end
object eTlfMovil: TcxDBTextEdit
Left = 489
Left = 554
Top = 82
DataBinding.DataField = 'MOVIL_1'
DataBinding.DataSource = DADataSource
@ -283,7 +261,7 @@ inherited frViewEmpresa: TfrViewEmpresa
Width = 155
end
object eFax: TcxDBTextEdit
Left = 489
Left = 554
Top = 109
DataBinding.DataField = 'FAX'
DataBinding.DataSource = DADataSource
@ -302,7 +280,7 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 13
Width = 121
Width = 391
end
object eNombre: TcxDBTextEdit
Left = 162
@ -375,7 +353,7 @@ inherited frViewEmpresa: TfrViewEmpresa
Width = 76
end
object cxDBImage1: TcxDBImage
Left = 394
Left = 459
Top = 277
DataBinding.DataSource = DADataSource
Properties.Stretch = True
@ -448,6 +426,26 @@ inherited frViewEmpresa: TfrViewEmpresa
TabOrder = 3
Width = 202
end
inline frViewObservaciones1: TfrViewObservaciones
Left = 22
Top = 331
Width = 521
Height = 150
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 9
ReadOnly = False
ExplicitLeft = 22
ExplicitTop = 331
inherited memObservaciones: TcxDBMemo
DataBinding.DataField = 'NOTAS'
DataBinding.DataSource = DADataSource
end
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
Hidden = True
@ -462,7 +460,6 @@ inherited frViewEmpresa: TfrViewEmpresa
object dxLayoutControl1Group1: TdxLayoutGroup
AutoAligns = []
AlignHorz = ahClient
AlignVert = avClient
Caption = 'Datos generales'
object dxLayoutControl1Item13: TdxLayoutItem
Caption = 'Nombre:'
@ -535,9 +532,10 @@ inherited frViewEmpresa: TfrViewEmpresa
object dxLayoutControl1Item8: TdxLayoutItem
AutoAligns = [aaHorizontal]
AlignVert = avClient
Caption = 'cxDBMemo1'
Caption = 'New Item'
ShowCaption = False
Control = cxDBMemo1
Control = frViewObservaciones1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
end

View File

@ -10,7 +10,7 @@ uses
cxDBEdit, dxLayoutControl, dxLayoutLookAndFeels, cxMemo, cxMaskEdit,
cxSpinEdit, cxImage, JvExControls, JvBitmapButton, ActnList, ImgList,
PngImageList, TB2Item, TBX, TB2Dock, TB2Toolbar, PngSpeedButton, uDAInterfaces,
cxGraphics, cxDropDownEdit, uEmpresasController;
cxGraphics, cxDropDownEdit, uEmpresasController, uViewObservaciones;
type
IViewEmpresa = interface(IViewBase)
@ -48,8 +48,6 @@ type
eMailParticular: TcxDBTextEdit;
dxLayoutControl1Item7: TdxLayoutItem;
eMailTrabajo: TcxDBTextEdit;
cxDBMemo1: TcxDBMemo;
dxLayoutControl1Item8: TdxLayoutItem;
dxLayoutControl1Item9: TdxLayoutItem;
eTlfParticular: TcxDBTextEdit;
dxLayoutControl1Item10: TdxLayoutItem;
@ -84,6 +82,8 @@ type
cbFormaPago: TcxComboBox;
dxLayoutControl1Item16: TdxLayoutItem;
cbTipoIVA: TcxComboBox;
frViewObservaciones1: TfrViewObservaciones;
dxLayoutControl1Item8: TdxLayoutItem;
procedure actAnadirExecute(Sender: TObject);
procedure actEliminarExecute(Sender: TObject);
procedure actEliminarUpdate(Sender: TObject);

View File

@ -44,13 +44,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="PackageDescription">Libreria base de FactuGES</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><Excluded_Packages>
<Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@ -65,52 +58,52 @@
<DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Modulos\Albaranes de proveedor\adortl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxIntl6D11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\designide.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\dsnap.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\dxNavBarD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Jcl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\PluginSDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\rtl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\vcl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\vcldb.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\vclx.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\xmlrtl.dcp" />
<DCCReference Include="..\adortl.dcp" />
<DCCReference Include="..\cxIntl6D11.dcp" />
<DCCReference Include="..\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\cxLibraryD11.dcp" />
<DCCReference Include="..\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="..\dclIndyCore.dcp" />
<DCCReference Include="..\designide.dcp" />
<DCCReference Include="..\dsnap.dcp" />
<DCCReference Include="..\dxGDIPlusD11.dcp" />
<DCCReference Include="..\dxNavBarD11.dcp" />
<DCCReference Include="..\dxThemeD11.dcp" />
<DCCReference Include="..\GUISDK_D11R.dcp" />
<DCCReference Include="..\IndyCore.dcp" />
<DCCReference Include="..\IndyProtocols.dcp" />
<DCCReference Include="..\IndySystem.dcp" />
<DCCReference Include="..\Jcl.dcp" />
<DCCReference Include="..\JclVcl.dcp" />
<DCCReference Include="..\JSDialog100.dcp" />
<DCCReference Include="..\JvCmpD11R.dcp" />
<DCCReference Include="..\JvCoreD11R.dcp" />
<DCCReference Include="..\JvCtrlsD11R.dcp" />
<DCCReference Include="..\JvDlgsD11R.dcp" />
<DCCReference Include="..\JvMMD11R.dcp" />
<DCCReference Include="..\JvNetD11R.dcp" />
<DCCReference Include="..\JvPageCompsD11R.dcp" />
<DCCReference Include="..\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\JvSystemD11R.dcp" />
<DCCReference Include="..\pckMD5.dcp" />
<DCCReference Include="..\pckUCDataConnector.dcp" />
<DCCReference Include="..\pckUserControl_RT.dcp" />
<DCCReference Include="..\PluginSDK_D11R.dcp" />
<DCCReference Include="..\PngComponentsD10.dcp" />
<DCCReference Include="..\PNG_D10.dcp" />
<DCCReference Include="..\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="..\TB2k_D10.dcp" />
<DCCReference Include="..\tbx_d10.dcp" />
<DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\vclactnband.dcp" />
<DCCReference Include="..\vcldb.dcp" />
<DCCReference Include="..\vcljpg.dcp" />
<DCCReference Include="..\VclSmp.dcp" />
<DCCReference Include="..\vclx.dcp" />
<DCCReference Include="..\xmlrtl.dcp" />
<DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass>

View File

@ -58,38 +58,38 @@
<DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Modulos\Articulos\Base.dcp" />
<DCCReference Include="..\Modulos\Articulos\ccpackD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\cxTreeListD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Articulos\dxBarD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\dxBarExtItemsD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\dxPsPrVwAdvD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\frx11.dcp" />
<DCCReference Include="..\Modulos\Articulos\frxe11.dcp" />
<DCCReference Include="..\Modulos\Articulos\fs11.dcp" />
<DCCReference Include="..\Modulos\Articulos\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\JvGlobusD11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Articulos\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Articulos\rtl.dcp" />
<DCCReference Include="..\Modulos\Articulos\tb2k_d10.dcp" />
<DCCReference Include="..\Modulos\Articulos\tbx_d10.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\vclx.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ccpackD11.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\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\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.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\JvGlobusD11R.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\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tb2k_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.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\vclx.dcp" />
<DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form>
</DCCReference>

View File

@ -1,46 +1,88 @@
inherited frViewObservaciones: TfrViewObservaciones
Width = 300
DesignSize = (
300
226)
object Label5: TLabel
Left = 8
Top = 8
Width = 85
Height = 13
Caption = 'Observaciones'
Font.Charset = DEFAULT_CHARSET
Font.Color = clActiveCaption
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Bevel1: TBevel
Left = 96
Top = 8
Width = 192
Height = 9
Anchors = [akLeft, akTop, akRight]
Shape = bsBottomLine
end
Width = 521
Height = 150
ExplicitWidth = 521
ExplicitHeight = 150
object memObservaciones: TcxDBMemo
Left = 16
Top = 32
Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource
Left = 0
Top = 0
Align = alClient
PopupMenu = PopupMenuObservaciones
Properties.ScrollBars = ssVertical
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 0
Height = 179
Width = 269
ExplicitHeight = 228
Height = 150
Width = 521
end
object DADataSource: TDADataSource
Left = 16
object ActionListObservaciones: TActionList
Left = 48
Top = 48
object EditCut1: TEditCut
Category = 'Edicion'
Caption = 'C&ortar'
ImageIndex = 0
ShortCut = 16472
end
object EditCopy1: TEditCopy
Category = 'Edicion'
Caption = '&Copiar'
ImageIndex = 1
ShortCut = 16451
end
object EditPaste1: TEditPaste
Category = 'Edicion'
Caption = '&Pegar'
ImageIndex = 2
ShortCut = 16470
end
object EditSelectAll1: TEditSelectAll
Category = 'Edicion'
Caption = 'Seleccionar todo'
ShortCut = 16449
end
object EditUndo1: TEditUndo
Category = 'Edicion'
Caption = '&Deshacer'
ImageIndex = 3
ShortCut = 16474
end
object EditDelete1: TEditDelete
Category = 'Edicion'
Caption = '&Borrar'
ImageIndex = 5
ShortCut = 46
end
end
object PopupMenuObservaciones: TPopupMenu
Left = 80
Top = 48
object Copy1: TMenuItem
Action = EditCopy1
end
object Cut1: TMenuItem
Action = EditCut1
end
object Delete1: TMenuItem
Action = EditPaste1
end
object N1: TMenuItem
Caption = '-'
end
object Delete2: TMenuItem
Action = EditDelete1
end
object N2: TMenuItem
Caption = '-'
end
object SelectAll1: TMenuItem
Action = EditSelectAll1
end
object Undo1: TMenuItem
Action = EditUndo1
end
end
end

View File

@ -5,14 +5,27 @@ interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewBase, DB, uDADataTable, cxMemo, cxDBEdit, cxControls,
cxContainer, cxEdit, cxTextEdit, ExtCtrls, StdCtrls;
cxContainer, cxEdit, cxTextEdit, ExtCtrls, StdCtrls, Menus, StdActns, ActnList;
type
TfrViewObservaciones = class(TfrViewBase)
Label5: TLabel;
Bevel1: TBevel;
memObservaciones: TcxDBMemo;
DADataSource: TDADataSource;
ActionListObservaciones: TActionList;
EditCut1: TEditCut;
EditCopy1: TEditCopy;
EditPaste1: TEditPaste;
EditSelectAll1: TEditSelectAll;
EditUndo1: TEditUndo;
EditDelete1: TEditDelete;
PopupMenuObservaciones: TPopupMenu;
Copy1: TMenuItem;
Cut1: TMenuItem;
Delete1: TMenuItem;
N1: TMenuItem;
Delete2: TMenuItem;
N2: TMenuItem;
SelectAll1: TMenuItem;
Undo1: TMenuItem;
private
{ Private declarations }
public

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

View File

@ -192,42 +192,6 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
inherited ToolBar1: TToolBar
Width = 751
ExplicitWidth = 751
inherited UpDown1: TUpDown
Left = 237
ExplicitLeft = 237
end
inherited ToolButton13: TToolButton
Left = 254
ExplicitLeft = 254
end
inherited ToolButton6: TToolButton
Left = 262
ExplicitLeft = 262
end
inherited ToolButton7: TToolButton
Left = 296
ExplicitLeft = 296
end
inherited ToolButton8: TToolButton
Left = 330
ExplicitLeft = 330
end
inherited ToolButton12: TToolButton
Left = 364
ExplicitLeft = 364
end
inherited ToolButton9: TToolButton
Left = 372
ExplicitLeft = 372
end
inherited ToolButton10: TToolButton
Left = 406
ExplicitLeft = 406
end
inherited ToolButton11: TToolButton
Left = 440
ExplicitLeft = 440
end
end
inherited cxGrid: TcxGrid
Width = 751
@ -330,11 +294,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
inherited ImporteDto: TcxDBCurrencyEdit
Left = 164
Top = 38
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 164
ExplicitTop = 38
ExplicitWidth = 188
@ -344,11 +304,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Left = 555
Top = 88
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 555
ExplicitTop = 88
ExplicitWidth = 182
@ -357,11 +313,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
inherited ImporteTotal: TcxDBCurrencyEdit
Left = 485
Top = 142
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 485
ExplicitTop = 142
ExplicitWidth = 252
@ -370,11 +322,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
inherited edtDescuento: TcxDBSpinEdit
Left = 93
Top = 38
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 93
ExplicitTop = 38
end
@ -382,22 +330,14 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Left = 484
Top = 88
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 484
ExplicitTop = 88
end
inherited ImporteBase: TcxDBCurrencyEdit
Left = 484
Top = 11
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 484
ExplicitTop = 11
ExplicitWidth = 253
@ -407,11 +347,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Left = 484
Top = 115
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 484
ExplicitTop = 115
end
@ -419,11 +355,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Left = 555
Top = 115
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 555
ExplicitTop = 115
ExplicitWidth = 182
@ -432,11 +364,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
inherited eImporteNeto: TcxDBCurrencyEdit
Left = 93
Top = 11
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 93
ExplicitTop = 11
ExplicitWidth = 259
@ -446,11 +374,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Left = 93
Top = 65
Properties.OnValidate = frViewTotales1ePortePropertiesValidate
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 93
ExplicitTop = 65
ExplicitWidth = 259
@ -460,10 +384,6 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Left = 93
Top = 92
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 93
ExplicitTop = 92
ExplicitWidth = 121
@ -480,10 +400,6 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Top = 119
DataBinding.DataField = ''
DataBinding.DataSource = nil
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 93
ExplicitTop = 119
ExplicitWidth = 259

View File

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

View File

@ -15,12 +15,11 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
ExplicitHeight = 677
DesignSize = (
825
650)
object Label1: TLabel
Left = 428
Left = 351
Top = 597
Width = 299
Height = 26
@ -42,45 +41,19 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.Shadow = False
Style.ButtonStyle = bts3D
Style.ButtonTransparency = ebtNone
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 2
Width = 284
end
object memObservaciones: TcxDBMemo
Left = 22
Top = 301
Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource
Properties.ScrollBars = ssVertical
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 9
Height = 35
Width = 781
end
object eReferencia: TcxDBTextEdit
Left = 116
Top = 28
@ -96,23 +69,19 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.Color = clMenuBar
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 0
Width = 284
end
inline frViewClienteAlbaran: TfrViewDatosYSeleccionClienteAlbaran
Left = 428
Left = 351
Top = 28
Width = 771
Height = 196
@ -124,53 +93,35 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
ParentFont = False
TabOrder = 10
ReadOnly = False
ExplicitLeft = 428
ExplicitLeft = 351
ExplicitTop = 28
ExplicitWidth = 771
inherited dxLayoutControl1: TdxLayoutControl
Width = 771
ExplicitWidth = 771
inherited edtlNombre: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 224
Width = 224
end
inherited edtNIFCIF: TcxDBTextEdit
Left = 263
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 263
Left = 339
ExplicitLeft = 339
end
inherited Button3: TBitBtn
Left = 174
ExplicitLeft = 174
Left = 250
ExplicitLeft = 250
end
inherited edtPersonaContacto: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 283
Width = 283
end
inherited edtDireccion: TcxMemo
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited Button4: TButton
Left = 343
ExplicitLeft = 343
Left = 419
ExplicitLeft = 419
end
inherited Button5: TButton
Left = 343
ExplicitLeft = 343
Left = 419
ExplicitLeft = 419
end
end
inherited ActionList1: TActionList
@ -181,7 +132,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end
end
object eCalle: TcxDBTextEdit
Left = 522
Left = 445
Top = 371
DataBinding.DataField = 'CALLE'
DataBinding.DataSource = DADataSource
@ -190,21 +141,17 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 14
Width = 284
end
object ePoblacion: TcxDBTextEdit
Left = 522
Left = 445
Top = 398
DataBinding.DataField = 'POBLACION'
DataBinding.DataSource = DADataSource
@ -213,21 +160,17 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 15
Width = 61
end
object eCodigoPostal: TcxDBTextEdit
Left = 739
Left = 738
Top = 398
DataBinding.DataField = 'CODIGO_POSTAL'
DataBinding.DataSource = DADataSource
@ -236,21 +179,17 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 16
Width = 65
end
object eProvincia: TcxDBTextEdit
Left = 522
Left = 445
Top = 425
DataBinding.DataField = 'PROVINCIA'
DataBinding.DataSource = DADataSource
@ -259,21 +198,17 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 17
Width = 406
end
object ePersonaContacto: TcxDBTextEdit
Left = 522
Left = 445
Top = 452
DataBinding.DataField = 'PERSONA_CONTACTO'
DataBinding.DataSource = DADataSource
@ -283,21 +218,17 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 18
Width = 284
end
object eTlfTrabajo: TcxDBTextEdit
Left = 522
Left = 445
Top = 479
DataBinding.DataField = 'TELEFONO'
DataBinding.DataSource = DADataSource
@ -306,21 +237,17 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 19
Width = 284
end
object bElegirDireccion: TBitBtn
Left = 632
Left = 631
Top = 506
Width = 172
Height = 23
@ -329,7 +256,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
TabOrder = 20
end
object Button1: TButton
Left = 266
Left = 189
Top = 138
Width = 132
Height = 23
@ -349,17 +276,13 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 5
Width = 146
end
@ -383,23 +306,19 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
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 = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 3
Width = 146
end
object bFormasPago: TButton
Left = 266
Left = 189
Top = 109
Width = 132
Height = 23
@ -408,7 +327,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
OnClick = bFormasPagoClick
end
object eFechaRecepcion: TcxDBDateEdit
Left = 562
Left = 485
Top = 314
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_RECEPCION'
@ -421,23 +340,19 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
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 = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 13
Width = 239
end
object cbConAlmacen: TCheckBox
Left = 438
Left = 361
Top = 565
Width = 179
Height = 21
@ -446,7 +361,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
OnClick = cbConAlmacenClick
end
object cbAlmacen: TcxDBLookupComboBox
Left = 623
Left = 546
Top = 565
DataBinding.DataField = 'ID_ALMACEN'
DataBinding.DataSource = DADataSource
@ -464,18 +379,14 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
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 = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 22
Width = 586
end
@ -494,23 +405,19 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.Color = clMenuBar
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 7
Width = 284
end
object eFechaPrevista: TcxDBDateEdit
Left = 562
Left = 485
Top = 260
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_PREVISTA_ENVIO'
@ -523,20 +430,16 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.Shadow = False
Style.ButtonStyle = bts3D
Style.ButtonTransparency = ebtNone
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 11
Width = 239
end
@ -554,23 +457,19 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.Color = clMenuBar
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 1
Width = 284
end
object eFechaEnvio: TcxDBDateEdit
Left = 562
Left = 485
Top = 287
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_ENVIO'
@ -583,18 +482,14 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
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 = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 12
Width = 239
end
@ -618,15 +513,31 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 373
ExplicitWidth = 373
inherited cbTienda: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 312
Width = 312
end
end
end
inline frViewObservaciones1: TfrViewObservaciones
Left = 22
Top = 301
Width = 521
Height = 228
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 9
ReadOnly = False
ExplicitLeft = 22
ExplicitTop = 301
inherited memObservaciones: TcxDBMemo
DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource
end
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
Hidden = True
@ -733,7 +644,10 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
object dxLayoutControl1Item6: TdxLayoutItem
AutoAligns = [aaHorizontal]
AlignVert = avClient
Control = memObservaciones
Caption = 'New Item'
ShowCaption = False
Control = frViewObservaciones1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
end

View File

@ -37,8 +37,6 @@ type
edtFechaAlbaran: TcxDBDateEdit;
dxLayoutControl1Group1: TdxLayoutGroup;
dxLayoutControl1Group2: TdxLayoutGroup;
dxLayoutControl1Item6: TdxLayoutItem;
memObservaciones: TcxDBMemo;
dxLayoutControl1Item3: TdxLayoutItem;
eReferencia: TcxDBTextEdit;
dxLayoutControl1Group6: TdxLayoutGroup;
@ -102,6 +100,8 @@ type
dxLayoutControl1Group17: TdxLayoutGroup;
frViewTienda1: TfrViewTienda;
dxLayoutControl1Item17: TdxLayoutItem;
frViewObservaciones1: TfrViewObservaciones;
dxLayoutControl1Item6: TdxLayoutItem;
procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
procedure actVerPedidoCliExecute(Sender: TObject);

View File

@ -41,19 +41,19 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<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">True</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><Source><Source Name="MainSource">AlbaranesProveedor_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">AlbaranesProveedor_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="AlbaranesProveedor_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Lib\AlbaranesProveedor_controller.dcp" />
<DCCReference Include="..\..\Lib\AlbaranesProveedor_model.dcp" />
<DCCReference Include="..\..\Lib\Almacenes_controller.dcp" />
<DCCReference Include="..\..\Lib\Almacenes_model.dcp" />
<DCCReference Include="..\..\Lib\Articulos_view.dcp" />
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
<DCCReference Include="..\AlbaranesProveedor_controller.dcp" />
<DCCReference Include="..\AlbaranesProveedor_model.dcp" />
<DCCReference Include="..\Almacenes_controller.dcp" />
<DCCReference Include="..\Almacenes_model.dcp" />
<DCCReference Include="..\Articulos_view.dcp" />
<DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="uAlbaranesProveedorViewRegister.pas" />
<DCCReference Include="uEditorAlbaranDevProveedor.pas">
<Form>fEditorAlbaranDevProveedor</Form>
@ -117,7 +117,6 @@
</DCCReference>
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=6006

View File

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

View File

@ -157,7 +157,6 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
inherited pgPaginas: TPageControl
Width = 759
Height = 424
ActivePage = pagInicidencias
TabOrder = 1
OnChanging = pgPaginasChanging
ExplicitTop = 109
@ -198,7 +197,7 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
Width = 751
Height = 324
ExplicitWidth = 751
ExplicitHeight = 354
ExplicitHeight = 324
inherited cxGridView: TcxGridDBTableView
inherited cxGridViewIMPORTENETO: TcxGridDBColumn
Options.Editing = True
@ -295,11 +294,7 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
inherited ImporteDto: TcxDBCurrencyEdit
Left = 164
Top = 38
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 164
ExplicitTop = 38
ExplicitWidth = 93
@ -308,11 +303,7 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
inherited ImporteIVA: TcxDBCurrencyEdit
Left = 562
Top = 88
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 562
ExplicitTop = 88
ExplicitWidth = 137
@ -321,11 +312,7 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
inherited ImporteTotal: TcxDBCurrencyEdit
Left = 492
Top = 142
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 492
ExplicitTop = 142
ExplicitWidth = 137
@ -335,11 +322,7 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
Left = 93
Top = 38
Properties.OnValidate = frViewTotales1edtDescuentoPropertiesValidate
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 93
ExplicitTop = 38
end
@ -347,22 +330,14 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
Left = 491
Top = 88
Properties.OnValidate = frViewTotales1edtIVAPropertiesValidate
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 491
ExplicitTop = 88
end
inherited ImporteBase: TcxDBCurrencyEdit
Left = 491
Top = 11
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 491
ExplicitTop = 11
ExplicitWidth = 92
@ -373,11 +348,7 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
Top = 115
DataBinding.DataField = ''
DataBinding.DataSource = nil
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 491
ExplicitTop = 115
end
@ -386,11 +357,7 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
Top = 115
DataBinding.DataField = ''
DataBinding.DataSource = nil
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 562
ExplicitTop = 115
ExplicitWidth = 56
@ -399,11 +366,7 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
inherited eImporteNeto: TcxDBCurrencyEdit
Left = 93
Top = 11
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 93
ExplicitTop = 11
ExplicitWidth = 147
@ -413,11 +376,7 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
Left = 93
Top = 65
Properties.OnValidate = frViewTotales1ePortePropertiesValidate
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 93
ExplicitTop = 65
ExplicitWidth = 147
@ -428,10 +387,6 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
Top = 92
DataBinding.DataField = ''
DataBinding.DataSource = nil
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 93
ExplicitTop = 92
ExplicitWidth = 81
@ -447,10 +402,6 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
Left = 93
Top = 119
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 93
ExplicitTop = 119
ExplicitWidth = 219

View File

@ -7,17 +7,20 @@ inherited frViewAlbaranDevProveedor: TfrViewAlbaranDevProveedor
inherited edtFechaAlbaran: TcxDBDateEdit
Left = 114
ExplicitLeft = 114
end
inherited memObservaciones: TcxDBMemo
ExplicitHeight = 61
Height = 61
ExplicitWidth = 119
Width = 119
end
inherited eReferencia: TcxDBTextEdit
Left = 114
ExplicitLeft = 114
ExplicitWidth = 143
Width = 143
end
inherited frViewProveedorAlbaran: TfrViewDatosYSeleccionProveedor
Width = 350
ExplicitWidth = 350
inherited dxLayoutControl1: TdxLayoutControl
Width = 350
inherited edtlNombre: TcxDBTextEdit
ExplicitWidth = 224
Width = 224
@ -41,13 +44,37 @@ inherited frViewAlbaranDevProveedor: TfrViewAlbaranDevProveedor
end
end
inherited frViewDireccionEntregaAlbaranProv1: TfrViewDireccionEntregaAlbaranProv
Width = 445
Height = 175
ExplicitWidth = 445
ExplicitHeight = 175
inherited dxLayoutControl1: TdxLayoutControl
Width = 445
Height = 175
inherited rdxDestino1: TRadioButton
Width = 255
ExplicitWidth = 255
end
inherited rdxDestino2: TRadioButton
Width = 287
ExplicitWidth = 287
end
inherited cbLista: TcxDBLookupComboBox
ExplicitWidth = 425
Width = 425
end
inherited bModificar: TBitBtn
Left = 199
Left = 136
Top = 109
ExplicitLeft = 199
ExplicitLeft = 136
ExplicitTop = 109
end
inherited txtDireccion: TStaticText
Width = 549
Height = 110
ExplicitWidth = 549
ExplicitHeight = 110
end
inherited dxLayoutGroup1: TdxLayoutGroup
inherited dxLayoutItem1: TdxLayoutItem
Visible = False
@ -67,6 +94,8 @@ inherited frViewAlbaranDevProveedor: TfrViewAlbaranDevProveedor
inherited cbFormaPago: TcxDBLookupComboBox
Left = 114
ExplicitLeft = 114
ExplicitWidth = 90
Width = 90
end
inherited eReferenciaPedidoCli: TcxTextEdit
Left = 114
@ -86,6 +115,28 @@ inherited frViewAlbaranDevProveedor: TfrViewAlbaranDevProveedor
ExplicitWidth = 262
Width = 262
end
inherited frViewTienda1: TfrViewTienda
Width = 366
ExplicitWidth = 366
inherited dxLayoutControl1: TdxLayoutControl
Width = 366
inherited cbTienda: TcxComboBox
ExplicitWidth = 376
Width = 376
end
end
end
inherited frViewObservaciones1: TfrViewObservaciones
Width = 521
Height = 228
ExplicitWidth = 521
ExplicitHeight = 228
inherited memObservaciones: TcxDBMemo
DataBinding.DataSource = DADataSource
Height = 228
Width = 521
end
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group6: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup

View File

@ -9,7 +9,7 @@ uses
cxDBLookupEdit, cxDBLookupComboBox, uViewDireccionEntregaAlbaranProv,
uCustomView, uViewBase, uViewDatosYSeleccionProveedor, cxDBEdit, cxMemo,
cxContainer, cxEdit, cxMaskEdit, cxCalendar, cxControls, uDAInterfaces,
uViewTienda;
uViewTienda, uViewObservaciones;
type
IViewAlbaranDevProveedor = interface(IViewAlbaranProveedor)

View File

@ -13,6 +13,7 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
Align = alClient
ParentBackground = True
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
DesignSize = (
723
@ -39,24 +40,6 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
TabOrder = 2
Width = 119
end
object memObservaciones: TcxDBMemo
Left = 416
Top = 276
Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource
Properties.ScrollBars = ssVertical
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 12
Height = 253
Width = 186
end
object eReferencia: TcxDBTextEdit
Left = 119
Top = 28
@ -80,7 +63,7 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
Width = 143
end
inline frViewProveedorAlbaran: TfrViewDatosYSeleccionProveedor
Left = 416
Left = 350
Top = 28
Width = 350
Height = 212
@ -92,7 +75,7 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
ParentFont = False
TabOrder = 11
ReadOnly = False
ExplicitLeft = 416
ExplicitLeft = 350
ExplicitTop = 28
ExplicitHeight = 212
inherited dxLayoutControl1: TdxLayoutControl
@ -117,12 +100,12 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
Width = 327
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 203
ExplicitLeft = 203
Left = 259
ExplicitLeft = 259
end
inherited Button3: TBitBtn
Left = 87
ExplicitLeft = 87
Left = 143
ExplicitLeft = 143
end
end
inherited DADataSource: TDADataSource
@ -176,9 +159,9 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
Width = 425
end
inherited bModificar: TBitBtn
Left = 226
Left = 160
Top = 211
ExplicitLeft = 226
ExplicitLeft = 160
ExplicitTop = 211
end
inherited txtDireccion: TStaticText
@ -223,7 +206,7 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
Width = 90
end
object bFormasPago: TButton
Left = 254
Left = 188
Top = 192
Width = 132
Height = 21
@ -255,7 +238,7 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
Width = 122
end
object Button1: TButton
Left = 254
Left = 188
Top = 109
Width = 132
Height = 23
@ -360,6 +343,26 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
end
end
end
inline frViewObservaciones1: TfrViewObservaciones
Left = 350
Top = 276
Width = 521
Height = 228
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 12
ReadOnly = False
ExplicitLeft = 350
ExplicitTop = 276
inherited memObservaciones: TcxDBMemo
DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource
end
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
Hidden = True
@ -481,9 +484,13 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
AlignVert = avClient
Caption = 'Observaciones'
object dxLayoutControl1Item6: TdxLayoutItem
AutoAligns = [aaHorizontal]
AutoAligns = []
AlignHorz = ahClient
AlignVert = avClient
Control = memObservaciones
Caption = 'New Item'
ShowCaption = False
Control = frViewObservaciones1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
end

View File

@ -39,8 +39,6 @@ type
edtFechaAlbaran: TcxDBDateEdit;
dxLayoutControl1Group1: TdxLayoutGroup;
dxLayoutControl1Group2: TdxLayoutGroup;
dxLayoutControl1Item6: TdxLayoutItem;
memObservaciones: TcxDBMemo;
dxLayoutControl1Item3: TdxLayoutItem;
eReferencia: TcxDBTextEdit;
dxLayoutControl1Group6: TdxLayoutGroup;
@ -74,6 +72,8 @@ type
dxLayoutControl1Item13: TdxLayoutItem;
frViewTienda1: TfrViewTienda;
dxLayoutControl1Group9: TdxLayoutGroup;
frViewObservaciones1: TfrViewObservaciones;
dxLayoutControl1Item6: TdxLayoutItem;
procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
procedure actElegirDireccionExecute(Sender: TObject);

View File

@ -13,7 +13,6 @@
<Projects Include="..\Contabilidad\Data\Contabilidad_data.dproj" />
<Projects Include="..\Contabilidad\Model\Contabilidad_model.dproj" />
<Projects Include="..\Contabilidad\Views\Contabilidad_view.dproj" />
<Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" />
<Projects Include="Controller\Contactos_controller.dproj" />
<Projects Include="Data\Contactos_data.dproj" />
<Projects Include="Model\Contactos_model.dproj" />
@ -152,23 +151,14 @@
<Target Name="FactuGES_Server:Make">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
</Target>
<Target Name="FacturasCliente_view">
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="" />
</Target>
<Target Name="FacturasCliente_view:Clean">
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasCliente_view:Make">
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Make" />
</Target>
<Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contabilidad_model;Contabilidad_data;Contabilidad_controller;Contactos_controller;Contactos_view;Contactos_plugin;Contabilidad_view;FactuGES;FactuGES_Server;FacturasCliente_view" />
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contabilidad_model;Contabilidad_data;Contabilidad_controller;Contactos_controller;Contactos_view;Contactos_plugin;Contabilidad_view;FactuGES;FactuGES_Server" />
</Target>
<Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contabilidad_model:Clean;Contabilidad_data:Clean;Contabilidad_controller:Clean;Contactos_controller:Clean;Contactos_view:Clean;Contactos_plugin:Clean;Contabilidad_view:Clean;FactuGES:Clean;FactuGES_Server:Clean;FacturasCliente_view:Clean" />
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contabilidad_model:Clean;Contabilidad_data:Clean;Contabilidad_controller:Clean;Contactos_controller:Clean;Contactos_view:Clean;Contactos_plugin:Clean;Contabilidad_view:Clean;FactuGES:Clean;FactuGES_Server:Clean" />
</Target>
<Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contabilidad_model:Make;Contabilidad_data:Make;Contabilidad_controller:Make;Contactos_controller:Make;Contactos_view:Make;Contactos_plugin:Make;Contabilidad_view:Make;FactuGES:Make;FactuGES_Server:Make;FacturasCliente_view:Make" />
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contabilidad_model:Make;Contabilidad_data:Make;Contabilidad_controller:Make;Contactos_controller:Make;Contactos_view:Make;Contactos_plugin:Make;Contabilidad_view:Make;FactuGES:Make;FactuGES_Server:Make" />
</Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

View File

@ -62,20 +62,27 @@ inherited fEditorCliente: TfEditorCliente
ExplicitWidth = 896
end
end
inherited StatusBar: TJvStatusBar
Top = 626
Width = 896
ExplicitTop = 626
ExplicitWidth = 896
end
inherited pgPaginas: TPageControl
Width = 890
Height = 544
ActivePage = pagContabilidad
Height = 514
ActivePage = pagGeneral
ExplicitTop = 109
ExplicitWidth = 890
ExplicitHeight = 544
ExplicitHeight = 514
inherited pagGeneral: TTabSheet
ExplicitWidth = 882
ExplicitHeight = 516
ExplicitHeight = 486
inline frViewCliente1: TfrViewCliente
Left = 0
Top = 0
Width = 882
Height = 516
Height = 486
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -86,287 +93,198 @@ inherited fEditorCliente: TfEditorCliente
TabOrder = 0
ReadOnly = False
ExplicitWidth = 882
ExplicitHeight = 516
ExplicitHeight = 486
inherited dxLayoutControlContacto: TdxLayoutControl
Width = 882
Height = 516
Height = 486
LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 882
ExplicitHeight = 516
ExplicitHeight = 486
inherited PngSpeedButton1: TPngSpeedButton
Left = 837
Left = 820
Top = 218
ExplicitLeft = 837
ExplicitLeft = 820
ExplicitTop = 218
end
inherited PngSpeedButton2: TPngSpeedButton
Left = 837
Left = 820
Top = 190
ExplicitLeft = 837
ExplicitLeft = 820
ExplicitTop = 190
end
inherited PngSpeedButton3: TPngSpeedButton
Left = 837
Left = 820
Top = 162
ExplicitLeft = 837
ExplicitLeft = 820
ExplicitTop = 162
end
inherited eCalle: TcxDBTextEdit
Top = 216
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 216
ExplicitWidth = 428
Width = 428
end
inherited cbProvincia: TcxDBComboBox
Top = 243
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 243
ExplicitWidth = 336
Width = 336
end
inherited cbPoblacion: TcxDBComboBox
Top = 270
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 270
ExplicitWidth = 428
Width = 428
end
inherited eCodigoPostal: TcxDBTextEdit
Left = 504
Left = 493
Top = 243
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 504
ExplicitLeft = 493
ExplicitTop = 243
end
inherited eObservaciones: TcxDBMemo
Top = 426
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 426
ExplicitWidth = 838
ExplicitHeight = 74
Height = 74
Width = 838
inherited eTlfParticular: TcxDBTextEdit
Left = 672
Top = 57
ExplicitLeft = 672
ExplicitTop = 57
ExplicitWidth = 177
Width = 177
end
inherited eNombreComercial: TcxDBTextEdit
Top = 84
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 84
ExplicitWidth = 428
Width = 428
end
inherited cbClienteBloqueado: TcxDBCheckBox
Top = 348
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 348
ExplicitWidth = 538
Width = 538
end
inherited cbGrupoCliente: TcxDBComboBox
Top = 138
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 138
ExplicitWidth = 428
Width = 428
end
inherited eBloqueo: TcxDBTextEdit
Top = 375
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 375
ExplicitWidth = 428
Width = 428
end
inherited eCodigoAsignado: TcxDBTextEdit
Top = 111
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 111
ExplicitWidth = 428
Width = 428
end
inherited cbProcedenciaCliente: TcxDBComboBox
Top = 165
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 165
ExplicitWidth = 428
Width = 428
end
inherited eTlfParticular: TcxDBTextEdit
Left = 683
Top = 57
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 683
ExplicitTop = 57
ExplicitWidth = 177
Width = 177
end
inherited eTlfTrabajo: TcxDBTextEdit
Left = 683
Left = 672
Top = 30
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 683
ExplicitLeft = 672
ExplicitTop = 30
ExplicitWidth = 177
Width = 177
end
inherited eTlfMovil: TcxDBTextEdit
Left = 683
Left = 672
Top = 84
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 683
ExplicitLeft = 672
ExplicitTop = 84
ExplicitWidth = 177
Width = 177
end
inherited eFax: TcxDBTextEdit
Left = 683
Left = 672
Top = 111
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 683
ExplicitLeft = 672
ExplicitTop = 111
ExplicitWidth = 177
Width = 177
end
inherited eNombre: TcxDBTextEdit
Top = 57
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 57
ExplicitWidth = 428
Width = 428
end
inherited eNIFCIF: TcxDBTextEdit
Left = 289
Left = 285
Top = 30
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 289
ExplicitLeft = 285
ExplicitTop = 30
ExplicitWidth = 271
Width = 271
end
inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 683
Left = 672
Top = 162
Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 683
ExplicitLeft = 672
ExplicitTop = 162
ExplicitWidth = 148
Width = 148
end
inherited eMailParticular: TcxDBHyperLinkEdit
Left = 683
Left = 672
Top = 190
Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 683
ExplicitLeft = 672
ExplicitTop = 190
ExplicitWidth = 148
Width = 148
end
inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 683
Left = 672
Top = 217
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 683
ExplicitLeft = 672
ExplicitTop = 217
ExplicitWidth = 148
Width = 148
end
inherited eReferencia: TcxDBTextEdit
Top = 30
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 30
ExplicitWidth = 104
Width = 104
end
inherited ePersonaContacto: TcxDBTextEdit
Top = 297
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 297
ExplicitWidth = 428
Width = 428
end
inherited frViewTienda1: TfrViewTienda
Left = 588
Left = 577
Top = 270
ExplicitLeft = 588
ExplicitLeft = 577
ExplicitTop = 270
inherited dxLayoutControl1: TdxLayoutControl
inherited cbTienda: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 229
Width = 229
end
end
end
inherited frViewObservaciones1: TfrViewObservaciones
Top = 426
Width = 521
ExplicitTop = 426
ExplicitWidth = 521
inherited memObservaciones: TcxDBMemo
DataBinding.DataSource = frViewCliente1.dsContacto
ExplicitWidth = 821
Width = 521
end
end
end
inherited dsContacto: TDADataSource
Left = 24
@ -376,53 +294,31 @@ inherited fEditorCliente: TfEditorCliente
end
inherited pagDatosBancarios: TTabSheet
ExplicitWidth = 882
ExplicitHeight = 516
ExplicitHeight = 486
inherited frViewClienteDatosBancarios: TfrViewClienteDatosBancarios
Width = 882
Height = 516
Height = 486
ExplicitWidth = 882
ExplicitHeight = 516
ExplicitHeight = 486
inherited dxLayoutControl1: TdxLayoutControl
Width = 882
LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 882
inherited eEntidad: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 345
Width = 345
end
inherited eSucursal: TcxDBTextEdit
Left = 542
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 542
ExplicitWidth = 318
Width = 318
end
inherited eCuenta: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 622
Width = 622
end
inherited eDC: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited eTitular: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 743
Width = 743
end
@ -431,15 +327,15 @@ inherited fEditorCliente: TfEditorCliente
end
inherited pagPersonal: TTabSheet
ExplicitWidth = 882
ExplicitHeight = 516
ExplicitHeight = 486
inherited frViewPersonalContacto1: TfrViewPersonalContacto
Width = 882
Height = 516
Height = 486
ExplicitWidth = 882
ExplicitHeight = 516
ExplicitHeight = 486
inherited cxGrid: TcxGrid
Width = 882
Height = 491
Height = 461
ExplicitWidth = 882
ExplicitHeight = 491
end
@ -497,39 +393,23 @@ inherited fEditorCliente: TfEditorCliente
inherited eDiasVencimiento: TcxDBSpinEdit
Left = 647
Top = 62
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 647
ExplicitTop = 62
end
inherited cbRegimenIVA: TcxDBComboBox
Top = 30
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 30
ExplicitWidth = 427
Width = 427
end
inherited cbRecargoEquivalencia: TcxDBCheckBox
Top = 111
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 111
ExplicitWidth = 427
Width = 427
end
inherited cbFormaPago: TcxDBLookupComboBox
Top = 57
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 57
ExplicitWidth = 289
Width = 289
@ -542,10 +422,6 @@ inherited fEditorCliente: TfEditorCliente
end
inherited eIVA: TcxDBLookupComboBox
Top = 84
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 84
ExplicitWidth = 289
Width = 289
@ -559,20 +435,12 @@ inherited fEditorCliente: TfEditorCliente
inherited cxDBSpinEdit1: TcxDBSpinEdit
Left = 647
Top = 89
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 647
ExplicitTop = 89
end
inherited cxDBSpinEdit2: TcxDBSpinEdit
Left = 647
Top = 116
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 647
ExplicitTop = 116
end
@ -593,7 +461,7 @@ inherited fEditorCliente: TfEditorCliente
Left = 0
Top = 0
Width = 882
Height = 516
Height = 486
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -604,10 +472,10 @@ inherited fEditorCliente: TfEditorCliente
TabOrder = 0
ReadOnly = False
ExplicitWidth = 882
ExplicitHeight = 516
ExplicitHeight = 486
inherited cxGrid: TcxGrid
Width = 882
Height = 491
Height = 461
ExplicitWidth = 882
ExplicitHeight = 491
inherited cxGridView: TcxGridDBTableView
@ -620,6 +488,18 @@ inherited fEditorCliente: TfEditorCliente
inherited ToolBar1: TToolBar
Width = 882
ExplicitWidth = 882
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
@ -631,7 +511,7 @@ inherited fEditorCliente: TfEditorCliente
Left = 0
Top = 0
Width = 882
Height = 516
Height = 486
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -642,10 +522,10 @@ inherited fEditorCliente: TfEditorCliente
TabOrder = 0
ReadOnly = False
ExplicitWidth = 882
ExplicitHeight = 516
ExplicitHeight = 486
inherited cxGrid: TcxGrid
Width = 882
Height = 491
Height = 461
ExplicitWidth = 882
ExplicitHeight = 491
end
@ -674,7 +554,7 @@ inherited fEditorCliente: TfEditorCliente
Left = 0
Top = 0
Width = 882
Height = 516
Height = 486
Align = alClient
AutoSize = True
Font.Charset = DEFAULT_CHARSET
@ -686,20 +566,16 @@ inherited fEditorCliente: TfEditorCliente
TabOrder = 0
ReadOnly = False
ExplicitWidth = 882
ExplicitHeight = 516
ExplicitHeight = 486
inherited layoutApunte: TdxLayoutControl
Width = 882
Height = 516
Height = 486
ExplicitWidth = 882
ExplicitHeight = 516
ExplicitHeight = 486
DesignSize = (
882
516)
486)
inherited eRefSubCuenta: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 441
Width = 441
end
@ -708,10 +584,6 @@ inherited fEditorCliente: TfEditorCliente
ExplicitLeft = 540
end
inherited eSubCuenta: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 779
Width = 779
end
@ -725,10 +597,6 @@ inherited fEditorCliente: TfEditorCliente
end
inherited cbIgnorarContabilidad: TcxDBCheckBox
DataBinding.DataSource = frViewCliente1.dsContacto
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 862
Width = 862
end
@ -743,18 +611,12 @@ inherited fEditorCliente: TfEditorCliente
end
end
end
inherited StatusBar: TJvStatusBar
Top = 626
inherited PnlComentario: TPanel
Width = 896
ExplicitTop = 626
ExplicitWidth = 896
end
inherited EditorActionList: TActionList
object actGruposCliente: TAction
Category = 'Acciones'
Caption = 'Grupos de cliente'
ImageIndex = 21
OnExecute = actGruposClienteExecute
inherited lbComentario: TLabel
Width = 886
Height = 25
end
end
inherited dsDataTable: TDADataSource
@ -1271,4 +1133,12 @@ inherited fEditorCliente: TfEditorCliente
end>
Bitmap = {}
end
inherited EditorActionList: TActionList
object actGruposCliente: TAction
Category = 'Acciones'
Caption = 'Grupos de cliente'
ImageIndex = 21
OnExecute = actGruposClienteExecute
end
end
end

View File

@ -73,10 +73,17 @@ inherited fEditorContacto: TfEditorContacto
end
end
end
inherited StatusBar: TJvStatusBar
Width = 632
Panels = <
item
Width = 200
end>
ExplicitWidth = 632
end
inherited pgPaginas: TPageControl
Width = 626
ActivePage = pagPersonal
ExplicitLeft = 3
ExplicitTop = 79
ExplicitWidth = 626
ExplicitHeight = 358
@ -93,7 +100,7 @@ inherited fEditorContacto: TfEditorContacto
Left = 0
Top = 0
Width = 618
Height = 330
Height = 300
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -104,7 +111,7 @@ inherited fEditorContacto: TfEditorContacto
TabOrder = 0
ReadOnly = False
ExplicitWidth = 618
ExplicitHeight = 330
ExplicitHeight = 300
inherited dxLayoutControl1: TdxLayoutControl
Width = 618
LookAndFeel = dxLayoutOfficeLookAndFeel
@ -116,8 +123,6 @@ inherited fEditorContacto: TfEditorContacto
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 57
ExplicitWidth = 114
Width = 114
end
inherited eSucursal: TcxDBTextEdit
Left = 403
@ -128,8 +133,6 @@ inherited fEditorContacto: TfEditorContacto
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 403
ExplicitTop = 57
ExplicitWidth = 112
Width = 112
end
inherited eCuenta: TcxDBTextEdit
Top = 84
@ -138,8 +141,6 @@ inherited fEditorContacto: TfEditorContacto
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 84
ExplicitWidth = 194
Width = 194
end
inherited eDC: TcxDBTextEdit
Top = 84
@ -156,8 +157,6 @@ inherited fEditorContacto: TfEditorContacto
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 30
ExplicitWidth = 194
Width = 194
end
end
end
@ -169,7 +168,7 @@ inherited fEditorContacto: TfEditorContacto
Left = 0
Top = 0
Width = 618
Height = 330
Height = 300
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -180,10 +179,10 @@ inherited fEditorContacto: TfEditorContacto
TabOrder = 0
ReadOnly = False
ExplicitWidth = 618
ExplicitHeight = 330
ExplicitHeight = 300
inherited cxGrid: TcxGrid
Width = 618
Height = 305
Height = 275
ExplicitWidth = 618
ExplicitHeight = 305
end
@ -206,16 +205,8 @@ inherited fEditorContacto: TfEditorContacto
end
end
end
inherited StatusBar: TJvStatusBar
inherited PnlComentario: TPanel
Width = 632
Panels = <
item
Width = 200
end>
ExplicitWidth = 632
end
inherited EditorActionList: TActionList
Top = 128
end
inherited dsDataTable: TDADataSource [5]
Left = 168
@ -226,7 +217,7 @@ inherited fEditorContacto: TfEditorContacto
end
inherited StatusBarImages: TPngImageList [7]
end
inherited JvFormStorage: TJvFormStorage [8]
inherited JvFormStorage: TJvFormStorage
Top = 144
end
inherited LargeImages: TPngImageList [9]
@ -235,6 +226,9 @@ inherited fEditorContacto: TfEditorContacto
inherited SmallImages: TPngImageList [10]
Top = 112
end
inherited EditorActionList: TActionList [11]
Top = 128
end
object dxLayoutLookAndFeel: TdxLayoutLookAndFeelList
Left = 320
Top = 248

View File

@ -52,20 +52,27 @@ inherited fEditorProveedor: TfEditorProveedor
ExplicitWidth = 648
end
end
inherited StatusBar: TJvStatusBar
Top = 571
Width = 648
ExplicitTop = 571
ExplicitWidth = 648
end
inherited pgPaginas: TPageControl
Width = 642
Height = 489
ActivePage = pagDatosComerciales
Height = 459
ActivePage = pagGeneral
ExplicitTop = 109
ExplicitWidth = 642
ExplicitHeight = 489
ExplicitHeight = 459
inherited pagGeneral: TTabSheet
ExplicitWidth = 634
ExplicitHeight = 461
ExplicitHeight = 431
inline frViewProveedor1: TfrViewProveedor
Left = 0
Top = 0
Width = 634
Height = 461
Height = 431
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -76,13 +83,13 @@ inherited fEditorProveedor: TfEditorProveedor
TabOrder = 0
ReadOnly = False
ExplicitWidth = 634
ExplicitHeight = 461
ExplicitHeight = 431
inherited dxLayoutControlContacto: TdxLayoutControl
Width = 634
Height = 461
Height = 431
LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 634
ExplicitHeight = 461
ExplicitHeight = 431
inherited PngSpeedButton1: TPngSpeedButton
Left = 572
Top = 218
@ -103,30 +110,18 @@ inherited fEditorProveedor: TfEditorProveedor
end
inherited eCalle: TcxDBTextEdit
Top = 216
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 216
ExplicitWidth = 174
Width = 174
end
inherited cbProvincia: TcxDBComboBox
Top = 243
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 243
ExplicitWidth = 175
Width = 175
end
inherited cbPoblacion: TcxDBComboBox
Top = 270
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 270
ExplicitWidth = 267
Width = 267
@ -134,94 +129,50 @@ inherited fEditorProveedor: TfEditorProveedor
inherited eCodigoPostal: TcxDBTextEdit
Left = 310
Top = 243
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 310
ExplicitTop = 243
end
inherited eObservaciones: TcxDBMemo
Top = 426
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 426
ExplicitWidth = 580
ExplicitHeight = 56
Height = 56
Width = 580
inherited eTlfParticular: TcxDBTextEdit
Left = 489
Top = 57
ExplicitLeft = 489
ExplicitTop = 57
ExplicitWidth = 172
Width = 172
end
inherited cxDBCheckBox2: TcxDBCheckBox
Top = 348
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 348
ExplicitWidth = 326
Width = 326
end
inherited eCertificaciones: TcxDBTextEdit
Top = 375
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 375
ExplicitWidth = 227
Width = 227
end
inherited cbGrupoProveedor: TcxDBComboBox
Top = 165
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 165
ExplicitWidth = 227
Width = 227
end
inherited eDescripcionProveedor: TcxDBTextEdit
Top = 111
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 111
ExplicitWidth = 221
Width = 221
end
inherited eCodigoAsignado: TcxDBTextEdit
Top = 138
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 138
ExplicitWidth = 221
Width = 221
end
inherited eTlfParticular: TcxDBTextEdit
Left = 489
Top = 57
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 489
ExplicitTop = 57
ExplicitWidth = 172
Width = 172
end
inherited eTlfTrabajo: TcxDBTextEdit
Left = 489
Top = 30
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 489
ExplicitTop = 30
ExplicitWidth = 172
@ -230,32 +181,14 @@ inherited fEditorProveedor: TfEditorProveedor
inherited eTlfMovil: TcxDBTextEdit
Left = 489
Top = 84
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 489
ExplicitTop = 84
ExplicitWidth = 172
Width = 172
end
inherited eNombreComercial: TcxDBTextEdit
Top = 84
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 84
ExplicitWidth = 192
Width = 192
end
inherited eFax: TcxDBTextEdit
Left = 489
Top = 111
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 489
ExplicitTop = 111
ExplicitWidth = 172
@ -263,10 +196,6 @@ inherited fEditorProveedor: TfEditorProveedor
end
inherited eNombre: TcxDBTextEdit
Top = 57
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 57
ExplicitWidth = 263
Width = 263
@ -274,10 +203,6 @@ inherited fEditorProveedor: TfEditorProveedor
inherited eNIFCIF: TcxDBTextEdit
Left = 216
Top = 30
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 216
ExplicitTop = 30
ExplicitWidth = 254
@ -287,23 +212,21 @@ inherited fEditorProveedor: TfEditorProveedor
Left = 489
Top = 162
Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 489
ExplicitTop = 162
ExplicitWidth = 129
Width = 129
end
inherited eNombreComercial: TcxDBTextEdit
Top = 84
ExplicitTop = 84
ExplicitWidth = 192
Width = 192
end
inherited eMailParticular: TcxDBHyperLinkEdit
Left = 489
Top = 190
Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 489
ExplicitTop = 190
ExplicitWidth = 165
@ -312,10 +235,6 @@ inherited fEditorProveedor: TfEditorProveedor
inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 489
Top = 217
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 489
ExplicitTop = 217
ExplicitWidth = 165
@ -323,20 +242,12 @@ inherited fEditorProveedor: TfEditorProveedor
end
inherited eReferencia: TcxDBTextEdit
Top = 30
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 30
ExplicitWidth = 100
Width = 100
end
inherited ePersonaContacto: TcxDBTextEdit
Top = 297
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 297
ExplicitWidth = 253
Width = 253
@ -352,67 +263,56 @@ inherited fEditorProveedor: TfEditorProveedor
Width = 290
ExplicitWidth = 290
inherited cbTienda: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 250
Width = 250
end
end
end
inherited frViewObservaciones1: TfrViewObservaciones
Top = 426
Width = 521
Height = 228
ExplicitTop = 426
ExplicitWidth = 521
ExplicitHeight = 228
inherited memObservaciones: TcxDBMemo
DataBinding.DataSource = frViewProveedor1.dsContacto
ExplicitWidth = 573
ExplicitHeight = 20
Height = 228
Width = 521
end
end
end
end
end
inherited pagDatosBancarios: TTabSheet
ExplicitWidth = 634
ExplicitHeight = 461
ExplicitHeight = 431
inherited frViewClienteDatosBancarios: TfrViewClienteDatosBancarios
Width = 634
Height = 461
Height = 431
ExplicitWidth = 634
ExplicitHeight = 461
ExplicitHeight = 431
inherited dxLayoutControl1: TdxLayoutControl
Width = 634
LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 634
inherited eEntidad: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 114
Width = 114
end
inherited eSucursal: TcxDBTextEdit
Left = 323
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 323
ExplicitWidth = 270
Width = 270
end
inherited eCuenta: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 242
Width = 242
end
inherited eDC: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited eTitular: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 363
Width = 363
end
@ -421,15 +321,15 @@ inherited fEditorProveedor: TfEditorProveedor
end
inherited pagPersonal: TTabSheet
ExplicitWidth = 634
ExplicitHeight = 461
ExplicitHeight = 431
inherited frViewPersonalContacto1: TfrViewPersonalContacto
Width = 634
Height = 461
Height = 431
ExplicitWidth = 634
ExplicitHeight = 461
ExplicitHeight = 431
inherited cxGrid: TcxGrid
Width = 634
Height = 436
Height = 406
ExplicitWidth = 634
ExplicitHeight = 436
end
@ -481,100 +381,66 @@ inherited fEditorProveedor: TfEditorProveedor
ExplicitWidth = 190
end
inherited Label2: TLabel
Left = 394
Left = 439
Top = 30
Width = 149
ExplicitLeft = 394
ExplicitLeft = 439
ExplicitTop = 30
ExplicitWidth = 149
end
inherited cbRegimenIVA: TcxDBComboBox
Top = 30
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 30
ExplicitWidth = 121
Width = 121
end
inherited cbFormaPago: TcxDBLookupComboBox
Top = 57
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 57
ExplicitWidth = 121
Width = 121
end
inherited bFormasPago: TButton
Left = 234
Left = 279
Top = 57
ExplicitLeft = 234
ExplicitLeft = 279
ExplicitTop = 57
end
inherited eIVA: TcxDBLookupComboBox
Top = 84
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 84
ExplicitWidth = 121
Width = 121
end
inherited bTiposIVA: TButton
Left = 234
Left = 279
Top = 84
ExplicitLeft = 234
ExplicitLeft = 279
ExplicitTop = 84
end
inherited eDescuento: TcxDBSpinEdit
Top = 167
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 167
ExplicitWidth = 73
Width = 73
end
inherited eDiasVencimiento1: TcxDBSpinEdit
Left = 466
Left = 511
Top = 75
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 466
ExplicitLeft = 511
ExplicitTop = 75
ExplicitWidth = 79
Width = 79
end
inherited eDiasVencimiento2: TcxDBSpinEdit
Left = 466
Left = 511
Top = 102
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 466
ExplicitLeft = 511
ExplicitTop = 102
ExplicitWidth = 79
Width = 79
end
inherited eDiasVencimiento3: TcxDBSpinEdit
Left = 466
Left = 511
Top = 129
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 466
ExplicitLeft = 511
ExplicitTop = 129
ExplicitWidth = 79
Width = 79
end
end
end
@ -586,7 +452,7 @@ inherited fEditorProveedor: TfEditorProveedor
Left = 0
Top = 0
Width = 634
Height = 461
Height = 431
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -597,16 +463,28 @@ inherited fEditorProveedor: TfEditorProveedor
TabOrder = 0
ReadOnly = False
ExplicitWidth = 634
ExplicitHeight = 461
ExplicitHeight = 431
inherited cxGrid: TcxGrid
Width = 634
Height = 436
Height = 406
ExplicitWidth = 634
ExplicitHeight = 436
end
inherited ToolBar1: TToolBar
Width = 634
ExplicitWidth = 634
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
@ -617,7 +495,7 @@ inherited fEditorProveedor: TfEditorProveedor
Left = 0
Top = 0
Width = 634
Height = 461
Height = 431
Align = alClient
AutoSize = True
Font.Charset = DEFAULT_CHARSET
@ -629,17 +507,13 @@ inherited fEditorProveedor: TfEditorProveedor
TabOrder = 0
ReadOnly = False
ExplicitWidth = 634
ExplicitHeight = 461
ExplicitHeight = 431
inherited layoutApunte: TdxLayoutControl
Width = 634
Height = 461
Height = 431
ExplicitWidth = 634
ExplicitHeight = 461
ExplicitHeight = 431
inherited eRefSubCuenta: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 346
Width = 346
end
@ -648,10 +522,6 @@ inherited fEditorProveedor: TfEditorProveedor
ExplicitLeft = 292
end
inherited eSubCuenta: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 265
Width = 265
end
@ -665,10 +535,6 @@ inherited fEditorProveedor: TfEditorProveedor
end
inherited cbIgnorarContabilidad: TcxDBCheckBox
DataBinding.DataSource = frViewProveedor1.dsContacto
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 300
Width = 300
end
@ -680,20 +546,12 @@ inherited fEditorProveedor: TfEditorProveedor
end
end
end
inherited StatusBar: TJvStatusBar
Top = 571
inherited PnlComentario: TPanel
Width = 648
ExplicitTop = 571
ExplicitWidth = 648
end
inherited EditorActionList: TActionList
Left = 32
Top = 160
object actGruposProveedor: TAction
Category = 'Acciones'
Caption = 'Grupos de proveedor'
ImageIndex = 21
OnExecute = actGruposProveedorExecute
inherited lbComentario: TLabel
Width = 638
Height = 25
end
end
inherited SmallImages: TPngImageList
@ -1202,6 +1060,16 @@ inherited fEditorProveedor: TfEditorProveedor
end>
Bitmap = {}
end
inherited EditorActionList: TActionList
Left = 32
Top = 160
object actGruposProveedor: TAction
Category = 'Acciones'
Caption = 'Grupos de proveedor'
ImageIndex = 21
OnExecute = actGruposProveedorExecute
end
end
inherited dxLayoutLookAndFeel: TdxLayoutLookAndFeelList
Left = 280
Top = 224

View File

@ -57,20 +57,27 @@ inherited fEditorVendedor: TfEditorVendedor
ExplicitWidth = 676
end
end
inherited StatusBar: TJvStatusBar
Top = 557
Width = 676
ExplicitTop = 557
ExplicitWidth = 676
end
inherited pgPaginas: TPageControl
Width = 670
Height = 475
ActivePage = pagDatosBancarios
Height = 445
ActivePage = pagGeneral
ExplicitTop = 109
ExplicitWidth = 670
ExplicitHeight = 475
ExplicitHeight = 445
inherited pagGeneral: TTabSheet
ExplicitWidth = 662
ExplicitHeight = 447
ExplicitHeight = 417
inline frViewVendedor1: TfrViewVendedor
Left = 0
Top = 0
Width = 662
Height = 447
Height = 417
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -81,13 +88,13 @@ inherited fEditorVendedor: TfEditorVendedor
TabOrder = 0
ReadOnly = False
ExplicitWidth = 662
ExplicitHeight = 447
ExplicitHeight = 417
inherited dxLayoutControlContacto: TdxLayoutControl
Width = 662
Height = 447
Height = 417
LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 662
ExplicitHeight = 447
ExplicitHeight = 417
inherited PngSpeedButton1: TPngSpeedButton
Left = 617
Top = 218
@ -108,30 +115,18 @@ inherited fEditorVendedor: TfEditorVendedor
end
inherited eCalle: TcxDBTextEdit
Top = 162
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 162
ExplicitWidth = 174
Width = 174
end
inherited cbProvincia: TcxDBComboBox
Top = 189
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 189
ExplicitWidth = 144
Width = 144
end
inherited cbPoblacion: TcxDBComboBox
Top = 216
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 216
ExplicitWidth = 236
Width = 236
@ -139,32 +134,12 @@ inherited fEditorVendedor: TfEditorVendedor
inherited eCodigoPostal: TcxDBTextEdit
Left = 251
Top = 189
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 251
ExplicitTop = 189
end
inherited eObservaciones: TcxDBMemo
Top = 341
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 341
ExplicitWidth = 618
ExplicitHeight = 94
Height = 94
Width = 618
end
inherited eTlfParticular: TcxDBTextEdit
Left = 430
Top = 57
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 430
ExplicitTop = 57
ExplicitWidth = 172
@ -173,10 +148,6 @@ inherited fEditorVendedor: TfEditorVendedor
inherited eTlfTrabajo: TcxDBTextEdit
Left = 430
Top = 30
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 430
ExplicitTop = 30
ExplicitWidth = 172
@ -185,43 +156,14 @@ inherited fEditorVendedor: TfEditorVendedor
inherited eTlfMovil: TcxDBTextEdit
Left = 430
Top = 84
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 430
ExplicitTop = 84
ExplicitWidth = 172
Width = 172
end
inherited cbUsuario: TcxComboBox
Top = 84
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 84
ExplicitWidth = 201
Width = 201
end
inherited edtComision: TcxDBSpinEdit
Top = 111
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 111
ExplicitWidth = 65
Width = 65
end
inherited eFax: TcxDBTextEdit
Left = 430
Top = 111
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 430
ExplicitTop = 111
ExplicitWidth = 172
@ -229,10 +171,6 @@ inherited fEditorVendedor: TfEditorVendedor
end
inherited eNombre: TcxDBTextEdit
Top = 57
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 57
ExplicitWidth = 263
Width = 263
@ -240,10 +178,6 @@ inherited fEditorVendedor: TfEditorVendedor
inherited eNIFCIF: TcxDBTextEdit
Left = 186
Top = 30
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 186
ExplicitTop = 30
ExplicitWidth = 194
@ -253,23 +187,28 @@ inherited fEditorVendedor: TfEditorVendedor
Left = 430
Top = 162
Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 430
ExplicitTop = 162
ExplicitWidth = 129
Width = 129
end
inherited cbUsuario: TcxComboBox
Top = 84
ExplicitTop = 84
ExplicitWidth = 201
Width = 201
end
inherited edtComision: TcxDBSpinEdit
Top = 111
Style.IsFontAssigned = True
ExplicitTop = 111
ExplicitWidth = 65
Width = 65
end
inherited eMailParticular: TcxDBHyperLinkEdit
Left = 430
Top = 190
Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 430
ExplicitTop = 190
ExplicitWidth = 165
@ -278,10 +217,6 @@ inherited fEditorVendedor: TfEditorVendedor
inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 430
Top = 217
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 430
ExplicitTop = 217
ExplicitWidth = 165
@ -289,20 +224,12 @@ inherited fEditorVendedor: TfEditorVendedor
end
inherited eReferencia: TcxDBTextEdit
Top = 30
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 30
ExplicitWidth = 97
Width = 97
end
inherited ePersonaContacto: TcxDBTextEdit
Top = 243
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 243
ExplicitWidth = 256
Width = 256
@ -318,15 +245,26 @@ inherited fEditorVendedor: TfEditorVendedor
Width = 451
ExplicitWidth = 451
inherited cbTienda: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 376
Width = 376
end
end
end
inherited frViewObservaciones1: TfrViewObservaciones
Top = 341
Width = 521
Height = 228
ExplicitTop = 341
ExplicitWidth = 521
ExplicitHeight = 228
inherited memObservaciones: TcxDBMemo
DataBinding.DataSource = frViewVendedor1.dsContacto
ExplicitWidth = 618
ExplicitHeight = 60
Height = 228
Width = 521
end
end
end
inherited dsContacto: TDADataSource
Left = 8
@ -336,53 +274,31 @@ inherited fEditorVendedor: TfEditorVendedor
end
inherited pagDatosBancarios: TTabSheet
ExplicitWidth = 662
ExplicitHeight = 447
ExplicitHeight = 417
inherited frViewClienteDatosBancarios: TfrViewClienteDatosBancarios
Width = 662
Height = 447
Height = 417
ExplicitWidth = 662
ExplicitHeight = 447
ExplicitHeight = 417
inherited dxLayoutControl1: TdxLayoutControl
Width = 662
LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 662
inherited eEntidad: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 114
Width = 114
end
inherited eSucursal: TcxDBTextEdit
Left = 426
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 426
ExplicitWidth = 112
Width = 112
end
inherited eCuenta: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 194
Width = 194
end
inherited eDC: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited eTitular: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 194
Width = 194
end
@ -392,15 +308,15 @@ inherited fEditorVendedor: TfEditorVendedor
inherited pagPersonal: TTabSheet
TabVisible = False
ExplicitWidth = 662
ExplicitHeight = 447
ExplicitHeight = 417
inherited frViewPersonalContacto1: TfrViewPersonalContacto
Width = 662
Height = 447
Height = 417
ExplicitWidth = 662
ExplicitHeight = 447
ExplicitHeight = 417
inherited cxGrid: TcxGrid
Width = 662
Height = 422
Height = 392
ExplicitWidth = 662
ExplicitHeight = 422
end
@ -423,11 +339,13 @@ inherited fEditorVendedor: TfEditorVendedor
end
end
end
inherited StatusBar: TJvStatusBar
Top = 557
inherited PnlComentario: TPanel
Width = 676
ExplicitTop = 557
ExplicitWidth = 676
inherited lbComentario: TLabel
Width = 666
Height = 25
end
end
inherited SmallImages: TPngImageList
PngImages = <

View File

@ -12,7 +12,7 @@ uses
uIEditorVendedor, pngimage, TBXStatusBars, JvExComCtrls, JvStatusBar,
uViewDetallesGenerico, uViewContactoDatosBancarios, dxLayoutLookAndFeels,
dxLayoutControl, cxContainer, cxEdit, cxTextEdit, cxMemo, cxDBEdit, cxControls,
uDAInterfaces, uViewPersonalContacto;
uDAInterfaces, uViewPersonalContacto, StdCtrls;
type
TfEditorVendedor = class(TfEditorContacto, IEditorVendedor)

View File

@ -1,15 +1,15 @@
inherited frViewCliente: TfrViewCliente
Width = 646
Height = 534
Height = 563
OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy
ExplicitWidth = 646
ExplicitHeight = 534
ExplicitHeight = 563
inherited dxLayoutControlContacto: TdxLayoutControl
Width = 646
Height = 534
Height = 563
ExplicitWidth = 646
ExplicitHeight = 534
ExplicitHeight = 609
inherited PngSpeedButton1: TPngSpeedButton
Left = 601
ExplicitLeft = 601
@ -24,44 +24,64 @@ inherited frViewCliente: TfrViewCliente
end
inherited eCalle: TcxDBTextEdit
Left = 132
Top = 247
TabOrder = 8
Top = 220
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 7
ExplicitLeft = 132
ExplicitTop = 247
ExplicitTop = 220
ExplicitWidth = 181
Width = 181
end
inherited cbProvincia: TcxDBComboBox
Left = 132
Top = 274
TabOrder = 9
Top = 247
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 8
ExplicitLeft = 132
ExplicitTop = 274
ExplicitTop = 247
ExplicitWidth = 121
Width = 121
end
inherited cbPoblacion: TcxDBComboBox
Left = 132
Top = 301
TabOrder = 11
Top = 274
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 10
ExplicitLeft = 132
ExplicitTop = 301
ExplicitTop = 274
ExplicitWidth = 213
Width = 213
end
inherited eCodigoPostal: TcxDBTextEdit
Left = 268
Top = 274
TabOrder = 10
Top = 247
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 9
ExplicitLeft = 268
ExplicitTop = 274
ExplicitTop = 247
end
inherited eObservaciones: TcxDBMemo
Top = 442
TabOrder = 22
ExplicitTop = 442
ExplicitWidth = 609
ExplicitHeight = 42
Height = 42
Width = 609
inherited eTlfParticular: TcxDBTextEdit
Left = 449
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 15
ExplicitLeft = 449
ExplicitWidth = 233
Width = 233
end
object eNombreComercial: TcxDBTextEdit [8]
Left = 132
@ -74,12 +94,16 @@ inherited frViewCliente: TfrViewCliente
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 3
Width = 143
end
@ -98,12 +122,16 @@ inherited frViewCliente: TfrViewCliente
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 12
Width = 163
end
@ -120,14 +148,18 @@ inherited frViewCliente: TfrViewCliente
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 = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 5
Width = 87
end
@ -141,12 +173,16 @@ inherited frViewCliente: TfrViewCliente
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 13
Width = 113
end
@ -161,12 +197,16 @@ inherited frViewCliente: TfrViewCliente
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 4
Width = 227
end
@ -183,26 +223,27 @@ inherited frViewCliente: TfrViewCliente
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 = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 6
Width = 211
end
inherited eTlfParticular: TcxDBTextEdit
Left = 449
TabOrder = 15
ExplicitLeft = 449
ExplicitWidth = 233
Width = 233
end
inherited eTlfTrabajo: TcxDBTextEdit
Left = 449
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 14
ExplicitLeft = 449
ExplicitWidth = 233
@ -210,6 +251,10 @@ inherited frViewCliente: TfrViewCliente
end
inherited eTlfMovil: TcxDBTextEdit
Left = 449
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 16
ExplicitLeft = 449
ExplicitWidth = 233
@ -217,6 +262,10 @@ inherited frViewCliente: TfrViewCliente
end
inherited eFax: TcxDBTextEdit
Left = 449
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 17
ExplicitLeft = 449
ExplicitWidth = 233
@ -224,12 +273,20 @@ inherited frViewCliente: TfrViewCliente
end
inherited eNombre: TcxDBTextEdit
Left = 132
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 132
ExplicitWidth = 135
Width = 135
end
inherited eNIFCIF: TcxDBTextEdit
Left = 247
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 247
ExplicitWidth = 59
Width = 59
@ -237,6 +294,10 @@ inherited frViewCliente: TfrViewCliente
inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 449
Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 18
ExplicitLeft = 449
ExplicitWidth = 204
@ -245,6 +306,10 @@ inherited frViewCliente: TfrViewCliente
inherited eMailParticular: TcxDBHyperLinkEdit
Left = 449
Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 19
ExplicitLeft = 449
ExplicitWidth = 204
@ -252,6 +317,10 @@ inherited frViewCliente: TfrViewCliente
end
inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 449
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 20
ExplicitLeft = 449
ExplicitWidth = 204
@ -259,14 +328,26 @@ inherited frViewCliente: TfrViewCliente
end
inherited eReferencia: TcxDBTextEdit
Left = 132
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 132
ExplicitWidth = 38
Width = 38
end
inherited ePersonaContacto: TcxDBTextEdit
Left = 132
Top = 220
TabOrder = 7
Top = 301
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 11
ExplicitLeft = 132
ExplicitTop = 220
ExplicitTop = 301
ExplicitWidth = 256
Width = 256
end
inherited frViewTienda1: TfrViewTienda
Left = 354
@ -278,11 +359,32 @@ inherited frViewCliente: TfrViewCliente
inherited dxLayoutControl1: TdxLayoutControl
Width = 270
ExplicitWidth = 270
inherited cbTienda: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 376
Width = 376
end
end
end
inherited frViewObservaciones1: TfrViewObservaciones
Top = 442
Width = 585
Height = 127
TabOrder = 22
ExplicitTop = 442
ExplicitWidth = 585
ExplicitHeight = 127
inherited memObservaciones: TcxDBMemo
DataBinding.DataSource = dsContacto
Height = 127
Width = 585
end
end
inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup
AutoAligns = [aaHorizontal]
AlignVert = avBottom
inherited dxLayoutControlContactoGroup9: TdxLayoutGroup
inherited dxLayoutControlContactoGroup4: TdxLayoutGroup
inherited dxLayoutControlContactoGroup1: TdxLayoutGroup
@ -339,7 +441,7 @@ inherited frViewCliente: TfrViewCliente
end
inherited dxLayoutControlContactoGroup7: TdxLayoutGroup
inherited dxLayoutControlContactoItem8: TdxLayoutItem
ControlOptions.MinHeight = 10
AutoAligns = [aaHorizontal]
end
end
end

View File

@ -12,7 +12,7 @@ uses
PngSpeedButton, PngImageList, cxGraphics, cxMaskEdit, cxDropDownEdit,
cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, uGruposClienteController,
uProcedenciasClienteController, cxCheckBox, cxSpinEdit, Grids, DBGrids, uDAInterfaces,
uViewTienda;
uViewTienda, uViewObservaciones;
type
IViewCliente = interface(IViewContacto)

View File

@ -1,18 +1,19 @@
inherited frViewContacto: TfrViewContacto
Width = 624
Height = 536
Height = 542
ExplicitWidth = 624
ExplicitHeight = 536
ExplicitHeight = 542
object dxLayoutControlContacto: TdxLayoutControl
Left = 0
Top = 0
Width = 624
Height = 536
Height = 542
Align = alClient
ParentBackground = True
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
ExplicitHeight = 536
object PngSpeedButton1: TPngSpeedButton
Left = 579
Top = 222
@ -197,30 +198,6 @@ inherited frViewContacto: TfrViewContacto
TabOrder = 5
Width = 56
end
object eObservaciones: TcxDBMemo
Left = 22
Top = 357
DataBinding.DataField = 'NOTAS'
DataBinding.DataSource = dsContacto
Properties.ScrollBars = ssVertical
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 16
Height = 54
Width = 630
end
object eTlfParticular: TcxDBTextEdit
Left = 407
Top = 55
@ -507,6 +484,28 @@ inherited frViewContacto: TfrViewContacto
end
end
end
inline frViewObservaciones1: TfrViewObservaciones
Left = 22
Top = 357
Width = 521
Height = 228
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 16
ReadOnly = False
ExplicitLeft = 22
ExplicitTop = 357
ExplicitHeight = 228
inherited memObservaciones: TcxDBMemo
DataBinding.DataField = 'NOTAS'
DataBinding.DataSource = dsContacto
Height = 228
end
end
object dxLayoutControlContactoGroup_Root: TdxLayoutGroup
ShowCaption = False
Hidden = True
@ -716,11 +715,13 @@ inherited frViewContacto: TfrViewContacto
AlignVert = avClient
Caption = 'Observaciones'
object dxLayoutControlContactoItem8: TdxLayoutItem
AutoAligns = [aaHorizontal]
AutoAligns = []
AlignHorz = ahClient
AlignVert = avClient
Caption = 'cxDBMemo1'
Caption = 'New Item'
ShowCaption = False
Control = eObservaciones
Control = frViewObservaciones1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
end

View File

@ -10,7 +10,8 @@ uses
cxDBEdit, dxLayoutControl, dxLayoutLookAndFeels, cxMemo, cxHyperLinkEdit,
ImgList, ActnList, PngImageList, PngSpeedButton, uDAInterfaces, uBizEmpresasTiendas,
cxGraphics, cxMaskEdit, cxDropDownEdit, uContactosController,
cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, uViewTienda;
cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, uViewTienda,
uViewObservaciones;
type
IViewContacto = interface(IViewBase)
@ -45,8 +46,6 @@ type
cbPoblacion: TcxDBComboBox;
dxLayoutControlContactoItem4: TdxLayoutItem;
eCodigoPostal: TcxDBTextEdit;
eObservaciones: TcxDBMemo;
dxLayoutControlContactoItem8: TdxLayoutItem;
dxLayoutControlContactoItem9: TdxLayoutItem;
eTlfParticular: TcxDBTextEdit;
dxLayoutControlContactoItem10: TdxLayoutItem;
@ -89,6 +88,8 @@ type
frViewTienda1: TfrViewTienda;
dxLayoutControlContactoItem16: TdxLayoutItem;
dxLayoutControlContactoGroup10: TdxLayoutGroup;
frViewObservaciones1: TfrViewObservaciones;
dxLayoutControlContactoItem8: TdxLayoutItem;
procedure eMailTrabajoPropertiesEditValueChanged(Sender: TObject);
procedure actMandarCorreoParticularExecute(Sender: TObject);
procedure actMandarCorreoTrabajoExecute(Sender: TObject);

View File

@ -24,46 +24,44 @@ inherited frViewProveedor: TfrViewProveedor
end
inherited eCalle: TcxDBTextEdit
Left = 138
Top = 247
TabOrder = 8
Top = 220
TabOrder = 7
ExplicitLeft = 138
ExplicitTop = 247
ExplicitTop = 220
ExplicitWidth = 264
Width = 264
end
inherited cbProvincia: TcxDBComboBox
Left = 138
Top = 274
TabOrder = 9
Top = 247
TabOrder = 8
ExplicitLeft = 138
ExplicitTop = 274
ExplicitTop = 247
ExplicitWidth = 175
Width = 175
end
inherited cbPoblacion: TcxDBComboBox
Left = 138
Top = 301
TabOrder = 11
Top = 274
TabOrder = 10
ExplicitLeft = 138
ExplicitTop = 301
ExplicitTop = 274
ExplicitWidth = 267
Width = 267
end
inherited eCodigoPostal: TcxDBTextEdit
Left = 271
Top = 274
TabOrder = 10
Top = 247
TabOrder = 9
ExplicitLeft = 271
ExplicitTop = 274
ExplicitTop = 247
end
inherited eObservaciones: TcxDBMemo
Top = 442
TabOrder = 22
ExplicitTop = 442
ExplicitWidth = 630
ExplicitHeight = 20
Height = 20
Width = 630
inherited eTlfParticular: TcxDBTextEdit
Left = 452
TabOrder = 15
ExplicitLeft = 452
ExplicitWidth = 91
Width = 91
end
object cxDBCheckBox2: TcxDBCheckBox [8]
Left = 22
@ -170,13 +168,6 @@ inherited frViewProveedor: TfrViewProveedor
TabOrder = 5
Width = 221
end
inherited eTlfParticular: TcxDBTextEdit
Left = 452
TabOrder = 15
ExplicitLeft = 452
ExplicitWidth = 91
Width = 91
end
inherited eTlfTrabajo: TcxDBTextEdit
Left = 452
TabOrder = 14
@ -210,6 +201,14 @@ inherited frViewProveedor: TfrViewProveedor
ExplicitWidth = 205
Width = 205
end
inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 452
Properties.Prefix = 'mailto:'
TabOrder = 18
ExplicitLeft = 452
ExplicitWidth = 133
Width = 133
end
object eNombreComercial: TcxDBTextEdit [19]
Left = 138
Top = 82
@ -230,14 +229,6 @@ inherited frViewProveedor: TfrViewProveedor
TabOrder = 3
Width = 192
end
inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 452
Properties.Prefix = 'mailto:'
TabOrder = 18
ExplicitLeft = 452
ExplicitWidth = 133
Width = 133
end
inherited eMailParticular: TcxDBHyperLinkEdit
Left = 452
Properties.Prefix = 'mailto:'
@ -261,10 +252,10 @@ inherited frViewProveedor: TfrViewProveedor
end
inherited ePersonaContacto: TcxDBTextEdit
Left = 138
Top = 220
TabOrder = 7
Top = 301
TabOrder = 11
ExplicitLeft = 138
ExplicitTop = 220
ExplicitTop = 301
ExplicitWidth = 256
Width = 256
end
@ -282,6 +273,17 @@ inherited frViewProveedor: TfrViewProveedor
end
end
end
inherited frViewObservaciones1: TfrViewObservaciones
Width = 521
Height = 228
TabOrder = 22
ExplicitWidth = 521
ExplicitHeight = 228
inherited memObservaciones: TcxDBMemo
Height = 228
Width = 521
end
end
inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup
inherited dxLayoutControlContactoGroup9: TdxLayoutGroup
inherited dxLayoutControlContactoGroup4: TdxLayoutGroup

View File

@ -8,7 +8,8 @@ uses
dxLayoutControl, cxMemo, cxDBEdit, cxContainer, cxEdit, cxTextEdit, cxControls,
cxMaskEdit, cxSpinEdit, ImgList, PngImageList, ActnList, cxHyperLinkEdit,
Buttons, PngSpeedButton, StdCtrls, cxCheckBox, cxGraphics, cxDropDownEdit,
uGruposProveedorController, uDAInterfaces, uCustomView, uViewBase, uViewTienda;
uGruposProveedorController, uDAInterfaces, uCustomView, uViewBase, uViewTienda,
uViewObservaciones;
type
IViewProveedor = interface(IViewContacto)

View File

@ -10,6 +10,9 @@ inherited frViewVendedor: TfrViewVendedor
Height = 446
ExplicitWidth = 642
ExplicitHeight = 446
DesignSize = (
642
446)
inherited PngSpeedButton1: TPngSpeedButton
Left = 597
ExplicitLeft = 597
@ -24,71 +27,40 @@ inherited frViewVendedor: TfrViewVendedor
end
inherited eCalle: TcxDBTextEdit
Left = 121
Top = 193
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 6
Top = 166
TabOrder = 5
ExplicitLeft = 121
ExplicitTop = 193
ExplicitTop = 166
ExplicitWidth = 152
Width = 152
end
inherited cbProvincia: TcxDBComboBox
Left = 121
Top = 220
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 7
Top = 193
TabOrder = 6
ExplicitLeft = 121
ExplicitTop = 220
ExplicitTop = 193
ExplicitWidth = 144
Width = 144
end
inherited cbPoblacion: TcxDBComboBox
Left = 121
Top = 247
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 9
Top = 220
TabOrder = 8
ExplicitLeft = 121
ExplicitTop = 247
ExplicitTop = 220
ExplicitWidth = 236
Width = 236
end
inherited eCodigoPostal: TcxDBTextEdit
Left = 282
Top = 220
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 8
Top = 193
TabOrder = 7
ExplicitLeft = 282
ExplicitTop = 220
end
inherited eObservaciones: TcxDBMemo
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 18
ExplicitWidth = 596
ExplicitHeight = 151
Height = 151
Width = 596
ExplicitTop = 193
end
inherited eTlfParticular: TcxDBTextEdit
Left = 463
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 11
ExplicitLeft = 463
ExplicitWidth = 91
@ -96,10 +68,6 @@ inherited frViewVendedor: TfrViewVendedor
end
inherited eTlfTrabajo: TcxDBTextEdit
Left = 463
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 10
ExplicitLeft = 463
ExplicitWidth = 127
@ -107,10 +75,6 @@ inherited frViewVendedor: TfrViewVendedor
end
inherited eTlfMovil: TcxDBTextEdit
Left = 463
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 12
ExplicitLeft = 463
ExplicitWidth = 155
@ -118,10 +82,6 @@ inherited frViewVendedor: TfrViewVendedor
end
inherited eFax: TcxDBTextEdit
Left = 463
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 13
ExplicitLeft = 463
ExplicitWidth = 121
@ -129,24 +89,24 @@ inherited frViewVendedor: TfrViewVendedor
end
inherited eNombre: TcxDBTextEdit
Left = 121
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 121
ExplicitWidth = 263
Width = 263
end
inherited eNIFCIF: TcxDBTextEdit
Left = 216
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 216
ExplicitWidth = 100
Width = 100
end
inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 463
Properties.Prefix = 'mailto:'
TabOrder = 14
ExplicitLeft = 463
ExplicitWidth = 129
Width = 129
end
object cbUsuario: TcxComboBox [14]
Left = 121
Top = 82
@ -159,18 +119,14 @@ inherited frViewVendedor: TfrViewVendedor
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 = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 3
Width = 201
end
@ -194,39 +150,19 @@ inherited frViewVendedor: TfrViewVendedor
Style.Font.Style = []
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.TextColor = clWindowText
Style.ButtonStyle = bts3D
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 4
Height = 21
Width = 65
end
inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 463
Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 14
ExplicitLeft = 463
ExplicitWidth = 129
Width = 129
end
inherited eMailParticular: TcxDBHyperLinkEdit
Left = 463
Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 15
ExplicitLeft = 463
ExplicitWidth = 165
@ -234,10 +170,6 @@ inherited frViewVendedor: TfrViewVendedor
end
inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 463
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 16
ExplicitLeft = 463
ExplicitWidth = 165
@ -245,24 +177,16 @@ inherited frViewVendedor: TfrViewVendedor
end
inherited eReferencia: TcxDBTextEdit
Left = 121
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 121
ExplicitWidth = 38
Width = 38
end
inherited ePersonaContacto: TcxDBTextEdit
Left = 121
Top = 166
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 5
Top = 247
TabOrder = 9
ExplicitLeft = 121
ExplicitTop = 166
ExplicitTop = 247
ExplicitWidth = 152
Width = 152
end
@ -276,15 +200,22 @@ inherited frViewVendedor: TfrViewVendedor
Width = 264
ExplicitWidth = 264
inherited cbTienda: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 376
Width = 376
end
end
end
inherited frViewObservaciones1: TfrViewObservaciones
Width = 521
Height = 228
TabOrder = 18
ExplicitWidth = 521
ExplicitHeight = 228
inherited memObservaciones: TcxDBMemo
Height = 228
Width = 521
end
end
inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup
inherited dxLayoutControlContactoGroup9: TdxLayoutGroup
inherited dxLayoutControlContactoGroup4: TdxLayoutGroup

View File

@ -8,7 +8,8 @@ uses
dxLayoutControl, cxMemo, cxDBEdit, cxContainer, cxEdit, cxTextEdit, cxControls,
cxMaskEdit, cxSpinEdit, ImgList, PngImageList, ActnList, cxHyperLinkEdit,
Buttons, PngSpeedButton, cxDropDownEdit, cxCalendar, cxGraphics,
uDAInterfaces, uCustomView, uViewBase, uViewTienda, uBizContactos;
uDAInterfaces, uCustomView, uViewBase, uViewTienda, uBizContactos,
uViewObservaciones;
type
IViewVendedor = interface(IViewContacto)

View File

@ -49,35 +49,35 @@
<DelphiCompile Include="FacturasCliente_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\adortl.dcp" />
<DCCReference Include="..\AlbCli_FacCli_relation.dcp" />
<DCCReference Include="..\Articulos_view.dcp" />
<DCCReference Include="..\Contabilidad_controller.dcp" />
<DCCReference Include="..\Contabilidad_view.dcp" />
<DCCReference Include="..\Contactos_view.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="..\dxGDIPlusD11.dcp" />
<DCCReference Include="..\dxLayoutControlD11.dcp" />
<DCCReference Include="..\dxThemeD11.dcp" />
<DCCReference Include="..\FacturasCliente_controller.dcp" />
<DCCReference Include="..\FacturasCliente_model.dcp" />
<DCCReference Include="..\GestorInformes_controller.dcp" />
<DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\PngComponentsD10.dcp" />
<DCCReference Include="..\PNG_D10.dcp" />
<DCCReference Include="..\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\vclactnband.dcp" />
<DCCReference Include="..\vcldb.dcp" />
<DCCReference Include="..\vcljpg.dcp" />
<DCCReference Include="..\vclx.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\AlbCli_FacCli_relation.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Articulos_view.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contabilidad_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contabilidad_view.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_view.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\cxLibraryD11.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\dsnap.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\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\FacturasCliente_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\FacturasCliente_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GestorInformes_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.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\rtl.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\vclx.dcp" />
<DCCReference Include="uEditorElegirArticulosFacturaCliente.pas">
<Form>fEditorElegirArticulosFacturaCliente</Form>
<DesignClass>TForm</DesignClass>

View File

@ -6,7 +6,6 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ClientWidth = 860
Position = poScreenCenter
OnClose = CustomEditorClose
ExplicitTop = -39
ExplicitWidth = 868
ExplicitHeight = 696
PixelsPerInch = 96
@ -113,36 +112,14 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitWidth = 846
ExplicitHeight = 340
inherited eReferencia: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 159
Width = 159
end
inherited edtFecha: TcxDBDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 159
Width = 159
end
inherited memObservaciones: TcxDBMemo
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 301
ExplicitHeight = 159
Height = 159
Width = 301
end
inherited cbFormaPago: TcxDBLookupComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 78
Width = 78
end
@ -153,10 +130,6 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
inherited frViewTienda1: TfrViewTienda
inherited dxLayoutControl1: TdxLayoutControl
inherited cbTienda: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 399
Width = 399
end
@ -174,51 +147,27 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitWidth = 266
end
inherited edtlNombre: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 276
Width = 276
end
inherited edtNIFCIF: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 276
Width = 276
end
inherited edtCalle: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 276
Width = 276
end
inherited edtPoblacion: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 158
Width = 158
end
inherited edtProvincia: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 276
Width = 276
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 275
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 275
end
inherited Button3: TBitBtn
@ -226,23 +175,26 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitLeft = 165
end
inherited cxDBTextEdit1: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 283
Width = 283
end
end
end
inherited edtFechaVencimiento: TcxDBDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 310
Width = 310
end
inherited frViewObservaciones1: TfrViewObservaciones
Width = 521
Height = 228
ExplicitWidth = 521
ExplicitHeight = 228
inherited memObservaciones: TcxDBMemo
DataBinding.DataSource = frViewFacturaCliente1.DADataSource
Height = 228
Width = 521
end
end
end
end
end
@ -296,57 +248,57 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitWidth = 57
end
inherited UpDown1: TUpDown
Left = 586
Left = 570
Top = 0
ExplicitLeft = 586
ExplicitLeft = 570
ExplicitTop = 0
end
inherited ToolButton13: TToolButton
Left = 603
Left = 587
Top = 0
ExplicitLeft = 603
ExplicitLeft = 587
ExplicitTop = 0
end
inherited ToolButton6: TToolButton
Left = 611
Left = 595
Top = 0
ExplicitLeft = 611
ExplicitLeft = 595
ExplicitTop = 0
end
inherited ToolButton7: TToolButton
Left = 645
Left = 629
Top = 0
ExplicitLeft = 645
ExplicitLeft = 629
ExplicitTop = 0
end
inherited ToolButton8: TToolButton
Left = 679
Left = 663
Top = 0
ExplicitLeft = 679
ExplicitLeft = 663
ExplicitTop = 0
end
inherited ToolButton12: TToolButton
Left = 713
Left = 697
Top = 0
ExplicitLeft = 713
ExplicitLeft = 697
ExplicitTop = 0
end
inherited ToolButton9: TToolButton
Left = 721
Left = 705
Top = 0
ExplicitLeft = 721
ExplicitLeft = 705
ExplicitTop = 0
end
inherited ToolButton10: TToolButton
Left = 755
Left = 739
Top = 0
ExplicitLeft = 755
ExplicitLeft = 739
ExplicitTop = 0
end
inherited ToolButton11: TToolButton
Left = 789
Left = 773
Top = 0
ExplicitLeft = 789
ExplicitLeft = 773
ExplicitTop = 0
end
end
@ -393,20 +345,12 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitWidth = 846
inherited cbSubCuentas: TcxComboBox
Left = 85
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 85
ExplicitWidth = 429
Width = 429
end
inherited eContabilizar: TcxCheckBox
Left = 581
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 581
ExplicitWidth = 227
Width = 227
@ -453,10 +397,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
inherited Bevel3: TBevel
Left = 457
Top = 30
Height = 122
ExplicitLeft = 457
ExplicitTop = 30
ExplicitHeight = 122
end
inherited Bevel4: TBevel
Left = 569
@ -468,11 +410,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end
inherited ImporteDto: TcxDBCurrencyEdit
Top = 57
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 57
ExplicitWidth = 220
Width = 220
@ -480,11 +418,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
inherited ImporteIVA: TcxDBCurrencyEdit
Left = 640
Top = 77
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 640
ExplicitTop = 77
ExplicitWidth = 155
@ -493,11 +427,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
inherited ImporteTotal: TcxDBCurrencyEdit
Left = 570
Top = 131
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 570
ExplicitTop = 131
ExplicitWidth = 225
@ -506,32 +436,20 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
inherited edtDescuento: TcxDBSpinEdit
Top = 57
Properties.OnValidate = frViewTotales1edtDescuentoPropertiesValidate
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 57
end
inherited edtIVA: TcxDBSpinEdit
Left = 569
Top = 77
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 569
ExplicitTop = 77
end
inherited ImporteBase: TcxDBCurrencyEdit
Left = 569
Top = 30
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 569
ExplicitTop = 30
ExplicitWidth = 226
@ -541,22 +459,14 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Left = 569
Top = 104
Properties.AssignedValues.MinValue = True
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 569
ExplicitTop = 104
end
inherited ImporteRE: TcxDBCurrencyEdit
Left = 640
Top = 104
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 640
ExplicitTop = 104
ExplicitWidth = 155
@ -564,11 +474,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end
inherited eImporteNeto: TcxDBCurrencyEdit
Top = 30
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 30
ExplicitWidth = 291
Width = 291
@ -577,11 +483,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Top = 84
DataBinding.DataSource = dsDataTable
Properties.OnValidate = frViewTotales1ePortePropertiesValidate
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
OnEditing = frViewTotales1ePorteEditing
ExplicitTop = 84
ExplicitWidth = 291
@ -591,10 +493,6 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Top = 111
Properties.OnValidate = frViewTotales1eIVAPropertiesValidate
Style.Color = clInfoBk
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 111
ExplicitWidth = 153
Width = 153
@ -608,10 +506,6 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end
inherited cbRecargoEquivalencia: TcxDBCheckBox
Top = 138
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 138
ExplicitWidth = 291
Width = 291

View File

@ -1,6 +1,6 @@
inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 869
Height = 546
Width = 780
Height = 514
Align = alClient
OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy
@ -9,8 +9,8 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
Width = 869
Height = 546
Width = 780
Height = 514
Align = alClient
ParentBackground = True
TabOrder = 0
@ -20,8 +20,8 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
ExplicitWidth = 451
ExplicitHeight = 304
DesignSize = (
869
546)
780
514)
object eReferencia: TcxDBTextEdit
Left = 135
Top = 30
@ -35,15 +35,11 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Style.Color = clInfoBk
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.Color = clMenuBar
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 0
Width = 159
end
@ -58,42 +54,16 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Style.Color = clInfoBk
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.Shadow = False
Style.ButtonStyle = bts3D
Style.ButtonTransparency = ebtNone
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 1
Width = 159
end
object memObservaciones: TcxDBMemo
Left = 22
Top = 325
Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource
Properties.ScrollBars = ssVertical
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 7
Height = 159
Width = 301
end
object cbFormaPago: TcxDBLookupComboBox
Left = 135
Top = 108
@ -116,23 +86,19 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
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 = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 2
Width = 78
end
object bFormasPago: TButton
Left = 301
Left = 255
Top = 108
Width = 132
Height = 23
@ -163,17 +129,13 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
ExplicitWidth = 351
ExplicitHeight = 63
inherited cbTienda: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 399
Width = 399
end
end
end
inline frViewClienteFactura1: TfrViewClienteFactura
Left = 461
Left = 415
Top = 30
Width = 398
Height = 265
@ -185,7 +147,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
ParentFont = False
TabOrder = 6
ReadOnly = False
ExplicitLeft = 461
ExplicitLeft = 415
ExplicitTop = 30
ExplicitWidth = 398
ExplicitHeight = 265
@ -195,62 +157,34 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
ExplicitWidth = 398
ExplicitHeight = 265
inherited edtlNombre: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 276
Width = 276
end
inherited edtNIFCIF: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 276
Width = 276
end
inherited edtCalle: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 276
Width = 276
end
inherited edtPoblacion: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 158
Width = 158
end
inherited edtProvincia: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 276
Width = 276
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 294
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 294
Left = 251
ExplicitLeft = 251
end
inherited Button3: TBitBtn
Left = 184
ExplicitLeft = 184
Left = 141
ExplicitLeft = 141
end
inherited cxDBTextEdit1: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 283
Width = 283
end
@ -268,20 +202,40 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Style.Color = clInfoBk
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.Shadow = False
Style.ButtonStyle = bts3D
Style.ButtonTransparency = ebtNone
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 4
Width = 310
end
inline frViewObservaciones1: TfrViewObservaciones
Left = 22
Top = 325
Width = 521
Height = 228
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 7
ReadOnly = False
ExplicitLeft = 22
ExplicitTop = 325
inherited memObservaciones: TcxDBMemo
DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 521
ExplicitHeight = 228
end
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
Hidden = True
@ -371,7 +325,10 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
AutoAligns = []
AlignHorz = ahClient
AlignVert = avClient
Control = memObservaciones
Caption = 'New Item'
ShowCaption = False
Control = frViewObservaciones1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
end

View File

@ -10,7 +10,8 @@ uses
cxMemo, cxMaskEdit, cxDropDownEdit, cxCalendar, cxSpinEdit, StdCtrls, Mask,
DBCtrls, cxGraphics, dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit,
cxDBLookupComboBox, uFormasPagoController, uDAInterfaces, uBizFormasPago,
uViewTienda, uFacturasClienteController, uViewClienteFactura;
uViewTienda, uFacturasClienteController, uViewClienteFactura, Menus, StdActns,
ActnList, uViewObservaciones;
type
IViewFacturaCliente = interface(IViewBase)
@ -34,8 +35,6 @@ type
edtFecha: TcxDBDateEdit;
dxLayoutControl1Group1: TdxLayoutGroup;
dxLayoutControl1Group2: TdxLayoutGroup;
dxLayoutControl1Item5: TdxLayoutItem;
memObservaciones: TcxDBMemo;
dxLayoutControl1Group5: TdxLayoutGroup;
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
@ -54,6 +53,8 @@ type
ledtFechaVencimiento: TdxLayoutItem;
edtFechaVencimiento: TcxDBDateEdit;
dxLayoutControl1Group3: TdxLayoutGroup;
frViewObservaciones1: TfrViewObservaciones;
dxLayoutControl1Item5: TdxLayoutItem;
procedure bFormasPagoClick(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
procedure CustomViewCreate(Sender: TObject);

View File

@ -122,12 +122,6 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
ExplicitWidth = 191
Width = 191
end
inherited memObservaciones: TcxDBMemo
ExplicitWidth = 671
ExplicitHeight = 170
Height = 170
Width = 671
end
inherited cbFormaPago: TcxDBLookupComboBox
ExplicitWidth = 53
Width = 53
@ -207,16 +201,23 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
end
end
end
inherited frViewObservaciones1: TfrViewObservaciones
Width = 521
Height = 228
ExplicitWidth = 521
ExplicitHeight = 228
inherited memObservaciones: TcxDBMemo
DataBinding.DataSource = frViewFacturaProveedor1.DADataSource
Height = 228
Width = 521
end
end
end
end
end
object pagContenido: TTabSheet
Caption = 'Contenido'
ImageIndex = 1
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewDetallesFacturaProveedor1: TfrViewDetallesFacturaProveedor
Left = 0
Top = 0
@ -529,6 +530,10 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
inherited PnlComentario: TPanel [5]
Width = 746
ExplicitWidth = 746
inherited lbComentario: TLabel
Width = 736
Height = 25
end
end
inherited EditorActionList: TActionList [9]
Left = 8

View File

@ -1,6 +1,6 @@
inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Width = 796
Height = 415
Width = 758
Height = 521
Align = alClient
OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy
@ -9,8 +9,8 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
Width = 796
Height = 415
Width = 758
Height = 521
Align = alClient
ParentBackground = True
TabOrder = 0
@ -20,8 +20,8 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
ExplicitWidth = 451
ExplicitHeight = 304
DesignSize = (
796
415)
758
521)
object eReferencia: TcxDBTextEdit
Left = 124
Top = 30
@ -34,15 +34,11 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Style.Color = clInfoBk
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.Color = clMenuBar
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 0
Width = 159
end
@ -57,42 +53,16 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Style.Color = clInfoBk
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.Shadow = False
Style.ButtonStyle = bts3D
Style.ButtonTransparency = ebtNone
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 2
Width = 159
end
object memObservaciones: TcxDBMemo
Left = 22
Top = 320
Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource
Properties.ScrollBars = ssVertical
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 8
Height = 170
Width = 754
end
object cbFormaPago: TcxDBLookupComboBox
Left = 124
Top = 135
@ -115,23 +85,19 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
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 = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 3
Width = 169
end
object bFormasPago: TButton
Left = 302
Left = 264
Top = 135
Width = 132
Height = 23
@ -151,15 +117,11 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Style.Color = clInfoBk
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.Color = clMenuBar
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 1
Width = 316
end
@ -184,10 +146,6 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Width = 320
ExplicitWidth = 320
inherited cbTienda: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 376
Width = 376
end
@ -204,22 +162,18 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Style.Color = clInfoBk
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.Shadow = False
Style.ButtonStyle = bts3D
Style.ButtonTransparency = ebtNone
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 5
Width = 158
end
inline frViewProveedorFactura1: TfrViewProveedorFactura
Left = 462
Left = 424
Top = 30
Width = 312
Height = 260
@ -231,7 +185,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
ParentFont = False
TabOrder = 7
ReadOnly = False
ExplicitLeft = 462
ExplicitLeft = 424
ExplicitTop = 30
ExplicitWidth = 312
ExplicitHeight = 260
@ -243,51 +197,27 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
ExplicitWidth = 242
end
inherited edtlNombre: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 276
Width = 276
end
inherited edtNIFCIF: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 562
Width = 562
end
inherited edtCalle: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 562
Width = 562
end
inherited edtPoblacion: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 177
Width = 177
end
inherited edtProvincia: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 327
Width = 327
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 220
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 220
end
inherited Button3: TBitBtn
@ -295,15 +225,31 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
ExplicitLeft = 104
end
inherited cxDBTextEdit1: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 276
Width = 276
end
end
end
inline frViewObservaciones1: TfrViewObservaciones
Left = 22
Top = 320
Width = 521
Height = 228
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 8
ReadOnly = False
ExplicitLeft = 22
ExplicitTop = 320
inherited memObservaciones: TcxDBMemo
DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource
end
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
Hidden = True
@ -393,7 +339,10 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
AutoAligns = []
AlignHorz = ahClient
AlignVert = avClient
Control = memObservaciones
Caption = 'New Item'
ShowCaption = False
Control = frViewObservaciones1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
end

View File

@ -11,7 +11,7 @@ uses
DBCtrls, cxGraphics, dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit,
cxDBLookupComboBox, uFormasPagoController, uViewDatosYSeleccionProveedor,
uDAInterfaces, uBizFormasPago, uViewTienda, uFacturasProveedorController,
ActnList, uViewProveedorFactura;
ActnList, uViewProveedorFactura, uViewObservaciones;
type
IViewFacturaProveedor = interface(IViewBase)
@ -35,8 +35,6 @@ type
edtFecha: TcxDBDateEdit;
dxLayoutControl1Group1: TdxLayoutGroup;
dxLayoutControl1Group2: TdxLayoutGroup;
dxLayoutControl1Item5: TdxLayoutItem;
memObservaciones: TcxDBMemo;
dxLayoutControl1Group5: TdxLayoutGroup;
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
@ -60,6 +58,8 @@ type
frViewProveedorFactura1: TfrViewProveedorFactura;
dxLayoutControl1Group8: TdxLayoutGroup;
dxLayoutControl1Group3: TdxLayoutGroup;
frViewObservaciones1: TfrViewObservaciones;
dxLayoutControl1Item5: TdxLayoutItem;
procedure bFormasPagoClick(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
procedure CustomViewCreate(Sender: TObject);

View File

@ -6,7 +6,7 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
ClientWidth = 765
OnClose = CustomEditorClose
ExplicitWidth = 773
ExplicitHeight = 644
ExplicitHeight = 651
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
@ -61,20 +61,30 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
ExplicitWidth = 765
end
end
inherited StatusBar: TJvStatusBar
Top = 598
Width = 765
Panels = <
item
Width = 200
end>
ExplicitTop = 598
ExplicitWidth = 765
end
inherited pgPaginas: TPageControl
Width = 759
Height = 470
Height = 440
ActivePage = pagContenido
TabOrder = 1
OnChanging = pgPaginasChanging
ExplicitLeft = 3
ExplicitTop = 79
ExplicitTop = 109
ExplicitWidth = 759
ExplicitHeight = 470
ExplicitHeight = 440
inherited pagGeneral: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
ExplicitWidth = 751
ExplicitHeight = 442
ExplicitHeight = 412
end
object pagContenido: TTabSheet
Caption = 'Contenido'
@ -83,7 +93,7 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
Left = 0
Top = 0
Width = 751
Height = 442
Height = 412
Align = alClient
BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET
@ -96,16 +106,16 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
TabOrder = 0
ReadOnly = False
ExplicitWidth = 751
ExplicitHeight = 442
ExplicitHeight = 412
inherited ToolBar1: TToolBar
Width = 751
ExplicitWidth = 751
end
inherited cxGrid: TcxGrid
Width = 751
Height = 370
Height = 340
ExplicitWidth = 751
ExplicitHeight = 370
ExplicitHeight = 340
inherited cxGridView: TcxGridDBTableView
inherited cxGridViewIMPORTENETO: TcxGridDBColumn
Options.Editing = True
@ -128,7 +138,7 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
Left = 0
Top = 0
Width = 751
Height = 442
Height = 412
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -139,7 +149,7 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
TabOrder = 0
ReadOnly = False
ExplicitWidth = 751
ExplicitHeight = 442
ExplicitHeight = 412
inherited pnlSup: TPanel
Width = 751
ExplicitWidth = 757
@ -149,9 +159,9 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
end
inherited GroupBox1: TGroupBox
Width = 751
Height = 414
Height = 384
ExplicitWidth = 751
ExplicitHeight = 414
ExplicitHeight = 384
inherited eIncidencias: TcxDBMemo
ExplicitWidth = 734
ExplicitHeight = 387
@ -162,16 +172,6 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
end
end
end
inherited StatusBar: TJvStatusBar
Top = 598
Width = 765
Panels = <
item
Width = 200
end>
ExplicitTop = 598
ExplicitWidth = 765
end
inline frViewTotales1: TfrViewTotales [4]
Left = 0
Top = 552
@ -184,7 +184,7 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 4
TabOrder = 5
ReadOnly = False
ExplicitTop = 552
ExplicitWidth = 765
@ -193,14 +193,6 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
Width = 765
LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 765
inherited Bevel1: TBevel
Left = 93
Top = 92
Width = 73
ExplicitLeft = 93
ExplicitTop = 92
ExplicitWidth = 73
end
inherited Bevel3: TBevel
Left = 379
Top = 11
@ -211,57 +203,81 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
end
inherited Bevel4: TBevel
Left = 491
Top = 92
Top = 53
Width = 21
ExplicitLeft = 491
ExplicitTop = 92
ExplicitTop = 53
ExplicitWidth = 21
end
inherited ImporteDto: TcxDBCurrencyEdit
Left = 164
Top = 112
Top = 38
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 164
ExplicitTop = 112
ExplicitTop = 38
ExplicitWidth = 93
Width = 93
end
inherited ImporteIVA: TcxDBCurrencyEdit
Left = 562
Top = 38
Top = 88
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 562
ExplicitTop = 38
ExplicitTop = 88
ExplicitWidth = 137
Width = 137
end
inherited ImporteTotal: TcxDBCurrencyEdit
Left = 492
Top = 112
Top = 142
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 492
ExplicitTop = 112
ExplicitTop = 142
ExplicitWidth = 137
Width = 137
end
inherited edtDescuento: TcxDBSpinEdit
Left = 93
Top = 112
Top = 38
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 93
ExplicitTop = 112
ExplicitTop = 38
end
inherited edtIVA: TcxDBSpinEdit
Left = 491
Top = 38
Top = 88
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 491
ExplicitTop = 38
ExplicitTop = 88
end
inherited ImporteBase: TcxDBCurrencyEdit
Left = 491
Top = 11
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 491
ExplicitTop = 11
ExplicitWidth = 92
@ -269,28 +285,40 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
end
inherited edtRE: TcxDBSpinEdit
Left = 491
Top = 65
Top = 115
DataBinding.DataField = ''
DataBinding.DataSource = nil
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 491
ExplicitTop = 65
ExplicitTop = 115
end
inherited ImporteRE: TcxDBCurrencyEdit
Left = 562
Top = 65
Top = 115
DataBinding.DataField = ''
DataBinding.DataSource = nil
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 562
ExplicitTop = 65
ExplicitTop = 115
ExplicitWidth = 56
Width = 56
end
inherited eImporteNeto: TcxDBCurrencyEdit
Left = 93
Top = 11
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 93
ExplicitTop = 11
ExplicitWidth = 147
@ -298,36 +326,48 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
end
inherited ePorte: TcxDBCurrencyEdit
Left = 93
Top = 139
Top = 65
Properties.OnValidate = frViewTotales1ePortePropertiesValidate
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 93
ExplicitTop = 139
ExplicitTop = 65
ExplicitWidth = 147
Width = 147
end
inherited eIVA: TcxDBLookupComboBox
Left = 93
Top = 38
Top = 92
DataBinding.DataField = ''
DataBinding.DataSource = nil
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 93
ExplicitTop = 38
ExplicitTop = 92
ExplicitWidth = 81
Width = 81
end
inherited bTiposIVA: TButton
Left = 231
Top = 38
Top = 92
ExplicitLeft = 231
ExplicitTop = 38
ExplicitTop = 92
end
inherited cbRecargoEquivalencia: TcxDBCheckBox
Left = 93
Top = 65
Top = 119
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 93
ExplicitTop = 65
ExplicitTop = 119
ExplicitWidth = 219
Width = 219
end
@ -339,26 +379,28 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
inherited dxLayoutControl1Item8: TdxLayoutItem
Visible = False
end
inherited dxLayoutControl1Group7: TdxLayoutGroup
Visible = False
end
inherited dxLayoutControl1Group6: TdxLayoutGroup
Visible = False
end
inherited dxLayoutControl1Item16: TdxLayoutItem
Visible = False
end
inherited dxLayoutControl1Item10: TdxLayoutItem
Visible = False
end
inherited dxLayoutControl1Group7: TdxLayoutGroup
Visible = False
end
end
inherited dxLayoutControl1Group5: TdxLayoutGroup
inherited dxLayoutControl1Item13: TdxLayoutItem
Visible = False
end
inherited dxLayoutControl1Group3: TdxLayoutGroup
inherited dxLayoutControl1Item12: TdxLayoutItem
Visible = False
inherited dxLayoutControl1Group11: TdxLayoutGroup
inherited dxLayoutControl1Item12: TdxLayoutItem
Visible = False
end
inherited dxLayoutControl1Item14: TdxLayoutItem
Visible = False
end
end
inherited dxLayoutControl1Group9: TdxLayoutGroup
Visible = False
@ -366,25 +408,25 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
inherited dxLayoutControl1Group8: TdxLayoutGroup
Visible = False
end
inherited dxLayoutControl1Item14: TdxLayoutItem
Visible = False
end
end
end
end
end
end
end
inherited EditorActionList: TActionList [5]
inherited PnlComentario: TPanel [5]
Width = 765
inherited lbComentario: TLabel
Width = 755
Height = 25
end
end
inherited SmallImages: TPngImageList [6]
end
inherited LargeImages: TPngImageList [7]
end
inherited JvFormStorage: TJvFormStorage [8]
inherited EditorActionList: TActionList [9]
end
inherited dsDataTable: TDADataSource [10]
end
inherited JvAppRegistryStorage: TJvAppRegistryStorage [11]
end
object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList
Left = 336
Top = 176

View File

@ -42,27 +42,51 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
ExplicitWidth = 357
ExplicitHeight = 215
inherited edtlNombre: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 283
Width = 283
end
inherited edtNIFCIF: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 283
Width = 283
end
inherited edtCalle: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 283
Width = 283
end
inherited edtPoblacion: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 176
Width = 176
end
inherited edtProvincia: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 283
Width = 283
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 276
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 276
ExplicitWidth = 71
Width = 71
@ -85,13 +109,17 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Style.Color = clInfoBk
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.Shadow = False
Style.ButtonStyle = bts3D
Style.ButtonTransparency = ebtNone
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 1
Width = 158
end
@ -106,13 +134,17 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.Shadow = False
Style.ButtonStyle = bts3D
Style.ButtonTransparency = ebtNone
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 7
Width = 158
end
@ -127,32 +159,18 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 8
Width = 158
end
object memObservaciones: TcxDBMemo
Left = 325
Top = 361
Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource
Properties.ScrollBars = ssVertical
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 12
Height = 84
Width = 357
end
object eReferencia: TcxDBTextEdit
Left = 137
Top = 28
@ -167,11 +185,15 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Style.Color = clInfoBk
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.Color = clMenuBar
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 0
Width = 158
end
@ -206,6 +228,10 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
ExplicitWidth = 253
end
inherited cbLista: TcxDBLookupComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 238
Width = 238
end
@ -250,14 +276,18 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
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 = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 2
Width = 20
end
@ -281,13 +311,17 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.Shadow = False
Style.ButtonStyle = bts3D
Style.ButtonTransparency = ebtNone
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 6
Width = 158
end
@ -304,13 +338,17 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 4
Width = 20
end
@ -343,6 +381,32 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
inherited dxLayoutControl1: TdxLayoutControl
Width = 357
ExplicitWidth = 357
inherited cbTienda: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
end
end
inline frViewObservaciones1: TfrViewObservaciones
Left = 325
Top = 361
Width = 521
Height = 150
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 12
ReadOnly = False
ExplicitLeft = 325
ExplicitTop = 361
inherited memObservaciones: TcxDBMemo
DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource
end
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
@ -484,9 +548,13 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
AlignVert = avClient
Caption = 'Observaciones'
object dxLayoutControl1Item6: TdxLayoutItem
AutoAligns = [aaHorizontal]
AutoAligns = []
AlignHorz = ahClient
AlignVert = avClient
Control = memObservaciones
Caption = 'New Item'
ShowCaption = False
Control = frViewObservaciones1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
end

View File

@ -45,8 +45,6 @@ type
edtFechaEntrega: TcxDBDateEdit;
dxLayoutControl1Group1: TdxLayoutGroup;
dxLayoutControl1Group2: TdxLayoutGroup;
dxLayoutControl1Item6: TdxLayoutItem;
memObservaciones: TcxDBMemo;
dxLayoutControl1Item3: TdxLayoutItem;
eReferencia: TcxDBTextEdit;
dxLayoutControl1Group5: TdxLayoutGroup;
@ -75,6 +73,8 @@ type
dxLayoutControl1Item13: TdxLayoutItem;
frViewTienda1: TfrViewTienda;
dxLayoutControl1Group11: TdxLayoutGroup;
frViewObservaciones1: TfrViewObservaciones;
dxLayoutControl1Item6: TdxLayoutItem;
procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
procedure bFormasPagoClick(Sender: TObject);

View File

@ -156,20 +156,29 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
end
end
end
inherited StatusBar: TJvStatusBar
Top = 612
Width = 674
Panels = <
item
Width = 200
end>
ExplicitTop = 612
ExplicitWidth = 674
end
inherited pgPaginas: TPageControl
Width = 668
Height = 459
Height = 429
TabOrder = 1
OnChanging = pgPaginasChanging
ExplicitLeft = 3
ExplicitTop = 79
ExplicitTop = 109
ExplicitWidth = 668
ExplicitHeight = 459
ExplicitHeight = 429
inherited pagGeneral: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
ExplicitWidth = 660
ExplicitHeight = 431
ExplicitHeight = 401
end
object pagContenido: TTabSheet
Caption = 'Contenido'
@ -178,7 +187,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Left = 0
Top = 0
Width = 660
Height = 431
Height = 401
Align = alClient
BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET
@ -191,7 +200,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
TabOrder = 0
ReadOnly = False
ExplicitWidth = 660
ExplicitHeight = 431
ExplicitHeight = 401
inherited ToolBar1: TToolBar
Width = 660
ExplicitWidth = 660
@ -238,10 +247,10 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
end
inherited cxGrid: TcxGrid
Width = 660
Height = 359
Height = 329
ExplicitTop = 72
ExplicitWidth = 660
ExplicitHeight = 359
ExplicitHeight = 329
end
inherited TBXDock1: TTBXDock
Width = 660
@ -260,7 +269,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Left = 0
Top = 0
Width = 660
Height = 431
Height = 401
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -271,7 +280,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
TabOrder = 0
ReadOnly = False
ExplicitWidth = 660
ExplicitHeight = 431
ExplicitHeight = 401
inherited pnlSup: TPanel
Width = 660
ExplicitWidth = 660
@ -281,9 +290,9 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
end
inherited GroupBox1: TGroupBox
Width = 660
Height = 403
Height = 373
ExplicitWidth = 660
ExplicitHeight = 403
ExplicitHeight = 373
inherited eIncidencias: TcxDBMemo
ExplicitWidth = 643
ExplicitHeight = 376
@ -296,6 +305,10 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
object pagPortada: TTabSheet
Caption = 'Portada'
ImageIndex = 3
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object edtPortada: TcxDBRichEdit
Left = 0
Top = 0
@ -303,13 +316,18 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
DataBinding.DataField = 'PORTADA'
DataBinding.DataSource = dsDataTable
TabOrder = 0
Height = 431
ExplicitHeight = 431
Height = 401
Width = 660
end
end
object pagMemoria: TTabSheet
Caption = 'Memoria'
ImageIndex = 4
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object cxDBMemo1: TcxDBMemo
Left = 0
Top = 0
@ -317,7 +335,8 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
DataBinding.DataField = 'MEMORIA'
DataBinding.DataSource = dsDataTable
TabOrder = 0
Height = 431
ExplicitHeight = 431
Height = 401
Width = 660
end
end
@ -328,7 +347,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Left = 0
Top = 0
Width = 660
Height = 431
Height = 401
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -339,30 +358,20 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
TabOrder = 0
ReadOnly = False
ExplicitWidth = 660
ExplicitHeight = 431
ExplicitHeight = 401
inherited TBXDock: TTBXDock
Width = 660
ExplicitWidth = 660
end
inherited ListView1: TListView
Width = 660
Height = 408
Height = 378
ExplicitWidth = 660
ExplicitHeight = 408
end
end
end
end
inherited StatusBar: TJvStatusBar
Top = 612
Width = 674
Panels = <
item
Width = 200
end>
ExplicitTop = 612
ExplicitWidth = 674
end
inline frViewTotales1: TfrViewTotales [4]
Left = 0
Top = 541
@ -375,7 +384,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 4
TabOrder = 5
ReadOnly = False
ExplicitTop = 541
ExplicitWidth = 674
@ -386,107 +395,101 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 674
ExplicitHeight = 171
inherited Bevel1: TBevel
Left = 93
Top = 92
ExplicitLeft = 93
ExplicitTop = 92
end
inherited Bevel3: TBevel
Left = 333
Left = 325
Top = 11
Width = 8
Height = 54
ExplicitLeft = 333
ExplicitLeft = 325
ExplicitTop = 11
ExplicitWidth = 8
ExplicitHeight = 54
end
inherited Bevel4: TBevel
Left = 450
Top = 92
Left = 442
Top = 53
Width = 21
ExplicitLeft = 450
ExplicitTop = 92
ExplicitLeft = 442
ExplicitTop = 53
ExplicitWidth = 21
end
inherited ImporteDto: TcxDBCurrencyEdit
Left = 164
Top = 112
Top = 38
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 164
ExplicitTop = 112
ExplicitTop = 38
ExplicitWidth = 153
Width = 153
end
inherited ImporteIVA: TcxDBCurrencyEdit
Left = 521
Top = 38
Left = 513
Top = 88
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 521
ExplicitTop = 38
ExplicitLeft = 513
ExplicitTop = 88
ExplicitWidth = 142
Width = 142
end
inherited ImporteTotal: TcxDBCurrencyEdit
Left = 451
Top = 112
Left = 443
Top = 142
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 451
ExplicitTop = 112
ExplicitLeft = 443
ExplicitTop = 142
ExplicitWidth = 212
Width = 212
end
inherited edtDescuento: TcxDBSpinEdit
Left = 93
Top = 112
Top = 38
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 93
ExplicitTop = 112
ExplicitTop = 38
end
inherited edtIVA: TcxDBSpinEdit
Left = 450
Top = 38
Left = 442
Top = 88
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 450
ExplicitTop = 38
ExplicitLeft = 442
ExplicitTop = 88
end
inherited ImporteBase: TcxDBCurrencyEdit
Left = 450
Left = 442
Top = 11
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 450
ExplicitLeft = 442
ExplicitTop = 11
ExplicitWidth = 213
Width = 213
end
inherited edtRE: TcxDBSpinEdit
Left = 450
Top = 65
Left = 442
Top = 115
DataBinding.DataField = ''
DataBinding.DataSource = nil
Style.LookAndFeel.SkinName = ''
@ -494,12 +497,12 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 450
ExplicitTop = 65
ExplicitLeft = 442
ExplicitTop = 115
end
inherited ImporteRE: TcxDBCurrencyEdit
Left = 521
Top = 65
Left = 513
Top = 115
DataBinding.DataField = ''
DataBinding.DataSource = nil
Style.LookAndFeel.SkinName = ''
@ -507,8 +510,8 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 521
ExplicitTop = 65
ExplicitLeft = 513
ExplicitTop = 115
ExplicitWidth = 142
Width = 142
end
@ -527,7 +530,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
end
inherited ePorte: TcxDBCurrencyEdit
Left = 93
Top = 139
Top = 65
Properties.OnValidate = frViewTotales1ePortePropertiesValidate
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
@ -535,65 +538,67 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 93
ExplicitTop = 139
ExplicitWidth = 224
Width = 224
end
inherited eIVA: TcxDBLookupComboBox
Left = 93
Top = 38
DataBinding.DataField = ''
DataBinding.DataSource = nil
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 93
ExplicitTop = 38
ExplicitWidth = 86
Width = 86
end
inherited bTiposIVA: TButton
Left = 185
Top = 38
ExplicitLeft = 185
ExplicitTop = 38
end
inherited cbRecargoEquivalencia: TcxDBCheckBox
Left = 93
Top = 65
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 93
ExplicitTop = 65
ExplicitWidth = 224
Width = 224
end
inherited eIVA: TcxDBLookupComboBox
Left = 93
Top = 92
DataBinding.DataField = ''
DataBinding.DataSource = nil
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 93
ExplicitTop = 92
ExplicitWidth = 86
Width = 86
end
inherited bTiposIVA: TButton
Left = 177
Top = 92
ExplicitLeft = 177
ExplicitTop = 92
end
inherited cbRecargoEquivalencia: TcxDBCheckBox
Left = 93
Top = 119
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 93
ExplicitTop = 119
ExplicitWidth = 224
Width = 224
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup
ShowCaption = False
ShowBorder = False
inherited dxLayoutControl1Group2: TdxLayoutGroup
inherited dxLayoutControl1Group7: TdxLayoutGroup
Visible = False
end
inherited dxLayoutControl1Group6: TdxLayoutGroup
Visible = False
end
inherited dxLayoutControl1Item16: TdxLayoutItem
Visible = False
end
inherited dxLayoutControl1Item10: TdxLayoutItem
Visible = False
end
inherited dxLayoutControl1Group7: TdxLayoutGroup
Visible = False
end
end
inherited dxLayoutControl1Group5: TdxLayoutGroup
inherited dxLayoutControl1Group3: TdxLayoutGroup
inherited dxLayoutControl1Item12: TdxLayoutItem
Visible = False
inherited dxLayoutControl1Group11: TdxLayoutGroup
inherited dxLayoutControl1Item12: TdxLayoutItem
Visible = False
end
inherited dxLayoutControl1Item14: TdxLayoutItem
Visible = False
end
end
inherited dxLayoutControl1Group9: TdxLayoutGroup
Visible = False
@ -601,26 +606,21 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
inherited dxLayoutControl1Group8: TdxLayoutGroup
Visible = False
end
inherited dxLayoutControl1Item14: TdxLayoutItem
Visible = False
end
end
end
end
end
end
end
inherited EditorActionList: TActionList [5]
object actEnviarEMail: TAction
Category = 'Acciones'
Caption = 'Enviar por e-mail...'
Hint = 'Enviar el presupuesto por correo electr'#243'nico'
ImageIndex = 21
OnExecute = actEnviarEMailExecute
OnUpdate = actEnviarEMailUpdate
inherited PnlComentario: TPanel [5]
Width = 674
ExplicitWidth = 674
inherited lbComentario: TLabel
Width = 664
Height = 25
end
end
inherited SmallImages: TPngImageList [6]
inherited SmallImages: TPngImageList
PngImages = <
item
PngImage.Data = {
@ -1126,7 +1126,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
end>
Bitmap = {}
end
inherited LargeImages: TPngImageList [7]
inherited LargeImages: TPngImageList
PngImages = <
item
PngImage.Data = {
@ -1922,10 +1922,20 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
end>
Bitmap = {}
end
inherited JvFormStorage: TJvFormStorage [8]
inherited EditorActionList: TActionList [9]
object actEnviarEMail: TAction
Category = 'Acciones'
Caption = 'Enviar por e-mail...'
Hint = 'Enviar el presupuesto por correo electr'#243'nico'
ImageIndex = 21
OnExecute = actEnviarEMailExecute
OnUpdate = actEnviarEMailUpdate
end
end
inherited dsDataTable: TDADataSource [10]
end
inherited JvAppRegistryStorage: TJvAppRegistryStorage [11]
end
inherited StatusBarImages: TPngImageList
Left = 16
Top = 408

View File

@ -15,7 +15,6 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
ExplicitHeight = 473
DesignSize = (
787
411)
@ -46,28 +45,6 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
TabOrder = 3
Width = 119
end
object memObservaciones: TcxDBMemo
Left = 396
Top = 228
Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource
Properties.ScrollBars = ssVertical
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 11
Height = 206
Width = 104
end
object eReferencia: TcxDBTextEdit
Left = 123
Top = 28
@ -116,7 +93,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
ExplicitWidth = 549
inherited dxLayoutControl1: TdxLayoutControl
Width = 549
ExplicitHeight = 164
ExplicitWidth = 549
inherited edtlNombre: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
@ -376,6 +353,26 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
TabOrder = 6
Width = 121
end
inline frViewObservaciones1: TfrViewObservaciones
Left = 396
Top = 228
Width = 521
Height = 150
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 11
ReadOnly = False
ExplicitLeft = 396
ExplicitTop = 228
inherited memObservaciones: TcxDBMemo
DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource
end
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
Hidden = True
@ -483,9 +480,13 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
AlignVert = avClient
Caption = 'Observaciones'
object dxLayoutControl1Item6: TdxLayoutItem
AutoAligns = [aaHorizontal]
AutoAligns = []
AlignHorz = ahClient
AlignVert = avClient
Control = memObservaciones
Caption = 'New Item'
ShowCaption = False
Control = frViewObservaciones1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
end

View File

@ -34,8 +34,6 @@ type
edtFechaPresupuesto: TcxDBDateEdit;
dxLayoutControl1Group1: TdxLayoutGroup;
dxLayoutControl1Group2: TdxLayoutGroup;
dxLayoutControl1Item6: TdxLayoutItem;
memObservaciones: TcxDBMemo;
dxLayoutControl1Item3: TdxLayoutItem;
eReferencia: TcxDBTextEdit;
dxLayoutControl1Group7: TdxLayoutGroup;
@ -64,6 +62,8 @@ type
cbVendedor: TcxDBComboBox;
dxLayoutControl1Item11: TdxLayoutItem;
dxLayoutControl1Group6: TdxLayoutGroup;
frViewObservaciones1: TfrViewObservaciones;
dxLayoutControl1Item6: TdxLayoutItem;
procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
procedure bFormasPagoClick(Sender: TObject);

View File

@ -61,7 +61,6 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
inherited pgPaginas: TPageControl
Width = 879
Height = 331
ActivePage = pagPagos
OnChanging = pgPaginasChanging
ExplicitTop = 109
ExplicitWidth = 879
@ -112,63 +111,53 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
Width = 201
end
inherited edtFechaVencimiento: TcxDBDateEdit
Left = 264
Left = 326
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 264
ExplicitLeft = 326
ExplicitWidth = 67
Width = 67
end
inherited memObservaciones: TcxDBMemo
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 277
ExplicitHeight = 44
Height = 44
Width = 277
end
inherited eFechaEmision: TcxDBTextEdit
Left = 466
Left = 588
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 466
ExplicitLeft = 588
ExplicitWidth = 286
Width = 286
end
inherited eImporteTotal: TcxDBCurrencyEdit
Left = 466
Left = 588
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 466
ExplicitLeft = 588
ExplicitWidth = 286
Width = 286
end
inherited eNombreCliente: TcxDBTextEdit
Left = 466
Left = 588
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 466
ExplicitLeft = 588
ExplicitWidth = 286
Width = 286
end
inherited eNifCif: TcxDBTextEdit
Left = 466
Left = 588
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 466
ExplicitLeft = 588
ExplicitWidth = 286
Width = 286
end
@ -222,9 +211,9 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
end
end
inherited frViewClienteRecibo1: TfrViewClienteRecibo
Left = 390
Left = 512
Width = 362
ExplicitLeft = 390
ExplicitLeft = 512
ExplicitWidth = 362
inherited dxLayoutControl1: TdxLayoutControl
Width = 362
@ -279,17 +268,17 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
Width = 271
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 350
Left = 228
DataBinding.DataSource = frViewReciboCliente1.DADataSource
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 350
ExplicitLeft = 228
end
inherited Button3: TBitBtn
Left = 240
ExplicitLeft = 240
Left = 118
ExplicitLeft = 118
end
inherited cxDBTextEdit1: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
@ -301,6 +290,19 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
end
end
end
inherited frViewObservaciones1: TfrViewObservaciones
Width = 521
Height = 150
ExplicitWidth = 521
ExplicitHeight = 150
inherited memObservaciones: TcxDBMemo
DataBinding.DataSource = frViewReciboCliente1.DADataSource
ExplicitWidth = 462
ExplicitHeight = 126
Height = 150
Width = 521
end
end
end
end
end

View File

@ -1,23 +1,23 @@
inherited frViewReciboCliente: TfrViewReciboCliente
Width = 925
Height = 509
Height = 471
ExplicitWidth = 925
ExplicitHeight = 509
ExplicitHeight = 471
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
Width = 925
Height = 509
Height = 471
Align = alClient
ParentBackground = True
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 854
ExplicitHeight = 509
DesignSize = (
925
509)
471)
object eReferencia: TcxDBTextEdit
Left = 98
Top = 30
@ -104,28 +104,6 @@ inherited frViewReciboCliente: TfrViewReciboCliente
TabOrder = 2
Width = 327
end
object memObservaciones: TcxDBMemo
Left = 22
Top = 311
Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource
Properties.ScrollBars = ssVertical
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 8
Height = 49
Width = 425
end
object eFechaEmision: TcxDBTextEdit
Left = 536
Top = 335
@ -426,6 +404,8 @@ inherited frViewReciboCliente: TfrViewReciboCliente
inherited dxLayoutControl1: TdxLayoutControl
Width = 863
Height = 275
ExplicitWidth = 863
ExplicitHeight = 275
inherited edtlNombre: TcxDBTextEdit
DataBinding.DataSource = DADataSource
Style.LookAndFeel.SkinName = ''
@ -494,6 +474,26 @@ inherited frViewReciboCliente: TfrViewReciboCliente
end
end
end
inline frViewObservaciones1: TfrViewObservaciones
Left = 22
Top = 311
Width = 521
Height = 150
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 8
ReadOnly = False
ExplicitLeft = 22
ExplicitTop = 311
inherited memObservaciones: TcxDBMemo
DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource
end
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
Hidden = True
@ -577,11 +577,13 @@ inherited frViewReciboCliente: TfrViewReciboCliente
AlignVert = avClient
Caption = 'Observaciones'
object dxLayoutControl1Item5: TdxLayoutItem
AutoAligns = [aaHorizontal]
AutoAligns = []
AlignHorz = ahClient
AlignVert = avClient
Caption = 'Observaciones:'
Caption = 'New Item'
ShowCaption = False
Control = memObservaciones
Control = frViewObservaciones1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
end

View File

@ -8,7 +8,7 @@ uses
cxControls, cxCurrencyEdit, cxDBEdit, cxMemo, cxMaskEdit, cxDropDownEdit,
cxCalendar, cxContainer, cxEdit, cxTextEdit, dxLayoutLookAndFeels, ExtCtrls,
uDAInterfaces, uCustomView, uViewDatosYSeleccionCliente, uRecibosClienteController,
uViewTienda, uViewClienteRecibo;
uViewTienda, uViewClienteRecibo, uViewObservaciones;
type
IViewReciboCliente = interface(IViewBase)
@ -33,8 +33,6 @@ type
eSituacion: TcxDBTextEdit;
dxLayoutControl1Item3: TdxLayoutItem;
edtFechaVencimiento: TcxDBDateEdit;
dxLayoutControl1Item5: TdxLayoutItem;
memObservaciones: TcxDBMemo;
dxLayoutControl1Group1: TdxLayoutGroup;
dxLayoutControl1Item7: TdxLayoutItem;
eFechaEmision: TcxDBTextEdit;
@ -66,6 +64,8 @@ type
dxLayoutControl1Item6: TdxLayoutItem;
frViewClienteRecibo1: TfrViewClienteRecibo;
dxLayoutControl1Group4: TdxLayoutGroup;
frViewObservaciones1: TfrViewObservaciones;
dxLayoutControl1Item5: TdxLayoutItem;
private
FRecibo : IBizRecibosCliente;
FController : IRecibosClienteController;

View File

@ -10,7 +10,6 @@
<Projects Include="..\..\GUIBase\GUIBase.dproj" />
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Recibos de cliente\Views\RecibosCliente_view.dproj" />
<Projects Include="Controller\RecibosProveedor_controller.dproj" />
<Projects Include="Data\RecibosProveedor_data.dproj" />
<Projects Include="Model\RecibosProveedor_model.dproj" />
@ -122,23 +121,14 @@
<Target Name="FactuGES_Server:Make">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
</Target>
<Target Name="RecibosCliente_view">
<MSBuild Projects="..\Recibos de cliente\Views\RecibosCliente_view.dproj" Targets="" />
</Target>
<Target Name="RecibosCliente_view:Clean">
<MSBuild Projects="..\Recibos de cliente\Views\RecibosCliente_view.dproj" Targets="Clean" />
</Target>
<Target Name="RecibosCliente_view:Make">
<MSBuild Projects="..\Recibos de cliente\Views\RecibosCliente_view.dproj" Targets="Make" />
</Target>
<Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;RecibosProveedor_model;RecibosProveedor_data;RecibosProveedor_controller;RecibosProveedor_view;RecibosProveedor_plugin;FactuGES;FactuGES_Server;RecibosCliente_view" />
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;RecibosProveedor_model;RecibosProveedor_data;RecibosProveedor_controller;RecibosProveedor_view;RecibosProveedor_plugin;FactuGES;FactuGES_Server" />
</Target>
<Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;RecibosProveedor_model:Clean;RecibosProveedor_data:Clean;RecibosProveedor_controller:Clean;RecibosProveedor_view:Clean;RecibosProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;RecibosCliente_view:Clean" />
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;RecibosProveedor_model:Clean;RecibosProveedor_data:Clean;RecibosProveedor_controller:Clean;RecibosProveedor_view:Clean;RecibosProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean" />
</Target>
<Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;RecibosProveedor_model:Make;RecibosProveedor_data:Make;RecibosProveedor_controller:Make;RecibosProveedor_view:Make;RecibosProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;RecibosCliente_view:Make" />
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;RecibosProveedor_model:Make;RecibosProveedor_data:Make;RecibosProveedor_controller:Make;RecibosProveedor_view:Make;RecibosProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make" />
</Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

View File

@ -120,16 +120,6 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
ExplicitWidth = 20
Width = 20
end
inherited memObservaciones: TcxDBMemo
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 226
ExplicitHeight = 169
Height = 169
Width = 226
end
inherited eFechaEmision: TcxDBTextEdit
Left = 384
Style.LookAndFeel.SkinName = ''
@ -317,6 +307,19 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
end
end
end
inherited frViewObservaciones1: TfrViewObservaciones
Width = 521
Height = 150
ExplicitWidth = 521
ExplicitHeight = 150
inherited memObservaciones: TcxDBMemo
DataBinding.DataSource = frViewReciboProveedor1.DADataSource
ExplicitWidth = 226
ExplicitHeight = 129
Height = 150
Width = 521
end
end
end
end
end

View File

@ -1,12 +1,12 @@
inherited frViewReciboProveedor: TfrViewReciboProveedor
Width = 811
Width = 858
Height = 524
ExplicitWidth = 811
ExplicitWidth = 858
ExplicitHeight = 524
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
Width = 811
Width = 858
Height = 524
Align = alClient
ParentBackground = True
@ -14,8 +14,9 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 811
DesignSize = (
811
858
524)
object eReferencia: TcxDBTextEdit
Left = 136
@ -78,7 +79,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
Width = 268
end
object edtFechaVencimiento: TcxDBDateEdit
Left = 283
Left = 308
Top = 84
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_VENCIMIENTO'
@ -103,30 +104,8 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
TabOrder = 3
Width = 268
end
object memObservaciones: TcxDBMemo
Left = 22
Top = 338
Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource
Properties.ScrollBars = ssVertical
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 9
Height = 49
Width = 382
end
object eFechaEmision: TcxDBTextEdit
Left = 518
Left = 565
Top = 360
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_FACTURA'
@ -156,7 +135,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
Width = 260
end
object eImporteTotal: TcxDBCurrencyEdit
Left = 518
Left = 565
Top = 441
AutoSize = False
DataBinding.DataField = 'IMPORTE_FACTURA'
@ -192,7 +171,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
Width = 260
end
object eNombreCliente: TcxDBTextEdit
Left = 518
Left = 565
Top = 414
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'NOMBRE'
@ -308,7 +287,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
Width = 268
end
object rReferenciaFacturaProv: TcxDBTextEdit
Left = 518
Left = 565
Top = 333
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA_FACTURA_PROV'
@ -385,7 +364,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
ExplicitWidth = 268
inherited dxLayoutControl1: TdxLayoutControl
Width = 268
ExplicitWidth = 246
ExplicitWidth = 268
inherited cbTienda: TcxComboBox
Left = 10
Style.LookAndFeel.SkinName = ''
@ -434,7 +413,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
Width = 268
end
object eNifCif: TcxDBTextEdit
Left = 518
Left = 565
Top = 387
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'NIF_CIF'
@ -464,7 +443,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
Width = 260
end
inline frViewProveedorRecibo1: TfrViewProveedorRecibo
Left = 410
Left = 457
Top = 30
Width = 379
Height = 278
@ -476,7 +455,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
ParentFont = False
TabOrder = 10
ReadOnly = False
ExplicitLeft = 410
ExplicitLeft = 457
ExplicitTop = 30
ExplicitWidth = 379
ExplicitHeight = 278
@ -489,6 +468,8 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 224
Width = 224
end
inherited edtNIFCIF: TcxDBTextEdit
DataBinding.DataSource = DADataSource
@ -544,9 +525,31 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 283
Width = 283
end
end
end
inline frViewObservaciones1: TfrViewObservaciones
Left = 22
Top = 338
Width = 521
Height = 150
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 9
ReadOnly = False
ExplicitLeft = 22
ExplicitTop = 338
inherited memObservaciones: TcxDBMemo
DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource
end
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
Hidden = True
@ -636,11 +639,13 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
AlignVert = avClient
Caption = 'Observaciones'
object dxLayoutControl1Item5: TdxLayoutItem
AutoAligns = [aaHorizontal]
AutoAligns = []
AlignHorz = ahClient
AlignVert = avClient
Caption = 'Observaciones:'
Caption = 'New Item'
ShowCaption = False
Control = memObservaciones
Control = frViewObservaciones1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
end

View File

@ -8,7 +8,7 @@ uses
cxControls, cxCurrencyEdit, cxDBEdit, cxMemo, cxMaskEdit, cxDropDownEdit,
cxCalendar, cxContainer, cxEdit, cxTextEdit, dxLayoutLookAndFeels, ExtCtrls,
uDAInterfaces, uCustomView, uViewDatosYSeleccionProveedor, uRecibosProveedorController, uViewTienda,
uViewProveedorRecibo;
uViewProveedorRecibo, uViewObservaciones;
type
IViewReciboProveedor = interface(IViewBase)
@ -33,8 +33,6 @@ type
eSituacion: TcxDBTextEdit;
dxLayoutControl1Item3: TdxLayoutItem;
edtFechaVencimiento: TcxDBDateEdit;
dxLayoutControl1Item5: TdxLayoutItem;
memObservaciones: TcxDBMemo;
dxLayoutControl1Group1: TdxLayoutGroup;
dxLayoutControl1Item7: TdxLayoutItem;
eFechaEmision: TcxDBTextEdit;
@ -70,6 +68,8 @@ type
dxLayoutControl1Item6: TdxLayoutItem;
frViewProveedorRecibo1: TfrViewProveedorRecibo;
dxLayoutControl1Group4: TdxLayoutGroup;
frViewObservaciones1: TfrViewObservaciones;
dxLayoutControl1Item5: TdxLayoutItem;
private
FRecibo : IBizRecibosProveedor;
FController : IRecibosProveedorController;

Binary file not shown.

View File

@ -16,7 +16,7 @@ BEGIN
VALUE "FileVersion", "2.3.1.0\0"
VALUE "ProductName", "FactuGES (Servidor)\0"
VALUE "ProductVersion", "2.3.1.0\0"
VALUE "CompileDate", "martes, 14 de abril de 2009 17:49\0"
VALUE "CompileDate", "miércoles, 15 de abril de 2009 16:33\0"
END
END
BLOCK "VarFileInfo"