Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Facturas de cliente: informe (no terminado) y repaso general.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@224 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-01-15 10:31:41 +00:00
parent 640a00fa9a
commit 9092beef66
9 changed files with 865 additions and 573 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
View File

@ -24,7 +24,7 @@ type
function BuscarTodasPendientesComision(IdAgente: Integer; IdComision: Integer; IdFacturasAsociadas: String): IBizFacturaCliente; function BuscarTodasPendientesComision(IdAgente: Integer; IdComision: Integer; IdFacturasAsociadas: String): IBizFacturaCliente;
procedure Ver(AFactura : IBizFacturaCliente); procedure Ver(AFactura : IBizFacturaCliente);
procedure VerTodos(AFacturas: IBizFacturaCliente); procedure VerTodos(AFacturas: IBizFacturaCliente);
function Nuevo : IBizFacturaCliente; function Nuevo (withInsert: Boolean = True) : IBizFacturaCliente;
function Anadir(AFactura : IBizFacturaCliente) : Boolean; overload; function Anadir(AFactura : IBizFacturaCliente) : Boolean; overload;
function AnadirAbono(AFactura : IBizFacturaCliente) : Boolean; function AnadirAbono(AFactura : IBizFacturaCliente) : Boolean;
function Anadir(AFacturas : IBizFacturaCliente; AListaAlbaranes : IBizAlbaranCliente): Boolean; overload; function Anadir(AFacturas : IBizFacturaCliente; AListaAlbaranes : IBizAlbaranCliente): Boolean; overload;
@ -90,7 +90,7 @@ type
function Buscar(const ID: Integer): IBizFacturaCliente; function Buscar(const ID: Integer): IBizFacturaCliente;
function BuscarTodos: IBizFacturaCliente; function BuscarTodos: IBizFacturaCliente;
function BuscarTodasPendientesComision(IdAgente: Integer; IdComision: Integer; IdFacturasAsociadas: String): IBizFacturaCliente; function BuscarTodasPendientesComision(IdAgente: Integer; IdComision: Integer; IdFacturasAsociadas: String): IBizFacturaCliente;
function Nuevo : IBizFacturaCliente; function Nuevo (withInsert: Boolean = True) : IBizFacturaCliente;
procedure Ver(AFactura : IBizFacturaCliente); procedure Ver(AFactura : IBizFacturaCliente);
procedure VerTodos(AFacturas: IBizFacturaCliente); procedure VerTodos(AFacturas: IBizFacturaCliente);
function Duplicar(AFactura: IBizFacturaCliente): IBizFacturaCliente; function Duplicar(AFactura: IBizFacturaCliente): IBizFacturaCliente;
@ -921,14 +921,15 @@ begin
end; end;
end; end;
function TFacturasClienteController.Nuevo: IBizFacturaCliente; function TFacturasClienteController.Nuevo(withInsert: Boolean = True): IBizFacturaCliente;
var var
AFactura : IBizFacturaCliente; AFactura : IBizFacturaCliente;
begin begin
AFactura := FDataModule.NewItem; AFactura := FDataModule.NewItem;
FiltrarEmpresa(AFactura); FiltrarEmpresa(AFactura);
AFactura.DataTable.Active := True; AFactura.DataTable.Active := True;
AFactura.Insert; if WithInsert then
AFactura.Insert;
Result := AFactura; Result := AFactura;
end; end;

1204
Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm
View File

File diff suppressed because it is too large Load Diff

87
Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas
View File

@ -7,33 +7,70 @@ uses
Dialogs, frxClass, frxDBSet, uDAScriptingProvider, Dialogs, frxClass, frxDBSet, uDAScriptingProvider,
uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient, uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient,
frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes, frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes,
uDAInterfaces, uDADataStreamer, IBCustomDataSet, IBQuery, IBDatabase; uDAInterfaces, uDADataStreamer, IBCustomDataSet, IBQuery, IBDatabase,
uDAMemDataTable;
type type
TRptFacturasCliente = class(TDataModule) TRptFacturasCliente = class(TDataModule)
DADataCabecera: TDADataSource;
DADataDetalles: TDADataSource;
tbl_FacturaCliente: TDACDSDataTable;
tbl_DetallesFacturaCliente: TDACDSDataTable;
frxDBCabecera: TfrxDBDataset; frxDBCabecera: TfrxDBDataset;
frxDBDetalles: TfrxDBDataset; frxDBDetalles: TfrxDBDataset;
DADataVencimientos: TDADataSource;
tbl_Vencimientos: TDACDSDataTable;
frxDBDataset1: TfrxDBDataset;
schReport: TDASchema;
DataDictionary: TDADataDictionary; DataDictionary: TDADataDictionary;
frxReport: TfrxReport;
frxBarCodeObject1: TfrxBarCodeObject;
frxOLEObject1: TfrxOLEObject;
frxCrossObject1: TfrxCrossObject;
frxCheckBoxObject1: TfrxCheckBoxObject;
frxGradientObject1: TfrxGradientObject;
IBDatabase1: TIBDatabase; IBDatabase1: TIBDatabase;
IBTransaction1: TIBTransaction; IBTransaction1: TIBTransaction;
DataSource1: TDataSource; DataSource1: TDataSource;
DataSource2: TDataSource; DataSource2: TDataSource;
cabecera: TIBQuery; cabecera: TIBQuery;
detalles: TIBQuery; detalles: TIBQuery;
schReport: TDASchema;
DABINAdapter: TDABINAdapter;
DADSCabecera: TDADataSource;
DADSDetalles: TDADataSource;
tbl_Detalles: TDAMemDataTable;
tbl_Cabecera: TDAMemDataTable;
frxCheckBoxObject1: TfrxCheckBoxObject;
frxChartObject1: TfrxChartObject;
frxGradientObject1: TfrxGradientObject;
frxCrossObject1: TfrxCrossObject;
frxOLEObject1: TfrxOLEObject;
frxBarCodeObject1: TfrxBarCodeObject;
frxRichObject1: TfrxRichObject;
frxReport: TfrxReport;
cabeceraID: TIntegerField;
cabeceraID_EMPRESA: TIntegerField;
cabeceraREFERENCIA: TIBStringField;
cabeceraTIPO: TIBStringField;
cabeceraFECHA_FACTURA: TDateField;
cabeceraBASE_IMPONIBLE: TIBBCDField;
cabeceraSITUACION: TIBStringField;
cabeceraDESCUENTO: TFloatField;
cabeceraIMPORTE_DESCUENTO: TIBBCDField;
cabeceraIVA: TFloatField;
cabeceraIMPORTE_IVA: TIBBCDField;
cabeceraRE: TFloatField;
cabeceraIMPORTE_RE: TIBBCDField;
cabeceraIMPORTE_TOTAL: TIBBCDField;
cabeceraOBSERVACIONES: TMemoField;
cabeceraNIF_CIF: TIBStringField;
cabeceraID_CLIENTE: TIntegerField;
cabeceraNOMBRE: TIBStringField;
cabeceraCALLE: TIBStringField;
cabeceraPROVINCIA: TIBStringField;
cabeceraPOBLACION: TIBStringField;
cabeceraCODIGO_POSTAL: TIBStringField;
cabeceraRECARGO_EQUIVALENCIA: TSmallintField;
cabeceraIMPORTE_NETO: TIBBCDField;
cabeceraIMPORTE_PORTE: TIBBCDField;
cabeceraFORMA_PAGO: TIBStringField;
detallesID: TIntegerField;
detallesID_FACTURA: TIntegerField;
detallesPOSICION: TIntegerField;
detallesTIPO_DETALLE: TIBStringField;
detallesCONCEPTO: TIBStringField;
detallesCANTIDAD: TIntegerField;
detallesIMPORTE_UNIDAD: TIBBCDField;
detallesDESCUENTO: TFloatField;
detallesIMPORTE_TOTAL: TIBBCDField;
detallesVISIBLE: TSmallintField;
procedure DataModuleCreate(Sender: TObject); procedure DataModuleCreate(Sender: TObject);
private private
FConnection: IDAConnection; FConnection: IDAConnection;
@ -76,7 +113,7 @@ var
begin begin
Result := Binary.Create; Result := Binary.Create;
FConnection.BeginTransaction; //FConnection.BeginTransaction; <--- Creo que no va a hacer falta.
try try
ID_Facturas := TStringList.Create; ID_Facturas := TStringList.Create;
@ -89,7 +126,7 @@ begin
frxReport.PreviewPages.SaveToStream(Result); frxReport.PreviewPages.SaveToStream(Result);
finally finally
FConnection.RollbackTransaction; //FConnection.RollbackTransaction; <--- Creo que no va a hacer falta.
end; end;
end; end;
@ -103,9 +140,9 @@ begin
AStream := TMemoryStream.Create; AStream := TMemoryStream.Create;
try try
dsMaster := schReport.NewDataset(FConnection, ds_InformeFacturasCliente, ['ID'], [ID]); { dsMaster := schReport.NewDataset(FConnection, ds_InformeFacturasCliente, ['ID'], [ID]);
dsDetail := schReport.NewDataset(FConnection, ds_InformeFacturasCliente_Detalles, ['ID_FACTURA'], [ID], False); dsDetail := schReport.NewDataset(FConnection, ds_InformeFacturasCliente_Detalles, ['ID_FACTURA'], [ID], False);
dsVencimientos := schReport.NewDataset(FConnection, ds_InformeFacturasCliente_Vencimientos, ['ID_FACTURA'], [ID], False); dsVencimientos := schReport.NewDataset(FConnection, ds_InformeFacturasCliente_Vencimientos, ['ID_FACTURA'], [ID], False);}
{ AStream.Clear; { AStream.Clear;
DABINAdapter.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1); DABINAdapter.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1);
@ -119,6 +156,18 @@ begin
DABINAdapter.WriteDataset(AStream, dsVencimientos, [woRows, woSchema], -1); DABINAdapter.WriteDataset(AStream, dsVencimientos, [woRows, woSchema], -1);
DABINAdapter.ReadDataset(AStream, tbl_Vencimientos, TRUE, '', TRUE, TRUE);} DABINAdapter.ReadDataset(AStream, tbl_Vencimientos, TRUE, '', TRUE, TRUE);}
frxDBCabecera.DataSource := DADSCabecera;
frxDBDetalles.DataSource := DADSDetalles;
// tbl_Cabecera.ParamByName('ID').AsInteger := AID;
//tbl_Capitulos.ParamByName('ID_FACTURA').AsInteger := AID;
// tbl_Detalles.ParamByName('ID_FACTURA').AsInteger := AID;
//tbl_Resumen.ParamByName('ID_FACTURA').AsInteger := AID;
{ tbl_Cabecera.Active := True;
tbl_Capitulos.Active := True;
tbl_Detalles.Active := True;
tbl_Resumen.Active := True;}
frxReport.LoadFromFile(DarRutaInformes + rptFacturaCliente, True); frxReport.LoadFromFile(DarRutaInformes + rptFacturaCliente, True);
frxReport.PrepareReport(False); frxReport.PrepareReport(False);

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

@ -190,75 +190,111 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitHeight = 283 ExplicitHeight = 283
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 774 Width = 774
Height = 51
ExplicitWidth = 774 ExplicitWidth = 774
inherited ToolButton4: TToolButton ExplicitHeight = 51
inherited ToolButton3: TToolButton
Wrap = False Wrap = False
end end
inherited ToolButton4: TToolButton
Left = 278
Top = 0
ExplicitLeft = 278
ExplicitTop = 0
end
inherited ToolButton14: TToolButton inherited ToolButton14: TToolButton
Left = 334 Left = 334
Top = 0 Top = 0
Wrap = True Wrap = False
ExplicitLeft = 334 ExplicitLeft = 334
ExplicitTop = 0 ExplicitTop = 0
end end
inherited FontName: TJvFontComboBox inherited FontName: TJvFontComboBox
Left = 0 Left = 399
ExplicitLeft = 0 Top = 0
ExplicitLeft = 399
ExplicitTop = 0
end end
inherited FontSize: TEdit inherited FontSize: TEdit
Left = 145 Left = 544
Top = 0
Width = 57 Width = 57
ExplicitLeft = 145 ExplicitLeft = 544
ExplicitTop = 0
ExplicitWidth = 57 ExplicitWidth = 57
end end
inherited UpDown1: TUpDown inherited UpDown1: TUpDown
Left = 202 Left = 601
ExplicitLeft = 202 Top = 0
ExplicitLeft = 601
ExplicitTop = 0
end end
inherited ToolButton13: TToolButton inherited ToolButton13: TToolButton
Left = 219 Left = 0
ExplicitLeft = 219 Top = 0
Wrap = True
ExplicitLeft = 0
ExplicitTop = 0
ExplicitHeight = 30
end end
inherited ToolButton6: TToolButton inherited ToolButton6: TToolButton
Left = 227 Left = 0
ExplicitLeft = 227 Top = 30
ExplicitLeft = 0
ExplicitTop = 30
end end
inherited ToolButton7: TToolButton inherited ToolButton7: TToolButton
Left = 261 Left = 66
ExplicitLeft = 261 Top = 30
ExplicitLeft = 66
ExplicitTop = 30
end end
inherited ToolButton8: TToolButton inherited ToolButton8: TToolButton
Left = 295 Left = 133
ExplicitLeft = 295 Top = 30
ExplicitLeft = 133
ExplicitTop = 30
end end
inherited ToolButton12: TToolButton inherited ToolButton12: TToolButton
Left = 329 Left = 216
ExplicitLeft = 329 Top = 30
ExplicitLeft = 216
ExplicitTop = 30
end end
inherited ToolButton9: TToolButton inherited ToolButton9: TToolButton
Left = 337 Left = 224
ExplicitLeft = 337 Top = 30
ExplicitLeft = 224
ExplicitTop = 30
end end
inherited ToolButton10: TToolButton inherited ToolButton10: TToolButton
Left = 371 Left = 369
ExplicitLeft = 371 Top = 30
ExplicitLeft = 369
ExplicitTop = 30
end end
inherited ToolButton11: TToolButton inherited ToolButton11: TToolButton
Left = 405 Left = 494
ExplicitLeft = 405 Top = 30
ExplicitLeft = 494
ExplicitTop = 30
end end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Top = 77
Width = 774 Width = 774
Height = 211 Height = 206
ExplicitTop = 72
ExplicitWidth = 774 ExplicitWidth = 774
ExplicitHeight = 211 ExplicitHeight = 211
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Top = 51
Width = 774 Width = 774
ExplicitWidth = 780 ExplicitTop = 51
ExplicitWidth = 774
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 548 ExplicitWidth = 626
end end
end end
end end

3
Source/Modulos/Facturas de cliente/Views/uViewDetallesFacturaCliente.dfm
View File

@ -1,9 +1,6 @@
inherited frViewDetallesFacturaCliente: TfrViewDetallesFacturaCliente inherited frViewDetallesFacturaCliente: TfrViewDetallesFacturaCliente
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
inherited cxGridViewTIPO: TcxGridDBColumn
Visible = False
end
inherited cxGridViewIMPORTEPORTE: TcxGridDBColumn inherited cxGridViewIMPORTEPORTE: TcxGridDBColumn
Visible = False Visible = False
end end

2
Source/Modulos/Facturas de cliente/Views/uViewElegirArticulosFacturasCliente.pas
View File

@ -8,7 +8,7 @@ uses
cxDataStorage, cxEdit, DB, cxDBData, cxImageComboBox, cxCurrencyEdit, cxDataStorage, cxEdit, DB, cxDBData, cxImageComboBox, cxCurrencyEdit,
cxSpinEdit, dxPSGlbl, dxPSUtl, dxPSEngn, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, cxSpinEdit, dxPSGlbl, dxPSUtl, dxPSEngn, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev,
dxPSCompsProvider, dxPSFillPatterns, dxPSEdgePatterns, ImgList, PngImageList, dxPSCompsProvider, dxPSFillPatterns, dxPSEdgePatterns, ImgList, PngImageList,
cxGridCustomPopupMenu, cxGridPopupMenu, dxPSCore, dxPScxCommon, dxPScxGridLnk, cxGridCustomPopupMenu, cxGridPopupMenu, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk,
uDADataTable, cxGridLevel, cxGridCustomTableView, cxGridTableView, uDADataTable, cxGridLevel, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, dxPgsDlg, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, dxPgsDlg,
ActnList, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock, uViewFiltroBase; ActnList, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock, uViewFiltroBase;

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

@ -1,6 +1,6 @@
inherited frViewFacturaCliente: TfrViewFacturaCliente inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 451 Width = 822
Height = 304 Height = 317
Align = alClient Align = alClient
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
@ -9,16 +9,18 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 451 Width = 822
Height = 304 Height = 317
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1 LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 451
ExplicitHeight = 304
DesignSize = ( DesignSize = (
451 822
304) 317)
object eReferencia: TcxDBTextEdit object eReferencia: TcxDBTextEdit
Left = 124 Left = 124
Top = 30 Top = 30
@ -79,7 +81,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 301 Width = 301
end end
inline frViewClienteFactura: TfrViewDatosYSeleccionCliente inline frViewClienteFactura: TfrViewDatosYSeleccionCliente
Left = 310 Left = 427
Top = 30 Top = 30
Width = 314 Width = 314
Height = 215 Height = 215
@ -91,7 +93,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
ParentFont = False ParentFont = False
TabOrder = 5 TabOrder = 5
ReadOnly = False ReadOnly = False
ExplicitLeft = 310 ExplicitLeft = 427
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 314 ExplicitWidth = 314
ExplicitHeight = 215 ExplicitHeight = 215
@ -126,13 +128,13 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 327 Width = 327
end end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
Left = 192 Left = 281
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
ExplicitLeft = 192 ExplicitLeft = 281
end end
inherited Button3: TBitBtn inherited Button3: TBitBtn
Left = 82 Left = 171
ExplicitLeft = 82 ExplicitLeft = 171
end end
end end
end end
@ -141,7 +143,6 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Top = 84 Top = 84
DataBinding.DataField = 'ID_FORMA_PAGO' DataBinding.DataField = 'ID_FORMA_PAGO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.GridMode = True
Properties.ImmediatePost = True Properties.ImmediatePost = True
Properties.KeyFieldNames = 'ID' Properties.KeyFieldNames = 'ID'
Properties.ListColumns = < Properties.ListColumns = <
@ -150,7 +151,9 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
end> end>
Properties.ListOptions.GridLines = glNone Properties.ListOptions.GridLines = glNone
Properties.ListOptions.ShowHeader = False Properties.ListOptions.ShowHeader = False
Properties.ListOptions.SyncMode = True
Properties.ListSource = dsFormaPago Properties.ListSource = dsFormaPago
Properties.PostPopupValueOnTab = True
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.HotTrack = False Style.HotTrack = False
@ -168,7 +171,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 78 Width = 78
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 150 Left = 267
Top = 84 Top = 84
Width = 132 Width = 132
Height = 23 Height = 23

10
Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm
View File

@ -123,6 +123,8 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
object cxGridViewREFERENCIA_COMISION: TcxGridDBColumn object cxGridViewREFERENCIA_COMISION: TcxGridDBColumn
Caption = 'Liquidaci'#243'n' Caption = 'Liquidaci'#243'n'
DataBinding.FieldName = 'REFERENCIA_COMISION' DataBinding.FieldName = 'REFERENCIA_COMISION'
Visible = False
VisibleForCustomization = False
Width = 54 Width = 54
end end
end end
@ -147,6 +149,14 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 531 Width = 531
ExplicitWidth = 531 ExplicitWidth = 531
inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 273
Width = 273
end
inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 121
Width = 121
end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 248 Left = 248
ExplicitLeft = 248 ExplicitLeft = 248

2
Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas
View File

@ -9,7 +9,7 @@ uses
dxPSEngn, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSEngn, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider,
dxPSFillPatterns, dxPSEdgePatterns, cxImageComboBox, cxTextEdit, ImgList, dxPSFillPatterns, dxPSEdgePatterns, cxImageComboBox, cxTextEdit, ImgList,
PngImageList, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, PngImageList, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
dxPSCore, dxPScxCommon, dxPScxGridLnk, ActnList, uDADataTable, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk, ActnList, uDADataTable,
cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGrid, cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGrid,
cxImage, Grids, DBGrids, uBizFacturasCliente, cxGridCustomPopupMenu, cxImage, Grids, DBGrids, uBizFacturasCliente, cxGridCustomPopupMenu,
cxGridPopupMenu, cxCalendar, cxCurrencyEdit, uViewFiltroBase, TB2Item, TBX, cxGridPopupMenu, cxCalendar, cxCurrencyEdit, uViewFiltroBase, TB2Item, TBX,