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

Cambio solicitado en informe en ingles y en ficha articulo

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@237 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
roberto 2015-09-08 15:21:03 +00:00
parent 52b6b3df65
commit f357933a48
3 changed files with 8 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Source/Informes/6/en/InfPresupuestoCliente.fr3
View File

File diff suppressed because one or more lines are too long

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

@ -150,8 +150,6 @@ inherited frViewArticulos: TfrViewArticulos
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 272
Width = 272
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 376
@ -160,8 +158,6 @@ inherited frViewArticulos: TfrViewArticulos
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 376
ExplicitWidth = 221
Width = 221
end
inherited eLista: TcxComboBox
Left = 634

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

@ -187,10 +187,11 @@ procedure TfrViewArticulos.cxGridViewDataControllerCompare(
AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer);
begin
inherited;
if (AItemIndex = cxGridViewREFERENCIA.Index) and
(VarType(V1) = VarType(V2)) and (VarType(V1) = varString) then
Compare := CompararReferencias(V1, V2)
else
//El campo referencias de los articulos no se comportará como el resto de referencias, por lo que la ordenación siempre será alfabética como el resto de columnas del grid
// if (AItemIndex = cxGridViewREFERENCIA.Index) and
// (VarType(V1) = VarType(V2)) and (VarType(V1) = varString) then
// Compare := CompararReferencias(V1, V2)
// else
Compare := VarCompare(V1, V2);
end;