Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
Source/ApplicationBase/ApplicationBase.dproj
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="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\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> <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"> <DelphiCompile Include="ApplicationBase.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Contactos\adortl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="..\Modulos\Contactos\Base.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="..\Modulos\Contactos\ccpackD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\ccpackD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\cfpack_d11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cfpack_d11.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxLibraryD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\DataAbstract_Core_D11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dbrtl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Contactos\designide.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
<DCCReference Include="..\Modulos\Contactos\dsnap.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxGDIPlusD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxNavBarD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxNavBarD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxThemeD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\GUIBase.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
<DCCReference Include="..\Modulos\Contactos\GUISDK_D11R.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvJansD11R.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\JvJansD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\RemObjects_Core_D11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Contactos\rtl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="..\Modulos\Contactos\vcl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="..\Modulos\Contactos\vclactnband.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Contactos\vcldb.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="..\Modulos\Contactos\vcljpg.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Contactos\vclx.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="..\Modulos\Contactos\xmlrtl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
<DCCReference Include="Configuracion\Controller\uConfiguracionController.pas" /> <DCCReference Include="Configuracion\Controller\uConfiguracionController.pas" />
<DCCReference Include="Configuracion\Controller\Views\uIViewConfiguracionBase.pas" /> <DCCReference Include="Configuracion\Controller\Views\uIViewConfiguracionBase.pas" />
<DCCReference Include="Configuracion\Views\uEditorConfiguracion.pas"> <DCCReference Include="Configuracion\Views\uEditorConfiguracion.pas">

170
Source/ApplicationBase/Empresas/Views/uEditorEmpresa.dfm
View File

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

90
Source/ApplicationBase/Empresas/Views/uViewEmpresa.dfm
View File

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

6
Source/ApplicationBase/Empresas/Views/uViewEmpresa.pas
View File

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

97
Source/Base/Base.dproj
View File

@ -44,13 +44,6 @@
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="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> <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\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\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@ -65,52 +58,52 @@
<DelphiCompile Include="Base.dpk"> <DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Albaranes de proveedor\adortl.dcp" /> <DCCReference Include="..\adortl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxIntl6D11.dcp" /> <DCCReference Include="..\cxIntl6D11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxIntlPrintSys3D11.dcp" /> <DCCReference Include="..\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxLibraryD11.dcp" /> <DCCReference Include="..\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\dbrtl.dcp" /> <DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\dclIndyCore.dcp" /> <DCCReference Include="..\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\designide.dcp" /> <DCCReference Include="..\designide.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\dsnap.dcp" /> <DCCReference Include="..\dsnap.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\dxGDIPlusD11.dcp" /> <DCCReference Include="..\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\dxNavBarD11.dcp" /> <DCCReference Include="..\dxNavBarD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\dxThemeD11.dcp" /> <DCCReference Include="..\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\GUISDK_D11R.dcp" /> <DCCReference Include="..\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\IndyCore.dcp" /> <DCCReference Include="..\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\IndyProtocols.dcp" /> <DCCReference Include="..\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\IndySystem.dcp" /> <DCCReference Include="..\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Jcl.dcp" /> <DCCReference Include="..\Jcl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JclVcl.dcp" /> <DCCReference Include="..\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JSDialog100.dcp" /> <DCCReference Include="..\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvCmpD11R.dcp" /> <DCCReference Include="..\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvCoreD11R.dcp" /> <DCCReference Include="..\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvCtrlsD11R.dcp" /> <DCCReference Include="..\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvDlgsD11R.dcp" /> <DCCReference Include="..\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvMMD11R.dcp" /> <DCCReference Include="..\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvNetD11R.dcp" /> <DCCReference Include="..\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvPageCompsD11R.dcp" /> <DCCReference Include="..\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvStdCtrlsD11R.dcp" /> <DCCReference Include="..\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvSystemD11R.dcp" /> <DCCReference Include="..\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\pckMD5.dcp" /> <DCCReference Include="..\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\pckUCDataConnector.dcp" /> <DCCReference Include="..\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\pckUserControl_RT.dcp" /> <DCCReference Include="..\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\PluginSDK_D11R.dcp" /> <DCCReference Include="..\PluginSDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\PngComponentsD10.dcp" /> <DCCReference Include="..\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\PNG_D10.dcp" /> <DCCReference Include="..\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\rtl.dcp" /> <DCCReference Include="..\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="..\Servicios\FactuGES_Intf.pas" /> <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"> <DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form> <Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>

64
Source/GUIBase/GUIBase.dproj
View File

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

110
Source/GUIBase/uViewObservaciones.dfm
View File

@ -1,46 +1,88 @@
inherited frViewObservaciones: TfrViewObservaciones inherited frViewObservaciones: TfrViewObservaciones
Width = 300 Width = 521
DesignSize = ( Height = 150
300 ExplicitWidth = 521
226) ExplicitHeight = 150
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
object memObservaciones: TcxDBMemo object memObservaciones: TcxDBMemo
Left = 16 Left = 0
Top = 32 Top = 0
Anchors = [akLeft, akTop, akRight, akBottom] Align = alClient
DataBinding.DataField = 'OBSERVACIONES' PopupMenu = PopupMenuObservaciones
DataBinding.DataSource = DADataSource
Properties.ScrollBars = ssVertical Properties.ScrollBars = ssVertical
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 0 TabOrder = 0
Height = 179 ExplicitHeight = 228
Width = 269 Height = 150
Width = 521
end end
object DADataSource: TDADataSource object ActionListObservaciones: TActionList
Left = 16 Left = 48
Top = 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
end end

21
Source/GUIBase/uViewObservaciones.pas
View File

@ -5,14 +5,27 @@ interface
uses uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewBase, DB, uDADataTable, cxMemo, cxDBEdit, cxControls, Dialogs, uViewBase, DB, uDADataTable, cxMemo, cxDBEdit, cxControls,
cxContainer, cxEdit, cxTextEdit, ExtCtrls, StdCtrls; cxContainer, cxEdit, cxTextEdit, ExtCtrls, StdCtrls, Menus, StdActns, ActnList;
type type
TfrViewObservaciones = class(TfrViewBase) TfrViewObservaciones = class(TfrViewBase)
Label5: TLabel;
Bevel1: TBevel;
memObservaciones: TcxDBMemo; 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
{ Private declarations } { Private declarations }
public public

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

@ -43,18 +43,6 @@
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl not found</Excluded_Packages> <Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl not found</Excluded_Packages>
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclnet100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclnet100.bpl not found</Excluded_Packages> <Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclnet100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclnet100.bpl not found</Excluded_Packages>
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclsoap100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclsoap100.bpl not found</Excluded_Packages> <Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclsoap100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclsoap100.bpl not found</Excluded_Packages>
@ -66,14 +54,14 @@
<DelphiCompile Include="AlbaranesCliente_view.dpk"> <DelphiCompile Include="AlbaranesCliente_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\AlbaranesCliente_controller.dcp" /> <DCCReference Include="..\AlbaranesCliente_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\AlbaranesCliente_model.dcp" /> <DCCReference Include="..\AlbaranesCliente_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\AlbCli_FacCli_relation.dcp" /> <DCCReference Include="..\AlbCli_FacCli_relation.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Almacenes_controller.dcp" /> <DCCReference Include="..\Almacenes_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" /> <DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Articulos_view.dcp" /> <DCCReference Include="..\Articulos_view.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" /> <DCCReference Include="..\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" /> <DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="uAlbaranesClienteViewRegister.pas" /> <DCCReference Include="uAlbaranesClienteViewRegister.pas" />
<DCCReference Include="uEditorAlbaranCliente.pas"> <DCCReference Include="uEditorAlbaranCliente.pas">
<Form>fEditorAlbaranCliente</Form> <Form>fEditorAlbaranCliente</Form>

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

@ -192,42 +192,6 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 751 Width = 751
ExplicitWidth = 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 end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 751 Width = 751
@ -330,11 +294,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
inherited ImporteDto: TcxDBCurrencyEdit inherited ImporteDto: TcxDBCurrencyEdit
Left = 164 Left = 164
Top = 38 Top = 38
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 164 ExplicitLeft = 164
ExplicitTop = 38 ExplicitTop = 38
ExplicitWidth = 188 ExplicitWidth = 188
@ -344,11 +304,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Left = 555 Left = 555
Top = 88 Top = 88
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 555 ExplicitLeft = 555
ExplicitTop = 88 ExplicitTop = 88
ExplicitWidth = 182 ExplicitWidth = 182
@ -357,11 +313,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 485 Left = 485
Top = 142 Top = 142
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 485 ExplicitLeft = 485
ExplicitTop = 142 ExplicitTop = 142
ExplicitWidth = 252 ExplicitWidth = 252
@ -370,11 +322,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
inherited edtDescuento: TcxDBSpinEdit inherited edtDescuento: TcxDBSpinEdit
Left = 93 Left = 93
Top = 38 Top = 38
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 93 ExplicitLeft = 93
ExplicitTop = 38 ExplicitTop = 38
end end
@ -382,22 +330,14 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Left = 484 Left = 484
Top = 88 Top = 88
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 484 ExplicitLeft = 484
ExplicitTop = 88 ExplicitTop = 88
end end
inherited ImporteBase: TcxDBCurrencyEdit inherited ImporteBase: TcxDBCurrencyEdit
Left = 484 Left = 484
Top = 11 Top = 11
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 484 ExplicitLeft = 484
ExplicitTop = 11 ExplicitTop = 11
ExplicitWidth = 253 ExplicitWidth = 253
@ -407,11 +347,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Left = 484 Left = 484
Top = 115 Top = 115
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 484 ExplicitLeft = 484
ExplicitTop = 115 ExplicitTop = 115
end end
@ -419,11 +355,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Left = 555 Left = 555
Top = 115 Top = 115
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 555 ExplicitLeft = 555
ExplicitTop = 115 ExplicitTop = 115
ExplicitWidth = 182 ExplicitWidth = 182
@ -432,11 +364,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
inherited eImporteNeto: TcxDBCurrencyEdit inherited eImporteNeto: TcxDBCurrencyEdit
Left = 93 Left = 93
Top = 11 Top = 11
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 93 ExplicitLeft = 93
ExplicitTop = 11 ExplicitTop = 11
ExplicitWidth = 259 ExplicitWidth = 259
@ -446,11 +374,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Left = 93 Left = 93
Top = 65 Top = 65
Properties.OnValidate = frViewTotales1ePortePropertiesValidate Properties.OnValidate = frViewTotales1ePortePropertiesValidate
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 93 ExplicitLeft = 93
ExplicitTop = 65 ExplicitTop = 65
ExplicitWidth = 259 ExplicitWidth = 259
@ -460,10 +384,6 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Left = 93 Left = 93
Top = 92 Top = 92
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 93 ExplicitLeft = 93
ExplicitTop = 92 ExplicitTop = 92
ExplicitWidth = 121 ExplicitWidth = 121
@ -480,10 +400,6 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Top = 119 Top = 119
DataBinding.DataField = '' DataBinding.DataField = ''
DataBinding.DataSource = nil DataBinding.DataSource = nil
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 93 ExplicitLeft = 93
ExplicitTop = 119 ExplicitTop = 119
ExplicitWidth = 259 ExplicitWidth = 259

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

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

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

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

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

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

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

@ -41,19 +41,19 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">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> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>
<DelphiCompile Include="AlbaranesProveedor_view.dpk"> <DelphiCompile Include="AlbaranesProveedor_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Lib\AlbaranesProveedor_controller.dcp" /> <DCCReference Include="..\AlbaranesProveedor_controller.dcp" />
<DCCReference Include="..\..\Lib\AlbaranesProveedor_model.dcp" /> <DCCReference Include="..\AlbaranesProveedor_model.dcp" />
<DCCReference Include="..\..\Lib\Almacenes_controller.dcp" /> <DCCReference Include="..\Almacenes_controller.dcp" />
<DCCReference Include="..\..\Lib\Almacenes_model.dcp" /> <DCCReference Include="..\Almacenes_model.dcp" />
<DCCReference Include="..\..\Lib\Articulos_view.dcp" /> <DCCReference Include="..\Articulos_view.dcp" />
<DCCReference Include="..\..\Lib\GUIBase.dcp" /> <DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="uAlbaranesProveedorViewRegister.pas" /> <DCCReference Include="uAlbaranesProveedorViewRegister.pas" />
<DCCReference Include="uEditorAlbaranDevProveedor.pas"> <DCCReference Include="uEditorAlbaranDevProveedor.pas">
<Form>fEditorAlbaranDevProveedor</Form> <Form>fEditorAlbaranDevProveedor</Form>
@ -117,7 +117,6 @@
</DCCReference> </DCCReference>
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]
EurekaLog Version=6006 EurekaLog Version=6006

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

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

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

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

63
Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranDevProveedor.dfm
View File

@ -7,17 +7,20 @@ inherited frViewAlbaranDevProveedor: TfrViewAlbaranDevProveedor
inherited edtFechaAlbaran: TcxDBDateEdit inherited edtFechaAlbaran: TcxDBDateEdit
Left = 114 Left = 114
ExplicitLeft = 114 ExplicitLeft = 114
end ExplicitWidth = 119
inherited memObservaciones: TcxDBMemo Width = 119
ExplicitHeight = 61
Height = 61
end end
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
Left = 114 Left = 114
ExplicitLeft = 114 ExplicitLeft = 114
ExplicitWidth = 143
Width = 143
end end
inherited frViewProveedorAlbaran: TfrViewDatosYSeleccionProveedor inherited frViewProveedorAlbaran: TfrViewDatosYSeleccionProveedor
Width = 350
ExplicitWidth = 350
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 350
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
ExplicitWidth = 224 ExplicitWidth = 224
Width = 224 Width = 224
@ -41,13 +44,37 @@ inherited frViewAlbaranDevProveedor: TfrViewAlbaranDevProveedor
end end
end end
inherited frViewDireccionEntregaAlbaranProv1: TfrViewDireccionEntregaAlbaranProv inherited frViewDireccionEntregaAlbaranProv1: TfrViewDireccionEntregaAlbaranProv
Width = 445
Height = 175
ExplicitWidth = 445
ExplicitHeight = 175
inherited dxLayoutControl1: TdxLayoutControl 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 inherited bModificar: TBitBtn
Left = 199 Left = 136
Top = 109 Top = 109
ExplicitLeft = 199 ExplicitLeft = 136
ExplicitTop = 109 ExplicitTop = 109
end end
inherited txtDireccion: TStaticText
Width = 549
Height = 110
ExplicitWidth = 549
ExplicitHeight = 110
end
inherited dxLayoutGroup1: TdxLayoutGroup inherited dxLayoutGroup1: TdxLayoutGroup
inherited dxLayoutItem1: TdxLayoutItem inherited dxLayoutItem1: TdxLayoutItem
Visible = False Visible = False
@ -67,6 +94,8 @@ inherited frViewAlbaranDevProveedor: TfrViewAlbaranDevProveedor
inherited cbFormaPago: TcxDBLookupComboBox inherited cbFormaPago: TcxDBLookupComboBox
Left = 114 Left = 114
ExplicitLeft = 114 ExplicitLeft = 114
ExplicitWidth = 90
Width = 90
end end
inherited eReferenciaPedidoCli: TcxTextEdit inherited eReferenciaPedidoCli: TcxTextEdit
Left = 114 Left = 114
@ -86,6 +115,28 @@ inherited frViewAlbaranDevProveedor: TfrViewAlbaranDevProveedor
ExplicitWidth = 262 ExplicitWidth = 262
Width = 262 Width = 262
end 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 dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group6: TdxLayoutGroup inherited dxLayoutControl1Group6: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup inherited dxLayoutControl1Group1: TdxLayoutGroup

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

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

67
Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.dfm
View File

@ -13,6 +13,7 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
DesignSize = ( DesignSize = (
723 723
@ -39,24 +40,6 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
TabOrder = 2 TabOrder = 2
Width = 119 Width = 119
end 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 object eReferencia: TcxDBTextEdit
Left = 119 Left = 119
Top = 28 Top = 28
@ -80,7 +63,7 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
Width = 143 Width = 143
end end
inline frViewProveedorAlbaran: TfrViewDatosYSeleccionProveedor inline frViewProveedorAlbaran: TfrViewDatosYSeleccionProveedor
Left = 416 Left = 350
Top = 28 Top = 28
Width = 350 Width = 350
Height = 212 Height = 212
@ -92,7 +75,7 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
ParentFont = False ParentFont = False
TabOrder = 11 TabOrder = 11
ReadOnly = False ReadOnly = False
ExplicitLeft = 416 ExplicitLeft = 350
ExplicitTop = 28 ExplicitTop = 28
ExplicitHeight = 212 ExplicitHeight = 212
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
@ -117,12 +100,12 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
Width = 327 Width = 327
end end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
Left = 203 Left = 259
ExplicitLeft = 203 ExplicitLeft = 259
end end
inherited Button3: TBitBtn inherited Button3: TBitBtn
Left = 87 Left = 143
ExplicitLeft = 87 ExplicitLeft = 143
end end
end end
inherited DADataSource: TDADataSource inherited DADataSource: TDADataSource
@ -176,9 +159,9 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
Width = 425 Width = 425
end end
inherited bModificar: TBitBtn inherited bModificar: TBitBtn
Left = 226 Left = 160
Top = 211 Top = 211
ExplicitLeft = 226 ExplicitLeft = 160
ExplicitTop = 211 ExplicitTop = 211
end end
inherited txtDireccion: TStaticText inherited txtDireccion: TStaticText
@ -223,7 +206,7 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
Width = 90 Width = 90
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 254 Left = 188
Top = 192 Top = 192
Width = 132 Width = 132
Height = 21 Height = 21
@ -255,7 +238,7 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
Width = 122 Width = 122
end end
object Button1: TButton object Button1: TButton
Left = 254 Left = 188
Top = 109 Top = 109
Width = 132 Width = 132
Height = 23 Height = 23
@ -360,6 +343,26 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
end end
end 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 object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -481,9 +484,13 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
AlignVert = avClient AlignVert = avClient
Caption = 'Observaciones' Caption = 'Observaciones'
object dxLayoutControl1Item6: TdxLayoutItem object dxLayoutControl1Item6: TdxLayoutItem
AutoAligns = [aaHorizontal] AutoAligns = []
AlignHorz = ahClient
AlignVert = avClient AlignVert = avClient
Control = memObservaciones Caption = 'New Item'
ShowCaption = False
Control = frViewObservaciones1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end

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

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

16
Source/Modulos/Contactos/Contactos_Group.groupproj
View File

@ -13,7 +13,6 @@
<Projects Include="..\Contabilidad\Data\Contabilidad_data.dproj" /> <Projects Include="..\Contabilidad\Data\Contabilidad_data.dproj" />
<Projects Include="..\Contabilidad\Model\Contabilidad_model.dproj" /> <Projects Include="..\Contabilidad\Model\Contabilidad_model.dproj" />
<Projects Include="..\Contabilidad\Views\Contabilidad_view.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="Controller\Contactos_controller.dproj" />
<Projects Include="Data\Contactos_data.dproj" /> <Projects Include="Data\Contactos_data.dproj" />
<Projects Include="Model\Contactos_model.dproj" /> <Projects Include="Model\Contactos_model.dproj" />
@ -152,23 +151,14 @@
<Target Name="FactuGES_Server:Make"> <Target Name="FactuGES_Server:Make">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" /> <MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
</Target> </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"> <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>
<Target Name="Clean"> <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>
<Target Name="Make"> <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> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

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

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

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

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

322
Source/Modulos/Contactos/Views/uEditorProveedor.dfm
View File

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

192
Source/Modulos/Contactos/Views/uEditorVendedor.dfm
View File

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

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

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

174
Source/Modulos/Contactos/Views/uViewCliente.dfm
View File

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

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

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

61
Source/Modulos/Contactos/Views/uViewContacto.dfm
View File

@ -1,18 +1,19 @@
inherited frViewContacto: TfrViewContacto inherited frViewContacto: TfrViewContacto
Width = 624 Width = 624
Height = 536 Height = 542
ExplicitWidth = 624 ExplicitWidth = 624
ExplicitHeight = 536 ExplicitHeight = 542
object dxLayoutControlContacto: TdxLayoutControl object dxLayoutControlContacto: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 624 Width = 624
Height = 536 Height = 542
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
ExplicitHeight = 536
object PngSpeedButton1: TPngSpeedButton object PngSpeedButton1: TPngSpeedButton
Left = 579 Left = 579
Top = 222 Top = 222
@ -197,30 +198,6 @@ inherited frViewContacto: TfrViewContacto
TabOrder = 5 TabOrder = 5
Width = 56 Width = 56
end 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 object eTlfParticular: TcxDBTextEdit
Left = 407 Left = 407
Top = 55 Top = 55
@ -507,6 +484,28 @@ inherited frViewContacto: TfrViewContacto
end end
end 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 object dxLayoutControlContactoGroup_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -716,11 +715,13 @@ inherited frViewContacto: TfrViewContacto
AlignVert = avClient AlignVert = avClient
Caption = 'Observaciones' Caption = 'Observaciones'
object dxLayoutControlContactoItem8: TdxLayoutItem object dxLayoutControlContactoItem8: TdxLayoutItem
AutoAligns = [aaHorizontal] AutoAligns = []
AlignHorz = ahClient
AlignVert = avClient AlignVert = avClient
Caption = 'cxDBMemo1' Caption = 'New Item'
ShowCaption = False ShowCaption = False
Control = eObservaciones Control = frViewObservaciones1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end

7
Source/Modulos/Contactos/Views/uViewContacto.pas
View File

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

78
Source/Modulos/Contactos/Views/uViewProveedor.dfm
View File

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

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

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

143
Source/Modulos/Contactos/Views/uViewVendedor.dfm
View File

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

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

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

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

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

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

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

125
Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm
View File

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

7
Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas
View File

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

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

@ -122,12 +122,6 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
ExplicitWidth = 191 ExplicitWidth = 191
Width = 191 Width = 191
end end
inherited memObservaciones: TcxDBMemo
ExplicitWidth = 671
ExplicitHeight = 170
Height = 170
Width = 671
end
inherited cbFormaPago: TcxDBLookupComboBox inherited cbFormaPago: TcxDBLookupComboBox
ExplicitWidth = 53 ExplicitWidth = 53
Width = 53 Width = 53
@ -207,16 +201,23 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
end end
end 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 end
end end
object pagContenido: TTabSheet object pagContenido: TTabSheet
Caption = 'Contenido' Caption = 'Contenido'
ImageIndex = 1 ImageIndex = 1
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewDetallesFacturaProveedor1: TfrViewDetallesFacturaProveedor inline frViewDetallesFacturaProveedor1: TfrViewDetallesFacturaProveedor
Left = 0 Left = 0
Top = 0 Top = 0
@ -529,6 +530,10 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
inherited PnlComentario: TPanel [5] inherited PnlComentario: TPanel [5]
Width = 746 Width = 746
ExplicitWidth = 746 ExplicitWidth = 746
inherited lbComentario: TLabel
Width = 736
Height = 25
end
end end
inherited EditorActionList: TActionList [9] inherited EditorActionList: TActionList [9]
Left = 8 Left = 8

117
Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.dfm
View File

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

6
Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.pas
View File

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

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

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

108
Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.dfm
View File

@ -42,27 +42,51 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
ExplicitWidth = 357 ExplicitWidth = 357
ExplicitHeight = 215 ExplicitHeight = 215
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 283 ExplicitWidth = 283
Width = 283 Width = 283
end end
inherited edtNIFCIF: TcxDBTextEdit inherited edtNIFCIF: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 283 ExplicitWidth = 283
Width = 283 Width = 283
end end
inherited edtCalle: TcxDBTextEdit inherited edtCalle: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 283 ExplicitWidth = 283
Width = 283 Width = 283
end end
inherited edtPoblacion: TcxDBTextEdit inherited edtPoblacion: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 176 ExplicitWidth = 176
Width = 176 Width = 176
end end
inherited edtProvincia: TcxDBTextEdit inherited edtProvincia: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 283 ExplicitWidth = 283
Width = 283 Width = 283
end end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
Left = 276 Left = 276
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 276 ExplicitLeft = 276
ExplicitWidth = 71 ExplicitWidth = 71
Width = 71 Width = 71
@ -85,13 +109,17 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Style.Color = clInfoBk Style.Color = clInfoBk
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.Shadow = False Style.Shadow = False
Style.ButtonStyle = bts3D Style.ButtonStyle = bts3D
Style.ButtonTransparency = ebtNone Style.ButtonTransparency = ebtNone
Style.PopupBorderStyle = epbsFrame3D Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 1 TabOrder = 1
Width = 158 Width = 158
end end
@ -106,13 +134,17 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.Shadow = False Style.Shadow = False
Style.ButtonStyle = bts3D Style.ButtonStyle = bts3D
Style.ButtonTransparency = ebtNone Style.ButtonTransparency = ebtNone
Style.PopupBorderStyle = epbsFrame3D Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 7 TabOrder = 7
Width = 158 Width = 158
end end
@ -127,32 +159,18 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 8 TabOrder = 8
Width = 158 Width = 158
end 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 object eReferencia: TcxDBTextEdit
Left = 137 Left = 137
Top = 28 Top = 28
@ -167,11 +185,15 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Style.Color = clInfoBk Style.Color = clInfoBk
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.Color = clMenuBar StyleDisabled.Color = clMenuBar
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 0 TabOrder = 0
Width = 158 Width = 158
end end
@ -206,6 +228,10 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
ExplicitWidth = 253 ExplicitWidth = 253
end end
inherited cbLista: TcxDBLookupComboBox inherited cbLista: TcxDBLookupComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 238 ExplicitWidth = 238
Width = 238 Width = 238
end end
@ -250,14 +276,18 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 2 TabOrder = 2
Width = 20 Width = 20
end end
@ -281,13 +311,17 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.Shadow = False Style.Shadow = False
Style.ButtonStyle = bts3D Style.ButtonStyle = bts3D
Style.ButtonTransparency = ebtNone Style.ButtonTransparency = ebtNone
Style.PopupBorderStyle = epbsFrame3D Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 6 TabOrder = 6
Width = 158 Width = 158
end end
@ -304,13 +338,17 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 4 TabOrder = 4
Width = 20 Width = 20
end end
@ -343,6 +381,32 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 357 Width = 357
ExplicitWidth = 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
end end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
@ -484,9 +548,13 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
AlignVert = avClient AlignVert = avClient
Caption = 'Observaciones' Caption = 'Observaciones'
object dxLayoutControl1Item6: TdxLayoutItem object dxLayoutControl1Item6: TdxLayoutItem
AutoAligns = [aaHorizontal] AutoAligns = []
AlignHorz = ahClient
AlignVert = avClient AlignVert = avClient
Control = memObservaciones Caption = 'New Item'
ShowCaption = False
Control = frViewObservaciones1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end

4
Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.pas
View File

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

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

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

53
Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm
View File

@ -15,7 +15,6 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
ExplicitHeight = 473
DesignSize = ( DesignSize = (
787 787
411) 411)
@ -46,28 +45,6 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
TabOrder = 3 TabOrder = 3
Width = 119 Width = 119
end 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 object eReferencia: TcxDBTextEdit
Left = 123 Left = 123
Top = 28 Top = 28
@ -116,7 +93,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
ExplicitWidth = 549 ExplicitWidth = 549
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 549 Width = 549
ExplicitHeight = 164 ExplicitWidth = 549
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
@ -376,6 +353,26 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
TabOrder = 6 TabOrder = 6
Width = 121 Width = 121
end 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 object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -483,9 +480,13 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
AlignVert = avClient AlignVert = avClient
Caption = 'Observaciones' Caption = 'Observaciones'
object dxLayoutControl1Item6: TdxLayoutItem object dxLayoutControl1Item6: TdxLayoutItem
AutoAligns = [aaHorizontal] AutoAligns = []
AlignHorz = ahClient
AlignVert = avClient AlignVert = avClient
Control = memObservaciones Caption = 'New Item'
ShowCaption = False
Control = frViewObservaciones1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end

4
Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas
View File

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

56
Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm
View File

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

62
Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm
View File

@ -1,23 +1,23 @@
inherited frViewReciboCliente: TfrViewReciboCliente inherited frViewReciboCliente: TfrViewReciboCliente
Width = 925 Width = 925
Height = 509 Height = 471
ExplicitWidth = 925 ExplicitWidth = 925
ExplicitHeight = 509 ExplicitHeight = 471
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 925 Width = 925
Height = 509 Height = 471
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1 LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 854 ExplicitHeight = 509
DesignSize = ( DesignSize = (
925 925
509) 471)
object eReferencia: TcxDBTextEdit object eReferencia: TcxDBTextEdit
Left = 98 Left = 98
Top = 30 Top = 30
@ -104,28 +104,6 @@ inherited frViewReciboCliente: TfrViewReciboCliente
TabOrder = 2 TabOrder = 2
Width = 327 Width = 327
end 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 object eFechaEmision: TcxDBTextEdit
Left = 536 Left = 536
Top = 335 Top = 335
@ -426,6 +404,8 @@ inherited frViewReciboCliente: TfrViewReciboCliente
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 863 Width = 863
Height = 275 Height = 275
ExplicitWidth = 863
ExplicitHeight = 275
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -494,6 +474,26 @@ inherited frViewReciboCliente: TfrViewReciboCliente
end end
end 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 object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -577,11 +577,13 @@ inherited frViewReciboCliente: TfrViewReciboCliente
AlignVert = avClient AlignVert = avClient
Caption = 'Observaciones' Caption = 'Observaciones'
object dxLayoutControl1Item5: TdxLayoutItem object dxLayoutControl1Item5: TdxLayoutItem
AutoAligns = [aaHorizontal] AutoAligns = []
AlignHorz = ahClient
AlignVert = avClient AlignVert = avClient
Caption = 'Observaciones:' Caption = 'New Item'
ShowCaption = False ShowCaption = False
Control = memObservaciones Control = frViewObservaciones1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end

6
Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.pas
View File

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

16
Source/Modulos/Recibos de proveedor/RecibosProveedor_Group.groupproj
View File

@ -10,7 +10,6 @@
<Projects Include="..\..\GUIBase\GUIBase.dproj" /> <Projects Include="..\..\GUIBase\GUIBase.dproj" />
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" /> <Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.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="Controller\RecibosProveedor_controller.dproj" />
<Projects Include="Data\RecibosProveedor_data.dproj" /> <Projects Include="Data\RecibosProveedor_data.dproj" />
<Projects Include="Model\RecibosProveedor_model.dproj" /> <Projects Include="Model\RecibosProveedor_model.dproj" />
@ -122,23 +121,14 @@
<Target Name="FactuGES_Server:Make"> <Target Name="FactuGES_Server:Make">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" /> <MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
</Target> </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"> <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>
<Target Name="Clean"> <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>
<Target Name="Make"> <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> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

23
Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm
View File

@ -120,16 +120,6 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
ExplicitWidth = 20 ExplicitWidth = 20
Width = 20 Width = 20
end 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 inherited eFechaEmision: TcxDBTextEdit
Left = 384 Left = 384
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -317,6 +307,19 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
end end
end 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 end
end end

81
Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.dfm
View File

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

6
Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.pas
View File

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

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

2
Source/Servidor/FactuGES_Server.rc
View File

@ -16,7 +16,7 @@ BEGIN
VALUE "FileVersion", "2.3.1.0\0" VALUE "FileVersion", "2.3.1.0\0"
VALUE "ProductName", "FactuGES (Servidor)\0" VALUE "ProductName", "FactuGES (Servidor)\0"
VALUE "ProductVersion", "2.3.1.0\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
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"