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
This commit is contained in:
parent
41fc3856a9
commit
f8d67b6ac8
@ -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;
|
||||
|
||||
@ -58,52 +58,52 @@
|
||||
<DelphiCompile Include="GUIBase.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\Modulos\Articulos\Base.dcp" />
|
||||
<DCCReference Include="..\Modulos\Articulos\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Articulos\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Articulos\dxBarD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Articulos\dxBarExtItemsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Articulos\dxComnD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Articulos\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Articulos\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Articulos\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Articulos\dxPScxCommonD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Articulos\dxPScxGrid6LnkD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Articulos\dxPsPrVwAdvD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Articulos\dxSkinBlackD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Articulos\dxSkinBlueD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Articulos\dxSkinCaramelD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Articulos\dxSkinCoffeeD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Articulos\dxSkinGlassOceansD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Articulos\dxSkiniMaginaryD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Articulos\dxSkinLilianD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Articulos\dxSkinLiquidSkyD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Articulos\dxSkinLondonLiquidSkyD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Articulos\dxSkinMcSkinD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Articulos\dxSkinMoneyTwinsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Articulos\dxSkinOffice2007BlackD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Articulos\dxSkinOffice2007BlueD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Articulos\dxSkinOffice2007GreenD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Articulos\dxSkinOffice2007PinkD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Articulos\dxSkinOffice2007SilverD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Articulos\dxSkinsCoreD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Articulos\dxSkinscxPCPainterD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Articulos\dxSkinsdxLCPainterD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Articulos\dxSkinSilverD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Articulos\dxSkinStardustD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Articulos\dxSkinValentineD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Articulos\dxSkinXmas2008BlueD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Articulos\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Articulos\frx11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Articulos\frxe11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Articulos\fs11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Articulos\JvAppFrmD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Articulos\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Articulos\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Articulos\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Articulos\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Articulos\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Modulos\Articulos\vclx.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxBarD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxBarExtItemsD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxComnD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPsPrVwAdvD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxSkinBlackD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxSkinBlueD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxSkinCaramelD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxSkinCoffeeD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxSkinGlassOceansD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxSkiniMaginaryD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxSkinLilianD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxSkinLiquidSkyD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxSkinLondonLiquidSkyD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxSkinMcSkinD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxSkinMoneyTwinsD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxSkinOffice2007BlackD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxSkinOffice2007BlueD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxSkinOffice2007GreenD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxSkinOffice2007PinkD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxSkinOffice2007SilverD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxSkinsCoreD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxSkinscxPCPainterD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxSkinsdxLCPainterD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxSkinSilverD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxSkinStardustD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxSkinValentineD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxSkinXmas2008BlueD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\frx11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\frxe11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\fs11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
|
||||
<DCCReference Include="uDialogBase.pas">
|
||||
<Form>fDialogBase</Form>
|
||||
</DCCReference>
|
||||
|
||||
@ -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
|
||||
|
||||
@ -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
|
||||
|
||||
@ -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;
|
||||
|
||||
@ -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;
|
||||
|
||||
@ -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;
|
||||
|
||||
@ -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;
|
||||
|
||||
@ -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 }
|
||||
|
||||
@ -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;
|
||||
|
||||
@ -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;
|
||||
|
||||
Binary file not shown.
@ -1,4 +1,4 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
|
||||
@ -33,32 +33,32 @@
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType />
|
||||
<Borland.ProjectType/>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">2</VersionInfo><VersionInfo Name="Release">3</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.2.3.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.2.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 12 de agosto de 2008 12:17</VersionInfoKeys></VersionInfoKeys><Excluded_Packages /><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">2</VersionInfo><VersionInfo Name="Release">3</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.2.3.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.2.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 12 de agosto de 2008 12:17</VersionInfoKeys></VersionInfoKeys><Excluded_Packages/><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="FactuGES_Server.dpr">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
|
||||
<Form>srvEmpresas</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
|
||||
<DCCReference Include="..\Base\schBase_Intf.pas" />
|
||||
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" />
|
||||
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
|
||||
<DCCReference Include="..\Base\schBase_Intf.pas"/>
|
||||
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/>
|
||||
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
|
||||
<Form>RptAlbaranesCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
@ -71,32 +71,32 @@
|
||||
<Form>srvAlbaranesCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
|
||||
<Form>srvAlbaranesProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
|
||||
<Form>srvAlmacenes</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
|
||||
<Form>srvArticulos</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
|
||||
<Form>RptEtiquetasContacto</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
@ -109,15 +109,15 @@
|
||||
<Form>srvContactos</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
|
||||
<Form>srvFabricantes</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
|
||||
<Form>RptFacturasCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
@ -130,39 +130,39 @@
|
||||
<Form>srvFacturasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
|
||||
<Form>srvFacturasProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" />
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" />
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvUnidadesMedida_Impl.pas" />
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/>
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/>
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvUnidadesMedida_Impl.pas"/>
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
|
||||
<Form>srvHistoricoMovimientos</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
|
||||
<Form>srvInventario</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas"/>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
|
||||
<Form>RptPedidosProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
@ -175,9 +175,9 @@
|
||||
<Form>srvPedidosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
|
||||
<Form>RptPresupuestosCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
@ -194,8 +194,8 @@
|
||||
<Form>srvPresupuestosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
|
||||
<Form>RptRecibosCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
@ -204,43 +204,43 @@
|
||||
<Form>srvRecibosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
|
||||
<Form>srvRecibosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
|
||||
<Form>srvReferencias</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
|
||||
<Form>srvRemesasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
|
||||
<Form>srvRemesasProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" />
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/>
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
|
||||
<Form>srvUnidadesMedida</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
||||
<DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
|
||||
<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
|
||||
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
|
||||
<Form>srvConfiguracion</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
@ -275,15 +275,15 @@
|
||||
<DCCReference Include="uServerMainForm.pas">
|
||||
<Form>fServerForm</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Utiles\AHWord97.pas" />
|
||||
<DCCReference Include="Utiles\RegExpr.pas" />
|
||||
<DCCReference Include="Utiles\uBusinessUtils.pas" />
|
||||
<DCCReference Include="Utiles\uDatabaseUtils.pas" />
|
||||
<DCCReference Include="Utiles\uReferenciasUtils.pas" />
|
||||
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
|
||||
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
|
||||
<DCCReference Include="Utiles\uServerAppUtils.pas" />
|
||||
<DCCReference Include="Utiles\uSesionesUtils.pas" />
|
||||
<DCCReference Include="Utiles\AHWord97.pas"/>
|
||||
<DCCReference Include="Utiles\RegExpr.pas"/>
|
||||
<DCCReference Include="Utiles\uBusinessUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
|
||||
<DCCReference Include="Utiles\uServerAppUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uSesionesUtils.pas"/>
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
|
||||
@ -14,7 +14,7 @@ BEGIN
|
||||
BEGIN
|
||||
VALUE "FileVersion", "1.2.3.0\0"
|
||||
VALUE "ProductVersion", "1.2.3.0\0"
|
||||
VALUE "CompileDate", "miércoles, 20 de agosto de 2008 10:33\0"
|
||||
VALUE "CompileDate", "miércoles, 20 de agosto de 2008 15:40\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Loading…
Reference in New Issue
Block a user