diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj
index 35aacaa7..8b01e4c4 100644
--- a/Source/Cliente/FactuGES.dproj
+++ b/Source/Cliente/FactuGES.dproj
@@ -53,47 +53,7 @@
Delphi.Personality
VCLApplication
-FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2230FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.2.3.0FactuGESFactuGES2.2.3.0
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2240FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.2.4.0FactuGESFactuGES2.2.4.0
diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc
index 2aeeee30..5025b55e 100644
--- a/Source/Cliente/FactuGES.rc
+++ b/Source/Cliente/FactuGES.rc
@@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico"
1 VERSIONINFO
-FILEVERSION 2,2,3,0
-PRODUCTVERSION 2,2,3,0
+FILEVERSION 2,2,4,0
+PRODUCTVERSION 2,2,4,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0"
- VALUE "FileVersion", "2.2.3.0\0"
+ VALUE "FileVersion", "2.2.4.0\0"
VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0"
- VALUE "ProductVersion", "2.2.3.0\0"
+ VALUE "ProductVersion", "2.2.4.0\0"
END
END
BLOCK "VarFileInfo"
diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res
index eab3b869..2a0c5c66 100644
Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ
diff --git a/Source/Informes/InfReciboCliente.fr3 b/Source/Informes/InfReciboCliente.fr3
index e6f086d5..83ac795a 100644
--- a/Source/Informes/InfReciboCliente.fr3
+++ b/Source/Informes/InfReciboCliente.fr3
@@ -1,8 +1,8 @@
-
+
-
+
@@ -24,12 +24,11 @@
-
-
-
-
-
-
+
+
+
+
+
@@ -53,12 +52,11 @@
-
-
-
-
-
-
+
+
+
+
+
@@ -72,7 +70,7 @@
-
+
diff --git a/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.dfm b/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.dfm
index 4b2e3822..6246531c 100644
--- a/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.dfm
+++ b/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.dfm
@@ -780,7 +780,7 @@ object RptRecibosCliente: TRptRecibosCliente
ReportOptions.CreateDate = 37871.995398692100000000
ReportOptions.Description.Strings = (
'Demonstrates how to create simple list report.')
- ReportOptions.LastChange = 39563.534544155100000000
+ ReportOptions.LastChange = 39638.693800335650000000
ReportOptions.VersionBuild = '1'
ReportOptions.VersionMajor = '12'
ReportOptions.VersionMinor = '13'
@@ -856,28 +856,6 @@ object RptRecibosCliente: TRptRecibosCliente
' end'
'end;'
''
- 'procedure Memo42OnBeforePrint(Sender: TfrxComponent);'
- 'begin'
- ' if ( < 1) then'
- ' begin'
-
- ' Memo42.visible := False; ' +
- ' '
- ' Memo45.visible := False;'
- ' Memo38.visible := False;'
- ' Memo39.visible := False;'
- ' Memo43.visible := False;'
- ''
-
- ' Memo27.visible := False; ' +
- ' '
- ' Memo28.visible := False;'
- ' Memo48.visible := False;'
- ' Memo49.visible := False;'
- ' Memo52.visible := False; '
- ' end;'
- 'end;'
- ''
'begin'
''
'end.')
diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm
index 333b20b2..a30debd9 100644
--- a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm
+++ b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm
@@ -1,18 +1,18 @@
inherited fEditorReciboCliente: TfEditorReciboCliente
Caption = 'Recibo de cliente'
ClientHeight = 562
- ClientWidth = 742
+ ClientWidth = 885
OnClose = CustomEditorClose
- ExplicitWidth = 750
+ ExplicitWidth = 893
ExplicitHeight = 596
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
- Width = 742
+ Width = 885
Caption = 'Recibo de cliente'
ExplicitWidth = 742
inherited Image1: TImage
- Left = 715
+ Left = 858
Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
0000180806000000E0773DF80000000970485973000017120000171201679FD2
@@ -39,18 +39,19 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
end
end
inherited TBXDock: TTBXDock
- Width = 742
+ Width = 885
ExplicitWidth = 742
inherited tbxMain: TTBXToolbar
ExplicitWidth = 425
end
inherited tbxMenu: TTBXToolbar
- ExplicitWidth = 742
+ ExplicitWidth = 885
end
end
inherited pgPaginas: TPageControl
- Width = 736
+ Width = 879
Height = 361
+ ActivePage = pagCompensados
OnChanging = pgPaginasChanging
ExplicitLeft = 3
ExplicitTop = 79
@@ -64,9 +65,9 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
inline frViewReciboCliente1: TfrViewReciboCliente
Left = 0
Top = 0
- Width = 728
- Height = 335
- Align = alTop
+ Width = 871
+ Height = 333
+ Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
@@ -78,133 +79,139 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
ExplicitWidth = 728
ExplicitHeight = 335
inherited dxLayoutControl1: TdxLayoutControl
- Width = 728
- Height = 335
+ Width = 871
+ Height = 333
ExplicitWidth = 728
ExplicitHeight = 335
DesignSize = (
- 728
- 335)
+ 871
+ 333)
inherited eReferencia: TcxDBTextEdit
- ExplicitWidth = 217
- Width = 217
+ ExplicitWidth = 201
+ Width = 201
end
inherited eSituacion: TcxDBTextEdit
- ExplicitWidth = 217
- Width = 217
+ ExplicitWidth = 201
+ Width = 201
end
inherited edtFechaVencimiento: TcxDBDateEdit
- ExplicitWidth = 217
- Width = 217
+ Left = 305
+ ExplicitLeft = 305
+ ExplicitWidth = 67
+ Width = 67
end
inherited memObservaciones: TcxDBMemo
- ExplicitWidth = 293
+ ExplicitWidth = 277
ExplicitHeight = 44
Height = 44
- Width = 293
+ Width = 277
end
inherited eFechaEmision: TcxDBTextEdit
- Left = 512
- ExplicitLeft = 512
- ExplicitWidth = 253
- Width = 253
+ Left = 546
+ Top = 378
+ ExplicitLeft = 546
+ ExplicitTop = 378
+ ExplicitWidth = 286
+ Width = 286
end
inherited eImporteTotal: TcxDBCurrencyEdit
- Left = 512
+ Left = 546
+ Top = 459
Style.IsFontAssigned = True
- ExplicitLeft = 512
- ExplicitWidth = 253
- Width = 253
+ ExplicitLeft = 546
+ ExplicitTop = 459
+ ExplicitWidth = 286
+ Width = 286
end
inherited eNombreCliente: TcxDBTextEdit
- Left = 512
- ExplicitLeft = 512
+ Left = 546
+ Top = 432
+ ExplicitLeft = 546
+ ExplicitTop = 432
ExplicitWidth = 286
Width = 286
end
inherited eNifCif: TcxDBTextEdit
- Left = 512
- ExplicitLeft = 512
+ Left = 546
+ Top = 405
+ ExplicitLeft = 546
+ ExplicitTop = 405
ExplicitWidth = 286
Width = 286
end
inherited eRemesa: TcxDBTextEdit
- ExplicitWidth = 217
- Width = 217
+ ExplicitWidth = 201
+ Width = 201
end
inherited edtFechaEmision: TcxDBDateEdit
DataBinding.DataField = 'FECHA_EMISION'
- ExplicitWidth = 217
- Width = 217
+ ExplicitWidth = 62
+ Width = 62
end
inherited rRefReciboCompensado: TcxDBTextEdit
- ExplicitWidth = 191
- Width = 191
+ ExplicitWidth = 201
+ Width = 201
end
inherited eDescripcion: TcxDBTextEdit
- ExplicitWidth = 437
- Width = 437
+ ExplicitWidth = 201
+ Width = 201
end
inherited frViewTienda1: TfrViewTienda
- Width = 451
- ExplicitWidth = 451
+ Width = 201
+ ExplicitWidth = 201
inherited dxLayoutControl1: TdxLayoutControl
- Width = 451
+ Width = 201
inherited cbTienda: TcxComboBox
- ExplicitWidth = 200
- Width = 200
+ ExplicitWidth = 181
+ Width = 181
end
end
end
inherited frViewClienteRecibo1: TfrViewClienteRecibo
- Left = 436
- Width = 350
- ExplicitLeft = 436
- ExplicitWidth = 350
+ Left = 470
+ Width = 362
+ ExplicitLeft = 470
+ ExplicitWidth = 362
inherited dxLayoutControl1: TdxLayoutControl
- Width = 350
+ Width = 362
ExplicitWidth = 350
- inherited Bevel1: TBevel
- Width = 266
- ExplicitWidth = 266
- end
inherited edtlNombre: TcxDBTextEdit
DataBinding.DataSource = frViewReciboCliente1.DADataSource
- ExplicitWidth = 276
- Width = 276
+ ExplicitWidth = 271
+ Width = 271
end
inherited edtNIFCIF: TcxDBTextEdit
DataBinding.DataSource = frViewReciboCliente1.DADataSource
- ExplicitWidth = 276
- Width = 276
+ ExplicitWidth = 271
+ Width = 271
end
inherited edtCalle: TcxDBTextEdit
DataBinding.DataSource = frViewReciboCliente1.DADataSource
- ExplicitWidth = 276
- Width = 276
+ ExplicitWidth = 271
+ Width = 271
end
inherited edtPoblacion: TcxDBTextEdit
DataBinding.DataSource = frViewReciboCliente1.DADataSource
- ExplicitWidth = 158
- Width = 158
+ ExplicitWidth = 153
+ Width = 153
end
inherited edtProvincia: TcxDBTextEdit
DataBinding.DataSource = frViewReciboCliente1.DADataSource
- ExplicitWidth = 276
- Width = 276
+ ExplicitWidth = 271
+ Width = 271
end
inherited edtCodigoPostal: TcxDBTextEdit
- Left = 192
+ Left = 270
DataBinding.DataSource = frViewReciboCliente1.DADataSource
- ExplicitLeft = 192
+ ExplicitLeft = 270
end
inherited Button3: TBitBtn
- Left = 82
- ExplicitLeft = 82
+ Left = 160
+ ExplicitLeft = 160
end
inherited cxDBTextEdit1: TcxDBTextEdit
- ExplicitWidth = 283
- Width = 283
+ ExplicitWidth = 271
+ Width = 271
end
end
end
@@ -214,10 +221,11 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
object pagPagos: TTabSheet
Caption = 'Pagos'
ImageIndex = 2
+ ExplicitWidth = 728
inline frViewPagosCliente1: TfrViewPagosCliente
Left = 0
Top = 0
- Width = 728
+ Width = 871
Height = 333
Align = alClient
Font.Charset = DEFAULT_CHARSET
@@ -231,25 +239,25 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
ExplicitWidth = 728
ExplicitHeight = 333
inherited dxLayoutControl1: TdxLayoutControl
- Width = 728
+ Width = 871
Height = 333
ExplicitWidth = 728
ExplicitHeight = 333
end
inherited dxLayoutControl2: TdxLayoutControl
- Width = 728
+ Width = 871
Height = 333
ExplicitWidth = 728
ExplicitHeight = 333
inherited ToolBar1: TToolBar
- Width = 666
- ExplicitWidth = 666
+ Width = 684
+ ExplicitWidth = 684
end
inherited ListaPagosCliente: TcxGrid
- Width = 605
- Height = 262
- ExplicitWidth = 605
- ExplicitHeight = 262
+ Width = 684
+ Height = 256
+ ExplicitWidth = 684
+ ExplicitHeight = 256
inherited ListaPagosClienteDBTableView1: TcxGridDBTableView
inherited ListaPagosClienteDBTableView1TIPO: TcxGridDBColumn
IsCaptionAssigned = True
@@ -276,10 +284,11 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
object pagCompensados: TTabSheet
Caption = 'Recibos compensados'
ImageIndex = 1
+ ExplicitWidth = 728
inline frViewRecibosCliCompensados1: TfrViewRecibosCliCompensados
Left = 0
Top = 0
- Width = 728
+ Width = 871
Height = 333
Align = alClient
Font.Charset = DEFAULT_CHARSET
@@ -293,9 +302,9 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
ExplicitWidth = 728
ExplicitHeight = 333
inherited cxGrid: TcxGrid
- Width = 728
+ Width = 871
Height = 308
- ExplicitWidth = 728
+ ExplicitWidth = 871
ExplicitHeight = 308
inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = <
@@ -308,20 +317,8 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
end
end
inherited ToolBar1: TToolBar
- Width = 728
- ExplicitWidth = 728
- inherited ToolButton1: TToolButton
- ExplicitWidth = 113
- end
- inherited ToolButton4: TToolButton
- ExplicitWidth = 113
- end
- inherited ToolButton2: TToolButton
- ExplicitWidth = 113
- end
- inherited ToolButton7: TToolButton
- ExplicitWidth = 113
- end
+ Width = 871
+ ExplicitWidth = 871
inherited ToolButton3: TToolButton
ExplicitWidth = 98
end
@@ -334,7 +331,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
end
inherited StatusBar: TJvStatusBar
Top = 543
- Width = 742
+ Width = 885
Panels = <
item
Width = 200
@@ -345,7 +342,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
inline frViewReciboCliImportes1: TfrViewReciboCliImportes [4]
Left = 0
Top = 443
- Width = 742
+ Width = 885
Height = 100
Align = alBottom
Font.Charset = DEFAULT_CHARSET
@@ -359,20 +356,18 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
ExplicitTop = 443
ExplicitWidth = 742
inherited dxLayoutControl1: TdxLayoutControl
- Width = 742
+ Width = 885
ExplicitWidth = 742
inherited eImporte: TcxDBCurrencyEdit
DataBinding.DataSource = dsDataTable
Properties.OnEditValueChanged = frViewReciboCliImportes1eImportePropertiesEditValueChanged
- ExplicitWidth = 150
- Width = 150
end
inherited eOtrosGastos: TcxDBCurrencyEdit
DataBinding.DataSource = dsDataTable
end
inherited eImporteTotalRecibo: TcxCurrencyEdit
- ExplicitWidth = 183
- Width = 183
+ ExplicitWidth = 366
+ Width = 366
end
end
end
diff --git a/Source/Modulos/Recibos de cliente/Views/uViewClienteRecibo.dfm b/Source/Modulos/Recibos de cliente/Views/uViewClienteRecibo.dfm
index 35dcf8d2..fde44212 100644
--- a/Source/Modulos/Recibos de cliente/Views/uViewClienteRecibo.dfm
+++ b/Source/Modulos/Recibos de cliente/Views/uViewClienteRecibo.dfm
@@ -6,6 +6,11 @@ inherited frViewClienteRecibo: TfrViewClienteRecibo
inherited dxLayoutControl1: TdxLayoutControl
Width = 357
Height = 318
+ ExplicitWidth = 357
+ ExplicitHeight = 318
+ DesignSize = (
+ 357
+ 318)
object Bevel1: TBevel [0]
Left = 81
Top = 71
@@ -19,8 +24,6 @@ inherited frViewClienteRecibo: TfrViewClienteRecibo
TabOrder = 3
ExplicitLeft = 81
ExplicitTop = 94
- ExplicitWidth = 224
- Width = 224
end
inherited edtNIFCIF: TcxDBTextEdit
Left = 81
@@ -28,8 +31,6 @@ inherited frViewClienteRecibo: TfrViewClienteRecibo
TabOrder = 4
ExplicitLeft = 81
ExplicitTop = 121
- ExplicitWidth = 562
- Width = 562
end
inherited edtCalle: TcxDBTextEdit
Left = 81
@@ -37,8 +38,6 @@ inherited frViewClienteRecibo: TfrViewClienteRecibo
TabOrder = 5
ExplicitLeft = 81
ExplicitTop = 148
- ExplicitWidth = 562
- Width = 562
end
inherited edtPoblacion: TcxDBTextEdit
Left = 81
@@ -46,8 +45,6 @@ inherited frViewClienteRecibo: TfrViewClienteRecibo
TabOrder = 6
ExplicitLeft = 81
ExplicitTop = 175
- ExplicitWidth = 177
- Width = 177
end
inherited edtProvincia: TcxDBTextEdit
Left = 81
@@ -55,8 +52,6 @@ inherited frViewClienteRecibo: TfrViewClienteRecibo
TabOrder = 8
ExplicitLeft = 81
ExplicitTop = 202
- ExplicitWidth = 327
- Width = 327
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 265
diff --git a/Source/Modulos/Recibos de cliente/Views/uViewClienteRecibo.pas b/Source/Modulos/Recibos de cliente/Views/uViewClienteRecibo.pas
index bcd0f90c..bf9295c3 100644
--- a/Source/Modulos/Recibos de cliente/Views/uViewClienteRecibo.pas
+++ b/Source/Modulos/Recibos de cliente/Views/uViewClienteRecibo.pas
@@ -6,7 +6,13 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewDatosYSeleccionCliente, ImgList, PngImageList, ActnList, DB,
uDAInterfaces, uDADataTable, dxLayoutControl, StdCtrls, Buttons, cxContainer,
- cxEdit, cxTextEdit, cxDBEdit, cxControls, ExtCtrls;
+ cxEdit, cxTextEdit, cxDBEdit, cxControls, ExtCtrls, dxSkinsCore, dxSkinBlack,
+ dxSkinBlue, dxSkinCaramel, dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary,
+ dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
+ dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinOffice2007Blue,
+ dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver,
+ dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters, dxSkinValentine,
+ dxSkinXmas2008Blue, dxSkinsdxLCPainter;
type
TfrViewClienteRecibo = class(TfrViewDatosYSeleccionCliente)
diff --git a/Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.dfm
index 2b77c29c..d0860486 100644
--- a/Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.dfm
+++ b/Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.dfm
@@ -15,6 +15,7 @@ inherited frViewPagosCliente: TfrViewPagosCliente
Align = alClient
ParentBackground = True
TabOrder = 0
+ TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1
object dxLayoutGroup1: TdxLayoutGroup
@@ -31,6 +32,7 @@ inherited frViewPagosCliente: TfrViewPagosCliente
Align = alClient
ParentBackground = True
TabOrder = 1
+ TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1
object ToolBar1: TToolBar
diff --git a/Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.pas b/Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.pas
index 82d7a07e..f88a520a 100644
--- a/Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.pas
+++ b/Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.pas
@@ -11,7 +11,13 @@ uses
cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxClasses, cxGridCustomView, cxGrid, uBizPagosCliente, ActnList, TB2Item,
TBX, TB2Dock, TB2Toolbar, cxImageComboBox, dxLayoutLookAndFeels, ImgList,
- PngImageList, ComCtrls, ToolWin, uDAInterfaces;
+ PngImageList, ComCtrls, ToolWin, uDAInterfaces, dxSkinsCore, dxSkinBlack,
+ dxSkinBlue, dxSkinCaramel, dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary,
+ dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
+ dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinOffice2007Blue,
+ dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver,
+ dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters, dxSkinValentine,
+ dxSkinXmas2008Blue, dxSkinsdxLCPainter, dxSkinscxPCPainter;
type
IViewPagosCliente = interface(IViewBase)
diff --git a/Source/Modulos/Recibos de cliente/Views/uViewReciboCliImportes.dfm b/Source/Modulos/Recibos de cliente/Views/uViewReciboCliImportes.dfm
index 445cafba..28a88283 100644
--- a/Source/Modulos/Recibos de cliente/Views/uViewReciboCliImportes.dfm
+++ b/Source/Modulos/Recibos de cliente/Views/uViewReciboCliImportes.dfm
@@ -17,6 +17,7 @@ inherited frViewReciboCliImportes: TfrViewReciboCliImportes
Align = alTop
ParentBackground = True
TabOrder = 0
+ TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
object eImporte: TcxDBCurrencyEdit
Left = 93
diff --git a/Source/Modulos/Recibos de cliente/Views/uViewReciboCliImportes.pas b/Source/Modulos/Recibos de cliente/Views/uViewReciboCliImportes.pas
index ce1327a5..56550434 100644
--- a/Source/Modulos/Recibos de cliente/Views/uViewReciboCliImportes.pas
+++ b/Source/Modulos/Recibos de cliente/Views/uViewReciboCliImportes.pas
@@ -8,7 +8,13 @@ uses
cxTextEdit, cxMaskEdit, cxDropDownEdit, cxDBEdit, cxControls,
cxContainer, cxEdit, cxLabel, cxDBLabel, cxCurrencyEdit, cxSpinEdit,
ComCtrls, dxLayoutControl, dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit,
- cxDBLookupComboBox, cxCheckBox;
+ cxDBLookupComboBox, cxCheckBox, dxSkinsCore, dxSkinBlack, dxSkinBlue,
+ dxSkinCaramel, dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian,
+ dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins,
+ dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
+ dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust,
+ dxSkinsDefaultPainters, dxSkinValentine, dxSkinXmas2008Blue,
+ dxSkinsdxLCPainter;
type
TfrViewReciboCliImportes = class(TfrViewBase)
diff --git a/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm
index c81b1ab3..251e78f0 100644
--- a/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm
+++ b/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm
@@ -11,14 +11,14 @@ inherited frViewReciboCliente: TfrViewReciboCliente
Align = alClient
ParentBackground = True
TabOrder = 0
+ TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1
- ExplicitWidth = 905
DesignSize = (
854
509)
object eReferencia: TcxDBTextEdit
- Left = 120
+ Left = 98
Top = 30
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA'
@@ -41,11 +41,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 0
- Width = 129
+ Width = 327
end
object eSituacion: TcxDBTextEdit
- Left = 120
- Top = 111
+ Left = 98
+ Top = 84
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'SITUACION'
DataBinding.DataSource = DADataSource
@@ -67,11 +67,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 3
- Width = 216
+ Width = 327
end
object edtFechaVencimiento: TcxDBDateEdit
- Left = 120
- Top = 84
+ Left = 306
+ Top = 57
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_VENCIMIENTO'
DataBinding.DataSource = DADataSource
@@ -89,11 +89,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 2
- Width = 129
+ Width = 327
end
object memObservaciones: TcxDBMemo
Left = 22
- Top = 338
+ Top = 311
Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource
@@ -107,11 +107,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 8
Height = 49
- Width = 274
+ Width = 425
end
object eFechaEmision: TcxDBTextEdit
Left = 551
- Top = 30
+ Top = 391
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_FACTURA'
DataBinding.DataSource = DADataSource
@@ -132,12 +132,12 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
- TabOrder = 9
- Width = 20
+ TabOrder = 10
+ Width = 281
end
object eImporteTotal: TcxDBCurrencyEdit
Left = 551
- Top = 111
+ Top = 472
AutoSize = False
DataBinding.DataField = 'IMPORTE_FACTURA'
DataBinding.DataSource = DADataSource
@@ -163,13 +163,13 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
- TabOrder = 12
+ TabOrder = 13
Height = 21
- Width = 182
+ Width = 281
end
object eNombreCliente: TcxDBTextEdit
Left = 551
- Top = 84
+ Top = 445
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'NOMBRE'
DataBinding.DataSource = DADataSource
@@ -190,12 +190,12 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
- TabOrder = 11
- Width = 171
+ TabOrder = 12
+ Width = 281
end
object eNifCif: TcxDBTextEdit
Left = 551
- Top = 57
+ Top = 418
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'NIF_CIF'
DataBinding.DataSource = DADataSource
@@ -216,12 +216,12 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
- TabOrder = 10
- Width = 147
+ TabOrder = 11
+ Width = 281
end
object eRemesa: TcxDBTextEdit
- Left = 120
- Top = 138
+ Left = 98
+ Top = 111
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA_REMESA'
DataBinding.DataSource = DADataSource
@@ -243,15 +243,14 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 4
- Width = 113
+ Width = 327
end
object edtFechaEmision: TcxDBDateEdit
- Left = 120
+ Left = 98
Top = 57
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_VENCIMIENTO'
DataBinding.DataSource = DADataSource
- Enabled = False
Properties.ImmediatePost = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
@@ -268,11 +267,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 1
- Width = 113
+ Width = 327
end
object rRefReciboCompensado: TcxDBTextEdit
- Left = 120
- Top = 216
+ Left = 98
+ Top = 189
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA_REC_COMPENSADO'
DataBinding.DataSource = DADataSource
@@ -294,11 +293,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 6
- Width = 191
+ Width = 327
end
object eDescripcion: TcxDBTextEdit
- Left = 120
- Top = 165
+ Left = 98
+ Top = 138
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'DESCRIPCION'
DataBinding.DataSource = DADataSource
@@ -320,12 +319,12 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5
- Width = 437
+ Width = 349
end
inline frViewTienda1: TfrViewTienda
- Left = 120
- Top = 267
- Width = 451
+ Left = 98
+ Top = 240
+ Width = 327
Height = 41
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@@ -335,15 +334,16 @@ inherited frViewReciboCliente: TfrViewReciboCliente
ParentFont = False
TabOrder = 7
ReadOnly = False
- ExplicitLeft = 120
- ExplicitTop = 267
+ ExplicitLeft = 98
+ ExplicitTop = 240
+ ExplicitWidth = 327
inherited dxLayoutControl1: TdxLayoutControl
- ExplicitWidth = 407
+ Width = 327
inherited cbTienda: TcxComboBox
Left = 10
ExplicitLeft = 10
- ExplicitWidth = 200
- Width = 200
+ ExplicitWidth = 307
+ Width = 307
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Item1: TdxLayoutItem
@@ -354,7 +354,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
end
inline frViewClienteRecibo1: TfrViewClienteRecibo
Left = 475
- Top = 162
+ Top = 30
Width = 357
Height = 318
Font.Charset = DEFAULT_CHARSET
@@ -363,44 +363,29 @@ inherited frViewReciboCliente: TfrViewReciboCliente
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
- TabOrder = 13
+ TabOrder = 9
ReadOnly = False
ExplicitLeft = 475
- ExplicitTop = 162
+ ExplicitTop = 30
inherited dxLayoutControl1: TdxLayoutControl
- ExplicitWidth = 328
inherited edtlNombre: TcxDBTextEdit
DataBinding.DataSource = DADataSource
- ExplicitWidth = 276
- Width = 276
end
inherited edtNIFCIF: TcxDBTextEdit
DataBinding.DataSource = DADataSource
- ExplicitWidth = 276
- Width = 276
end
inherited edtCalle: TcxDBTextEdit
DataBinding.DataSource = DADataSource
- ExplicitWidth = 276
- Width = 276
end
inherited edtPoblacion: TcxDBTextEdit
DataBinding.DataSource = DADataSource
- ExplicitWidth = 158
- Width = 158
end
inherited edtProvincia: TcxDBTextEdit
DataBinding.DataSource = DADataSource
- ExplicitWidth = 276
- Width = 276
end
inherited edtCodigoPostal: TcxDBTextEdit
DataBinding.DataSource = DADataSource
end
- inherited cxDBTextEdit1: TcxDBTextEdit
- ExplicitWidth = 283
- Width = 283
- end
end
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
@@ -425,17 +410,25 @@ inherited frViewReciboCliente: TfrViewReciboCliente
Control = eReferencia
ControlOptions.ShowBorder = False
end
- object dxLayoutControl1Item19: TdxLayoutItem
- Caption = 'Fecha emisi'#243'n:'
- Control = edtFechaEmision
- ControlOptions.ShowBorder = False
- end
- object dxLayoutControl1Item3: TdxLayoutItem
- AutoAligns = [aaVertical]
- AlignHorz = ahClient
- Caption = 'Fecha vencimiento:'
- Control = edtFechaVencimiento
- ControlOptions.ShowBorder = False
+ object dxLayoutControl1Group4: TdxLayoutGroup
+ ShowCaption = False
+ Hidden = True
+ LayoutDirection = ldHorizontal
+ ShowBorder = False
+ object dxLayoutControl1Item19: TdxLayoutItem
+ AutoAligns = [aaVertical]
+ AlignHorz = ahClient
+ Caption = 'Fecha emisi'#243'n:'
+ Control = edtFechaEmision
+ ControlOptions.ShowBorder = False
+ end
+ object dxLayoutControl1Item3: TdxLayoutItem
+ AutoAligns = [aaVertical]
+ AlignHorz = ahClient
+ Caption = 'Vencimiento:'
+ Control = edtFechaVencimiento
+ ControlOptions.ShowBorder = False
+ end
end
object dxLayoutControl1Item2: TdxLayoutItem
AutoAligns = [aaVertical]
@@ -474,6 +467,8 @@ inherited frViewReciboCliente: TfrViewReciboCliente
end
end
object dxLayoutControl1Group7: TdxLayoutGroup
+ AutoAligns = [aaHorizontal]
+ AlignVert = avClient
Caption = 'Observaciones'
object dxLayoutControl1Item5: TdxLayoutItem
AutoAligns = [aaHorizontal]
@@ -489,6 +484,16 @@ inherited frViewReciboCliente: TfrViewReciboCliente
Caption = 'New Group'
ShowCaption = False
ShowBorder = False
+ object dxLayoutControlClienteModif: TdxLayoutGroup
+ AutoAligns = [aaHorizontal]
+ AlignVert = avClient
+ Caption = 'Datos del cliente'
+ object dxLayoutControl1Item6: TdxLayoutItem
+ Control = frViewClienteRecibo1
+ ControlOptions.AutoColor = True
+ ControlOptions.ShowBorder = False
+ end
+ end
object dxLayoutControlFactura: TdxLayoutGroup
Caption = 'Datos de la factura'
object dxLayoutControl1Item7: TdxLayoutItem
@@ -514,16 +519,6 @@ inherited frViewReciboCliente: TfrViewReciboCliente
ControlOptions.ShowBorder = False
end
end
- object dxLayoutControlClienteModif: TdxLayoutGroup
- AutoAligns = [aaHorizontal]
- AlignVert = avClient
- Caption = 'Datos del cliente'
- object dxLayoutControl1Item6: TdxLayoutItem
- Control = frViewClienteRecibo1
- ControlOptions.AutoColor = True
- ControlOptions.ShowBorder = False
- end
- end
end
end
end
diff --git a/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.pas b/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.pas
index 4c1d82db..dcb83bdd 100644
--- a/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.pas
+++ b/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.pas
@@ -8,7 +8,13 @@ uses
cxControls, cxCurrencyEdit, cxDBEdit, cxMemo, cxMaskEdit, cxDropDownEdit,
cxCalendar, cxContainer, cxEdit, cxTextEdit, dxLayoutLookAndFeels, ExtCtrls,
uDAInterfaces, uCustomView, uViewDatosYSeleccionCliente, uRecibosClienteController,
- uViewTienda, uViewClienteRecibo;
+ uViewTienda, uViewClienteRecibo, dxSkinsCore, dxSkinBlack, dxSkinBlue,
+ dxSkinCaramel, dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian,
+ dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins,
+ dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
+ dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust,
+ dxSkinsDefaultPainters, dxSkinValentine, dxSkinXmas2008Blue,
+ dxSkinsdxLCPainter;
type
IViewReciboCliente = interface(IViewBase)
@@ -65,6 +71,7 @@ type
dxLayoutControl1Group5: TdxLayoutGroup;
dxLayoutControl1Item6: TdxLayoutItem;
frViewClienteRecibo1: TfrViewClienteRecibo;
+ dxLayoutControl1Group4: TdxLayoutGroup;
private
FRecibo : IBizRecibosCliente;
FController : IRecibosClienteController;
diff --git a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliCompensados.dfm b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliCompensados.dfm
index 548859a8..6bca187a 100644
--- a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliCompensados.dfm
+++ b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliCompensados.dfm
@@ -78,25 +78,15 @@ inherited frViewRecibosCliCompensados: TfrViewRecibosCliCompensados
Width = 549
ExplicitWidth = 549
inherited ToolButton1: TToolButton
- Top = 0
ExplicitWidth = 62
end
inherited ToolButton4: TToolButton
- Top = 0
ExplicitWidth = 74
end
- inherited ToolButton5: TToolButton
- Top = 0
- end
inherited ToolButton2: TToolButton
- Top = 0
ExplicitWidth = 67
end
- inherited ToolButton6: TToolButton
- Top = 0
- end
inherited ToolButton7: TToolButton
- Top = 0
ExplicitWidth = 117
end
object ToolButton3: TToolButton
diff --git a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliCompensados.pas b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliCompensados.pas
index 7b7c6d21..47368ad0 100644
--- a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliCompensados.pas
+++ b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliCompensados.pas
@@ -10,7 +10,13 @@ uses
cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
cxGrid, cxImageComboBox, cxCurrencyEdit, uDataModuleRecibosCliente,
uBizRecibosCliente, uRecibosClienteController, Grids, DBGrids, cxSpinEdit,
- dxLayoutControl, uDAInterfaces;
+ dxLayoutControl, uDAInterfaces, dxSkinsCore, dxSkinBlack, dxSkinBlue,
+ dxSkinCaramel, dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian,
+ dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins,
+ dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
+ dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust,
+ dxSkinsDefaultPainters, dxSkinValentine, dxSkinXmas2008Blue,
+ dxSkinscxPCPainter;
type
IViewRecibosCompensados = interface
diff --git a/Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.dproj b/Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.dproj
index d1bcddd1..5d8e314d 100644
--- a/Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.dproj
+++ b/Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.dproj
@@ -47,33 +47,33 @@
MainSource
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
TfEditorElegirRecibosProveedor
diff --git a/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm b/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm
index 0191217e..0080fe0f 100644
--- a/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm
+++ b/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm
@@ -64,8 +64,8 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
Left = 0
Top = 0
Width = 677
- Height = 350
- Align = alTop
+ Height = 325
+ Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
@@ -78,131 +78,139 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
ExplicitHeight = 350
inherited dxLayoutControl1: TdxLayoutControl
Width = 677
- Height = 350
+ Height = 325
ExplicitWidth = 677
ExplicitHeight = 350
DesignSize = (
677
- 350)
+ 325)
inherited eReferencia: TcxDBTextEdit
- ExplicitWidth = 50
- Width = 50
+ ExplicitWidth = 112
+ Width = 112
end
inherited eSituacion: TcxDBTextEdit
- ExplicitWidth = 216
- Width = 216
+ ExplicitWidth = 112
+ Width = 112
end
inherited edtFechaVencimiento: TcxDBDateEdit
- ExplicitWidth = 216
- Width = 216
- end
- inherited memObservaciones: TcxDBMemo
- ExplicitWidth = 274
- Width = 274
- end
- inherited eFechaEmision: TcxDBTextEdit
- Left = 383
- ExplicitLeft = 383
+ Left = 228
+ ExplicitLeft = 228
ExplicitWidth = 20
Width = 20
end
+ inherited memObservaciones: TcxDBMemo
+ ExplicitWidth = 226
+ ExplicitHeight = 169
+ Height = 169
+ Width = 226
+ end
+ inherited eFechaEmision: TcxDBTextEdit
+ Left = 384
+ ExplicitLeft = 384
+ ExplicitWidth = 255
+ Width = 255
+ end
inherited eImporteTotal: TcxDBCurrencyEdit
- Left = 383
+ Left = 384
Style.IsFontAssigned = True
- ExplicitLeft = 383
- ExplicitWidth = 182
- Width = 182
+ ExplicitLeft = 384
+ ExplicitWidth = 255
+ Width = 255
end
inherited eNombreCliente: TcxDBTextEdit
- Left = 383
- ExplicitLeft = 383
- ExplicitWidth = 171
- Width = 171
+ Left = 384
+ ExplicitLeft = 384
+ ExplicitWidth = 255
+ Width = 255
end
inherited eRemesa: TcxDBTextEdit
- ExplicitWidth = 113
- Width = 113
+ ExplicitWidth = 112
+ Width = 112
end
inherited edtFechaEmision: TcxDBDateEdit
- ExplicitWidth = 97
- Width = 97
+ ExplicitWidth = 20
+ Width = 20
end
inherited eReferenciaProveedor: TcxDBTextEdit
- ExplicitWidth = 129
- Width = 129
+ ExplicitWidth = 112
+ Width = 112
end
inherited rReferenciaFacturaProv: TcxDBTextEdit
- Left = 383
- ExplicitLeft = 383
- ExplicitWidth = 157
- Width = 157
+ Left = 384
+ ExplicitLeft = 384
+ ExplicitWidth = 255
+ Width = 255
end
inherited rRefReciboCompensado: TcxDBTextEdit
- ExplicitWidth = 216
- Width = 216
+ ExplicitWidth = 112
+ Width = 112
end
inherited frViewTienda1: TfrViewTienda
- Width = 451
- ExplicitWidth = 451
+ Width = 112
+ ExplicitWidth = 112
inherited dxLayoutControl1: TdxLayoutControl
- Width = 451
+ Width = 112
inherited cbTienda: TcxComboBox
- ExplicitWidth = 376
- Width = 376
+ ExplicitWidth = 92
+ Width = 92
end
end
end
inherited eDescripcion: TcxDBTextEdit
- ExplicitWidth = 407
- Width = 407
+ ExplicitWidth = 112
+ Width = 112
end
inherited eNifCif: TcxDBTextEdit
- Left = 383
- ExplicitLeft = 383
+ Left = 384
+ ExplicitLeft = 384
ExplicitWidth = 255
Width = 255
end
inherited frViewProveedorRecibo1: TfrViewProveedorRecibo
- Left = 286
- Width = 350
- ExplicitLeft = 286
- ExplicitWidth = 350
+ Left = 276
+ Width = 374
+ ExplicitLeft = 276
+ ExplicitWidth = 374
inherited dxLayoutControl1: TdxLayoutControl
- Width = 350
+ Width = 374
ExplicitWidth = 350
+ inherited Bevel1: TBevel
+ Width = 266
+ ExplicitWidth = 266
+ end
inherited edtlNombre: TcxDBTextEdit
DataBinding.DataSource = frViewReciboProveedor1.DADataSource
- ExplicitWidth = 276
- Width = 276
+ ExplicitWidth = 283
+ Width = 283
end
inherited edtNIFCIF: TcxDBTextEdit
DataBinding.DataSource = frViewReciboProveedor1.DADataSource
- ExplicitWidth = 562
- Width = 562
+ ExplicitWidth = 283
+ Width = 283
end
inherited edtCalle: TcxDBTextEdit
DataBinding.DataSource = frViewReciboProveedor1.DADataSource
- ExplicitWidth = 562
- Width = 562
+ ExplicitWidth = 283
+ Width = 283
end
inherited edtPoblacion: TcxDBTextEdit
DataBinding.DataSource = frViewReciboProveedor1.DADataSource
- ExplicitWidth = 177
- Width = 177
+ ExplicitWidth = 165
+ Width = 165
end
inherited edtProvincia: TcxDBTextEdit
DataBinding.DataSource = frViewReciboProveedor1.DADataSource
- ExplicitWidth = 327
- Width = 327
+ ExplicitWidth = 283
+ Width = 283
end
inherited edtCodigoPostal: TcxDBTextEdit
- Left = 260
+ Left = 282
DataBinding.DataSource = frViewReciboProveedor1.DADataSource
- ExplicitLeft = 260
+ ExplicitLeft = 282
end
inherited Button3: TBitBtn
- Left = 144
- ExplicitLeft = 144
+ Left = 166
+ ExplicitLeft = 166
end
inherited cxDBTextEdit1: TcxDBTextEdit
ExplicitWidth = 283
@@ -238,10 +246,10 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
ExplicitWidth = 677
ExplicitHeight = 325
inherited ListaPagosProveedor: TcxGrid
- Width = 252
- Height = 105
- ExplicitWidth = 252
- ExplicitHeight = 105
+ Width = 633
+ Height = 248
+ ExplicitWidth = 633
+ ExplicitHeight = 248
inherited ListaPagosProveedorDBTableView1: TcxGridDBTableView
inherited ListaPagosProveedorDBTableView1TIPO: TcxGridDBColumn
IsCaptionAssigned = True
@@ -249,8 +257,8 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
end
end
inherited ToolBar1: TToolBar
- Width = 622
- ExplicitWidth = 622
+ Width = 633
+ ExplicitWidth = 633
end
end
inherited DADataSource: TDADataSource
@@ -367,15 +375,13 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
inherited eImporte: TcxDBCurrencyEdit
DataBinding.DataSource = dsDataTable
Properties.OnEditValueChanged = frViewReciboProvImportes1eImportePropertiesEditValueChanged
- ExplicitWidth = 150
- Width = 150
end
inherited eOtrosGastos: TcxDBCurrencyEdit
DataBinding.DataSource = dsDataTable
end
inherited eImporteTotalRecibo: TcxCurrencyEdit
- ExplicitWidth = 183
- Width = 183
+ ExplicitWidth = 315
+ Width = 315
end
end
end
diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewPagosProveedor.dfm b/Source/Modulos/Recibos de proveedor/Views/uViewPagosProveedor.dfm
index 359cb9bc..c1ab77a5 100644
--- a/Source/Modulos/Recibos de proveedor/Views/uViewPagosProveedor.dfm
+++ b/Source/Modulos/Recibos de proveedor/Views/uViewPagosProveedor.dfm
@@ -15,6 +15,7 @@ inherited frViewPagosProveedor: TfrViewPagosProveedor
Align = alClient
ParentBackground = True
TabOrder = 0
+ TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1
object ListaPagosProveedor: TcxGrid
diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewPagosProveedor.pas b/Source/Modulos/Recibos de proveedor/Views/uViewPagosProveedor.pas
index 6ed5950a..c36e6a1f 100644
--- a/Source/Modulos/Recibos de proveedor/Views/uViewPagosProveedor.pas
+++ b/Source/Modulos/Recibos de proveedor/Views/uViewPagosProveedor.pas
@@ -11,7 +11,13 @@ uses
cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxClasses, cxGridCustomView, cxGrid, uBizPagosProveedor, ActnList, TB2Item,
TBX, TB2Dock, TB2Toolbar, cxImageComboBox, dxLayoutLookAndFeels, ImgList,
- PngImageList, ComCtrls, ToolWin, uDAInterfaces;
+ PngImageList, ComCtrls, ToolWin, uDAInterfaces, dxSkinsCore, dxSkinBlack,
+ dxSkinBlue, dxSkinCaramel, dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary,
+ dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
+ dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinOffice2007Blue,
+ dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver,
+ dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters, dxSkinValentine,
+ dxSkinXmas2008Blue, dxSkinsdxLCPainter, dxSkinscxPCPainter;
type
IViewPagosProveedor = interface(IViewBase)
diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewProveedorRecibo.pas b/Source/Modulos/Recibos de proveedor/Views/uViewProveedorRecibo.pas
index bf038f1c..a123509c 100644
--- a/Source/Modulos/Recibos de proveedor/Views/uViewProveedorRecibo.pas
+++ b/Source/Modulos/Recibos de proveedor/Views/uViewProveedorRecibo.pas
@@ -6,7 +6,13 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewDatosYSeleccionProveedor, ImgList, PngImageList, ActnList, DB,
uDAInterfaces, uDADataTable, dxLayoutControl, StdCtrls, Buttons, cxContainer,
- cxEdit, cxTextEdit, cxDBEdit, cxControls, ExtCtrls;
+ cxEdit, cxTextEdit, cxDBEdit, cxControls, ExtCtrls, dxSkinsCore, dxSkinBlack,
+ dxSkinBlue, dxSkinCaramel, dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary,
+ dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
+ dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinOffice2007Blue,
+ dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver,
+ dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters, dxSkinValentine,
+ dxSkinXmas2008Blue, dxSkinsdxLCPainter;
type
TfrViewProveedorRecibo = class(TfrViewDatosYSeleccionProveedor)
diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewReciboProvImportes.dfm b/Source/Modulos/Recibos de proveedor/Views/uViewReciboProvImportes.dfm
index 6399603b..a087631a 100644
--- a/Source/Modulos/Recibos de proveedor/Views/uViewReciboProvImportes.dfm
+++ b/Source/Modulos/Recibos de proveedor/Views/uViewReciboProvImportes.dfm
@@ -17,6 +17,7 @@ inherited frViewReciboProvImportes: TfrViewReciboProvImportes
Align = alTop
ParentBackground = True
TabOrder = 0
+ TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
object eImporte: TcxDBCurrencyEdit
Left = 93
diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewReciboProvImportes.pas b/Source/Modulos/Recibos de proveedor/Views/uViewReciboProvImportes.pas
index 5404dbdc..baabca93 100644
--- a/Source/Modulos/Recibos de proveedor/Views/uViewReciboProvImportes.pas
+++ b/Source/Modulos/Recibos de proveedor/Views/uViewReciboProvImportes.pas
@@ -8,7 +8,13 @@ uses
cxTextEdit, cxMaskEdit, cxDropDownEdit, cxDBEdit, cxControls,
cxContainer, cxEdit, cxLabel, cxDBLabel, cxCurrencyEdit, cxSpinEdit,
ComCtrls, dxLayoutControl, dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit,
- cxDBLookupComboBox, cxCheckBox;
+ cxDBLookupComboBox, cxCheckBox, dxSkinsCore, dxSkinBlack, dxSkinBlue,
+ dxSkinCaramel, dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian,
+ dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins,
+ dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
+ dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust,
+ dxSkinsDefaultPainters, dxSkinValentine, dxSkinXmas2008Blue,
+ dxSkinsdxLCPainter;
type
TfrViewReciboProvImportes = class(TfrViewBase)
diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.dfm b/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.dfm
index ea8ef8e2..6ee14d54 100644
--- a/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.dfm
+++ b/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.dfm
@@ -11,6 +11,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
Align = alClient
ParentBackground = True
TabOrder = 0
+ TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1
DesignSize = (
@@ -40,11 +41,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 0
- Width = 50
+ Width = 268
end
object eSituacion: TcxDBTextEdit
Left = 136
- Top = 138
+ Top = 111
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'SITUACION'
DataBinding.DataSource = DADataSource
@@ -66,11 +67,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 4
- Width = 216
+ Width = 268
end
object edtFechaVencimiento: TcxDBDateEdit
- Left = 136
- Top = 111
+ Left = 283
+ Top = 84
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_VENCIMIENTO'
DataBinding.DataSource = DADataSource
@@ -88,11 +89,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 3
- Width = 216
+ Width = 268
end
object memObservaciones: TcxDBMemo
Left = 22
- Top = 365
+ Top = 338
Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource
@@ -106,11 +107,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 9
Height = 49
- Width = 200
+ Width = 382
end
object eFechaEmision: TcxDBTextEdit
- Left = 529
- Top = 57
+ Left = 518
+ Top = 400
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_FACTURA'
DataBinding.DataSource = DADataSource
@@ -131,12 +132,12 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
- TabOrder = 11
- Width = 20
+ TabOrder = 12
+ Width = 260
end
object eImporteTotal: TcxDBCurrencyEdit
- Left = 529
- Top = 138
+ Left = 518
+ Top = 481
AutoSize = False
DataBinding.DataField = 'IMPORTE_FACTURA'
DataBinding.DataSource = DADataSource
@@ -162,13 +163,13 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
- TabOrder = 14
+ TabOrder = 15
Height = 21
- Width = 182
+ Width = 260
end
object eNombreCliente: TcxDBTextEdit
- Left = 529
- Top = 111
+ Left = 518
+ Top = 454
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'NOMBRE'
DataBinding.DataSource = DADataSource
@@ -189,12 +190,12 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
- TabOrder = 13
- Width = 171
+ TabOrder = 14
+ Width = 260
end
object eRemesa: TcxDBTextEdit
Left = 136
- Top = 165
+ Top = 138
Anchors = [akLeft, akTop, akRight]
DataBinding.DataSource = DADataSource
Enabled = False
@@ -215,7 +216,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5
- Width = 113
+ Width = 268
end
object edtFechaEmision: TcxDBDateEdit
Left = 136
@@ -223,7 +224,6 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_EMISION'
DataBinding.DataSource = DADataSource
- Enabled = False
Properties.ImmediatePost = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
@@ -240,7 +240,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 2
- Width = 668
+ Width = 268
end
object eReferenciaProveedor: TcxDBTextEdit
Left = 136
@@ -265,11 +265,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 1
- Width = 287
+ Width = 268
end
object rReferenciaFacturaProv: TcxDBTextEdit
- Left = 529
- Top = 30
+ Left = 518
+ Top = 373
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA_FACTURA_PROV'
DataBinding.DataSource = DADataSource
@@ -290,12 +290,12 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
- TabOrder = 10
- Width = 157
+ TabOrder = 11
+ Width = 260
end
object rRefReciboCompensado: TcxDBTextEdit
Left = 136
- Top = 243
+ Top = 216
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA_REC_COMPENSADO'
DataBinding.DataSource = DADataSource
@@ -317,12 +317,12 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 7
- Width = 200
+ Width = 268
end
inline frViewTienda1: TfrViewTienda
Left = 136
- Top = 294
- Width = 451
+ Top = 267
+ Width = 268
Height = 41
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@@ -333,13 +333,15 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
TabOrder = 8
ReadOnly = False
ExplicitLeft = 136
- ExplicitTop = 294
+ ExplicitTop = 267
+ ExplicitWidth = 268
inherited dxLayoutControl1: TdxLayoutControl
+ Width = 268
inherited cbTienda: TcxComboBox
Left = 10
ExplicitLeft = 10
- ExplicitWidth = 200
- Width = 200
+ ExplicitWidth = 248
+ Width = 248
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Item1: TdxLayoutItem
@@ -350,7 +352,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
end
object eDescripcion: TcxDBTextEdit
Left = 136
- Top = 192
+ Top = 165
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'DESCRIPCION'
DataBinding.DataSource = DADataSource
@@ -372,11 +374,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 6
- Width = 407
+ Width = 268
end
object eNifCif: TcxDBTextEdit
- Left = 529
- Top = 84
+ Left = 518
+ Top = 427
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'NIF_CIF'
DataBinding.DataSource = DADataSource
@@ -397,12 +399,12 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
- TabOrder = 12
- Width = 199
+ TabOrder = 13
+ Width = 260
end
inline frViewProveedorRecibo1: TfrViewProveedorRecibo
- Left = 432
- Top = 189
+ Left = 410
+ Top = 30
Width = 357
Height = 318
Font.Charset = DEFAULT_CHARSET
@@ -411,42 +413,34 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
- TabOrder = 15
+ TabOrder = 10
ReadOnly = False
- ExplicitLeft = 432
- ExplicitTop = 189
+ ExplicitLeft = 410
+ ExplicitTop = 30
inherited dxLayoutControl1: TdxLayoutControl
inherited edtlNombre: TcxDBTextEdit
DataBinding.DataSource = DADataSource
- ExplicitWidth = 224
- Width = 224
end
inherited edtNIFCIF: TcxDBTextEdit
DataBinding.DataSource = DADataSource
- ExplicitWidth = 562
- Width = 562
end
inherited edtCalle: TcxDBTextEdit
DataBinding.DataSource = DADataSource
- ExplicitWidth = 562
- Width = 562
end
inherited edtPoblacion: TcxDBTextEdit
DataBinding.DataSource = DADataSource
- ExplicitWidth = 177
- Width = 177
end
inherited edtProvincia: TcxDBTextEdit
DataBinding.DataSource = DADataSource
- ExplicitWidth = 327
- Width = 327
end
inherited edtCodigoPostal: TcxDBTextEdit
+ Left = 287
DataBinding.DataSource = DADataSource
+ ExplicitLeft = 287
end
- inherited cxDBTextEdit1: TcxDBTextEdit
- ExplicitWidth = 283
- Width = 283
+ inherited Button3: TBitBtn
+ Left = 171
+ ExplicitLeft = 171
end
end
end
@@ -478,17 +472,25 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
Control = eReferenciaProveedor
ControlOptions.ShowBorder = False
end
- object dxLayoutControl1Item19: TdxLayoutItem
- Caption = 'Fecha emisi'#243'n:'
- Control = edtFechaEmision
- ControlOptions.ShowBorder = False
- end
- object dxLayoutControl1Item3: TdxLayoutItem
- AutoAligns = [aaVertical]
- AlignHorz = ahClient
- Caption = 'Fecha vencimiento:'
- Control = edtFechaVencimiento
- ControlOptions.ShowBorder = False
+ object dxLayoutControl1Group4: TdxLayoutGroup
+ ShowCaption = False
+ Hidden = True
+ LayoutDirection = ldHorizontal
+ ShowBorder = False
+ object dxLayoutControl1Item19: TdxLayoutItem
+ AutoAligns = [aaVertical]
+ AlignHorz = ahClient
+ Caption = 'Fecha emisi'#243'n:'
+ Control = edtFechaEmision
+ ControlOptions.ShowBorder = False
+ end
+ object dxLayoutControl1Item3: TdxLayoutItem
+ AutoAligns = [aaVertical]
+ AlignHorz = ahClient
+ Caption = 'Vencimiento:'
+ Control = edtFechaVencimiento
+ ControlOptions.ShowBorder = False
+ end
end
object dxLayoutControl1Item2: TdxLayoutItem
AutoAligns = [aaVertical]
@@ -527,6 +529,8 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
end
end
object dxLayoutControl1Group7: TdxLayoutGroup
+ AutoAligns = [aaHorizontal]
+ AlignVert = avClient
Caption = 'Observaciones'
object dxLayoutControl1Item5: TdxLayoutItem
AutoAligns = [aaHorizontal]
@@ -542,36 +546,6 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
Caption = 'New Group'
ShowCaption = False
ShowBorder = False
- object dxLayoutControlFactura: TdxLayoutGroup
- Caption = 'Datos de la factura'
- object dxLayoutControl1Item21: TdxLayoutItem
- Caption = 'Ref. factura prov.:'
- Control = rReferenciaFacturaProv
- ControlOptions.ShowBorder = False
- end
- object dxLayoutControl1Item7: TdxLayoutItem
- AutoAligns = [aaVertical]
- AlignHorz = ahClient
- Caption = 'Fecha emisi'#243'n:'
- Control = eFechaEmision
- ControlOptions.ShowBorder = False
- end
- object dxLayoutControl1Item8: TdxLayoutItem
- Caption = 'NIF/CIF:'
- Control = eNifCif
- ControlOptions.ShowBorder = False
- end
- object dxLayoutControl1Item10: TdxLayoutItem
- Caption = 'Nombre:'
- Control = eNombreCliente
- ControlOptions.ShowBorder = False
- end
- object dxLayoutControl1Item9: TdxLayoutItem
- Caption = 'Total factura:'
- Control = eImporteTotal
- ControlOptions.ShowBorder = False
- end
- end
object dxLayoutControlProveedorModif: TdxLayoutGroup
AutoAligns = [aaHorizontal]
AlignVert = avClient
@@ -581,6 +555,36 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
+ object dxLayoutControlFactura: TdxLayoutGroup
+ Caption = 'Datos de la factura'
+ object dxLayoutControl1Item21: TdxLayoutItem
+ Caption = 'Ref. factura prov.:'
+ Control = rReferenciaFacturaProv
+ ControlOptions.ShowBorder = False
+ end
+ object dxLayoutControl1Item7: TdxLayoutItem
+ AutoAligns = [aaVertical]
+ AlignHorz = ahClient
+ Caption = 'Fecha emisi'#243'n:'
+ Control = eFechaEmision
+ ControlOptions.ShowBorder = False
+ end
+ object dxLayoutControl1Item8: TdxLayoutItem
+ Caption = 'NIF/CIF:'
+ Control = eNifCif
+ ControlOptions.ShowBorder = False
+ end
+ object dxLayoutControl1Item10: TdxLayoutItem
+ Caption = 'Nombre:'
+ Control = eNombreCliente
+ ControlOptions.ShowBorder = False
+ end
+ object dxLayoutControl1Item9: TdxLayoutItem
+ Caption = 'Total factura:'
+ Control = eImporteTotal
+ ControlOptions.ShowBorder = False
+ end
+ end
end
end
end
diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.pas b/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.pas
index 42b139df..96350a47 100644
--- a/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.pas
+++ b/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.pas
@@ -8,7 +8,13 @@ uses
cxControls, cxCurrencyEdit, cxDBEdit, cxMemo, cxMaskEdit, cxDropDownEdit,
cxCalendar, cxContainer, cxEdit, cxTextEdit, dxLayoutLookAndFeels, ExtCtrls,
uDAInterfaces, uCustomView, uViewDatosYSeleccionProveedor, uRecibosProveedorController, uViewTienda,
- uViewProveedorRecibo;
+ uViewProveedorRecibo, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinCaramel,
+ dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian,
+ dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins,
+ dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
+ dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust,
+ dxSkinsDefaultPainters, dxSkinValentine, dxSkinXmas2008Blue,
+ dxSkinsdxLCPainter;
type
IViewReciboProveedor = interface(IViewBase)
@@ -69,6 +75,7 @@ type
eNifCif: TcxDBTextEdit;
dxLayoutControl1Item6: TdxLayoutItem;
frViewProveedorRecibo1: TfrViewProveedorRecibo;
+ dxLayoutControl1Group4: TdxLayoutGroup;
private
FRecibo : IBizRecibosProveedor;
FController : IRecibosProveedorController;
diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProvCompensados.pas b/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProvCompensados.pas
index 62a6b4a5..a7c2ef1e 100644
--- a/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProvCompensados.pas
+++ b/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProvCompensados.pas
@@ -10,7 +10,13 @@ uses
cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
cxGrid, cxImageComboBox, cxCurrencyEdit, uDataModuleRecibosProveedor,
uBizRecibosProveedor, uRecibosProveedorController, Grids, DBGrids, cxSpinEdit,
- dxLayoutControl, uDAInterfaces;
+ dxLayoutControl, uDAInterfaces, dxSkinsCore, dxSkinBlack, dxSkinBlue,
+ dxSkinCaramel, dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian,
+ dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins,
+ dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
+ dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust,
+ dxSkinsDefaultPainters, dxSkinValentine, dxSkinXmas2008Blue,
+ dxSkinscxPCPainter;
type
IViewRecibosCompensados = interface