From f8d67b6ac8223a3e3010f409aa755e0c03613471 Mon Sep 17 00:00:00 2001 From: david Date: Wed, 20 Aug 2008 14:23:47 +0000 Subject: [PATCH] Poder exportar a un ficheros Excel los grids. git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@518 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- Source/Base/Utiles/uSistemaFunc.pas | 27 +- Source/GUIBase/GUIBase.dproj | 92 +-- Source/GUIBase/uEditorBase.dfm | 2 + Source/GUIBase/uEditorGridBase.dfm | 58 +- Source/GUIBase/uEditorGridBase.pas | 22 + Source/GUIBase/uViewGridBase.pas | 29 +- .../uAlbaranesClienteReportController.pas | 2 +- .../uFacturasClienteReportController.pas | 2 +- .../Model/schFacturasProveedorClient_Intf.pas | 8 +- .../uPedidosProveedorReportController.pas | 2 +- .../uPresupuestosClienteReportController.pas | 4 +- Source/Servidor/FactuGES_Server.RES | Bin 23208 -> 23208 bytes Source/Servidor/FactuGES_Server.dproj | 572 +++++++++--------- Source/Servidor/FactuGES_Server.rc | 2 +- 14 files changed, 452 insertions(+), 370 deletions(-) diff --git a/Source/Base/Utiles/uSistemaFunc.pas b/Source/Base/Utiles/uSistemaFunc.pas index 506171d5..532dd7e2 100644 --- a/Source/Base/Utiles/uSistemaFunc.pas +++ b/Source/Base/Utiles/uSistemaFunc.pas @@ -35,7 +35,6 @@ function DarFicheroBMPTemporal : String; function DarFicheroTIFFTemporal : String; function DarFicheroHTMLTemporal : String; function DarFicheroExcelTemporal : String; -function DarFicheroWordExportar (var Fichero : String) : Boolean; function DarVersionFichero (Executable : String) : String; function DarFechaFichero (Executable : String) : String; procedure CopiarFichero(const Origen, Destino: string); @@ -43,6 +42,8 @@ procedure DoDelTree( TheDir : String); procedure Deltree(DirToKill : String; KillChoosenDir : Boolean); function GetSpecialFolderPath(folder : integer) : string; function PreguntarRuta(const ATitulo: String; const AComentario: String; var ARuta: String): Boolean; +function PreguntarFicheroWordExportar (var Fichero : String) : Boolean; +function PreguntarFicheroExcelExportar (var Fichero : String) : Boolean; function EscapeIllegalChars(AFileName: string): string; implementation @@ -174,7 +175,7 @@ begin Result := Copy(Cadena, 0, (Length(Cadena)-3)) + 'jpg'; end; -function DarFicheroWordExportar (var Fichero : String) : Boolean; +function PreguntarFicheroWordExportar (var Fichero : String) : Boolean; var DialogoSalvar : TSaveDialog; begin @@ -195,6 +196,28 @@ begin end; end; +function PreguntarFicheroExcelExportar (var Fichero : String) : Boolean; +var + DialogoSalvar : TSaveDialog; +begin + DialogoSalvar := TSaveDialog.Create(NIL); + try + with DialogoSalvar do + begin + DefaultExt := 'xls'; + Filter := 'Documento de Excel (*.xls)|*.xls'; + FilterIndex := 0; + Options := [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofEnableSizing]; + end; + Result := DialogoSalvar.Execute; + if Result then + Fichero := DialogoSalvar.FileName; + finally + DialogoSalvar.Free; + end; +end; + + function DarVersionFichero (Executable : String) : String; var Obj : TJclFileVersionInfo; diff --git a/Source/GUIBase/GUIBase.dproj b/Source/GUIBase/GUIBase.dproj index d352233f..2c6d31f4 100644 --- a/Source/GUIBase/GUIBase.dproj +++ b/Source/GUIBase/GUIBase.dproj @@ -58,52 +58,52 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fDialogBase
 diff --git a/Source/GUIBase/uEditorBase.dfm b/Source/GUIBase/uEditorBase.dfm index 99526794..38771460 100644 --- a/Source/GUIBase/uEditorBase.dfm +++ b/Source/GUIBase/uEditorBase.dfm @@ -396,6 +396,7 @@ object fEditorBase: TfEditorBase end end object SmallImages: TPngImageList + ShareImages = True PngImages = < item PngImage.Data = { @@ -885,6 +886,7 @@ object fEditorBase: TfEditorBase end object LargeImages: TPngImageList Height = 24 + ShareImages = True Width = 24 PngImages = < item diff --git a/Source/GUIBase/uEditorGridBase.dfm b/Source/GUIBase/uEditorGridBase.dfm index 9b596e4c..6e10532b 100644 --- a/Source/GUIBase/uEditorGridBase.dfm +++ b/Source/GUIBase/uEditorGridBase.dfm @@ -2,35 +2,35 @@ inherited fEditorGridBase: TfEditorGridBase Left = 441 Top = 354 Caption = 'fEditorGridBase' - ClientHeight = 444 - ClientWidth = 543 + ClientHeight = 504 + ClientWidth = 706 OnDestroy = CustomEditorDestroy - ExplicitWidth = 551 - ExplicitHeight = 478 + ExplicitWidth = 714 + ExplicitHeight = 538 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader Top = 0 - Width = 543 + Width = 706 ExplicitTop = 0 - ExplicitWidth = 543 + ExplicitWidth = 706 inherited Image1: TImage - Left = 516 + Left = 679 ExplicitLeft = 518 end end inherited TBXDock: TTBXDock Top = 27 - Width = 543 + Width = 706 Height = 75 ExplicitTop = 27 - ExplicitWidth = 543 + ExplicitWidth = 706 ExplicitHeight = 75 inherited tbxMain: TTBXToolbar DockPos = 0 DragHandleStyle = dhDouble TabOrder = 1 - ExplicitWidth = 457 + ExplicitWidth = 600 inherited TBXItem29: TTBXItem Visible = False end @@ -49,10 +49,14 @@ inherited fEditorGridBase: TfEditorGridBase end inherited TBXSeparatorItem10: TTBXSeparatorItem [12] end - inherited TBXItem26: TTBXItem [13] + object TBXItem384: TTBXItem [13] + Action = actExportarExcel + DisplayMode = nbdmTextOnly + end + inherited TBXItem26: TTBXItem [14] Visible = False end - inherited TBXSeparatorItem2: TTBXSeparatorItem [14] + inherited TBXSeparatorItem2: TTBXSeparatorItem [15] Visible = True end inherited TBXItem25: TTBXItem @@ -61,7 +65,7 @@ inherited fEditorGridBase: TfEditorGridBase inherited TBXSeparatorItem11: TTBXSeparatorItem Visible = False end - object TBXItem36: TTBXItem [18] + object TBXItem36: TTBXItem [19] Action = actAnchoAuto DisplayMode = nbdmImageAndText end @@ -107,7 +111,7 @@ inherited fEditorGridBase: TfEditorGridBase inherited tbxMenu: TTBXToolbar TabOrder = 2 Visible = False - ExplicitWidth = 543 + ExplicitWidth = 706 inherited TBXSubmenuItem4: TTBXSubmenuItem inherited TBXItem30: TTBXItem Visible = False @@ -123,6 +127,11 @@ inherited fEditorGridBase: TfEditorGridBase inherited TBXItem21: TTBXItem Visible = False end + object TBXSeparatorItem172: TTBXSeparatorItem [12] + end + object TBXItem395: TTBXItem [13] + Action = actExportarExcel + end end inherited TBXSubmenuItem5: TTBXSubmenuItem Visible = False @@ -163,10 +172,10 @@ inherited fEditorGridBase: TfEditorGridBase end end inherited StatusBar: TJvStatusBar - Top = 425 - Width = 543 - ExplicitTop = 425 - ExplicitWidth = 543 + Top = 485 + Width = 706 + ExplicitTop = 485 + ExplicitWidth = 706 end inherited EditorActionList: TActionList Left = 64 @@ -219,8 +228,15 @@ inherited fEditorGridBase: TfEditorGridBase OnExecute = actFiltrarExecute OnUpdate = actFiltrarUpdate end + object actExportarExcel: TAction + Category = 'Archivo' + Caption = 'Exportar a fichero Excel...' + OnExecute = actExportarExcelExecute + OnUpdate = actExportarExcelUpdate + end end inherited SmallImages: TPngImageList + ShareImages = False PngImages = < item PngImage.Data = { @@ -1558,6 +1574,12 @@ inherited fEditorGridBase: TfEditorGridBase object N3: TMenuItem Caption = '-' end + object ExportaraficheroExcel1: TMenuItem + Action = actExportarExcel + end + object N488: TMenuItem + Caption = '-' + end object Actualizar1: TMenuItem Action = actRefrescar end diff --git a/Source/GUIBase/uEditorGridBase.pas b/Source/GUIBase/uEditorGridBase.pas index 852f74f2..7ee4b2ee 100644 --- a/Source/GUIBase/uEditorGridBase.pas +++ b/Source/GUIBase/uEditorGridBase.pas @@ -57,6 +57,12 @@ type actFiltrar: TAction; TBXItem37: TTBXItem; TBXTMain2: TTBXToolbar; + actExportarExcel: TAction; + ExportaraficheroExcel1: TMenuItem; + N488: TMenuItem; + TBXSeparatorItem172: TTBXSeparatorItem; + TBXItem395: TTBXItem; + TBXItem384: TTBXItem; procedure tbxEditFiltroChange(Sender: TObject; const Text: String); procedure FormShow(Sender: TObject); procedure actQuitarFiltroExecute(Sender: TObject); @@ -69,6 +75,8 @@ type procedure actFiltrarExecute(Sender: TObject); procedure actFiltrarUpdate(Sender: TObject); procedure CustomEditorDestroy(Sender: TObject); + procedure actExportarExcelUpdate(Sender: TObject); + procedure actExportarExcelExecute(Sender: TObject); protected FViewGrid : IViewGridBase; procedure SetViewGrid(const Value : IViewGridBase); virtual; @@ -152,6 +160,7 @@ end; procedure TfEditorGridBase.FormShow(Sender: TObject); begin inherited; + if Assigned(ViewGrid) then begin ViewGrid.ShowEmbedded(Self); @@ -171,6 +180,19 @@ begin (Sender as TAction).Enabled := False; end; +procedure TfEditorGridBase.actExportarExcelExecute(Sender: TObject); +begin + inherited; + if Assigned(ViewGrid) then + ViewGrid.ExportToExcel; +end; + +procedure TfEditorGridBase.actExportarExcelUpdate(Sender: TObject); +begin + inherited; + (Sender as TAction).Enabled := Assigned(ViewGrid); +end; + procedure TfEditorGridBase.actFiltrarExecute(Sender: TObject); begin inherited; diff --git a/Source/GUIBase/uViewGridBase.pas b/Source/GUIBase/uViewGridBase.pas index 0efb9652..3050d077 100644 --- a/Source/GUIBase/uViewGridBase.pas +++ b/Source/GUIBase/uViewGridBase.pas @@ -17,7 +17,7 @@ uses cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid, Menus, ActnList, Grids, DBGrids, JvComponent, JvFormAutoSize, uGridStatusUtils, uViewFiltroBase, - uDAInterfaces; + uDAInterfaces, cxGridExportLink; type IViewGridBase = interface(IViewBase) @@ -38,6 +38,9 @@ type procedure GotoFirst; procedure GotoLast; + procedure ExportToExcel(const AFileName: string); overload; + procedure ExportToExcel; overload; + function GetFocusedView : TcxGridDBTableView; property _FocusedView : TcxGridDBTableView read GetFocusedView; @@ -154,6 +157,9 @@ type procedure GotoFirst; procedure GotoLast; + procedure ExportToExcel(const AFileName: string); overload; + procedure ExportToExcel; overload; + procedure StoreToRegistry (const Path : String); virtual; procedure RestoreFromRegistry (const Path : String); virtual; @@ -256,25 +262,21 @@ end; procedure TfrViewGridBase.cxGridViewColumnGetStoredProperties( Sender: TcxCustomGridTableItem; AProperties: TStrings); begin -// ShowMessage(Sender.Name + ' cxGridViewColumnGetStoredProperties'); end; procedure TfrViewGridBase.cxGridViewColumnGetStoredPropertyValue( Sender: TcxCustomGridTableItem; const AName: string; var AValue: Variant); begin -// ShowMessage(Sender.Name + ' cxGridViewColumnGetStoredPropertyValue'); end; procedure TfrViewGridBase.cxGridViewColumnSetStoredPropertyValue( Sender: TcxCustomGridTableItem; const AName: string; const AValue: Variant); begin -// ShowMessage(Sender.Name + ' cxGridViewColumnSetStoredPropertyValue'); end; procedure TfrViewGridBase.cxGridViewGetStoredProperties( Sender: TcxCustomGridView; AProperties: TStrings); begin -// ShowMessage('cxGridViewGetStoredProperties'); AProperties.Delete(AProperties.IndexOf('Footer')); AProperties.Delete(AProperties.IndexOf('GroupByBox')); AProperties.Delete(AProperties.IndexOf('GroupFooters')); @@ -284,13 +286,11 @@ end; procedure TfrViewGridBase.cxGridViewGetStoredPropertyValue( Sender: TcxCustomGridView; const AName: string; var AValue: Variant); begin -// ShowMessage('cxGridViewGetStoredPropertyValue'); end; procedure TfrViewGridBase.cxGridViewSetStoredPropertyValue( Sender: TcxCustomGridView; const AName: string; const AValue: Variant); begin -// ShowMessage('cxGridViewSetStoredPropertyValue'); end; procedure TfrViewGridBase.ExpandirTodo; @@ -299,6 +299,20 @@ begin _FocusedView.ViewData.Expand(True); end; +procedure TfrViewGridBase.ExportToExcel(const AFileName: string); +begin + if Assigned(_Grid) then + ExportGridToExcel(AFileName, _Grid); +end; + +procedure TfrViewGridBase.ExportToExcel; +var + AFileName : String; +begin + if PreguntarFicheroExcelExportar(AFileName) then + ExportToExcel(AFileName); +end; + function TfrViewGridBase.GetDblClick: TNotifyEvent; begin Result := FOnDblClick; @@ -356,7 +370,6 @@ begin if AObject is TcxGridDBColumn then with TcxGridDBColumn(AObject) do begin -// ShowMessage('InitStoredObject'); OnGetStoredProperties := cxGridViewColumnGetStoredProperties; OnGetStoredPropertyValue := cxGridViewColumnGetStoredPropertyValue; OnSetStoredPropertyValue := cxGridViewColumnSetStoredPropertyValue; diff --git a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas index 0174de75..25fb32dc 100644 --- a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas +++ b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas @@ -123,7 +123,7 @@ var begin Result := False; AFile := AFileName; - if EsCadenaVacia(AFile) and (not DarFicheroWordExportar(AFile)) then + if EsCadenaVacia(AFile) and (not PreguntarFicheroWordExportar(AFile)) then Exit; ShowHourglassCursor; diff --git a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteReportController.pas b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteReportController.pas index 6064cc20..e9cb0f2a 100644 --- a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteReportController.pas +++ b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteReportController.pas @@ -66,7 +66,7 @@ begin Result := False; AFile := AFileName; - if EsCadenaVacia(AFile) and (not DarFicheroWordExportar(AFile)) then + if EsCadenaVacia(AFile) and (not PreguntarFicheroWordExportar(AFile)) then Exit; ShowHourglassCursor; diff --git a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas index 7022ba11..b10b29bc 100644 --- a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas +++ b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas @@ -3,7 +3,7 @@ unit schFacturasProveedorClient_Intf; interface uses - Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; + Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; const { Data table rules ids @@ -332,7 +332,7 @@ type end; { TFacturasProveedorDataTableRules } - TFacturasProveedorDataTableRules = class(TDADataTableRules, IFacturasProveedor) + TFacturasProveedorDataTableRules = class(TIntfObjectDADataTableRules, IFacturasProveedor) private f_OBSERVACIONES: IROStrings; procedure OBSERVACIONES_OnChange(Sender: TObject); @@ -632,7 +632,7 @@ type end; { TFacturasProveedor_DetallesDataTableRules } - TFacturasProveedor_DetallesDataTableRules = class(TDADataTableRules, IFacturasProveedor_Detalles) + TFacturasProveedor_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IFacturasProveedor_Detalles) private protected { Property getters and setters } @@ -787,7 +787,7 @@ type end; { TFacturasProveedor_PedidosDataTableRules } - TFacturasProveedor_PedidosDataTableRules = class(TDADataTableRules, IFacturasProveedor_Pedidos) + TFacturasProveedor_PedidosDataTableRules = class(TIntfObjectDADataTableRules, IFacturasProveedor_Pedidos) private protected { Property getters and setters } diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorReportController.pas b/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorReportController.pas index 1bd6107b..773fc853 100644 --- a/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorReportController.pas +++ b/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorReportController.pas @@ -65,7 +65,7 @@ begin Result := False; AFile := AFileName; - if EsCadenaVacia(AFile) and (not DarFicheroWordExportar(AFile)) then + if EsCadenaVacia(AFile) and (not PreguntarFicheroWordExportar(AFile)) then Exit; ShowHourglassCursor; diff --git a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteReportController.pas b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteReportController.pas index daabd506..5e95179c 100644 --- a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteReportController.pas +++ b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteReportController.pas @@ -65,7 +65,7 @@ var begin Result := False; AFile := AFileName; - if EsCadenaVacia(AFile) and (not DarFicheroWordExportar(AFile)) then + if EsCadenaVacia(AFile) and (not PreguntarFicheroWordExportar(AFile)) then Exit; ShowHourglassCursor; @@ -90,7 +90,7 @@ var begin Result := False; AFile := AFileName; - if EsCadenaVacia(AFile) and (not DarFicheroWordExportar(AFile)) then + if EsCadenaVacia(AFile) and (not PreguntarFicheroWordExportar(AFile)) then Exit; ShowHourglassCursor; diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES index b19c972ae132e9f0b04d45fdd266c2ca8d667d4b..fbd828f4a9b9ada1cf5e163d8d545390760c7b81 100644 GIT binary patch delta 21 ccmZ3nm2t&Z#tl(X?4}G>3?>W)lM|!d0aG#tkN^Mx delta 21 ccmZ3nm2t&Z#tl(X>;?>048{z`lM|!d0aF78jQ{`u diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index b2a9ec17..55c67cd7 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -1,290 +1,290 @@ - + - - {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_D11;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 - $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 - $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 - $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 - $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 - - - Delphi.Personality - - -FalseTrueFalse/standaloneTrueFalse1230FalseFalseFalseFalseFalse308212521.2.3.01.2.3.0martes, 12 de agosto de 2008 12:17FactuGES_Server.dpr - - - - - MainSource - - - - - -
srvEmpresas
- TDARemoteService - - - - - - - - - - - - -
RptAlbaranesCliente
- TDataModule - - -
RptWordAlbaranCliente
- TDataModule - - -
srvAlbaranesCliente
- TDataAbstractService - - - - - -
srvAlbaranesProveedor
- TDataAbstractService - - - - -
srvAlmacenes
- TDARemoteService - - - - - -
srvArticulos
- TDARemoteService - - - - - - - - -
RptEtiquetasContacto
- TDataModule - - -
RptFichasEmpleado
- TDataModule - - -
srvContactos
- TDARemoteService - - - - -
srvFabricantes
- TDataAbstractService - - - - - -
RptFacturasCliente
- TDataModule - - -
RptWordFacturaCliente
- TDataModule - - -
srvFacturasCliente
- TDataAbstractService - - - - - -
srvFacturasProveedor
- TDataAbstractService - - - - - - - - - - - -
srvHistoricoMovimientos
- TDataAbstractService - - - - -
srvInventario
- TDataAbstractService - - - - - - - - - -
RptPedidosProveedor
- TDataModule - - -
RptWordPedidoProveedor
- TDataModule - - -
srvPedidosProveedor
- TDataAbstractService - - - - - -
RptPresupuestosCliente
- TDataModule - - -
RptWordCertificadoTrabajo
- TDataModule - - -
RptWordPresupuestoCliente
- TDataModule - - -
srvPresupuestosCliente
- TDataAbstractService - - - - -
RptRecibosCliente
- TDataModule - - -
srvRecibosCliente
- TDataAbstractService - - - - -
srvRecibosProveedor
- TDataAbstractService - - - - -
srvReferencias
- TDataAbstractService - - - - - -
srvRemesasCliente
- TDataAbstractService - - - - - -
srvRemesasProveedor
- TDataAbstractService - - - - - - - -
srvUnidadesMedida
- TDataAbstractService - - - - -
srvConfiguracion
- TDataAbstractService - - -
frConexionBD
- TFrame - - -
frConfGeneral
- TFrame - - -
fConfiguracion
- TForm - - -
FrameConfiguracion
- TFrame - - -
srvLogin
- TDARemoteService - - -
fAcercaDe
- - -
dmServer
- TDataModule - - -
fServerForm
- - - - - - - - - - - + + {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_D11;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 + $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 + $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 + $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 + $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 + + + Delphi.Personality + + + FalseTrueFalse/standaloneTrueFalse1230FalseFalseFalseFalseFalse308212521.2.3.01.2.3.0martes, 12 de agosto de 2008 12:17FactuGES_Server.dpr + + + + + MainSource + + + + + +
srvEmpresas
+ TDARemoteService + + + + + + + + + + + + +
RptAlbaranesCliente
+ TDataModule + + +
RptWordAlbaranCliente
+ TDataModule + + +
srvAlbaranesCliente
+ TDataAbstractService + + + + + +
srvAlbaranesProveedor
+ TDataAbstractService + + + + +
srvAlmacenes
+ TDARemoteService + + + + + +
srvArticulos
+ TDARemoteService + + + + + + + + +
RptEtiquetasContacto
+ TDataModule + + +
RptFichasEmpleado
+ TDataModule + + +
srvContactos
+ TDARemoteService + + + + +
srvFabricantes
+ TDataAbstractService + + + + + +
RptFacturasCliente
+ TDataModule + + +
RptWordFacturaCliente
+ TDataModule + + +
srvFacturasCliente
+ TDataAbstractService + + + + + +
srvFacturasProveedor
+ TDataAbstractService + + + + + + + + + + + +
srvHistoricoMovimientos
+ TDataAbstractService + + + + +
srvInventario
+ TDataAbstractService + + + + + + + + + +
RptPedidosProveedor
+ TDataModule + + +
RptWordPedidoProveedor
+ TDataModule + + +
srvPedidosProveedor
+ TDataAbstractService + + + + + +
RptPresupuestosCliente
+ TDataModule + + +
RptWordCertificadoTrabajo
+ TDataModule + + +
RptWordPresupuestoCliente
+ TDataModule + + +
srvPresupuestosCliente
+ TDataAbstractService + + + + +
RptRecibosCliente
+ TDataModule + + +
srvRecibosCliente
+ TDataAbstractService + + + + +
srvRecibosProveedor
+ TDataAbstractService + + + + +
srvReferencias
+ TDataAbstractService + + + + + +
srvRemesasCliente
+ TDataAbstractService + + + + + +
srvRemesasProveedor
+ TDataAbstractService + + + + + + + +
srvUnidadesMedida
+ TDataAbstractService + + + + +
srvConfiguracion
+ TDataAbstractService + + +
frConexionBD
+ TFrame + + +
frConfGeneral
+ TFrame + + +
fConfiguracion
+ TForm + + +
FrameConfiguracion
+ TFrame + + +
srvLogin
+ TDARemoteService + + +
fAcercaDe
+ + +
dmServer
+ TDataModule + + +
fServerForm
+ + + + + + + + + + +