Archivado/LuisLeon_FactuGES
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Repaso a los anchos de columnas de los grids. Ahora se colocan mejor los anchos y se guardan los tamaños.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@296 c93665c3-c93d-084d-9b98-7d5f4a9c3376
This commit is contained in:
David Arranz 2008-10-17 15:23:22 +00:00
parent 73fc0f45a2
commit 073d29872a
19 changed files with 142 additions and 78 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Build/Build.fbp5
View File

@ -287,7 +287,7 @@ source_path
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property MultiValue="1" name="Description" type="string"><![CDATA[Borrar ficheros temporales]]>
</Property>
<Property name="Enabled" type="WordBool">False</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
@ -579,7 +579,7 @@ source_path
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property MultiValue="0" name="ProjectFile" type="WideString">%source_path%\Servidor\FactuGES_Server.dpr</Property>
<Property name="RegenerateResource" type="WordBool">True</Property>
<Property name="ReleaseVersion" type="Integer">5</Property>
<Property name="ReleaseVersion" type="Integer">9</Property>
<Property MultiValue="0" name="ResourceCompilerOptions" type="string"></Property>
<Property MultiValue="0" name="ResourceCompilerPath" type="string"></Property>
<Property name="ResourceCompilerType" type="TFBDelphiResourceCompiler">rcBorland</Property>
@ -594,15 +594,15 @@ source_path
<Property name="UseVersionFromDOF" type="Boolean">True</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=Rodax Software S.L.
FileDescription=
FileVersion=3.0.5.0
FileVersion=3.0.9.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=FactuGES Server
ProductVersion=3.0.5.0
ProductVersion=3.0.9.0
Comments=
CompileDate=martes, 15 de julio de 2008 19:13
CompileDate=martes, 30 de septiembre de 2008 19:31
]]>
</Property>
<Property MultiValue="0" name="VersionInfoPropertySetName" type="string"></Property>

BIN
Database/FACTUGES.FDB
View File

Binary file not shown.

0
Database/Script.txt
View File

3
Source/Base/GUIBase/uEditorGridBase.dfm
View File

@ -4,6 +4,7 @@ inherited fEditorGridBase: TfEditorGridBase
Caption = 'fEditorGridBase'
ClientHeight = 444
ClientWidth = 543
OnDestroy = CustomEditorDestroy
ExplicitWidth = 551
ExplicitHeight = 471
PixelsPerInch = 96
@ -1515,8 +1516,6 @@ inherited fEditorGridBase: TfEditorGridBase
Bitmap = {}
end
inherited JvFormStorage: TJvFormStorage
OnSavePlacement = JvFormStorageSavePlacement
OnRestorePlacement = JvFormStorageRestorePlacement
Left = 400
Top = 160
end

32
Source/Base/GUIBase/uEditorGridBase.pas
View File

@ -61,8 +61,6 @@ type
procedure FormShow(Sender: TObject); override;
procedure actQuitarFiltroExecute(Sender: TObject);
procedure actDuplicarUpdate(Sender: TObject);
procedure JvFormStorageSavePlacement(Sender: TObject);
procedure JvFormStorageRestorePlacement(Sender: TObject);
procedure actModificarUpdate(Sender: TObject);
procedure actEliminarUpdate(Sender: TObject);
procedure actNuevoUpdate(Sender: TObject);
@ -70,6 +68,7 @@ type
procedure actRefrescarUpdate(Sender: TObject);
procedure actFiltrarExecute(Sender: TObject);
procedure actFiltrarUpdate(Sender: TObject);
procedure CustomEditorDestroy(Sender: TObject);
protected
FViewGrid : IViewGridBase;
procedure SetViewGrid(const Value : IViewGridBase); virtual;
@ -153,10 +152,12 @@ end;
procedure TfEditorGridBase.FormShow(Sender: TObject);
begin
inherited;
if Assigned(ViewGrid) then
ViewGrid.ShowEmbedded(Self);
if Assigned(ViewGrid) then
begin
ViewGrid.RestoreFromIniFile;
ViewGrid.ShowEmbedded(Self);
end;
end;
procedure TfEditorGridBase.actEliminarUpdate(Sender: TObject);
@ -248,6 +249,13 @@ begin
actModificar.ShortCut := ShortCut(VK_RETURN, []);
end;
procedure TfEditorGridBase.CustomEditorDestroy(Sender: TObject);
begin
inherited;
if Assigned(ViewGrid) then
ViewGrid.StoreToIniFile;
end;
procedure TfEditorGridBase.actAnchoAutoExecute(Sender: TObject);
begin
inherited;
@ -271,13 +279,6 @@ begin
(Sender as TAction).Enabled := (ViewGrid.NumSeleccionados = 1);
end;
procedure TfEditorGridBase.JvFormStorageSavePlacement(Sender: TObject);
begin
inherited;
if Assigned(ViewGrid) then
ViewGrid.StoreToRegistry(JvAppRegistryStorage.Root);
end;
procedure TfEditorGridBase.PrevisualizarInterno;
begin
inherited;
@ -304,13 +305,6 @@ begin
end;
end;
procedure TfEditorGridBase.JvFormStorageRestorePlacement(Sender: TObject);
begin
inherited;
if Assigned(ViewGrid) then
ViewGrid.RestoreFromRegistry(JvAppRegistryStorage.Root);
end;
initialization
RegisterClass(TfEditorGridBase);

3
Source/Base/GUIBase/uViewGrid.dfm
View File

@ -107,7 +107,6 @@ inherited frViewGrid: TfrViewGrid
SupportedDocks = [dkStandardDock, dkMultiDock]
TabOrder = 2
Visible = False
ExplicitWidth = 128
object TBXAlignmentPanel1: TTBXAlignmentPanel
Left = 0
Top = 0
@ -155,7 +154,7 @@ inherited frViewGrid: TfrViewGrid
PrinterPage.ScaleMode = smFit
PrinterPage._dxMeasurementUnits_ = 0
PrinterPage._dxLastMU_ = 2
ReportDocument.CreationDate = 39615.820451203710000000
ReportDocument.CreationDate = 39738.576001226850000000
StyleManager = dxPrintStyleManager1
OptionsCards.Shadow.Depth = 0
OptionsExpanding.ExpandGroupRows = True

82
Source/Base/GUIBase/uViewGridBase.pas
View File

@ -52,6 +52,9 @@ type
procedure StoreToRegistry (const Path : String);
procedure RestoreFromRegistry (const Path : String);
procedure RestoreFromIniFile;
procedure StoreToIniFile;
procedure SetDblClick(const Value: TNotifyEvent);
function GetDblClick: TNotifyEvent;
property OnDblClick: TNotifyEvent read GetDblClick write SetDblClick;
@ -149,6 +152,9 @@ type
procedure StoreToRegistry (const Path : String); virtual;
procedure RestoreFromRegistry (const Path : String); virtual;
procedure RestoreFromIniFile;
procedure StoreToIniFile;
function Locate(const AItemIndex: Integer; const AValue: String;
const APartialCompare: Boolean = False) : Boolean;
@ -172,7 +178,8 @@ procedure Register;
implementation
uses
CCReg, uDataModuleBase, uDBSelectionListUtils;
CCReg, uDataModuleBase, uDBSelectionListUtils, cxGridDBDataDefinitions,
uSistemaFunc, SHFolder;
{$R *.dfm}
@ -189,28 +196,24 @@ begin
_FocusedView.EndUpdate;
end;
procedure TfrViewGridBase.AjustarAncho;
begin
if Assigned(_FocusedView) then
//_FocusedView.ApplyBestFit;
BestFitAllColumns;
end;
procedure TfrViewGridBase.BestFitAllColumns;
var
i : Integer ;
begin
ShowHourglassCursor;
_FocusedView.BeginUpdate;
try
for i := 0 to _FocusedView.ColumnCount-1 do
for i := 0 to _FocusedView.VisibleColumnCount-1 do
begin
_FocusedView.Columns[i].ApplyBestFit;
if _FocusedView.Columns[i].BestFitMaxWidth > 0 then
begin
if (_FocusedView.Columns[i].Width > _FocusedView.Columns[i].BestFitMaxWidth) then
_FocusedView.Columns[i].Width := _FocusedView.Columns[i].BestFitMaxWidth;
end;
_FocusedView.VisibleColumns[i].ApplyBestFit;
ShowMessage(Format('Width=%d, Min=%d, Max=%d', [_FocusedView.VisibleColumns[i].Width, _FocusedView.VisibleColumns[i].MinWidth, _FocusedView.VisibleColumns[i].BestFitMaxWidth]));
if (_FocusedView.VisibleColumns[i].Width < _FocusedView.VisibleColumns[i].MinWidth) then
_FocusedView.VisibleColumns[i].Width := _FocusedView.VisibleColumns[i].MinWidth
else
if (_FocusedView.VisibleColumns[i].BestFitMaxWidth > 0) and
(_FocusedView.VisibleColumns[i].Width > _FocusedView.VisibleColumns[i].BestFitMaxWidth) then
_FocusedView.VisibleColumns[i].Width := _FocusedView.VisibleColumns[i].BestFitMaxWidth;
end;
finally
_FocusedView.EndUpdate;
@ -218,6 +221,19 @@ begin
end;
end;
procedure TfrViewGridBase.AjustarAncho;
begin
if Assigned(_FocusedView) then
begin
ShowHourglassCursor;
try
_FocusedView.ApplyBestFit(nil, True, False);
//BestFitAllColumns;
finally
HideHourglassCursor;
end;
end;
end;
procedure TfrViewGridBase.AnadirOtrosFiltros;
@ -337,6 +353,24 @@ begin
Filter := ViewFiltros.Texto;
end;
procedure TfrViewGridBase.RestoreFromIniFile;
var
AIniFile : String;
begin
if Assigned(_FocusedView) then
begin
AIniFile := GetSpecialFolderPath(CSIDL_COMMON_APPDATA); //[All Users]\Application Data
AIniFile := AIniFile + PathDelim + 'Rodax Software' + PathDelim + 'FactuGES' + PathDelim;
if not DirectoryExists(AIniFile) then
if not ForceDirectories(AIniFile) then
raise EInOutError.Create(Format('No se ha podido crear el directorio %s', [AIniFile]));
_FocusedView.RestoreFromIniFile(AIniFile + 'grid.xml', True, False, []);
end;
end;
procedure TfrViewGridBase.RestoreFromRegistry(const Path : String);
begin
if Assigned(_FocusedView) then
@ -424,6 +458,24 @@ begin
end;
end;
procedure TfrViewGridBase.StoreToIniFile;
var
AIniFile : String;
begin
if Assigned(_FocusedView) then
begin
AIniFile := GetSpecialFolderPath(CSIDL_COMMON_APPDATA); //[All Users]\Application Data
AIniFile := AIniFile + PathDelim + 'Rodax Software' + PathDelim + 'FactuGES' + PathDelim;
if not DirectoryExists(AIniFile) then
if not ForceDirectories(AIniFile) then
raise EInOutError.Create(Format('No se ha podido crear el directorio %s', [AIniFile]));
_FocusedView.StoreToIniFile(AIniFile + 'grid.xml', False, []);
end;
end;
procedure TfrViewGridBase.StoreToRegistry(const Path : String);
begin
if Assigned(_FocusedView) then

8
Source/Cliente/FactuGES.bdsproj
View File

@ -148,8 +148,8 @@
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">3</VersionInfo>
<VersionInfo Name="MinorVer">0</VersionInfo>
<VersionInfo Name="Release">9</VersionInfo>
<VersionInfo Name="MinorVer">1</VersionInfo>
<VersionInfo Name="Release">0</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
@ -162,13 +162,13 @@
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys>
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">3.0.9.0</VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">3.1.0.0</VersionInfoKeys>
<VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">3.0.9.0</VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">3.1.0.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
</VersionInfoKeys> <Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\Usuario\Mis documentos\Borland Studio Projects\Bpl\EasyListviewD10.bpl">Muststang Peak EasyListview Runtime Package</Excluded_Packages>

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

BIN
Source/Modulos/Contactos/Views/Contactos_view.res
View File

Binary file not shown.

5
Source/Modulos/Contactos/Views/uViewAgentes.dfm
View File

@ -9,10 +9,7 @@ inherited frViewAgentes: TfrViewAgentes
Column = cxGridViewNIF_CIF
end>
inherited cxGridViewICONO: TcxGridDBColumn
BestFitMaxWidth = 22
MinWidth = 22
Options.HorzSizing = False
Width = 22
end
end
end
@ -28,6 +25,8 @@ inherited frViewAgentes: TfrViewAgentes
Width = 121
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 283
ExplicitLeft = 283
ExplicitWidth = 201
Width = 201
end

3
Source/Modulos/Contactos/Views/uViewClientes.dfm
View File

@ -8,10 +8,7 @@ inherited frViewClientes: TfrViewClientes
Column = cxGridViewNIF_CIF
end>
inherited cxGridViewICONO: TcxGridDBColumn
BestFitMaxWidth = 22
MinWidth = 22
Options.HorzSizing = False
Width = 22
end
object cxGridViewBLOQUEADO: TcxGridDBColumn [1]
DataBinding.FieldName = 'BLOQUEADO'

7
Source/Modulos/Contactos/Views/uViewContactos.dfm
View File

@ -20,9 +20,10 @@ inherited frViewContactos: TfrViewContactos
OptionsBehavior.PullFocusing = True
object cxGridViewICONO: TcxGridDBColumn
OnCustomDrawCell = cxGridViewCODIGOCustomDrawCell
BestFitMaxWidth = 18
BestFitMaxWidth = 25
MinWidth = 25
Options.Sorting = False
Width = 20
Width = 25
end
object cxGridViewREFERENCIA: TcxGridDBColumn
Caption = 'C'#243'digo'
@ -99,6 +100,8 @@ inherited frViewContactos: TfrViewContactos
Width = 557
ExplicitWidth = 557
inherited edtFechaFinFiltro: TcxDateEdit
Left = 311
ExplicitLeft = 311
ExplicitWidth = 264
Width = 264
end

13
Source/Modulos/Contactos/Views/uViewProveedores.dfm
View File

@ -17,10 +17,7 @@ inherited frViewProveedores: TfrViewProveedores
Column = cxGridViewNIF_CIF
end>
inherited cxGridViewICONO: TcxGridDBColumn
BestFitMaxWidth = 22
MinWidth = 22
Options.HorzSizing = False
Width = 22
end
object cxGridViewTIENDA_WEB: TcxGridDBColumn [1]
Caption = 'Incluido en tienda web'
@ -50,7 +47,17 @@ inherited frViewProveedores: TfrViewProveedores
inherited dxLayoutControl1: TdxLayoutControl
Width = 483
ExplicitWidth = 483
inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 457
Width = 457
end
inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 239
Width = 239
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 330
ExplicitLeft = 330
ExplicitWidth = 149
Width = 149
end

4
Source/Modulos/Facturas de cliente/FacturasCliente_Group.bdsgroup
View File

@ -15,11 +15,11 @@
<Projects Name="Contactos_model.bpl">..\Contactos\Model\Contactos_model.bdsproj</Projects>
<Projects Name="Contactos_data.bpl">..\Contactos\Data\Contactos_data.bdsproj</Projects>
<Projects Name="Contactos_controller.bpl">..\Contactos\Controller\Contactos_controller.bdsproj</Projects>
<Projects Name="Articulos_view.bpl">..\Articulos\Views\Articulos_view.bdsproj</Projects>
<Projects Name="Articulos_model.bpl">..\Articulos\Model\Articulos_model.bdsproj</Projects>
<Projects Name="Articulos_data.bpl">..\Articulos\Data\Articulos_data.bdsproj</Projects>
<Projects Name="Articulos_controller.bpl">..\Articulos\Controller\Articulos_controller.bdsproj</Projects>
<Projects Name="Contactos_view.bpl">..\Contactos\Views\Contactos_view.bdsproj</Projects>
<Projects Name="Articulos_view.bpl">..\Articulos\Views\Articulos_view.bdsproj</Projects>
<Projects Name="FacturasCliente_model.bpl">Model\FacturasCliente_model.bdsproj</Projects>
<Projects Name="FacturasCliente_data.bpl">Data\FacturasCliente_data.bdsproj</Projects>
<Projects Name="FacturasCliente_controller.bpl">Controller\FacturasCliente_controller.bdsproj</Projects>
@ -35,7 +35,7 @@
<Projects Name="FormasPago_controller.bpl">..\Formas de pago\Controller\FormasPago_controller.bdsproj</Projects>
<Projects Name="FormasPago_view.bpl">..\Formas de pago\Views\FormasPago_view.bdsproj</Projects>
<Projects Name="FormasPago_plugin.bpl">..\Formas de pago\Plugin\FormasPago_plugin.bdsproj</Projects>
<Projects Name="Targets">Base.bpl ControllerBase.bpl GUIBase.bpl Contactos_model.bpl Contactos_data.bpl Contactos_controller.bpl Articulos_view.bpl Articulos_model.bpl Articulos_data.bpl Articulos_controller.bpl Contactos_view.bpl FacturasCliente_model.bpl FacturasCliente_data.bpl FacturasCliente_controller.bpl AlbCli_FacCli_relation.bpl FacturasCliente_view.bpl FactuGES.exe FactuGES_Server.exe AlbaranesCliente_controller.bpl PedidosCliente_model.bpl FacturasProveedor_view.bpl FormasPago_model.bpl FormasPago_data.bpl FormasPago_controller.bpl FormasPago_view.bpl FormasPago_plugin.bpl</Projects>
<Projects Name="Targets">Base.bpl ControllerBase.bpl GUIBase.bpl Contactos_model.bpl Contactos_data.bpl Contactos_controller.bpl Articulos_model.bpl Articulos_data.bpl Articulos_controller.bpl Contactos_view.bpl Articulos_view.bpl FacturasCliente_model.bpl FacturasCliente_data.bpl FacturasCliente_controller.bpl AlbCli_FacCli_relation.bpl FacturasCliente_view.bpl FactuGES.exe FactuGES_Server.exe AlbaranesCliente_controller.bpl PedidosCliente_model.bpl FacturasProveedor_view.bpl FormasPago_model.bpl FormasPago_data.bpl FormasPago_controller.bpl FormasPago_view.bpl FormasPago_plugin.bpl</Projects>
</Projects>
<Dependencies/>
</Default.Personality>

38
Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm
View File

@ -1,11 +1,11 @@
inherited frViewFacturasCliente: TfrViewFacturasCliente
Width = 531
Height = 397
ExplicitWidth = 531
ExplicitHeight = 397
Width = 759
Height = 514
ExplicitWidth = 759
ExplicitHeight = 514
inherited cxGrid: TcxGrid
Width = 531
Height = 269
Width = 759
Height = 386
RootLevelOptions.DetailTabsPosition = dtpTop
OnActiveTabChanged = cxGridActiveTabChanged
ExplicitWidth = 531
@ -26,8 +26,10 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
OnCustomDrawCell = cxGridViewNUM_COPIASCustomDrawCell
BestFitMaxWidth = 20
BestFitMaxWidth = 25
MinWidth = 25
Options.Editing = False
Options.HorzSizing = False
Options.Moving = False
Options.ShowCaption = False
VisibleForCustomization = False
@ -39,8 +41,10 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
DataBinding.FieldName = 'NUM_CORREOS'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
BestFitMaxWidth = 20
BestFitMaxWidth = 25
MinWidth = 25
Options.Editing = False
Options.HorzSizing = False
Options.Moving = False
Options.ShowCaption = False
VisibleForCustomization = False
@ -177,12 +181,12 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
end
end
inherited frViewFiltroBase1: TfrViewFiltroBase
Width = 531
Width = 759
ExplicitWidth = 531
inherited TBXDockablePanel1: TTBXDockablePanel
ExplicitWidth = 531
inherited dxLayoutControl1: TdxLayoutControl
Width = 531
Width = 759
ExplicitWidth = 531
inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 434
@ -193,32 +197,32 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
Width = 202
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 306
ExplicitLeft = 306
Left = 432
ExplicitLeft = 432
ExplicitWidth = 215
Width = 215
end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 531
Width = 759
ExplicitWidth = 531
inherited tbxBotones: TTBXToolbar
Width = 521
Width = 749
ExplicitWidth = 521
end
end
end
end
inherited pnlAgrupaciones: TTBXDockablePanel
Top = 371
Top = 488
Visible = True
ExplicitTop = 371
ExplicitWidth = 531
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 531
Width = 759
ExplicitWidth = 531
inherited TBXToolbar1: TTBXToolbar
Width = 521
Width = 749
ExplicitWidth = 521
object TBXSeparatorItem2: TTBXSeparatorItem
end

10
Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm
View File

@ -45,6 +45,7 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
OptionsView.GroupFooters = gfAlwaysVisible
object cxGridViewNUM_COPIAS: TcxGridDBColumn
DataBinding.FieldName = 'NUM_COPIAS'
PropertiesClassName = 'TcxTextEditProperties'
OnCustomDrawCell = cxGridViewNUM_COPIASCustomDrawCell
MinWidth = 30
Options.HorzSizing = False
@ -55,16 +56,19 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
object cxGridViewREFERENCIA: TcxGridDBColumn
Caption = 'Referencia'
DataBinding.FieldName = 'REFERENCIA'
PropertiesClassName = 'TcxTextEditProperties'
Width = 64
end
object cxGridViewID_RECIBO_COMPENSADO: TcxGridDBColumn
Caption = 'Compensado'
DataBinding.FieldName = 'ID_RECIBO_COMPENSADO'
PropertiesClassName = 'TcxTextEditProperties'
OnCustomDrawCell = cxGridViewID_RECIBO_COMPENSADOCustomDrawCell
end
object cxGridViewREFERENCIA_REC_COMPENSADO: TcxGridDBColumn
Caption = 'Ref. recibo compensado'
DataBinding.FieldName = 'REFERENCIA_REC_COMPENSADO'
PropertiesClassName = 'TcxTextEditProperties'
end
object cxGridViewSITUACION: TcxGridDBColumn
Caption = 'Situaci'#243'n'
@ -91,26 +95,31 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
object cxGridViewFECHA_EMISION: TcxGridDBColumn
Caption = 'Fecha emisi'#243'n'
DataBinding.FieldName = 'FECHA_EMISION'
PropertiesClassName = 'TcxDateEditProperties'
Width = 36
end
object cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn
Caption = 'Fecha vencimiento'
DataBinding.FieldName = 'FECHA_VENCIMIENTO'
PropertiesClassName = 'TcxDateEditProperties'
Width = 40
end
object cxGridViewDESCRIPCION: TcxGridDBColumn
Caption = 'Descripci'#243'n'
DataBinding.FieldName = 'DESCRIPCION'
PropertiesClassName = 'TcxTextEditProperties'
Visible = False
end
object cxGridViewNIF_CIF_CLIENTE: TcxGridDBColumn
Caption = 'NIF/CIF'
DataBinding.FieldName = 'NIF_CIF_CLIENTE'
PropertiesClassName = 'TcxTextEditProperties'
Visible = False
end
object cxGridViewNOMBRE_CLIENTE: TcxGridDBColumn
Caption = 'Cliente'
DataBinding.FieldName = 'NOMBRE_CLIENTE'
PropertiesClassName = 'TcxTextEditProperties'
Width = 51
end
object cxGridViewIMPORTE: TcxGridDBColumn
@ -142,6 +151,7 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
object cxGridViewREFERENCIA_REMESA: TcxGridDBColumn
Caption = 'Ref. remesa'
DataBinding.FieldName = 'REFERENCIA_REMESA'
PropertiesClassName = 'TcxTextEditProperties'
Width = 48
end
end

2
Source/Servidor/FactuGES_Server.rc
View File

@ -16,7 +16,7 @@ BEGIN
VALUE "FileVersion", "3.0.9.0\0"
VALUE "ProductName", "FactuGES Server\0"
VALUE "ProductVersion", "3.0.9.0\0"
VALUE "CompileDate", "jueves, 16 de octubre de 2008 18:02\0"
VALUE "CompileDate", "viernes, 17 de octubre de 2008 16:17\0"
END
END
BLOCK "VarFileInfo"

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.