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

Version 2.1.5 repaso final con logo final de musaeda

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1137 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2016-04-06 16:54:14 +00:00
parent d4a22d911d
commit ab28e20daa
34 changed files with 3599 additions and 2372 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Resources/Firmas Tecsitel/firma1-musaeda.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 57 KiB

BIN
Resources/Firmas Tecsitel/firma2-musaeda.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 49 KiB

BIN
Resources/Logotipos Tecsitel/MUSAEDA.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 24 KiB

BIN
Resources/Logotipos Tecsitel/logo-portada.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 98 KiB

BIN
Resources/Logotipos Tecsitel/logo-tecsitel-servicios-integrales.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 61 KiB

2
Source/Cliente/FactuGES.dproj
View File

@ -53,7 +53,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">4</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.1.4.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.1.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">5</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.1.5.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.1.5.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>

8
Source/Cliente/FactuGES.rc
View File

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

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

BIN
Source/Informes/4/AlbaranCliente.rdx
View File

Binary file not shown.

BIN
Source/Informes/4/AlbaranProveedor.rdx
View File

Binary file not shown.

BIN
Source/Informes/4/FacturaCliente.rdx
View File

Binary file not shown.

4
Source/Informes/4/InfAlbaranCliente.fr3
View File

File diff suppressed because one or more lines are too long

4
Source/Informes/4/InfAlbaranProveedor.fr3
View File

File diff suppressed because one or more lines are too long

4
Source/Informes/4/InfFacturaCliente.fr3
View File

File diff suppressed because one or more lines are too long

4
Source/Informes/4/InfPedidoProveedor.fr3
View File

File diff suppressed because one or more lines are too long

9
Source/Informes/4/InfPresupuestoCliente.fr3
View File

File diff suppressed because one or more lines are too long

6
Source/Informes/4/InfReciboCliente.fr3
View File

File diff suppressed because one or more lines are too long

BIN
Source/Informes/4/PedidoProveedor.rdx
View File

Binary file not shown.

BIN
Source/Informes/4/Presupuesto.rdx
View File

Binary file not shown.

4
Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas
View File

@ -308,9 +308,9 @@ begin
end;
end;
//Solo para la empresa de azacan se debe elegir uno u otra firma
//Solo para la empresa de azacan y musaeda se debe elegir uno u otra firma
//esto es un poco parche pero bueno
if (tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger = 3) then
if (tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger = 3) or (tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger = 4) then
begin
if (FVerSello = 1) then
ReplaceBookmark('Firma2', '')

2280
Source/Modulos/Presupuestos de cliente/Views/Copia de uDialogOpcionesImpresionPresupuestosCliente.dfm
View File

File diff suppressed because it is too large Load Diff

3
Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dpk
View File

@ -71,6 +71,7 @@ contains
uEditorVariarPrecios in 'uEditorVariarPrecios.pas' {fEditorVariarPrecios},
uDialogListaPresupuestosEnvioEMail in 'uDialogListaPresupuestosEnvioEMail.pas' {fDialogListaPresupuestosEnvioEMail},
uDialogOpcionesImpresionPresupuestosCliente in 'uDialogOpcionesImpresionPresupuestosCliente.pas' {fDialogOpcionesImpresionPresupuestosCliente},
uDialogOpcionesImpresionPresupuestosClienteAzacan in 'uDialogOpcionesImpresionPresupuestosClienteAzacan.pas' {fDialogOpcionesImpresionPresupuestosClienteAzacan};
uDialogOpcionesImpresionPresupuestosClienteAzacan in 'uDialogOpcionesImpresionPresupuestosClienteAzacan.pas' {fDialogOpcionesImpresionPresupuestosClienteAzacan},
uDialogOpcionesImpresionPresupuestosClienteMusaeda in 'uDialogOpcionesImpresionPresupuestosClienteMusaeda.pas' {fDialogOpcionesImpresionPresupuestosClienteMusaeda};
end.

3
Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj
View File

@ -78,8 +78,9 @@
<Form>fDialogOpcionesImpresionPresupuestosCliente</Form>
</DCCReference>
<DCCReference Include="uDialogOpcionesImpresionPresupuestosClienteAzacan.pas">
<Form>fDialogOpcionesImpresionPresupuestosClienteAzaca</Form>
<Form>fDialogOpcionesImpresionPresupuestosClienteAzacan</Form>
</DCCReference>
<DCCReference Include="uDialogOpcionesImpresionPresupuestosClienteMusaeda.pas" />
<DCCReference Include="uEditorElegirArticulosPresupuestoCliente.pas">
<Form>fEditorElegirArticulosPresupuestoCliente</Form>
<DesignClass>TfEditorElegirArticulosPedidoCliente</DesignClass>

3476
Source/Modulos/Presupuestos de cliente/Views/uDialogOpcionesImpresionPresupuestosClienteMusaeda.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

22
Source/Modulos/Presupuestos de cliente/Views/Copia de uDialogOpcionesImpresionPresupuestosCliente.pas → Source/Modulos/Presupuestos de cliente/Views/uDialogOpcionesImpresionPresupuestosClienteMusaeda.pas
View File

@ -1,4 +1,4 @@
unit uDialogOpcionesImpresionPresupuestosCliente;
unit uDialogOpcionesImpresionPresupuestosClienteMusaeda;
interface
@ -7,7 +7,7 @@ uses
Dialogs, uDialogBase, ActnList, StdCtrls, ExtCtrls, jpeg, dxGDIPlusClasses;
type
TfDialogOpcionesImpresionPresupuestosCliente = class(TfDialogBase)
TfDialogOpcionesImpresionPresupuestosClienteMusaeda = class(TfDialogBase)
Image1: TImage;
Image2: TImage;
procedure actAceptarExecute(Sender: TObject);
@ -19,17 +19,17 @@ type
FVerSello: Integer;
end;
function ElegirOpcionesImpresionPresupuestoCliente(var AVerSello : Integer): Boolean;
function ElegirOpcionesImpresionPresupuestoClienteMusaeda(var AVerSello : Integer): Boolean;
implementation
{$R *.dfm}
function ElegirOpcionesImpresionPresupuestoCliente(var AVerSello : Integer): Boolean;
function ElegirOpcionesImpresionPresupuestoClienteMusaeda(var AVerSello : Integer): Boolean;
var
AEditor : TfDialogOpcionesImpresionPresupuestosCliente;
AEditor : TfDialogOpcionesImpresionPresupuestosClienteMusaeda;
begin
AEditor := TfDialogOpcionesImpresionPresupuestosCliente.Create(NIL);
AEditor := TfDialogOpcionesImpresionPresupuestosClienteMusaeda.Create(NIL);
try
Result := (AEditor.ShowModal = mrOk);
if Result then
@ -41,26 +41,26 @@ begin
end;
end;
procedure TfDialogOpcionesImpresionPresupuestosCliente.actAceptarExecute(Sender: TObject);
procedure TfDialogOpcionesImpresionPresupuestosClienteMusaeda.actAceptarExecute(Sender: TObject);
begin
inherited;
ModalResult := mrOk
end;
procedure TfDialogOpcionesImpresionPresupuestosCliente.actCancelarExecute(Sender: TObject);
procedure TfDialogOpcionesImpresionPresupuestosClienteMusaeda.actCancelarExecute(Sender: TObject);
begin
inherited;
ModalResult := mrCancel;
end;
procedure TfDialogOpcionesImpresionPresupuestosCliente.FormCreate(
procedure TfDialogOpcionesImpresionPresupuestosClienteMusaeda.FormCreate(
Sender: TObject);
begin
inherited;
FVerSello := 1;
end;
procedure TfDialogOpcionesImpresionPresupuestosCliente.Image1DblClick(
procedure TfDialogOpcionesImpresionPresupuestosClienteMusaeda.Image1DblClick(
Sender: TObject);
begin
inherited;
@ -68,7 +68,7 @@ begin
actAceptar.Execute;
end;
procedure TfDialogOpcionesImpresionPresupuestosCliente.Image2DblClick(
procedure TfDialogOpcionesImpresionPresupuestosClienteMusaeda.Image2DblClick(
Sender: TObject);
begin
inherited;

94
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm
View File

@ -224,72 +224,71 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
inherited ToolButton14: TToolButton
Left = 334
Top = 0
Wrap = True
ExplicitLeft = 334
ExplicitTop = 0
end
inherited ToolButton9: TToolButton
Left = 0
ExplicitLeft = 0
end
inherited FontName: TJvFontComboBox
Left = 145
ExplicitLeft = 145
end
inherited UpDown1: TUpDown
Left = 290
ExplicitLeft = 290
end
inherited ToolButton13: TToolButton
Left = 307
Wrap = False
ExplicitLeft = 307
ExplicitHeight = 22
end
inherited ToolButton6: TToolButton
Left = 315
Top = 22
ExplicitLeft = 315
ExplicitTop = 22
end
inherited FontSize: TEdit
Left = 381
Top = 22
Width = 200
ExplicitLeft = 381
ExplicitTop = 22
ExplicitWidth = 200
end
inherited UpDown1: TUpDown
Left = 345
Top = 22
ExplicitLeft = 345
ExplicitTop = 22
end
inherited ToolButton13: TToolButton
Left = 362
Top = 22
ExplicitLeft = 362
ExplicitTop = 22
end
inherited ToolButton6: TToolButton
Left = 370
Top = 22
ExplicitLeft = 370
ExplicitTop = 22
end
inherited ToolButton7: TToolButton
Left = 581
Left = 436
Top = 22
ExplicitLeft = 581
ExplicitTop = 22
end
inherited ToolButton11: TToolButton
Left = 648
Top = 22
ExplicitLeft = 648
ExplicitTop = 22
end
inherited ToolButton12: TToolButton
Left = 789
Top = 22
Wrap = False
ExplicitLeft = 789
ExplicitTop = 22
ExplicitHeight = 22
end
inherited ToolButton10: TToolButton
Left = 797
Top = 22
ExplicitLeft = 797
ExplicitLeft = 436
ExplicitTop = 22
end
inherited ToolButton8: TToolButton
Left = 922
Left = 503
Top = 22
ExplicitLeft = 922
ExplicitLeft = 503
ExplicitTop = 22
end
inherited ToolButton12: TToolButton
Left = 586
Top = 22
ExplicitLeft = 586
ExplicitTop = 22
end
inherited ToolButton9: TToolButton
Left = 594
Top = 22
ExplicitLeft = 594
ExplicitTop = 22
end
inherited ToolButton10: TToolButton
Left = 739
Top = 22
ExplicitLeft = 739
ExplicitTop = 22
end
inherited ToolButton11: TToolButton
Left = 864
Top = 22
ExplicitLeft = 864
ExplicitTop = 22
end
end
@ -304,7 +303,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
inherited TBXDock1: TTBXDock
Top = 46
Width = 750
ExplicitTop = 73
ExplicitWidth = 750
inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 750

8
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas
View File

@ -110,7 +110,8 @@ implementation
uses
uViewDatosYSeleccionCliente, uDataModuleUsuarios, uClientesController,
uBizDireccionesContacto, uDialogUtils, uFactuGES_App, uDataTableUtils,
uDialogOpcionesImpresionPresupuestosCliente, uDialogOpcionesImpresionPresupuestosClienteAzacan;
uDialogOpcionesImpresionPresupuestosCliente, uDialogOpcionesImpresionPresupuestosClienteAzacan,
uDialogOpcionesImpresionPresupuestosClienteMusaeda;
{$R *.dfm}
@ -395,6 +396,11 @@ begin
//solo para empresa Azacan
bPrevisualizar := ElegirOpcionesImpresionPresupuestoClienteAzacan(AVerSello);
if (AppFactuGES.EmpresaActiva.ID = 4) then
//Preguntamos si desea que en los presupuestos se vea el Sello de Oscar o David,
//solo para empresa Musaeda
bPrevisualizar := ElegirOpcionesImpresionPresupuestoClienteMusaeda(AVerSello);
if bPrevisualizar and Assigned(FPresupuesto) then
if not Modified then
FController.Preview(FPresupuesto, False, AVerSello);

1
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm
View File

@ -2,7 +2,6 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
Caption = 'Lista de presupuestos de cliente'
ClientWidth = 805
ExplicitWidth = 813
ExplicitHeight = 240
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader

17
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas
View File

@ -105,6 +105,7 @@ uses
uEditorBase, uEditorDBBase, uDialogUtils, Dialogs,
uDBSelectionListUtils, uGridStatusUtils, uDialogOpcionesImpresionPresupuestosCliente,
uDialogOpcionesImpresionPresupuestosClienteAzacan,
uDialogOpcionesImpresionPresupuestosClienteMusaeda,
uGenerarFacturasCliPreCliUtils, uEditorFechaDecision,
// uBizAlbaranesCliente, uAlbaranesClienteController,
// uFacturasClienteController, uBizFacturasCliente,
@ -246,6 +247,12 @@ begin
if not ElegirOpcionesImpresionPresupuestoClienteAzacan(AVerSello) then
exit;
//Preguntamos si desea que en los presupuestos se vea el Sello de Oscar o David,
//solo para empresa Musaeda
if (AppFactuGES.EmpresaActiva.ID = 4) then
if not ElegirOpcionesImpresionPresupuestoClienteMusaeda(AVerSello) then
exit;
if ViewGrid.NumSeleccionados = 1 then
FController.GenerarEmailPresupuesto(FPresupuestos, AVerSello)
// FController.EnviarPresupuestoPorEMail(FPresupuestos)
@ -558,6 +565,11 @@ begin
//solo para empresa Azacan
bPrevisualizar := ElegirOpcionesImpresionPresupuestoClienteAzacan(AVerSello);
if (AppFactuGES.EmpresaActiva.ID = 4) then
//Preguntamos si desea que en los presupuestos se vea el Sello de Oscar o David,
//solo para empresa Musaeda
bPrevisualizar := ElegirOpcionesImpresionPresupuestoClienteMusaeda(AVerSello);
if bPrevisualizar and Assigned(APresupuestos) then
FController.Print(APresupuestos, AllItems, AVerSello);
end;
@ -640,6 +652,11 @@ begin
//solo para empresa Azacan
bPrevisualizar := ElegirOpcionesImpresionPresupuestoClienteAzacan(AVerSello);
if (AppFactuGES.EmpresaActiva.ID = 4) then
//Preguntamos si desea que en los presupuestos se vea el Sello de Oscar o David,
//solo para empresa Musaeda
bPrevisualizar := ElegirOpcionesImpresionPresupuestoClienteMusaeda(AVerSello);
if bPrevisualizar and Assigned(APresupuestos) then
FController.Preview(APresupuestos, AllItems, AVerSello);
end;

2
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosClienteReport.dfm
View File

@ -1,5 +1,7 @@
inherited fEditorPresupuestosClientePreview: TfEditorPresupuestosClientePreview
Caption = 'Previsualizar el pedidos proveedor'
ExplicitWidth = 320
ExplicitHeight = 240
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader

8
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosClienteReport.pas
View File

@ -25,7 +25,8 @@ implementation
uses
uPresupuestosClienteReportController, uIntegerListUtils, uDialogUtils,
uFactuGES_App, uDialogOpcionesImpresionPresupuestosCliente, uDialogOpcionesImpresionPresupuestosClienteAzacan;
uFactuGES_App, uDialogOpcionesImpresionPresupuestosCliente, uDialogOpcionesImpresionPresupuestosClienteAzacan,
uDialogOpcionesImpresionPresupuestosClienteMusaeda;
procedure TfEditorPresupuestosClientePreview.actExportarRTFExecute(Sender: TObject);
var
@ -51,6 +52,11 @@ begin
//solo para empresa Azacan
bPrevisualizar := ElegirOpcionesImpresionPresupuestoClienteAzacan(AVerSello);
if (AppFactuGES.EmpresaActiva.ID = 4) then
//Preguntamos si desea que en los presupuestos se vea el Sello de Oscar o David,
//solo para empresa Muesaeda
bPrevisualizar := ElegirOpcionesImpresionPresupuestoClienteMusaeda(AVerSello);
if bPrevisualizar then
for I := 0 to ListaID.Count - 1 do
if (Controller as IPresupuestosClienteReportController).ExportToWord(ListaID[I], '', AVerSello) then

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

2
Source/Servidor/FactuGES_Server.dproj
View File

@ -35,7 +35,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<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">2</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">4</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.1.4.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES Servidor</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.1.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 17 de marzo de 2016 12:23</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<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">2</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">5</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.1.5.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES Servidor</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.1.5.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 06 de abril de 2016 18:08</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 2,1,4,0
PRODUCTVERSION 2,1,4,0
FILEVERSION 2,1,5,0
PRODUCTVERSION 2,1,5,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "2.1.4.0\0"
VALUE "FileVersion", "2.1.5.0\0"
VALUE "ProductName", "FactuGES Servidor\0"
VALUE "ProductVersion", "2.1.4.0\0"
VALUE "CompileDate", "jueves, 31 de marzo de 2016 13:52\0"
VALUE "ProductVersion", "2.1.5.0\0"
VALUE "CompileDate", "miércoles, 06 de abril de 2016 18:32\0"
END
END
BLOCK "VarFileInfo"