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

Cambio a 4 decimales los detalles de todos los articulos, se arregla también inventario de obras.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1067 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2013-01-17 09:12:47 +00:00
parent 437563b963
commit c06cdb0a91
19 changed files with 503 additions and 439 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.

45
Source/Modulos/Articulos/Views/uEditorArticulo.dfm
View File

@ -34,6 +34,12 @@ inherited fEditorArticulo: TfEditorArticulo
4495BD38333E3DC0F0B71000FEC966E74A55381F0000000049454E44AE426082}
ExplicitLeft = 607
end
inherited lblDesbloquear: TcxLabel
Left = 780
ExplicitLeft = 780
AnchorX = 825
AnchorY = 14
end
end
inherited TBXDock: TTBXDock
Width = 905
@ -133,45 +139,6 @@ inherited fEditorArticulo: TfEditorArticulo
ExplicitWidth = 891
ExplicitHeight = 254
inherited cxGridView: TcxGridDBTableView
inherited cxGridViewPRECIO_COSTE: TcxGridDBColumn
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
FooterAlignmentHorz = taRightJustify
GroupSummaryAlignment = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
inherited cxGridViewDESCUENTO: TcxGridDBColumn
Properties.Alignment.Horz = taRightJustify
GroupSummaryAlignment = taRightJustify
end
inherited cxGridViewPRECIO_NETO: TcxGridDBColumn
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
FooterAlignmentHorz = taRightJustify
GroupSummaryAlignment = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
inherited cxGridViewPRECIO_PORTE: TcxGridDBColumn
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
FooterAlignmentHorz = taRightJustify
GroupSummaryAlignment = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
inherited cxGridViewPRECIO_PVP_VENTA: TcxGridDBColumn
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
FooterAlignmentHorz = taRightJustify
GroupSummaryAlignment = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
inherited cxGridViewPRECIO_PVP_TOTAL: TcxGridDBColumn
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
FooterAlignmentHorz = taRightJustify
GroupSummaryAlignment = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
end
end
inherited ToolBar1: TToolBar

2
Source/Modulos/Articulos/Views/uEditorArticulo.pas
View File

@ -18,7 +18,7 @@ uses
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel,
cxClasses, cxControls, cxGridCustomView, cxGrid, uViewDetallesGenerico,
uViewArticulosProveedores, dxLayoutControl, cxContainer,
cxTextEdit, cxMaskEdit, cxSpinEdit, cxDBEdit, cxCurrencyEdit;
cxTextEdit, cxMaskEdit, cxSpinEdit, cxDBEdit, cxCurrencyEdit, cxLabel;
type
TfEditorArticulo = class(TfEditorDBItem, IEditorArticulo)

18
Source/Modulos/Articulos/Views/uViewArticulos.dfm
View File

@ -58,9 +58,19 @@ inherited frViewArticulos: TfrViewArticulos
end
object cxGridViewPRECIO_PVP_VENTA: TcxGridDBColumn
DataBinding.FieldName = 'PRECIO_PVP_VENTA'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
Properties.DecimalPlaces = 4
Properties.DisplayFormat = ',0.0000 '#8364';-,0.0000 '#8364
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewPRECIO_PVP_TOTAL: TcxGridDBColumn
DataBinding.FieldName = 'PRECIO_PVP_TOTAL'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
Properties.DecimalPlaces = 4
Properties.DisplayFormat = ',0.0000 '#8364';-,0.0000 '#8364
HeaderAlignmentHorz = taRightJustify
end
end
inherited cxGridLevel: TcxGridLevel
@ -88,20 +98,28 @@ inherited frViewArticulos: TfrViewArticulos
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 272
Width = 272
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 376
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 376
ExplicitWidth = 221
Width = 221
end
inherited eLista: TcxComboBox
Left = 634
Properties.DropDownRows = 20
Properties.OnChange = frViewFiltroBase1eListaPropertiesChange
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 634
ExplicitWidth = 71
Width = 71
end

2
Source/Modulos/Articulos/Views/uViewArticulos.pas
View File

@ -15,7 +15,7 @@ uses
cxGridCustomPopupMenu, cxGridPopupMenu, cxCurrencyEdit, cxSpinEdit, cxCheckBox,
cxCheckComboBox, cxImageComboBox, TB2Item, TBX, TB2Toolbar, TBXDkPanels,
TB2Dock, uViewFiltroBase, dxPgsDlg, uDAInterfaces,
uArticulosController;
uArticulosController, uCustomView, uViewBase;
type
IViewArticulos = interface(IViewGrid)

16
Source/Modulos/Articulos/Views/uViewArticulosPorProveedor.dfm
View File

@ -130,6 +130,8 @@ inherited frViewArticulosPorProveedor: TfrViewArticulosPorProveedor
DataBinding.FieldName = 'PRECIO_COSTE'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
Properties.DecimalPlaces = 4
Properties.DisplayFormat = ',0.0000 '#8364';-,0.0000 '#8364
BestFitMaxWidth = 60
FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taRightJustify
@ -149,6 +151,8 @@ inherited frViewArticulosPorProveedor: TfrViewArticulosPorProveedor
DataBinding.FieldName = 'PRECIO_NETO'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
Properties.DecimalPlaces = 4
Properties.DisplayFormat = ',0.0000 '#8364';-,0.0000 '#8364
BestFitMaxWidth = 60
FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taRightJustify
@ -178,6 +182,8 @@ inherited frViewArticulosPorProveedor: TfrViewArticulosPorProveedor
DataBinding.FieldName = 'PRECIO_PVP_VENTA'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
Properties.DecimalPlaces = 4
Properties.DisplayFormat = ',0.0000 '#8364';-,0.0000 '#8364
GroupSummaryAlignment = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
@ -212,6 +218,8 @@ inherited frViewArticulosPorProveedor: TfrViewArticulosPorProveedor
DataBinding.FieldName = 'PRECIO_PVP_TOTAL'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
Properties.DecimalPlaces = 4
Properties.DisplayFormat = ',0.0000 '#8364';-,0.0000 '#8364
HeaderAlignmentHorz = taRightJustify
end
end
@ -240,20 +248,28 @@ inherited frViewArticulosPorProveedor: TfrViewArticulosPorProveedor
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 272
Width = 272
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 376
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 376
ExplicitWidth = 221
Width = 221
end
inherited eLista: TcxComboBox
Left = 634
Properties.DropDownRows = 20
Properties.OnChange = nil
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 634
ExplicitWidth = 71
Width = 71
end

2
Source/Modulos/Articulos/Views/uViewArticulosPorProveedor.pas
View File

@ -15,7 +15,7 @@ uses
cxGridCustomPopupMenu, cxGridPopupMenu, cxCurrencyEdit, cxSpinEdit, cxCheckBox,
cxCheckComboBox, cxImageComboBox, TB2Item, TBX, TB2Toolbar, TBXDkPanels,
TB2Dock, uViewFiltroBase, dxPgsDlg, uDAInterfaces,
uArticulosController, uViewArticulos;
uArticulosController, uViewArticulos, uCustomView, uViewBase;
type
TfrViewArticulosPorProveedor = class(TfrViewGrid, IViewArticulos)

20
Source/Modulos/Articulos/Views/uViewArticulosProveedores.dfm
View File

@ -46,6 +46,11 @@ inherited frViewArticulosProveedores: TfrViewArticulosProveedores
object cxGridViewPRECIO_COSTE: TcxGridDBColumn
Caption = 'Precio material'
DataBinding.FieldName = 'PRECIO_COSTE'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
Properties.DecimalPlaces = 4
Properties.DisplayFormat = ',0.0000 '#8364';-,0.0000 '#8364
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewDESCUENTO: TcxGridDBColumn
Caption = 'Descuento'
@ -61,6 +66,11 @@ inherited frViewArticulosProveedores: TfrViewArticulosProveedores
object cxGridViewPRECIO_NETO: TcxGridDBColumn
Caption = 'Precio coste'
DataBinding.FieldName = 'PRECIO_NETO'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
Properties.DecimalPlaces = 4
Properties.DisplayFormat = ',0.0000 '#8364';-,0.0000 '#8364
HeaderAlignmentHorz = taRightJustify
Options.Editing = False
end
object cxGridViewPRECIO_PORTE: TcxGridDBColumn
@ -72,11 +82,21 @@ inherited frViewArticulosProveedores: TfrViewArticulosProveedores
object cxGridViewPRECIO_PVP_VENTA: TcxGridDBColumn
Caption = 'Precio P.V.P (Suministro)'
DataBinding.FieldName = 'PRECIO_PVP_VENTA'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
Properties.DecimalPlaces = 4
Properties.DisplayFormat = ',0.0000 '#8364';-,0.0000 '#8364
HeaderAlignmentHorz = taRightJustify
Options.Editing = False
end
object cxGridViewPRECIO_PVP_TOTAL: TcxGridDBColumn
Caption = 'Precio P.V.P (Total)'
DataBinding.FieldName = 'PRECIO_PVP_TOTAL'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
Properties.DecimalPlaces = 4
Properties.DisplayFormat = ',0.0000 '#8364';-,0.0000 '#8364
HeaderAlignmentHorz = taRightJustify
Options.Editing = False
end
object cxGridViewID_ARTICULO: TcxGridDBColumn

2
Source/Modulos/Articulos/Views/uViewArticulosProveedores.pas
View File

@ -11,7 +11,7 @@ uses
cxControls, cxGridCustomView, cxGrid, cxDBLookupComboBox, cxSpinEdit,
uBizContactos, uProveedoresController, uDAInterfaces,
uBizArticulos, uArticulosController,
cxTextEdit, cxCalendar;
cxTextEdit, cxCalendar, cxCurrencyEdit;
type
IViewArticulosProveedores = interface(IViewBase)

131
Source/Modulos/Inventario/Views/uEditorElegirArticulosCatalogo.dfm
View File

@ -6,80 +6,60 @@ inherited fEditorElegirArticulosCatalogo: TfEditorElegirArticulosCatalogo
ExplicitHeight = 611
PixelsPerInch = 96
TextHeight = 13
object pnlHeader: TPanel
Left = 0
Top = 0
Width = 656
Height = 64
Align = alTop
BevelOuter = bvNone
Color = clWhite
Padding.Left = 25
Padding.Top = 8
Padding.Right = 25
Padding.Bottom = 8
ParentBackground = False
TabOrder = 5
object lblTitle: TLabel
AlignWithMargins = True
Left = 25
Top = 8
Width = 606
Height = 13
Margins.Left = 0
Margins.Top = 0
Margins.Right = 0
Margins.Bottom = 8
Align = alTop
Caption = ''
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
ExplicitWidth = 135
end
object lblComments: TLabel
AlignWithMargins = True
Left = 50
Top = 29
Width = 581
Height = 27
Margins.Left = 25
Margins.Top = 0
Margins.Right = 0
Align = alClient
ExplicitWidth = 3
ExplicitHeight = 13
end
end
inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 697
ExplicitWidth = 697
inherited Image1: TImage
Left = 670
ExplicitLeft = 670
end
end
inherited TBXDock: TTBXDock
Width = 697
ExplicitWidth = 697
inherited tbxMain: TTBXToolbar
ExplicitWidth = 324
end
inherited tbxFiltro: TTBXToolbar
Left = 324
ExplicitLeft = 324
end
inherited tbxMenu: TTBXToolbar
ExplicitWidth = 697
end
inherited TBXTMain2: TTBXToolbar
Left = 661
DockPos = 401
ExplicitLeft = 661
end
end
inherited StatusBar: TJvStatusBar
Top = 558
Width = 697
ExplicitTop = 558
ExplicitWidth = 697
end
inherited pnlHeader: TPanel
Width = 697
TabOrder = 5
inherited lblTitle: TLabel
Width = 647
end
inherited lblComments: TLabel
Width = 622
end
end
inherited frViewBarraSeleccion1: TfrViewBarraSeleccion
Top = 509
Width = 697
ExplicitTop = 509
ExplicitWidth = 697
inherited JvFooter1: TJvFooter
Width = 697
ExplicitWidth = 697
inherited bSeleccionar: TJvFooterBtn
Left = 485
ExplicitLeft = 485
end
inherited bCancelar: TJvFooterBtn
Left = 589
@ -89,9 +69,9 @@ inherited fEditorElegirArticulosCatalogo: TfEditorElegirArticulosCatalogo
end
inline frViewElegirArticulosCatalogo1: TfrViewElegirArticulosCatalogo [5]
Left = 0
Top = 136
Top = 140
Width = 697
Height = 373
Height = 369
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -101,11 +81,14 @@ inherited fEditorElegirArticulosCatalogo: TfEditorElegirArticulosCatalogo
ParentFont = False
TabOrder = 4
ReadOnly = False
ExplicitLeft = -59
ExplicitTop = -18
ExplicitTop = 140
ExplicitWidth = 697
ExplicitHeight = 369
inherited cxGrid: TcxGrid
Width = 697
Height = 245
Height = 241
ExplicitWidth = 697
ExplicitHeight = 241
inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = <
item
@ -117,29 +100,67 @@ inherited fEditorElegirArticulosCatalogo: TfEditorElegirArticulosCatalogo
end
inherited frViewFiltroBase1: TfrViewFiltroBase
Width = 697
ExplicitWidth = 697
inherited TBXDockablePanel1: TTBXDockablePanel
ExplicitWidth = 697
inherited dxLayoutControl1: TdxLayoutControl
Width = 697
ExplicitWidth = 697
inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121
Width = 121
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 225
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 225
ExplicitWidth = 121
Width = 121
end
inherited eLista: TcxComboBox
Left = 383
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 383
ExplicitWidth = 304
Width = 304
end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 697
ExplicitWidth = 697
inherited tbxBotones: TTBXToolbar
Width = 687
ExplicitWidth = 687
end
end
end
end
inherited pnlAgrupaciones: TTBXDockablePanel
Top = 347
ExplicitWidth = 715
Top = 343
ExplicitTop = 343
ExplicitWidth = 697
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 697
ExplicitWidth = 697
inherited TBXToolbar1: TTBXToolbar
Width = 687
ExplicitWidth = 687
end
end
end

3
Source/Modulos/Inventario/Views/uEditorElegirArticulosCatalogo.pas
View File

@ -10,7 +10,8 @@ uses
JvExComCtrls, JvStatusBar, TBX, TB2ExtItems, TBXExtItems, TB2Item, TB2Dock,
TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent, JvNavigationPane,
uIEditorElegirArticulosCatalogo, uDAInterfaces,
uViewGridBase, uViewGrid, uViewArticulos, uViewElegirArticulosCatalogo;
uViewGridBase, uViewGrid, uViewArticulos, uViewElegirArticulosCatalogo,
StdCtrls;
type
TfEditorElegirArticulosCatalogo = class(TfEditorElegirArticulos, IEditorElegirArticulosCatalogo)

2
Source/Modulos/Inventario/Views/uViewDetalleReservas.pas
View File

@ -15,7 +15,7 @@ uses
cxButtonEdit, cxGridCustomPopupMenu, cxGridPopupMenu, uViewGrid,
uBizInventario, uBizAlmacenes, cxSpinEdit, uViewFiltroBase, TB2Item, TBX,
TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, cxCurrencyEdit, uAlmacenesController,
uDAInterfaces, cxContainer, cxMaskEdit, cxDropDownEdit;
uDAInterfaces, cxContainer, cxMaskEdit, cxDropDownEdit, uCustomView, uViewBase;
type
IViewDetalleReservas = interface(IViewGrid)

20
Source/Modulos/Inventario/Views/uViewElegirArticulosCatalogo.dfm
View File

@ -2,14 +2,34 @@ inherited frViewElegirArticulosCatalogo: TfrViewElegirArticulosCatalogo
inherited frViewFiltroBase1: TfrViewFiltroBase
inherited TBXDockablePanel1: TTBXDockablePanel
inherited dxLayoutControl1: TdxLayoutControl
inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121
Width = 121
end
inherited edtFechaFinFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121
Width = 121
end
inherited eLista: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
end
end
end

2
Source/Modulos/Inventario/Views/uViewElegirArticulosCatalogo.pas
View File

@ -12,7 +12,7 @@ uses
uDADataTable, cxGridLevel, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, dxPgsDlg,
ActnList, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock, uViewFiltroBase,
uDAInterfaces;
uDAInterfaces, uCustomView, uViewBase;
type
IViewElegirArticulosCatalogo = interface(IViewArticulos)

2
Source/Modulos/Inventario/Views/uViewEntradaSalidaArticulos.pas
View File

@ -14,7 +14,7 @@ uses
cxGridCustomPopupMenu, cxGridPopupMenu, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk,
uAlmacenesController, uBizAlmacenes, TB2Item, TBX, TB2Dock, TB2Toolbar,
uDataModuleInventario, cxRichEdit, cxTextEdit, dxPgsDlg, TBXDkPanels,
uViewFiltroBase, cxSpinEdit, uDAInterfaces;
uViewFiltroBase, cxSpinEdit, uDAInterfaces, uCustomView, uViewBase;
type
IViewViewEntradaSalidaArticulos = interface(IViewGrid)

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

@ -129,6 +129,8 @@ begin
inherited;
if Assigned(FAlmacenes) or Assigned(FObras) then
begin
Aindex := 0;
if Assigned(FAlmacenes) then
for i := 0 to FAlmacenes.Count - 1 do
begin
if (FAlmacenes.ValueFromIndex[i] = IntToStr(AppFactuGES.EmpresaActiva.ID_ALMACEN)) then

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">9</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"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.9.4.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.9.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 22 de noviembre de 2011 10:27</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>

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN
VALUE "FileVersion", "1.9.4.0\0"
VALUE "ProductVersion", "1.9.4.0\0"
VALUE "CompileDate", "jueves, 28 de junio de 2012 13:19\0"
VALUE "CompileDate", "martes, 15 de enero de 2013 17:53\0"
END
END
BLOCK "VarFileInfo"