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

Se arreglan algunos detalles de nombres

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1033 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2011-02-09 18:50:25 +00:00
parent 022e5c1980
commit b3c8e0cb28
16 changed files with 403 additions and 418 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Source/Base/Base.res
View File

Binary file not shown.

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Factuges.ico"
1 VERSIONINFO
FILEVERSION 1,8,7,0
PRODUCTVERSION 1,8,7,0
FILEVERSION 1,8,8,0
PRODUCTVERSION 1,8,8,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "1.8.7.0\0"
VALUE "FileVersion", "1.8.8.0\0"
VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "1.8.7.0\0"
VALUE "ProductVersion", "1.8.8.0\0"
END
END
BLOCK "VarFileInfo"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

BIN
Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.res
View File

Binary file not shown.

10
Source/Modulos/Gestor de informes/Controller/uGestorInformesController.pas
View File

@ -24,6 +24,7 @@ type
procedure VerInformeListadoFacturasCli;
procedure VerInformeListadoFacturasCliPendientes;
procedure VerInformeFacturasCliGrafComp;
function DarListaAnosFacturasCli: TStringList;
//MODULO RECIBOS DE CLIENTE
procedure VerInformeListadoRecibosCliPendientes;
@ -67,6 +68,7 @@ type
procedure Print(AFactura : IBizFacturaCliente; AllItems: Boolean = false);
}
property DataModule: IDataModuleGestorInformes read GetDataModule;
function DarListaIntervalos: TStringList;
//MODULO PRESUPUESTOS DE CLIENTE
procedure VerInformeListadoPresupuestos;
@ -76,6 +78,7 @@ type
procedure VerInformeListadoFacturasCli;
procedure VerInformeListadoFacturasCliPendientes;
procedure VerInformeFacturasCliGrafComp;
function DarListaAnosFacturasCli: TStringList;
//MODULO RECIBOS DE CLIENTE
procedure VerInformeListadoRecibosCliPendientes;
@ -89,9 +92,7 @@ type
procedure VerInformeListadoFacturasProv;
procedure VerInformeListadoFacturasProvPendientes;
procedure VerInformeFacturasProvGrafComp;
function DarListaAnosFacturasProv: TStringList;
function DarListaIntervalos: TStringList;
//MODULO RECIBOS DE PROVEEDOR
procedure VerInformeListadoRecibosProvPendientes;
@ -275,6 +276,11 @@ begin
Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf);
end;
function TGestorInformesController.DarListaAnosFacturasCli: TStringList;
begin
Result := FDataModule.DarListaAnosFacturasCli;
end;
function TGestorInformesController.DarListaAnosFacturasProv: TStringList;
begin
Result := FDataModule.DarListaAnosFacturasProv;

2
Source/Modulos/Gestor de informes/Views/GestorInformes_view.dpk
View File

@ -89,7 +89,7 @@ contains
uEditorInformeRecibosProveedorReport in 'uEditorInformeRecibosProveedorReport.pas' {fEditorInformeRecibosProveedorReport: TForm},
uEditorInformePresupuestosReport in 'uEditorInformePresupuestosReport.pas' {fEditorInformePresupuestosReport: TForm},
uViewPeriodoFechas in 'uViewPeriodoFechas.pas' {frViewPeriodoFechas: TFrame},
uViewIntervaloComparativo in 'uViewIntervaloComparativo.pas' {TfrViewIntervaloComparativo: TFrame},
uViewIntervaloComparativo in 'uViewIntervaloComparativo.pas' {frViewIntervaloComparativo: TFrame},
uEditorInformeFacturasClienteReportGrafComp in 'uEditorInformeFacturasClienteReportGrafComp.pas' {fEditorInformeFacturasClienteReportGrafComp: TForm},
uEditorInformeFacturasProveedorReportGrafComp in 'uEditorInformeFacturasProveedorReportGrafComp.pas' {fEditorInformeFacturasProveedorReportGrafComp: TForm};

7
Source/Modulos/Gestor de informes/Views/GestorInformes_view.dproj
View File

@ -99,7 +99,10 @@
<Form>fEditorInformeFacturasProveedorReport</Form>
<DesignClass>TForm</DesignClass>
</DCCReference>
<DCCReference Include="uEditorInformeFacturasProveedorReportGrafComp.pas" />
<DCCReference Include="uEditorInformeFacturasProveedorReportGrafComp.pas">
<Form>fEditorInformeFacturasProveedorReportGrafComp</Form>
<DesignClass>TForm</DesignClass>
</DCCReference>
<DCCReference Include="uEditorInformeIVAClientesReport.pas">
<Form>fEditorInformeIVAClientesReport</Form>
<DesignClass>TForm</DesignClass>
@ -146,7 +149,7 @@
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewIntervaloComparativo.pas">
<Form>TfrViewIntervaloComparativo</Form>
<Form>frViewIntervaloComparativo</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewParametrosInforme.pas">

15
Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClienteReportGrafComp.dfm
View File

@ -71,7 +71,7 @@ inherited fEditorInformeFacturasClienteReportGrafComp: TfEditorInformeFacturasCl
ExplicitHeight = 37
end
end
inline TfrViewIntervaloComparativo1: TTfrViewIntervaloComparativo
inline frViewIntervaloComparativo1: TfrViewIntervaloComparativo
Left = 0
Top = 0
Width = 188
@ -85,10 +85,9 @@ inherited fEditorInformeFacturasClienteReportGrafComp: TfEditorInformeFacturasCl
ParentFont = False
TabOrder = 1
ReadOnly = False
ExplicitWidth = 188
ExplicitTop = 195
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
Width = 182
ExplicitWidth = 182
inherited Label3: TLabel
Width = 172
end
@ -97,17 +96,14 @@ inherited fEditorInformeFacturasClienteReportGrafComp: TfEditorInformeFacturasCl
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 166
Width = 166
end
end
inherited TBXLabel2: TTBXLabel
Width = 188
ExplicitWidth = 188
end
inherited TBXAlignmentPanel3: TTBXAlignmentPanel
Width = 182
ExplicitWidth = 182
inherited lis: TLabel
Width = 172
end
@ -116,13 +112,11 @@ inherited fEditorInformeFacturasClienteReportGrafComp: TfEditorInformeFacturasCl
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 166
Width = 166
end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 182
ExplicitWidth = 182
inherited Label1: TLabel
Width = 172
end
@ -131,7 +125,6 @@ inherited fEditorInformeFacturasClienteReportGrafComp: TfEditorInformeFacturasCl
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 166
Width = 166
end
end
@ -151,21 +144,17 @@ inherited fEditorInformeFacturasClienteReportGrafComp: TfEditorInformeFacturasCl
TabOrder = 2
ReadOnly = False
ExplicitTop = 182
ExplicitWidth = 188
inherited TBXLabel2: TTBXLabel
Width = 188
ExplicitWidth = 188
end
inherited bElegirCliente: TBitBtn
Width = 119
ExplicitWidth = 119
end
inherited edtCliente: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 152
Width = 152
end
end

38
Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClienteReportGrafComp.pas
View File

@ -20,7 +20,7 @@ uses
type
TfEditorInformeFacturasClienteReportGrafComp = class(TfEditorInformeBase, IEditorInformeFacturasClienteReportGrafComp)
TBXItem58: TTBXItem;
TfrViewIntervaloComparativo1: TTfrViewIntervaloComparativo;
frViewIntervaloComparativo1: TfrViewIntervaloComparativo;
frViewFiltroClientes1: TfrViewFiltroClientes;
procedure actRefrescarExecute(Sender: TObject);
procedure FormShow(Sender: TObject);
@ -84,17 +84,17 @@ end;
function TfEditorInformeFacturasClienteReportGrafComp.GetIntervalo: Variant;
begin
Result := TfrViewIntervaloComparativo1.cbIntervalo.EditValue;
Result := frViewIntervaloComparativo1.cbIntervalo.EditValue;
end;
function TfEditorInformeFacturasClienteReportGrafComp.GetAno1: Variant;
begin
Result := TfrViewIntervaloComparativo1.cbAno1.EditValue;
Result := frViewIntervaloComparativo1.cbAno1.EditValue;
end;
function TfEditorInformeFacturasClienteReportGrafComp.GetAno2: Variant;
begin
Result := TfrViewIntervaloComparativo1.cbAno2.EditValue;
Result := frViewIntervaloComparativo1.cbAno2.EditValue;
end;
function TfEditorInformeFacturasClienteReportGrafComp.GetListaIDClientes: TIntegerArray;
@ -145,34 +145,34 @@ begin
inherited;
AListaIntervalos := (Controller as IGestorInformesController).DarListaIntervalos;
AListaAnos := (Controller as IGestorInformesController).DarListaAnosFacturasProv;
AListaAnos := (Controller as IGestorInformesController).DarListaAnosFacturasCli;
if Assigned(AListaIntervalos) then
begin
TfrViewIntervaloComparativo1.cbIntervalo.Properties.Items.BeginUpdate;
TfrViewIntervaloComparativo1.cbIntervalo.Properties.Items.Clear;
frViewIntervaloComparativo1.cbIntervalo.Properties.Items.BeginUpdate;
frViewIntervaloComparativo1.cbIntervalo.Properties.Items.Clear;
for i := 0 to AListaIntervalos.Count - 1 do
TfrViewIntervaloComparativo1.cbIntervalo.Properties.Items.Append(AListaIntervalos.Strings[i]);
TfrViewIntervaloComparativo1.cbIntervalo.Properties.Items.EndUpdate;
frViewIntervaloComparativo1.cbIntervalo.Properties.Items.Append(AListaIntervalos.Strings[i]);
frViewIntervaloComparativo1.cbIntervalo.Properties.Items.EndUpdate;
end;
if Assigned(AListaAnos) then
begin
TfrViewIntervaloComparativo1.cbAno1.Properties.Items.BeginUpdate;
TfrViewIntervaloComparativo1.cbAno2.Properties.Items.BeginUpdate;
TfrViewIntervaloComparativo1.cbAno1.Properties.Items.Clear;
TfrViewIntervaloComparativo1.cbAno2.Properties.Items.Clear;
frViewIntervaloComparativo1.cbAno1.Properties.Items.BeginUpdate;
frViewIntervaloComparativo1.cbAno2.Properties.Items.BeginUpdate;
frViewIntervaloComparativo1.cbAno1.Properties.Items.Clear;
frViewIntervaloComparativo1.cbAno2.Properties.Items.Clear;
for i := 0 to AListaAnos.Count - 1 do
begin
TfrViewIntervaloComparativo1.cbAno1.Properties.Items.Append(AListaAnos.Strings[i]);
TfrViewIntervaloComparativo1.cbAno2.Properties.Items.Append(AListaAnos.Strings[i]);
frViewIntervaloComparativo1.cbAno1.Properties.Items.Append(AListaAnos.Strings[i]);
frViewIntervaloComparativo1.cbAno2.Properties.Items.Append(AListaAnos.Strings[i]);
end;
TfrViewIntervaloComparativo1.cbAno1.Properties.Items.EndUpdate;
TfrViewIntervaloComparativo1.cbAno2.Properties.Items.EndUpdate;
frViewIntervaloComparativo1.cbAno1.Properties.Items.EndUpdate;
frViewIntervaloComparativo1.cbAno2.Properties.Items.EndUpdate;
end;
TfrViewIntervaloComparativo1.cbIntervalo.ItemIndex := 0;
TfrViewIntervaloComparativo1.cbAno1.ItemIndex := 0;
frViewIntervaloComparativo1.cbIntervalo.ItemIndex := 0;
frViewIntervaloComparativo1.cbAno1.ItemIndex := 0;
end;
end.

16
Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorReportGrafComp.dfm
View File

@ -71,7 +71,7 @@ inherited fEditorInformeFacturasProveedorReportGrafComp: TfEditorInformeFacturas
ExplicitHeight = 37
end
end
inline TfrViewIntervaloComparativo1: TTfrViewIntervaloComparativo
inline frViewIntervaloComparativo1: TfrViewIntervaloComparativo
Left = 0
Top = 0
Width = 188
@ -85,10 +85,9 @@ inherited fEditorInformeFacturasProveedorReportGrafComp: TfEditorInformeFacturas
ParentFont = False
TabOrder = 1
ReadOnly = False
ExplicitWidth = 188
ExplicitTop = 195
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
Width = 182
ExplicitWidth = 182
inherited Label3: TLabel
Width = 172
end
@ -97,17 +96,14 @@ inherited fEditorInformeFacturasProveedorReportGrafComp: TfEditorInformeFacturas
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 166
Width = 166
end
end
inherited TBXLabel2: TTBXLabel
Width = 188
ExplicitWidth = 188
end
inherited TBXAlignmentPanel3: TTBXAlignmentPanel
Width = 182
ExplicitWidth = 182
inherited lis: TLabel
Width = 172
end
@ -116,13 +112,11 @@ inherited fEditorInformeFacturasProveedorReportGrafComp: TfEditorInformeFacturas
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 166
Width = 166
end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 182
ExplicitWidth = 182
inherited Label1: TLabel
Width = 172
end
@ -131,7 +125,6 @@ inherited fEditorInformeFacturasProveedorReportGrafComp: TfEditorInformeFacturas
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 166
Width = 166
end
end
@ -149,24 +142,19 @@ inherited fEditorInformeFacturasProveedorReportGrafComp: TfEditorInformeFacturas
Font.Style = []
ParentFont = False
TabOrder = 2
Visible = False
ReadOnly = False
ExplicitTop = 182
ExplicitWidth = 188
inherited TBXLabel2: TTBXLabel
Width = 188
ExplicitWidth = 188
end
inherited bElegirProveedor: TBitBtn
Width = 119
ExplicitWidth = 119
end
inherited edtProveedor: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 152
Width = 152
end
end

36
Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorReportGrafComp.pas
View File

@ -20,7 +20,7 @@ uses
type
TfEditorInformeFacturasProveedorReportGrafComp = class(TfEditorInformeBase, IEditorInformeFacturasProveedorReportGrafComp)
TBXItem58: TTBXItem;
TfrViewIntervaloComparativo1: TTfrViewIntervaloComparativo;
frViewIntervaloComparativo1: TfrViewIntervaloComparativo;
frViewFiltroProveedores1: TfrViewFiltroProveedores;
procedure actRefrescarExecute(Sender: TObject);
procedure FormShow(Sender: TObject);
@ -85,17 +85,17 @@ end;
function TfEditorInformeFacturasProveedorReportGrafComp.GetIntervalo: Variant;
begin
Result := TfrViewIntervaloComparativo1.cbIntervalo.EditValue;
Result := frViewIntervaloComparativo1.cbIntervalo.EditValue;
end;
function TfEditorInformeFacturasProveedorReportGrafComp.GetAno1: Variant;
begin
Result := TfrViewIntervaloComparativo1.cbAno1.EditValue;
Result := frViewIntervaloComparativo1.cbAno1.EditValue;
end;
function TfEditorInformeFacturasProveedorReportGrafComp.GetAno2: Variant;
begin
Result := TfrViewIntervaloComparativo1.cbAno2.EditValue;
Result := frViewIntervaloComparativo1.cbAno2.EditValue;
end;
function TfEditorInformeFacturasProveedorReportGrafComp.GetListaIDProveedores: TIntegerArray;
@ -150,30 +150,30 @@ begin
if Assigned(AListaIntervalos) then
begin
TfrViewIntervaloComparativo1.cbIntervalo.Properties.Items.BeginUpdate;
TfrViewIntervaloComparativo1.cbIntervalo.Properties.Items.Clear;
frViewIntervaloComparativo1.cbIntervalo.Properties.Items.BeginUpdate;
frViewIntervaloComparativo1.cbIntervalo.Properties.Items.Clear;
for i := 0 to AListaIntervalos.Count - 1 do
TfrViewIntervaloComparativo1.cbIntervalo.Properties.Items.Append(AListaIntervalos.Strings[i]);
TfrViewIntervaloComparativo1.cbIntervalo.Properties.Items.EndUpdate;
frViewIntervaloComparativo1.cbIntervalo.Properties.Items.Append(AListaIntervalos.Strings[i]);
frViewIntervaloComparativo1.cbIntervalo.Properties.Items.EndUpdate;
end;
if Assigned(AListaAnos) then
begin
TfrViewIntervaloComparativo1.cbAno1.Properties.Items.BeginUpdate;
TfrViewIntervaloComparativo1.cbAno2.Properties.Items.BeginUpdate;
TfrViewIntervaloComparativo1.cbAno1.Properties.Items.Clear;
TfrViewIntervaloComparativo1.cbAno2.Properties.Items.Clear;
frViewIntervaloComparativo1.cbAno1.Properties.Items.BeginUpdate;
frViewIntervaloComparativo1.cbAno2.Properties.Items.BeginUpdate;
frViewIntervaloComparativo1.cbAno1.Properties.Items.Clear;
frViewIntervaloComparativo1.cbAno2.Properties.Items.Clear;
for i := 0 to AListaAnos.Count - 1 do
begin
TfrViewIntervaloComparativo1.cbAno1.Properties.Items.Append(AListaAnos.Strings[i]);
TfrViewIntervaloComparativo1.cbAno2.Properties.Items.Append(AListaAnos.Strings[i]);
frViewIntervaloComparativo1.cbAno1.Properties.Items.Append(AListaAnos.Strings[i]);
frViewIntervaloComparativo1.cbAno2.Properties.Items.Append(AListaAnos.Strings[i]);
end;
TfrViewIntervaloComparativo1.cbAno1.Properties.Items.EndUpdate;
TfrViewIntervaloComparativo1.cbAno2.Properties.Items.EndUpdate;
frViewIntervaloComparativo1.cbAno1.Properties.Items.EndUpdate;
frViewIntervaloComparativo1.cbAno2.Properties.Items.EndUpdate;
end;
TfrViewIntervaloComparativo1.cbIntervalo.ItemIndex := 0;
TfrViewIntervaloComparativo1.cbAno1.ItemIndex := 0;
frViewIntervaloComparativo1.cbIntervalo.ItemIndex := 0;
frViewIntervaloComparativo1.cbAno1.ItemIndex := 0;
end;
end.

2
Source/Modulos/Gestor de informes/Views/uViewIntervaloComparativo.dfm
View File

@ -1,4 +1,4 @@
inherited TfrViewIntervaloComparativo: TTfrViewIntervaloComparativo
inherited frViewIntervaloComparativo: TfrViewIntervaloComparativo
Width = 451
Height = 182
Align = alTop

16
Source/Modulos/Gestor de informes/Views/uViewIntervaloComparativo.pas
View File

@ -14,7 +14,7 @@ type
['{793084E2-873E-4C57-8BD6-9087816CCF3A}']
end;
TTfrViewIntervaloComparativo = class(TfrViewParametrosInforme, IViewPeriodoFechas)
TfrViewIntervaloComparativo = class(TfrViewParametrosInforme, IViewPeriodoFechas)
TBXLabel2: TTBXLabel;
TBXAlignmentPanel2: TTBXAlignmentPanel;
Label3: TLabel;
@ -49,37 +49,37 @@ uses DateUtils;
function TTfrViewIntervaloComparativo.GetIntervalo: Variant;
function TfrViewIntervaloComparativo.GetIntervalo: Variant;
begin
Result := cbIntervalo.EditValue;
end;
function TTfrViewIntervaloComparativo.GetAno1: Variant;
function TfrViewIntervaloComparativo.GetAno1: Variant;
begin
Result := cbAno1.EditValue;
end;
function TTfrViewIntervaloComparativo.GetAno2: Variant;
function TfrViewIntervaloComparativo.GetAno2: Variant;
begin
Result := cbAno2.EditValue;
end;
procedure TTfrViewIntervaloComparativo.SetIntervalo(const Value: Variant);
procedure TfrViewIntervaloComparativo.SetIntervalo(const Value: Variant);
begin
cbIntervalo.EditValue := Value;
end;
procedure TTfrViewIntervaloComparativo.SetAno1(const Value: Variant);
procedure TfrViewIntervaloComparativo.SetAno1(const Value: Variant);
begin
cbAno1.EditValue := Value;
end;
procedure TTfrViewIntervaloComparativo.SetAno2(const Value: Variant);
procedure TfrViewIntervaloComparativo.SetAno2(const Value: Variant);
begin
cbAno2.EditValue := Value;
end;
constructor TTfrViewIntervaloComparativo.Create(AOwner: TComponent);
constructor TfrViewIntervaloComparativo.Create(AOwner: TComponent);
begin
inherited;
// cbPeriodo.ItemIndex := 0;

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

3
Source/Servidor/FactuGES_Server.dproj
View File

@ -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>
@ -36,7 +36,6 @@
<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">8</VersionInfo><VersionInfo Name="Release">8</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.8.8.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.8.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 19 de enero de 2011 18:10</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Servidor.ico"
1 VERSIONINFO
FILEVERSION 1,8,7,0
PRODUCTVERSION 1,8,7,0
FILEVERSION 1,8,8,0
PRODUCTVERSION 1,8,8,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -12,9 +12,9 @@ BEGIN
BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "FileVersion", "1.8.7.0\0"
VALUE "ProductVersion", "1.8.7.0\0"
VALUE "CompileDate", "miércoles, 19 de enero de 2011 18:10\0"
VALUE "FileVersion", "1.8.8.0\0"
VALUE "ProductVersion", "1.8.8.0\0"
VALUE "CompileDate", "viernes, 04 de febrero de 2011 13:14\0"
END
END
BLOCK "VarFileInfo"