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

Arreglo de inventario

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@734 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2008-11-05 19:43:24 +00:00
parent eec2a14c35
commit c873e7235f
17 changed files with 107 additions and 71 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Source/Cliente/FactuGES.dpr
View File

@ -2,7 +2,6 @@ program FactuGES;
uses
// ExceptionLog,
ExceptionLog,
Forms,
Windows,
SysUtils,

6
Source/Cliente/FactuGES.dproj
View File

@ -54,11 +54,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">1</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">2</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">1.4.2.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">1.4.2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<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">1</VersionInfo><VersionInfo Name="MinorVer">4</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.4.3.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">1.4.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD10.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\PluginSDK_D10R.bpl">PluginSDK for Delphi 10 (Runtime)</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Factuges.ico"
1 VERSIONINFO
FILEVERSION 1,4,2,0
PRODUCTVERSION 1,4,2,0
FILEVERSION 1,4,3,0
PRODUCTVERSION 1,4,3,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.4.2.0\0"
VALUE "FileVersion", "1.4.3.0\0"
VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "1.4.2.0\0"
VALUE "ProductVersion", "1.4.3.0\0"
END
END
BLOCK "VarFileInfo"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

BIN
Source/Modulos/Almacenes/Model/Almacenes_model.res
View File

Binary file not shown.

2
Source/Modulos/Almacenes/Servidor/srvAlmacenes_Impl.dfm
View File

@ -122,7 +122,7 @@ object srvAlmacenes: TsrvAlmacenes
Name = 'IBX'
SQL =
'Select ID, NOMBRE'#10'from ALMACENES'#10'where TIPO_ALMACEN = '#39'ALMACEN'#39#10 +
#10
'order by NOMBRE'#10#10
StatementType = stSQL
ColumnMappings = <
item

2
Source/Modulos/Almacenes/Servidor/srvAlmacenes_Impl.pas
View File

@ -87,7 +87,7 @@ begin
ALista := TStringList.Create;
try
dsData.Active := True;
ALista.Sorted := True;
// ALista.Sorted := True;
while not dsData.EOF do
begin
ALista.Add(Format('%s=%d', [dsData.Fields[1].AsString, dsData.Fields[0].AsInteger]));

5
Source/Modulos/Inventario/Model/uBizInventario.pas
View File

@ -97,6 +97,7 @@ var
Contador: Integer;
begin
inherited;
{
DesconectarTabla(Sender);
Sender.First;
Contador := 1;
@ -109,7 +110,7 @@ begin
Sender.Next;
end;
ConectarTabla(Sender);
}
//
end;
@ -139,7 +140,7 @@ end;
procedure TBizInventario.OnCalcFields(Sender: TDADataTable);
begin
inherited;
ID := Self.DataTable.RecIDValue;
// ID := Self.DataTable.RecIDValue;
end;
procedure TBizInventario.OnNewRecord(Sender: TDADataTable);

3
Source/Modulos/Inventario/Views/uEditorInventario.dfm
View File

@ -153,7 +153,6 @@ inherited fEditorInventario: TfEditorInventario
Width = 669
Height = 250
TabOrder = 2
ExplicitTop = 143
ExplicitWidth = 669
ExplicitHeight = 250
inherited cxGridView: TcxGridDBTableView
@ -273,8 +272,6 @@ inherited fEditorInventario: TfEditorInventario
end
inherited Panel1: TPanel
Width = 669
ExplicitLeft = 0
ExplicitTop = 102
ExplicitWidth = 669
end
inherited dxComponentPrinter: TdxComponentPrinter

20
Source/Modulos/Inventario/Views/uEditorInventario.pas
View File

@ -89,7 +89,7 @@ implementation
{$R *.DFM}
uses
cxControls, uGridStatusUtils, uDataModuleInventario, uDataModuleUsuarios,
Variants, cxControls, uGridStatusUtils, uDataModuleInventario, uDataModuleUsuarios,
uEditorBase, uDBSelectionListUtils, cxGridDBTableView, cxGridCustomTableView,
uAlmacenesController, uFactuGES_App, uGenerarAlbaranesProvUtils,
schInventarioClient_Intf, uBizObras;
@ -111,19 +111,25 @@ begin
end;
function TfEditorInventario.DarIDAlmacenSeleccionado(Descripcion: String): Integer;
var
IDAlmacen: Variant;
begin
if (ViewGrid._Grid.ActiveLevel.Tag = -1) then
Result := Seleccionar(Descripcion, tAlmacen)
IDAlmacen := (ViewGrid as IViewInventario).DarIDAlmacenObraSeleccionada;
if not VarIsNull(IDAlmacen) then
Result := IDAlmacen
else
Result := ViewGrid._Grid.ActiveLevel.Tag;
Result := Seleccionar(Descripcion, tAlmacen)
end;
function TfEditorInventario.DarIDObraSeleccionada(Descripcion: String): Integer;
var
IDObra: Variant;
begin
if (ViewGrid._Grid.ActiveLevel.Tag = -1) then
Result := Seleccionar(Descripcion, TObra)
IDObra := (ViewGrid as IViewInventario).DarIDAlmacenObraSeleccionada;
if not VarIsNull(IDObra) then
Result := IDObra
else
Result := ViewGrid._Grid.ActiveLevel.Tag;
Result := Seleccionar(Descripcion, TObra)
end;
destructor TfEditorInventario.Destroy;

66
Source/Modulos/Inventario/Views/uViewInventario.dfm
View File

@ -1,13 +1,16 @@
inherited frViewInventario: TfrViewInventario
Width = 674
Width = 678
Height = 607
ExplicitWidth = 674
OnShow = CustomViewShow
ExplicitWidth = 678
ExplicitHeight = 607
inherited cxGrid: TcxGrid
Top = 143
Width = 674
Width = 678
Height = 438
RootLevelOptions.DetailTabsPosition = dtpTop
ExplicitTop = 143
ExplicitWidth = 674
ExplicitHeight = 438
inherited cxGridView: TcxGridDBTableView
DataController.Summary.DefaultGroupSummaryItems = <
item
@ -51,9 +54,6 @@ inherited frViewInventario: TfrViewInventario
Kind = skSum
Column = cxGridViewPENDIENTE_RECEPCION
end>
OptionsCustomize.ColumnGrouping = False
OptionsCustomize.ColumnHidingOnGrouping = False
OptionsCustomize.GroupBySorting = True
object cxGridViewID: TcxGridDBColumn
DataBinding.FieldName = 'ID'
Visible = False
@ -164,21 +164,21 @@ inherited frViewInventario: TfrViewInventario
end
inherited cxGridLevel: TcxGridLevel
Tag = -1
Caption = 'Todos los almacenes'
end
end
inherited frViewFiltroBase1: TfrViewFiltroBase
Width = 674
Width = 678
ExplicitWidth = 674
inherited TBXDockablePanel1: TTBXDockablePanel
ExplicitWidth = 674
inherited dxLayoutControl1: TdxLayoutControl
Width = 674
Width = 678
ExplicitWidth = 674
inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 510
Width = 510
end
inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
@ -197,45 +197,63 @@ inherited frViewInventario: TfrViewInventario
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 215
Width = 215
end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 674
Width = 678
ExplicitWidth = 674
inherited tbxBotones: TTBXToolbar
Width = 664
Width = 668
ExplicitWidth = 664
end
end
end
end
inherited pnlAgrupaciones: TTBXDockablePanel
Top = 581
ExplicitTop = 581
ExplicitWidth = 674
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 674
Width = 678
ExplicitWidth = 674
inherited TBXToolbar1: TTBXToolbar
Width = 664
Width = 668
ExplicitWidth = 664
end
end
end
object Panel1: TPanel [3]
Left = 0
Top = 102
Width = 674
Width = 678
Height = 41
Align = alTop
TabOrder = 3
ExplicitLeft = 160
ExplicitTop = 96
ExplicitWidth = 185
object cxListaAlmacenesObras: TcxComboBox
ExplicitWidth = 674
DesignSize = (
678
41)
object eAlmacen: TLabel
Left = 10
Top = 16
Width = 71
Height = 13
Caption = 'Almac'#233'n:'
end
object cxListaAlmacenesObras: TcxComboBox
Left = 87
Top = 14
Anchors = [akLeft, akTop, akRight]
Properties.DropDownListStyle = lsEditFixedList
Properties.DropDownRows = 25
Properties.ImmediatePost = True
Properties.OnEditValueChanged = cxListaObrasPropertiesEditValueChanged
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 0
Width = 587
Width = 581
end
end
inherited dxComponentPrinter: TdxComponentPrinter

37
Source/Modulos/Inventario/Views/uViewInventario.pas
View File

@ -30,6 +30,7 @@ type
function GetObras: TStringList;
procedure SetObras(const Value: TStringList);
property Obras: TStringList read GetObras write SetObras;
function DarIDAlmacenObraSeleccionada: Variant;
end;
TfrViewInventario = class(TfrViewGrid, IViewInventario)
@ -52,10 +53,12 @@ type
cxStyleArticuloConStock: TcxStyle;
Panel1: TPanel;
cxListaAlmacenesObras: TcxComboBox;
eAlmacen: TLabel;
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out
AStyle: TcxStyle);
procedure cxListaObrasPropertiesEditValueChanged(Sender: TObject);
procedure CustomViewShow(Sender: TObject);
private
//Filtros relativos a la vista
@ -75,6 +78,7 @@ type
property Inventario: IBizInventario read GetInventario write SetInventario;
procedure AnadirOtrosFiltros; override;
destructor Destroy; override;
function DarIDAlmacenObraSeleccionada: Variant;
end;
implementation
@ -85,20 +89,13 @@ uses uDataModuleInventario, schInventarioClient_Intf;
procedure TfrViewInventario.AnadirFiltroAlmacenesObras;
var
FFiltro : TcxFilterCriteriaItemList;
CodigoAlmacen: String;
CodigoAlmacen: Variant;
begin
FFiltro := AddFilterGrid(fboAnd);
//INV_ALMACENES
if Assigned(FAlmacenes) then
CodigoAlmacen := FAlmacenes.Values[cxListaAlmacenesObras.EditValue]
//INV_OBRAS
else if Assigned(FObras) then
CodigoAlmacen := FObras.Values[cxListaAlmacenesObras.EditValue]
else
Raise Exception.Create('No se ha asignado ninguna lista de ALMACENES');
CodigoAlmacen := DarIDAlmacenObraSeleccionada;
if CodigoAlmacen <> '' then
if not VarIsNull(CodigoAlmacen) then
begin
FFiltro.AddItem(cxGridViewID_ALMACEN, foEqual, CodigoAlmacen, CodigoAlmacen);
cxGridViewALMACEN.Visible := False;
@ -120,6 +117,12 @@ begin
cxGrid.ActiveLevel.GridView := cxGridView;
end;
procedure TfrViewInventario.CustomViewShow(Sender: TObject);
begin
inherited;
cxListaAlmacenesObras.ItemIndex := 0;
end;
procedure TfrViewInventario.cxGridViewStylesGetContentStyle(Sender:
TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem:
TcxCustomGridTableItem; out AStyle: TcxStyle);
@ -146,6 +149,18 @@ begin
RefrescarFiltro;
end;
function TfrViewInventario.DarIDAlmacenObraSeleccionada: Variant;
begin
//INV_ALMACENES
if Assigned(FAlmacenes) then
Result := FAlmacenes.Values[cxListaAlmacenesObras.EditValue]
//INV_OBRAS
else if Assigned(FObras) then
Result := FObras.Values[cxListaAlmacenesObras.EditValue]
else
Raise Exception.Create('No se ha asignado ninguna lista de ALMACENES');
end;
destructor TfrViewInventario.Destroy;
begin
FAlmacenes := Nil;
@ -175,6 +190,7 @@ var
i: integer;
begin
FAlmacenes := Value;
eAlmacen.Caption := 'Almacén';
if Assigned(FAlmacenes) then
begin
@ -213,6 +229,7 @@ var
i: integer;
begin
FObras := Value;
eAlmacen.Caption := 'Obra';
if Assigned(FObras) then
begin

14
Source/Modulos/Obras/Servidor/srvObras_Impl.dfm
View File

@ -39,11 +39,11 @@ object srvObras: TsrvObras
Top = 82
DiagramData =
'<Diagrams>'#13#10' <Diagram Name="New Diagram" Left="200" Top="200" W' +
'idth="1202" Height="535">'#13#10' <Entity Name="ObrasEjecucionesPed' +
'idosProveedor" Left="426,74" Top="188,62" />'#13#10' <Entity Name="' +
'ObrasEjecuciones" Left="180,50" Top="0,00" />'#13#10' <Entity Name=' +
'"ObrasEjecucionesPresupuestos" Left="426,48" Top="0,02" />'#13#10' ' +
'<Entity Name="Obras" Left="0,00" Top="110,00" />'#13#10' </Diagram>'#13#10 +
'idth="1202" Height="535">'#13#10' <Entity Name="Obras" Left="0,00" ' +
'Top="110,00" />'#13#10' <Entity Name="ObrasEjecucionesPresupuestos"' +
' Left="426,48" Top="0,02" />'#13#10' <Entity Name="ObrasEjecuciones' +
'" Left="180,50" Top="0,00" />'#13#10' <Entity Name="ObrasEjecucione' +
'sPedidosProveedor" Left="426,74" Top="188,62" />'#13#10' </Diagram>'#13#10 +
'</Diagrams>'#13#10
end
object DataDictionary: TDADataDictionary
@ -403,7 +403,9 @@ object srvObras: TsrvObras
Default = True
TargetTable = 'OBRAS'
Name = 'IBX'
SQL = 'Select ID, NOMBRE'#10'from ALMACENES'#10'where TIPO_ALMACEN = '#39'OBRA'#39#10#10
SQL =
'Select ID, NOMBRE'#10'from ALMACENES'#10'where TIPO_ALMACEN = '#39'OBRA'#39#10'ord' +
'er by NOMBRE'#10#10
StatementType = stSQL
ColumnMappings = <
item

2
Source/Modulos/Obras/Servidor/srvObras_Impl.pas
View File

@ -426,7 +426,7 @@ begin
ALista := TStringList.Create;
try
dsData.Active := True;
ALista.Sorted := True;
// ALista.Sorted := True;
while not dsData.EOF do
begin
ALista.Add(Format('%s=%d', [dsData.Fields[1].AsString, dsData.Fields[0].AsInteger]));

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">1</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">2</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.4.2.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.4.2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 03 de noviembre de 2008 12:55</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">4</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.4.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.4.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 04 de noviembre de 2008 20:22</VersionInfoKeys></VersionInfoKeys><Excluded_Packages/><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
<ItemGroup>

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,4,2,0
PRODUCTVERSION 1,4,2,0
FILEVERSION 1,4,3,0
PRODUCTVERSION 1,4,3,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -12,9 +12,9 @@ BEGIN
BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "FileVersion", "1.4.2.0\0"
VALUE "ProductVersion", "1.4.2.0\0"
VALUE "CompileDate", "martes, 04 de noviembre de 2008 20:22\0"
VALUE "FileVersion", "1.4.3.0\0"
VALUE "ProductVersion", "1.4.3.0\0"
VALUE "CompileDate", "miércoles, 05 de noviembre de 2008 20:14\0"
END
END
BLOCK "VarFileInfo"