diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj
index 1fffa0a..40c7b04 100644
--- a/Source/Cliente/FactuGES.dproj
+++ b/Source/Cliente/FactuGES.dproj
@@ -53,7 +53,7 @@
Delphi.Personality
VCLApplication
-FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse4220FalseFalseFalseFalseFalse30821252Rodax Software S.L.4.2.2.0FactuGESFactuGES4.2.2.0FactuGES.dprFalse
+FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse4230FalseFalseFalseFalseFalse30821252Rodax Software S.L.4.2.3.0FactuGESFactuGES4.2.3.0FactuGES.dprFalse
diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res
index 0b484ce..9fe4d12 100644
Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ
diff --git a/Source/Modulos/Contactos/Views/uEditorAgente.dfm b/Source/Modulos/Contactos/Views/uEditorAgente.dfm
index 12c95b6..36f6840 100644
--- a/Source/Modulos/Contactos/Views/uEditorAgente.dfm
+++ b/Source/Modulos/Contactos/Views/uEditorAgente.dfm
@@ -132,12 +132,9 @@ inherited fEditorAgente: TfEditorAgente
inherited pgPaginas: TPageControl
Width = 864
Height = 614
- ActivePage = ObjetivosAlbaranes
ExplicitWidth = 864
ExplicitHeight = 614
inherited pagGeneral: TTabSheet
- ExplicitLeft = 4
- ExplicitTop = 24
ExplicitWidth = 856
ExplicitHeight = 586
inline frViewAgente1: TfrViewAgente
@@ -309,31 +306,33 @@ inherited fEditorAgente: TfEditorAgente
inherited pagDatosBancarios: TTabSheet
ExplicitWidth = 856
ExplicitHeight = 586
- inherited frViewListaDatosBancarios: TfrViewListaDatosBancarios
+ inherited frViewClienteDatosBancarios1: TfrViewClienteDatosBancarios
Width = 856
Height = 586
+ ExplicitLeft = 0
+ ExplicitTop = 0
ExplicitWidth = 856
ExplicitHeight = 586
- inherited cxGrid: TcxGrid
- Width = 856
- Height = 561
- ExplicitWidth = 856
- ExplicitHeight = 561
- end
- inherited ToolBar1: TToolBar
+ inherited dxLayoutControl1: TdxLayoutControl
Width = 856
ExplicitWidth = 856
- inherited ToolButton1: TToolButton
- ExplicitWidth = 62
+ inherited eEntidad: TcxDBTextEdit
+ ExplicitWidth = 114
+ Width = 114
end
- inherited ToolButton4: TToolButton
- ExplicitWidth = 74
+ inherited eSucursal: TcxDBTextEdit
+ Left = 528
+ ExplicitLeft = 528
+ ExplicitWidth = 112
+ Width = 112
end
- inherited ToolButton2: TToolButton
- ExplicitWidth = 67
+ inherited eCuenta: TcxDBTextEdit
+ ExplicitWidth = 194
+ Width = 194
end
- inherited ToolButton7: TToolButton
- ExplicitWidth = 117
+ inherited eTitular: TcxDBTextEdit
+ ExplicitWidth = 194
+ Width = 194
end
end
end
@@ -366,6 +365,18 @@ inherited fEditorAgente: TfEditorAgente
inherited ToolBar1: TToolBar
Width = 856
ExplicitWidth = 856
+ 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
@@ -387,18 +398,6 @@ inherited fEditorAgente: TfEditorAgente
inherited ToolBar1: TToolBar
Width = 856
ExplicitWidth = 856
- inherited ToolButton1: TToolButton
- ExplicitWidth = 62
- end
- inherited ToolButton4: TToolButton
- ExplicitWidth = 74
- end
- inherited ToolButton2: TToolButton
- ExplicitWidth = 67
- end
- inherited ToolButton7: TToolButton
- ExplicitWidth = 117
- end
end
end
end
@@ -501,6 +500,18 @@ inherited fEditorAgente: TfEditorAgente
inherited ToolBar1: TToolBar
Width = 856
ExplicitWidth = 856
+ 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
inherited tbxFiltro: TTBXToolbar
Width = 856
diff --git a/Source/Modulos/Contactos/Views/uEditorCliente.dfm b/Source/Modulos/Contactos/Views/uEditorCliente.dfm
index 7a2347c..c259a79 100644
--- a/Source/Modulos/Contactos/Views/uEditorCliente.dfm
+++ b/Source/Modulos/Contactos/Views/uEditorCliente.dfm
@@ -122,12 +122,9 @@ inherited fEditorCliente: TfEditorCliente
inherited pgPaginas: TPageControl
Width = 864
Height = 614
- ActivePage = pagDescuentos
ExplicitWidth = 864
ExplicitHeight = 614
inherited pagGeneral: TTabSheet
- ExplicitLeft = 4
- ExplicitTop = 24
ExplicitWidth = 856
ExplicitHeight = 586
inline frViewCliente1: TfrViewCliente
@@ -462,31 +459,33 @@ inherited fEditorCliente: TfEditorCliente
inherited pagDatosBancarios: TTabSheet
ExplicitWidth = 856
ExplicitHeight = 586
- inherited frViewListaDatosBancarios: TfrViewListaDatosBancarios
+ inherited frViewClienteDatosBancarios1: TfrViewClienteDatosBancarios
Width = 856
Height = 586
+ ExplicitLeft = 0
+ ExplicitTop = 0
ExplicitWidth = 856
ExplicitHeight = 586
- inherited cxGrid: TcxGrid
- Width = 856
- Height = 561
- ExplicitWidth = 856
- ExplicitHeight = 561
- end
- inherited ToolBar1: TToolBar
+ inherited dxLayoutControl1: TdxLayoutControl
Width = 856
ExplicitWidth = 856
- inherited ToolButton1: TToolButton
- ExplicitWidth = 62
+ inherited eEntidad: TcxDBTextEdit
+ ExplicitWidth = 114
+ Width = 114
end
- inherited ToolButton4: TToolButton
- ExplicitWidth = 74
+ inherited eSucursal: TcxDBTextEdit
+ Left = 528
+ ExplicitLeft = 528
+ ExplicitWidth = 112
+ Width = 112
end
- inherited ToolButton2: TToolButton
- ExplicitWidth = 67
+ inherited eCuenta: TcxDBTextEdit
+ ExplicitWidth = 194
+ Width = 194
end
- inherited ToolButton7: TToolButton
- ExplicitWidth = 117
+ inherited eTitular: TcxDBTextEdit
+ ExplicitWidth = 194
+ Width = 194
end
end
end
@@ -661,6 +660,18 @@ inherited fEditorCliente: TfEditorCliente
inherited ToolBar1: TToolBar
Width = 856
ExplicitWidth = 856
+ 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
@@ -743,18 +754,6 @@ inherited fEditorCliente: TfEditorCliente
inherited ToolBar1: TToolBar
Width = 856
ExplicitWidth = 856
- inherited ToolButton1: TToolButton
- ExplicitWidth = 62
- end
- inherited ToolButton4: TToolButton
- ExplicitWidth = 74
- end
- inherited ToolButton2: TToolButton
- ExplicitWidth = 67
- end
- inherited ToolButton7: TToolButton
- ExplicitWidth = 117
- end
end
end
end
diff --git a/Source/Modulos/Contactos/Views/uEditorContacto.dfm b/Source/Modulos/Contactos/Views/uEditorContacto.dfm
index 96c21d9..e73a108 100644
--- a/Source/Modulos/Contactos/Views/uEditorContacto.dfm
+++ b/Source/Modulos/Contactos/Views/uEditorContacto.dfm
@@ -7,7 +7,6 @@ inherited fEditorContacto: TfEditorContacto
ClientWidth = 632
Scaled = False
ExplicitWidth = 640
- ExplicitHeight = 240
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
@@ -78,12 +77,15 @@ inherited fEditorContacto: TfEditorContacto
ActivePage = pagDatosBancarios
ExplicitWidth = 626
inherited pagGeneral: TTabSheet
+ ExplicitLeft = 4
+ ExplicitTop = 24
ExplicitWidth = 618
+ ExplicitHeight = 332
end
object pagDatosBancarios: TTabSheet
Caption = 'Datos bancarios'
ImageIndex = 1
- inline frViewListaDatosBancarios: TfrViewListaDatosBancarios
+ inline frViewClienteDatosBancarios1: TfrViewClienteDatosBancarios
Left = 0
Top = 0
Width = 618
@@ -97,28 +99,27 @@ inherited fEditorContacto: TfEditorContacto
ParentFont = False
TabOrder = 0
ReadOnly = False
- ExplicitWidth = 618
- ExplicitHeight = 332
- inherited cxGrid: TcxGrid
+ ExplicitLeft = 117
+ ExplicitTop = 176
+ inherited dxLayoutControl1: TdxLayoutControl
Width = 618
- Height = 307
- ExplicitWidth = 618
- ExplicitHeight = 307
- end
- inherited ToolBar1: TToolBar
- Width = 618
- ExplicitWidth = 618
- inherited ToolButton1: TToolButton
- ExplicitWidth = 113
+ inherited eEntidad: TcxDBTextEdit
+ ExplicitWidth = 114
+ Width = 114
end
- inherited ToolButton4: TToolButton
- ExplicitWidth = 113
+ inherited eSucursal: TcxDBTextEdit
+ Left = 403
+ ExplicitLeft = 403
+ ExplicitWidth = 112
+ Width = 112
end
- inherited ToolButton2: TToolButton
- ExplicitWidth = 113
+ inherited eCuenta: TcxDBTextEdit
+ ExplicitWidth = 194
+ Width = 194
end
- inherited ToolButton7: TToolButton
- ExplicitWidth = 113
+ inherited eTitular: TcxDBTextEdit
+ ExplicitWidth = 194
+ Width = 194
end
end
end
@@ -151,18 +152,6 @@ inherited fEditorContacto: TfEditorContacto
inherited ToolBar1: TToolBar
Width = 618
ExplicitWidth = 618
- 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
diff --git a/Source/Modulos/Contactos/Views/uEditorContacto.pas b/Source/Modulos/Contactos/Views/uEditorContacto.pas
index f30a956..cc94163 100644
--- a/Source/Modulos/Contactos/Views/uEditorContacto.pas
+++ b/Source/Modulos/Contactos/Views/uEditorContacto.pas
@@ -22,9 +22,9 @@ type
pagDatosBancarios: TTabSheet;
dxLayoutLookAndFeel: TdxLayoutLookAndFeelList;
dxLayoutOfficeLookAndFeel: TdxLayoutOfficeLookAndFeel;
- frViewListaDatosBancarios: TfrViewListaDatosBancarios;
pagPersonal: TTabSheet;
frViewPersonalContacto1: TfrViewPersonalContacto;
+ frViewClienteDatosBancarios1: TfrViewClienteDatosBancarios;
procedure FormShow(Sender: TObject);
procedure dsDataTableDataChange(Sender: TObject; Field: TField);
protected
@@ -117,7 +117,8 @@ begin
if Assigned(FViewContacto) and Assigned(Contacto) then
begin
FViewContacto.Contacto := Contacto;
- frViewListaDatosBancarios.dsDetalles.DataTable := FContacto.DatosBancarios.DataTable;
+ frViewClienteDatosBancarios1.dsDatosBancarios.DataTable := FContacto.DatosBancarios.DataTable;
+// frViewListaDatosBancarios.dsDetalles.DataTable := FContacto.DatosBancarios.DataTable;
if Assigned(FContacto.Personal) then
frViewPersonalContacto1.dsDetalles.DataTable := FContacto.Personal.DataTable
@@ -125,7 +126,8 @@ begin
frViewPersonalContacto1.dsDetalles.DataTable := NIL;
end
else begin
- frViewListaDatosBancarios.dsDetalles.DataTable := NIL;
+ frViewClienteDatosBancarios1.dsDatosBancarios.DataTable := NIL;
+// frViewListaDatosBancarios.dsDetalles.DataTable := NIL;
frViewPersonalContacto1.dsDetalles.DataTable := NIL;
end;
end;
diff --git a/Source/Modulos/Contactos/Views/uEditorProveedor.dfm b/Source/Modulos/Contactos/Views/uEditorProveedor.dfm
index bf212d9..7aa5b5c 100644
--- a/Source/Modulos/Contactos/Views/uEditorProveedor.dfm
+++ b/Source/Modulos/Contactos/Views/uEditorProveedor.dfm
@@ -116,7 +116,6 @@ inherited fEditorProveedor: TfEditorProveedor
inherited pgPaginas: TPageControl
Width = 824
Height = 519
- ActivePage = pagDatosComerciales
ExplicitWidth = 824
ExplicitHeight = 519
inherited pagGeneral: TTabSheet
@@ -163,24 +162,24 @@ inherited fEditorProveedor: TfEditorProveedor
ExplicitTop = 162
end
inherited Label1: TLabel
- Left = 475
+ Left = 484
Top = 251
Width = 342
- ExplicitLeft = 475
+ ExplicitLeft = 484
ExplicitTop = 251
ExplicitWidth = 342
end
inherited Label2: TLabel
- Top = 399
+ Top = 426
Width = 324
- ExplicitTop = 399
+ ExplicitTop = 426
ExplicitWidth = 324
end
inherited PngSpeedButton4: TPngSpeedButton
- Left = 435
- Top = 444
- ExplicitLeft = 435
- ExplicitTop = 444
+ Left = 444
+ Top = 471
+ ExplicitLeft = 444
+ ExplicitTop = 471
end
inherited eCalle: TcxDBTextEdit
Top = 267
@@ -253,9 +252,9 @@ inherited fEditorProveedor: TfEditorProveedor
Width = 366
end
inherited eMailAdministracion: TcxDBHyperLinkEdit
- Top = 444
+ Top = 471
Properties.Prefix = 'mailto:'
- ExplicitTop = 444
+ ExplicitTop = 471
ExplicitWidth = 186
Width = 186
end
@@ -270,93 +269,93 @@ inherited fEditorProveedor: TfEditorProveedor
Width = 366
end
inherited eCodigoPostal: TcxDBTextEdit
- Left = 393
+ Left = 402
Top = 294
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 393
+ ExplicitLeft = 402
ExplicitTop = 294
end
inherited eObservaciones: TcxDBMemo
- Top = 496
+ Top = 523
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitTop = 496
+ ExplicitTop = 523
ExplicitWidth = 772
ExplicitHeight = 76
Height = 76
Width = 772
end
inherited cxDBCheckBox3: TcxDBCheckBox
- Left = 375
+ Left = 384
Top = 138
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 375
+ ExplicitLeft = 384
ExplicitTop = 138
end
inherited cxDBCheckBox1: TcxDBCheckBox
- Left = 475
+ Left = 484
Top = 283
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 475
+ ExplicitLeft = 484
ExplicitTop = 283
ExplicitWidth = 236
Width = 236
end
inherited eTlfParticular: TcxDBTextEdit
- Left = 581
+ Left = 590
Top = 57
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 581
+ ExplicitLeft = 590
ExplicitTop = 57
ExplicitWidth = 171
Width = 171
end
inherited eTlfTrabajo: TcxDBTextEdit
- Left = 581
+ Left = 590
Top = 30
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 581
+ ExplicitLeft = 590
ExplicitTop = 30
ExplicitWidth = 171
Width = 171
end
inherited eTlfMovil: TcxDBTextEdit
- Left = 581
+ Left = 590
Top = 84
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 581
+ ExplicitLeft = 590
ExplicitTop = 84
ExplicitWidth = 171
Width = 171
end
inherited eFax: TcxDBTextEdit
- Left = 581
+ Left = 590
Top = 111
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 581
+ ExplicitLeft = 590
ExplicitTop = 111
ExplicitWidth = 171
Width = 171
@@ -372,51 +371,61 @@ inherited fEditorProveedor: TfEditorProveedor
Width = 366
end
inherited eNIFCIF: TcxDBTextEdit
- Left = 254
+ Left = 257
Top = 30
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 254
+ ExplicitLeft = 257
ExplicitTop = 30
ExplicitWidth = 229
Width = 229
end
inherited eMailTrabajo: TcxDBHyperLinkEdit
- Left = 581
+ Left = 590
Top = 162
Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 581
+ ExplicitLeft = 590
ExplicitTop = 162
ExplicitWidth = 142
Width = 142
end
inherited eMailParticular: TcxDBHyperLinkEdit
- Left = 581
+ Left = 590
Top = 190
Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 581
+ ExplicitLeft = 590
ExplicitTop = 190
ExplicitWidth = 142
Width = 142
end
+ inherited ePais: TcxDBTextEdit
+ Top = 348
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitTop = 348
+ ExplicitWidth = 391
+ Width = 391
+ end
inherited ePaginaWeb: TcxDBHyperLinkEdit
- Left = 581
+ Left = 590
Top = 217
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 581
+ ExplicitLeft = 590
ExplicitTop = 217
ExplicitWidth = 142
Width = 142
@@ -428,16 +437,14 @@ inherited fEditorProveedor: TfEditorProveedor
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 30
- ExplicitWidth = 84
- Width = 84
end
inherited ePersonaContacto: TcxDBTextEdit
- Top = 348
+ Top = 375
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitTop = 348
+ ExplicitTop = 375
ExplicitWidth = 366
Width = 366
end
@@ -447,31 +454,33 @@ inherited fEditorProveedor: TfEditorProveedor
inherited pagDatosBancarios: TTabSheet
ExplicitWidth = 816
ExplicitHeight = 491
- inherited frViewListaDatosBancarios: TfrViewListaDatosBancarios
+ inherited frViewClienteDatosBancarios1: TfrViewClienteDatosBancarios
Width = 816
Height = 491
+ ExplicitLeft = 0
+ ExplicitTop = 0
ExplicitWidth = 816
ExplicitHeight = 491
- inherited cxGrid: TcxGrid
- Width = 816
- Height = 466
- ExplicitWidth = 816
- ExplicitHeight = 466
- end
- inherited ToolBar1: TToolBar
+ inherited dxLayoutControl1: TdxLayoutControl
Width = 816
ExplicitWidth = 816
- inherited ToolButton1: TToolButton
- ExplicitWidth = 62
+ inherited eEntidad: TcxDBTextEdit
+ ExplicitWidth = 114
+ Width = 114
end
- inherited ToolButton4: TToolButton
- ExplicitWidth = 74
+ inherited eSucursal: TcxDBTextEdit
+ Left = 507
+ ExplicitLeft = 507
+ ExplicitWidth = 112
+ Width = 112
end
- inherited ToolButton2: TToolButton
- ExplicitWidth = 67
+ inherited eCuenta: TcxDBTextEdit
+ ExplicitWidth = 194
+ Width = 194
end
- inherited ToolButton7: TToolButton
- ExplicitWidth = 117
+ inherited eTitular: TcxDBTextEdit
+ ExplicitWidth = 194
+ Width = 194
end
end
end
@@ -634,6 +643,18 @@ inherited fEditorProveedor: TfEditorProveedor
inherited ToolBar1: TToolBar
Width = 816
ExplicitWidth = 816
+ 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
@@ -655,18 +676,6 @@ inherited fEditorProveedor: TfEditorProveedor
inherited ToolBar1: TToolBar
Width = 816
ExplicitWidth = 816
- inherited ToolButton1: TToolButton
- ExplicitWidth = 62
- end
- inherited ToolButton4: TToolButton
- ExplicitWidth = 74
- end
- inherited ToolButton2: TToolButton
- ExplicitWidth = 67
- end
- inherited ToolButton7: TToolButton
- ExplicitWidth = 117
- end
end
end
end
diff --git a/Source/Modulos/Informe margen por articulo/Views/InfMargenArticulo_view.drc b/Source/Modulos/Informe margen por articulo/Views/InfMargenArticulo_view.drc
index f035e24..3ec3450 100644
--- a/Source/Modulos/Informe margen por articulo/Views/InfMargenArticulo_view.drc
+++ b/Source/Modulos/Informe margen por articulo/Views/InfMargenArticulo_view.drc
@@ -16,4 +16,4 @@ END
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Views\uViewInfMargenArticulo.dfm */
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Views\uEditorInfMargenArticulo.dfm */
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Views\InfMargenArticulo_view.res */
-/* c:\temp\dtf1D6.tmp */
+/* C:\Codigo\Source\Modulos\Informe margen por articulo\Views\InfMargenArticulo_view.drf */
diff --git a/Source/Modulos/Informe margen por articulo/Views/uViewInfMargenArticuloGrid.dfm b/Source/Modulos/Informe margen por articulo/Views/uViewInfMargenArticuloGrid.dfm
index f8fa640..401c2b5 100644
--- a/Source/Modulos/Informe margen por articulo/Views/uViewInfMargenArticuloGrid.dfm
+++ b/Source/Modulos/Informe margen por articulo/Views/uViewInfMargenArticuloGrid.dfm
@@ -262,11 +262,12 @@ inherited frViewInfMargenArticuloGrid: TfrViewInfMargenArticuloGrid
object cxGridViewPOR_MARGEN_ULT_VENT_COMPRA: TcxGridDBColumn
Caption = '% margen ult. venta - compra'
DataBinding.FieldName = 'POR_MARGEN_ULT_VENT_COMPRA'
- PropertiesClassName = 'TcxSpinEditProperties'
+ PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
Properties.DisplayFormat = ',0.00 %;-,0.00 %'
Properties.EditFormat = ',0.00 %;-,0.00 %'
FooterAlignmentHorz = taRightJustify
+ GroupSummaryAlignment = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewIMP_MARGEN_ULT_VENT_ULT_COMP: TcxGridDBColumn
@@ -280,11 +281,12 @@ inherited frViewInfMargenArticuloGrid: TfrViewInfMargenArticuloGrid
object cxGridViewPOR_MARGEN_ULT_VENT_ULT_COMP: TcxGridDBColumn
Caption = '% margen ult. venta - ult. compra'
DataBinding.FieldName = 'POR_MARGEN_ULT_VENT_ULT_COMP'
- PropertiesClassName = 'TcxSpinEditProperties'
+ PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
Properties.DisplayFormat = ',0.00 %;-,0.00 %'
Properties.EditFormat = ',0.00 %;-,0.00 %'
FooterAlignmentHorz = taRightJustify
+ GroupSummaryAlignment = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewIMP_MARGEN_ULT_VENT_PRO_COMP: TcxGridDBColumn
@@ -298,11 +300,12 @@ inherited frViewInfMargenArticuloGrid: TfrViewInfMargenArticuloGrid
object cxGridViewPOR_MARGEN_ULT_VENT_PRO_COMP: TcxGridDBColumn
Caption = '% margen ult. venta - compra pro.'
DataBinding.FieldName = 'POR_MARGEN_ULT_VENT_PRO_COMP'
- PropertiesClassName = 'TcxSpinEditProperties'
+ PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
Properties.DisplayFormat = ',0.00 %;-,0.00 %'
Properties.EditFormat = ',0.00 %;-,0.00 %'
FooterAlignmentHorz = taRightJustify
+ GroupSummaryAlignment = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewIMP_MARGEN_PRO_VENT_COMPRA: TcxGridDBColumn
@@ -352,7 +355,7 @@ inherited frViewInfMargenArticuloGrid: TfrViewInfMargenArticuloGrid
object cxGridViewPOR_MARGEN_PRO_VENT_PRO_COMP: TcxGridDBColumn
Caption = '% margen venta pro. - compra pro.'
DataBinding.FieldName = 'POR_MARGEN_PRO_VENT_PRO_COMP'
- PropertiesClassName = 'TcxSpinEditProperties'
+ PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
Properties.DisplayFormat = ',0.00 %;-,0.00 %'
Properties.EditFormat = ',0.00 %;-,0.00 %'
@@ -370,9 +373,12 @@ inherited frViewInfMargenArticuloGrid: TfrViewInfMargenArticuloGrid
object cxGridViewPOR_MARGEN_ULT_COMP: TcxGridDBColumn
Caption = '% margen venta - ult. compra'
DataBinding.FieldName = 'POR_MARGEN_ULT_COMP'
- PropertiesClassName = 'TcxCalcEditProperties'
+ PropertiesClassName = 'TcxCurrencyEditProperties'
+ Properties.Alignment.Horz = taRightJustify
Properties.DisplayFormat = ',0.00 %;-,0.00 %'
+ Properties.EditFormat = ',0.00 %;-,0.00 %'
FooterAlignmentHorz = taRightJustify
+ GroupSummaryAlignment = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewIMP_MARGEN_PRO_COMP: TcxGridDBColumn
@@ -387,7 +393,11 @@ inherited frViewInfMargenArticuloGrid: TfrViewInfMargenArticuloGrid
Caption = '% margen venta - compra pro.'
DataBinding.FieldName = 'POR_MARGEN_PRO_COMP'
PropertiesClassName = 'TcxCurrencyEditProperties'
+ Properties.Alignment.Horz = taRightJustify
+ Properties.DisplayFormat = ',0.00 %;-,0.00 %'
+ Properties.EditFormat = ',0.00 %;-,0.00 %'
FooterAlignmentHorz = taRightJustify
+ GroupSummaryAlignment = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewID_DETALLE: TcxGridDBColumn
@@ -422,9 +432,11 @@ inherited frViewInfMargenArticuloGrid: TfrViewInfMargenArticuloGrid
object cxGridViewCANTIDAD: TcxGridDBColumn
Caption = 'Cantidad'
DataBinding.FieldName = 'CANTIDAD'
- PropertiesClassName = 'TcxTextEditProperties'
+ PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
+ Properties.DisplayFormat = '#,##0;-#,##0'
FooterAlignmentHorz = taRightJustify
+ GroupSummaryAlignment = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewIMP_TOTAL: TcxGridDBColumn
diff --git a/Source/Modulos/Informe ventas por articulo/Data/InfVentasArticulo_data.drc b/Source/Modulos/Informe ventas por articulo/Data/InfVentasArticulo_data.drc
index f1b3dd6..d90a55c 100644
--- a/Source/Modulos/Informe ventas por articulo/Data/InfVentasArticulo_data.drc
+++ b/Source/Modulos/Informe ventas por articulo/Data/InfVentasArticulo_data.drc
@@ -12,6 +12,6 @@ STRINGTABLE
BEGIN
END
-/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Data\uDataModuleInfVentasArticulo.dfm */
+/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Data\uDataModuleInfVentasArticulo.DFM */
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Data\InfVentasArticulo_data.res */
-/* c:\temp\dtf1C8.tmp */
+/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Data\InfVentasArticulo_data.drf */
diff --git a/Source/Modulos/Informe ventas por articulo/Data/uDataModuleInfVentasArticulo.dfm b/Source/Modulos/Informe ventas por articulo/Data/uDataModuleInfVentasArticulo.dfm
index 24c4f3d..fc7c99a 100644
--- a/Source/Modulos/Informe ventas por articulo/Data/uDataModuleInfVentasArticulo.dfm
+++ b/Source/Modulos/Informe ventas por articulo/Data/uDataModuleInfVentasArticulo.dfm
@@ -440,7 +440,8 @@ inherited dmInfVentasArticulo: TdmInfVentasArticulo
end
item
Name = 'CANTIDAD'
- DataType = datCurrency
+ DataType = datFloat
+ DisplayFormat = '#,##0'
end
item
Name = 'IMPORTE_UNIDAD_VENTA'
diff --git a/Source/Modulos/Informe ventas por articulo/Model/InfVentasArticulo_model.drc b/Source/Modulos/Informe ventas por articulo/Model/InfVentasArticulo_model.drc
index f0abfa6..18e5a32 100644
--- a/Source/Modulos/Informe ventas por articulo/Model/InfVentasArticulo_model.drc
+++ b/Source/Modulos/Informe ventas por articulo/Model/InfVentasArticulo_model.drc
@@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Model\InfVentasArticulo_model.res */
-/* c:\temp\dtf1C6.tmp */
+/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Model\InfVentasArticulo_model.drf */
diff --git a/Source/Modulos/Informe ventas por articulo/Model/schInfVentasArticuloClient_Intf.pas b/Source/Modulos/Informe ventas por articulo/Model/schInfVentasArticuloClient_Intf.pas
index 760f765..3c7e700 100644
--- a/Source/Modulos/Informe ventas por articulo/Model/schInfVentasArticuloClient_Intf.pas
+++ b/Source/Modulos/Informe ventas por articulo/Model/schInfVentasArticuloClient_Intf.pas
@@ -3,15 +3,15 @@ unit schInfVentasArticuloClient_Intf;
interface
uses
- Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
+ Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
- RID_InfVentasArticulo = '{7CC515C6-D346-4DAD-AB07-4331002BFA39}';
- RID_TablaVacia = '{7DCC4ABB-5070-4D20-8B87-4B887CC84D94}';
- RID_InfVentasAlbArticulo = '{32940B83-836B-424C-B365-9747E0A8E076}';
+ RID_InfVentasArticulo = '{3237260C-2F98-4E32-900B-5E8E95BF4BA2}';
+ RID_TablaVacia = '{03EC1F6A-B248-4B64-9821-167F27870FEB}';
+ RID_InfVentasAlbArticulo = '{25AD2608-9AFB-454F-B58E-23ACF44807F9}';
{ Data table names }
nme_InfVentasArticulo = 'InfVentasArticulo';
@@ -195,7 +195,7 @@ const
type
{ IInfVentasArticulo }
IInfVentasArticulo = interface(IDAStronglyTypedDataTable)
- ['{B8E2CE74-5892-4A40-82EB-8F21DBEA58EE}']
+ ['{77E216E3-A203-4498-905F-3113F6CA1DC9}']
{ Property getters and setters }
function GetID_FACTURAValue: Integer;
procedure SetID_FACTURAValue(const aValue: Integer);
@@ -449,7 +449,7 @@ type
end;
{ TInfVentasArticuloDataTableRules }
- TInfVentasArticuloDataTableRules = class(TIntfObjectDADataTableRules, IInfVentasArticulo)
+ TInfVentasArticuloDataTableRules = class(TDADataTableRules, IInfVentasArticulo)
private
protected
{ Property getters and setters }
@@ -710,7 +710,7 @@ type
{ ITablaVacia }
ITablaVacia = interface(IDAStronglyTypedDataTable)
- ['{20AF542A-D8B1-4055-8B62-C01D55420E90}']
+ ['{BEF757FC-41F6-4F33-9EF5-FEDED66870B6}']
{ Property getters and setters }
@@ -718,7 +718,7 @@ type
end;
{ TTablaVaciaDataTableRules }
- TTablaVaciaDataTableRules = class(TIntfObjectDADataTableRules, ITablaVacia)
+ TTablaVaciaDataTableRules = class(TDADataTableRules, ITablaVacia)
private
protected
{ Property getters and setters }
@@ -733,7 +733,7 @@ type
{ IInfVentasAlbArticulo }
IInfVentasAlbArticulo = interface(IDAStronglyTypedDataTable)
- ['{B4818DB8-0075-4D21-BCDC-42A6A4C00609}']
+ ['{FCEE02B2-84CF-4757-ABA1-76857DBA4DAE}']
{ Property getters and setters }
function GetID_ALBARANValue: Integer;
procedure SetID_ALBARANValue(const aValue: Integer);
@@ -799,8 +799,8 @@ type
procedure SetIMPORTE_PORTE_COSTEValue(const aValue: Currency);
function GetIMPORTE_PORTE_COSTEIsNull: Boolean;
procedure SetIMPORTE_PORTE_COSTEIsNull(const aValue: Boolean);
- function GetCANTIDADValue: Currency;
- procedure SetCANTIDADValue(const aValue: Currency);
+ function GetCANTIDADValue: Float;
+ procedure SetCANTIDADValue(const aValue: Float);
function GetCANTIDADIsNull: Boolean;
procedure SetCANTIDADIsNull(const aValue: Boolean);
function GetIMPORTE_UNIDAD_VENTAValue: Currency;
@@ -930,7 +930,7 @@ type
property IMPORTE_NETO_COSTEIsNull: Boolean read GetIMPORTE_NETO_COSTEIsNull write SetIMPORTE_NETO_COSTEIsNull;
property IMPORTE_PORTE_COSTE: Currency read GetIMPORTE_PORTE_COSTEValue write SetIMPORTE_PORTE_COSTEValue;
property IMPORTE_PORTE_COSTEIsNull: Boolean read GetIMPORTE_PORTE_COSTEIsNull write SetIMPORTE_PORTE_COSTEIsNull;
- property CANTIDAD: Currency read GetCANTIDADValue write SetCANTIDADValue;
+ property CANTIDAD: Float read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property IMPORTE_UNIDAD_VENTA: Currency read GetIMPORTE_UNIDAD_VENTAValue write SetIMPORTE_UNIDAD_VENTAValue;
property IMPORTE_UNIDAD_VENTAIsNull: Boolean read GetIMPORTE_UNIDAD_VENTAIsNull write SetIMPORTE_UNIDAD_VENTAIsNull;
@@ -981,7 +981,7 @@ type
end;
{ TInfVentasAlbArticuloDataTableRules }
- TInfVentasAlbArticuloDataTableRules = class(TIntfObjectDADataTableRules, IInfVentasAlbArticulo)
+ TInfVentasAlbArticuloDataTableRules = class(TDADataTableRules, IInfVentasAlbArticulo)
private
protected
{ Property getters and setters }
@@ -1049,8 +1049,8 @@ type
procedure SetIMPORTE_PORTE_COSTEValue(const aValue: Currency); virtual;
function GetIMPORTE_PORTE_COSTEIsNull: Boolean; virtual;
procedure SetIMPORTE_PORTE_COSTEIsNull(const aValue: Boolean); virtual;
- function GetCANTIDADValue: Currency; virtual;
- procedure SetCANTIDADValue(const aValue: Currency); virtual;
+ function GetCANTIDADValue: Float; virtual;
+ procedure SetCANTIDADValue(const aValue: Float); virtual;
function GetCANTIDADIsNull: Boolean; virtual;
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_UNIDAD_VENTAValue: Currency; virtual;
@@ -1179,7 +1179,7 @@ type
property IMPORTE_NETO_COSTEIsNull: Boolean read GetIMPORTE_NETO_COSTEIsNull write SetIMPORTE_NETO_COSTEIsNull;
property IMPORTE_PORTE_COSTE: Currency read GetIMPORTE_PORTE_COSTEValue write SetIMPORTE_PORTE_COSTEValue;
property IMPORTE_PORTE_COSTEIsNull: Boolean read GetIMPORTE_PORTE_COSTEIsNull write SetIMPORTE_PORTE_COSTEIsNull;
- property CANTIDAD: Currency read GetCANTIDADValue write SetCANTIDADValue;
+ property CANTIDAD: Float read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property IMPORTE_UNIDAD_VENTA: Currency read GetIMPORTE_UNIDAD_VENTAValue write SetIMPORTE_UNIDAD_VENTAValue;
property IMPORTE_UNIDAD_VENTAIsNull: Boolean read GetIMPORTE_UNIDAD_VENTAIsNull write SetIMPORTE_UNIDAD_VENTAIsNull;
@@ -2470,14 +2470,14 @@ begin
DataTable.Fields[idx_InfVentasAlbArticuloIMPORTE_PORTE_COSTE].AsVariant := Null;
end;
-function TInfVentasAlbArticuloDataTableRules.GetCANTIDADValue: Currency;
+function TInfVentasAlbArticuloDataTableRules.GetCANTIDADValue: Float;
begin
- result := DataTable.Fields[idx_InfVentasAlbArticuloCANTIDAD].AsCurrency;
+ result := DataTable.Fields[idx_InfVentasAlbArticuloCANTIDAD].AsFloat;
end;
-procedure TInfVentasAlbArticuloDataTableRules.SetCANTIDADValue(const aValue: Currency);
+procedure TInfVentasAlbArticuloDataTableRules.SetCANTIDADValue(const aValue: Float);
begin
- DataTable.Fields[idx_InfVentasAlbArticuloCANTIDAD].AsCurrency := aValue;
+ DataTable.Fields[idx_InfVentasAlbArticuloCANTIDAD].AsFloat := aValue;
end;
function TInfVentasAlbArticuloDataTableRules.GetCANTIDADIsNull: boolean;
diff --git a/Source/Modulos/Informe ventas por articulo/Model/schInfVentasArticuloServer_Intf.pas b/Source/Modulos/Informe ventas por articulo/Model/schInfVentasArticuloServer_Intf.pas
index 895dfdc..f0578c7 100644
--- a/Source/Modulos/Informe ventas por articulo/Model/schInfVentasArticuloServer_Intf.pas
+++ b/Source/Modulos/Informe ventas por articulo/Model/schInfVentasArticuloServer_Intf.pas
@@ -9,14 +9,14 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
- RID_InfVentasArticuloDelta = '{3F5E554C-CDAD-4F0C-B179-FEA811CB32B9}';
- RID_TablaVaciaDelta = '{28BB0A71-A847-4434-8B08-BD59D8251C55}';
- RID_InfVentasAlbArticuloDelta = '{FAD814C2-7B05-4C19-BECF-CED46F0CF599}';
+ RID_InfVentasArticuloDelta = '{C3B56BBE-2A68-4751-BFDB-D7CFDC2D3D13}';
+ RID_TablaVaciaDelta = '{9D87C0DE-4AA3-4C8C-8820-97BD0D2FFDB8}';
+ RID_InfVentasAlbArticuloDelta = '{8D648387-0F24-46BD-959E-4AA0E074B55D}';
type
{ IInfVentasArticuloDelta }
IInfVentasArticuloDelta = interface(IInfVentasArticulo)
- ['{3F5E554C-CDAD-4F0C-B179-FEA811CB32B9}']
+ ['{C3B56BBE-2A68-4751-BFDB-D7CFDC2D3D13}']
{ Property getters and setters }
function GetOldID_FACTURAValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -530,7 +530,7 @@ type
{ ITablaVaciaDelta }
ITablaVaciaDelta = interface(ITablaVacia)
- ['{28BB0A71-A847-4434-8B08-BD59D8251C55}']
+ ['{9D87C0DE-4AA3-4C8C-8820-97BD0D2FFDB8}']
{ Property getters and setters }
{ Properties }
@@ -552,7 +552,7 @@ type
{ IInfVentasAlbArticuloDelta }
IInfVentasAlbArticuloDelta = interface(IInfVentasAlbArticulo)
- ['{FAD814C2-7B05-4C19-BECF-CED46F0CF599}']
+ ['{8D648387-0F24-46BD-959E-4AA0E074B55D}']
{ Property getters and setters }
function GetOldID_ALBARANValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -570,7 +570,7 @@ type
function GetOldDESCUENTO_PROVEEDOR_COSTEValue : Float;
function GetOldIMPORTE_NETO_COSTEValue : Currency;
function GetOldIMPORTE_PORTE_COSTEValue : Currency;
- function GetOldCANTIDADValue : Currency;
+ function GetOldCANTIDADValue : Float;
function GetOldIMPORTE_UNIDAD_VENTAValue : Currency;
function GetOldDESCUENTO_CLIENTE_VENTAValue : Float;
function GetOldIMPORTE_NETO_VENTAValue : Float;
@@ -612,7 +612,7 @@ type
property OldDESCUENTO_PROVEEDOR_COSTE : Float read GetOldDESCUENTO_PROVEEDOR_COSTEValue;
property OldIMPORTE_NETO_COSTE : Currency read GetOldIMPORTE_NETO_COSTEValue;
property OldIMPORTE_PORTE_COSTE : Currency read GetOldIMPORTE_PORTE_COSTEValue;
- property OldCANTIDAD : Currency read GetOldCANTIDADValue;
+ property OldCANTIDAD : Float read GetOldCANTIDADValue;
property OldIMPORTE_UNIDAD_VENTA : Currency read GetOldIMPORTE_UNIDAD_VENTAValue;
property OldDESCUENTO_CLIENTE_VENTA : Float read GetOldDESCUENTO_CLIENTE_VENTAValue;
property OldIMPORTE_NETO_VENTA : Float read GetOldIMPORTE_NETO_VENTAValue;
@@ -739,11 +739,11 @@ type
function GetOldIMPORTE_PORTE_COSTEIsNull: Boolean; virtual;
procedure SetIMPORTE_PORTE_COSTEValue(const aValue: Currency); virtual;
procedure SetIMPORTE_PORTE_COSTEIsNull(const aValue: Boolean); virtual;
- function GetCANTIDADValue: Currency; virtual;
+ function GetCANTIDADValue: Float; virtual;
function GetCANTIDADIsNull: Boolean; virtual;
- function GetOldCANTIDADValue: Currency; virtual;
+ function GetOldCANTIDADValue: Float; virtual;
function GetOldCANTIDADIsNull: Boolean; virtual;
- procedure SetCANTIDADValue(const aValue: Currency); virtual;
+ procedure SetCANTIDADValue(const aValue: Float); virtual;
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_UNIDAD_VENTAValue: Currency; virtual;
function GetIMPORTE_UNIDAD_VENTAIsNull: Boolean; virtual;
@@ -949,9 +949,9 @@ type
property IMPORTE_PORTE_COSTEIsNull : Boolean read GetIMPORTE_PORTE_COSTEIsNull write SetIMPORTE_PORTE_COSTEIsNull;
property OldIMPORTE_PORTE_COSTE : Currency read GetOldIMPORTE_PORTE_COSTEValue;
property OldIMPORTE_PORTE_COSTEIsNull : Boolean read GetOldIMPORTE_PORTE_COSTEIsNull;
- property CANTIDAD : Currency read GetCANTIDADValue write SetCANTIDADValue;
+ property CANTIDAD : Float read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull : Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
- property OldCANTIDAD : Currency read GetOldCANTIDADValue;
+ property OldCANTIDAD : Float read GetOldCANTIDADValue;
property OldCANTIDADIsNull : Boolean read GetOldCANTIDADIsNull;
property IMPORTE_UNIDAD_VENTA : Currency read GetIMPORTE_UNIDAD_VENTAValue write SetIMPORTE_UNIDAD_VENTAValue;
property IMPORTE_UNIDAD_VENTAIsNull : Boolean read GetIMPORTE_UNIDAD_VENTAIsNull write SetIMPORTE_UNIDAD_VENTAIsNull;
@@ -2859,7 +2859,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasAlbArticuloIMPORTE_PORTE_COSTE] := Null;
end;
-function TInfVentasAlbArticuloBusinessProcessorRules.GetCANTIDADValue: Currency;
+function TInfVentasAlbArticuloBusinessProcessorRules.GetCANTIDADValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasAlbArticuloCANTIDAD];
end;
@@ -2869,7 +2869,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasAlbArticuloCANTIDAD]);
end;
-function TInfVentasAlbArticuloBusinessProcessorRules.GetOldCANTIDADValue: Currency;
+function TInfVentasAlbArticuloBusinessProcessorRules.GetOldCANTIDADValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasAlbArticuloCANTIDAD];
end;
@@ -2879,7 +2879,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasAlbArticuloCANTIDAD]);
end;
-procedure TInfVentasAlbArticuloBusinessProcessorRules.SetCANTIDADValue(const aValue: Currency);
+procedure TInfVentasAlbArticuloBusinessProcessorRules.SetCANTIDADValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasAlbArticuloCANTIDAD] := aValue;
end;
diff --git a/Source/Modulos/Informe ventas por articulo/Servidor/srvInfVentasArticulo_Impl.dfm b/Source/Modulos/Informe ventas por articulo/Servidor/srvInfVentasArticulo_Impl.dfm
index fa0399a..1102a88 100644
--- a/Source/Modulos/Informe ventas por articulo/Servidor/srvInfVentasArticulo_Impl.dfm
+++ b/Source/Modulos/Informe ventas por articulo/Servidor/srvInfVentasArticulo_Impl.dfm
@@ -628,7 +628,8 @@ object srvInfVentasArticulo: TsrvInfVentasArticulo
end
item
Name = 'CANTIDAD'
- DataType = datCurrency
+ DataType = datFloat
+ DisplayFormat = '#,##0'
end
item
Name = 'IMPORTE_UNIDAD_VENTA'
diff --git a/Source/Modulos/Informe ventas por articulo/Views/InfVentasArticulo_view.drc b/Source/Modulos/Informe ventas por articulo/Views/InfVentasArticulo_view.drc
index cc811b9..d9aea8a 100644
--- a/Source/Modulos/Informe ventas por articulo/Views/InfVentasArticulo_view.drc
+++ b/Source/Modulos/Informe ventas por articulo/Views/InfVentasArticulo_view.drc
@@ -19,4 +19,4 @@ END
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Views\uViewInfVentasAlbArticulo.dfm */
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Views\uEditorInfVentasAlbArticulo.dfm */
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Views\InfVentasArticulo_view.res */
-/* c:\temp\dtf1CC.tmp */
+/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Views\InfVentasArticulo_view.drf */
diff --git a/Source/Modulos/Informe ventas por articulo/Views/uViewInfVentasAlbArticuloGrid.dfm b/Source/Modulos/Informe ventas por articulo/Views/uViewInfVentasAlbArticuloGrid.dfm
index 95c9659..2652bd0 100644
--- a/Source/Modulos/Informe ventas por articulo/Views/uViewInfVentasAlbArticuloGrid.dfm
+++ b/Source/Modulos/Informe ventas por articulo/Views/uViewInfVentasAlbArticuloGrid.dfm
@@ -139,6 +139,11 @@ inherited frViewInfVentasAlbArticuloGrid: TfrViewInfVentasAlbArticuloGrid
object cxGridViewCANTIDAD: TcxGridDBColumn
Caption = 'Cantidad'
DataBinding.FieldName = 'CANTIDAD'
+ PropertiesClassName = 'TcxCurrencyEditProperties'
+ Properties.Alignment.Horz = taRightJustify
+ Properties.DisplayFormat = '#,##0;-#,##0'
+ FooterAlignmentHorz = taRightJustify
+ GroupSummaryAlignment = taRightJustify
end
object cxGridViewIMPORTE_UNIDAD_VENTA: TcxGridDBColumn
Caption = 'Precio uni. venta'
diff --git a/Source/Modulos/Informe ventas por articulo/Views/uViewInfVentasAlbArticuloGrid.pas b/Source/Modulos/Informe ventas por articulo/Views/uViewInfVentasAlbArticuloGrid.pas
index db607ad..4745b7c 100644
--- a/Source/Modulos/Informe ventas por articulo/Views/uViewInfVentasAlbArticuloGrid.pas
+++ b/Source/Modulos/Informe ventas por articulo/Views/uViewInfVentasAlbArticuloGrid.pas
@@ -11,7 +11,7 @@ uses
cxCurrencyEdit, cxCalendar, dxPSGlbl, dxPSUtl, dxPrnPg, dxBkgnd, dxWrap,
dxPrnDev, dxPSEngn, dxPSCompsProvider, dxPSFillPatterns,
dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk, dxPgsDlg,
- cxDropDownEdit, StdCtrls, cxSpinEdit;
+ cxDropDownEdit, StdCtrls, cxSpinEdit, cxCalc;
type
IViewInfVentasAlbArticuloGrid = interface(IViewInformeBaseGrid)
diff --git a/Source/Modulos/Informe ventas por articulo/Views/uViewInfVentasArticuloGrid.dfm b/Source/Modulos/Informe ventas por articulo/Views/uViewInfVentasArticuloGrid.dfm
index 77b37e8..16776b8 100644
--- a/Source/Modulos/Informe ventas por articulo/Views/uViewInfVentasArticuloGrid.dfm
+++ b/Source/Modulos/Informe ventas por articulo/Views/uViewInfVentasArticuloGrid.dfm
@@ -143,6 +143,12 @@ inherited frViewInfVentasArticuloGrid: TfrViewInfVentasArticuloGrid
object cxGridViewCANTIDAD: TcxGridDBColumn
Caption = 'Cantidad'
DataBinding.FieldName = 'CANTIDAD'
+ PropertiesClassName = 'TcxCurrencyEditProperties'
+ Properties.Alignment.Horz = taRightJustify
+ Properties.DisplayFormat = '#,##0;-#,##0'
+ FooterAlignmentHorz = taRightJustify
+ GroupSummaryAlignment = taRightJustify
+ HeaderAlignmentHorz = taRightJustify
end
object cxGridViewIMPORTE_UNIDAD_VENTA: TcxGridDBColumn
Caption = 'Precio uni. venta'
@@ -241,6 +247,7 @@ inherited frViewInfVentasArticuloGrid: TfrViewInfVentasArticuloGrid
object cxStyleRepository1: TcxStyleRepository
Left = 16
Top = 48
+ PixelsPerInch = 96
object cxStyleRed: TcxStyle
AssignedValues = [svTextColor]
TextColor = clRed
diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index 5d7ca2b..8df8973 100644
Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ
diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr
index c6bec37..639ef31 100644
--- a/Source/Servidor/FactuGES_Server.dpr
+++ b/Source/Servidor/FactuGES_Server.dpr
@@ -164,12 +164,12 @@ uses
srvInfMargenArticulo_Impl in '..\Modulos\Informe margen por articulo\Servidor\srvInfMargenArticulo_Impl.pas' {srvInfMargenArticulo: TDARemoteService},
schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas',
schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
- schInfVentasArticuloClient_Intf in '..\Modulos\Informe ventas por articulo\Model\schInfVentasArticuloClient_Intf.pas',
- schInfVentasArticuloServer_Intf in '..\Modulos\Informe ventas por articulo\Model\schInfVentasArticuloServer_Intf.pas',
schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
- schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas';
+ schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
+ schInfVentasArticuloClient_Intf in '..\Modulos\Informe ventas por articulo\Model\schInfVentasArticuloClient_Intf.pas',
+ schInfVentasArticuloServer_Intf in '..\Modulos\Informe ventas por articulo\Model\schInfVentasArticuloServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}
diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj
index 38b8ab2..ee87e60 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -1,407 +1,408 @@
-
+
-
- {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}
- FactuGES_Server.dpr
- Debug
- AnyCPU
- DCC32
- ..\..\Output\Debug\Servidor\FactuGES_Server.exe
- vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11R;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100
-
-
- 7.0
- False
- False
- 0
- 3
- ..\..\Output\Release\Servidor
- RELEASE
-
-
- 7.0
- 3
- ..\..\Output\Debug\Servidor
- DEBUG;
- True
- True
- True
- C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
- C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
- C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
- C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
-
-
- Delphi.Personality
-
-
- FalseTrueFalse/standaloneTrueFalse4220FalseFalseFalseFalseFalse308212524.2.2.04.2.2.0martes, 14 de febrero de 2012 15:51
- ExpressPrinting System by Developer Express Inc.
- FactuGES_Server.dprFalse
-
-
-
-
- MainSource
-
-
-
-
-
-
- TDARemoteService
-
-
-
- TDataModule
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDARemoteService
-
-
-
-
-
-
- TDARemoteService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDARemoteService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
- TDataAbstractService
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDARemoteService
-
-
-
- TDARemoteService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
- TFrame
-
-
-
- TFrame
-
-
-
- TFrame
-
-
-
- TForm
-
-
-
- TFrame
-
-
-
- TDARemoteService
-
-
-
-
-
-
- TDataModule
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+ {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}
+ FactuGES_Server.dpr
+ Debug
+ AnyCPU
+ DCC32
+ ..\..\Output\Debug\Servidor\FactuGES_Server.exe
+ vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11R;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100
+
+
+ 7.0
+ False
+ False
+ 0
+ 3
+ ..\..\Output\Release\Servidor
+ RELEASE
+
+
+ 7.0
+ 3
+ ..\..\Output\Debug\Servidor
+ DEBUG;
+ True
+ True
+ True
+ C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
+ C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
+ C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
+ C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
+
+
+ Delphi.Personality
+
+
+FalseTrueFalse/standaloneTrueFalse4230FalseFalseFalseFalseFalse308212524.2.3.04.2.3.0martes, 14 de febrero de 2012 16:03
+
+ ExpressPrinting System by Developer Express Inc.
+ FactuGES_Server.dprFalse
+
+
+
+
+ MainSource
+
+
+
+
+
+
+ TDARemoteService
+
+
+
+ TDataModule
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDARemoteService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+ TDataAbstractService
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDARemoteService
+
+
+
+ TDARemoteService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+ TFrame
+
+
+
+ TFrame
+
+
+
+ TFrame
+
+
+
+ TForm
+
+
+
+ TFrame
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+ TDataModule
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+