Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Arreglo de desfase de un centimo en la traduccion del importe del recibo a texto, y arreglo de grid informacion del hint

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@590 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2014-05-07 10:49:40 +00:00
parent e1970d854d
commit b9987a8b92
7 changed files with 32 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Source/Base/Utiles/uNumUtils.pas
View File

@ -110,7 +110,9 @@ var
begin
Cadena := '';
Entero := Trunc(Cifra);
Decimal := Trunc(((Cifra - Entero) * 100));
//Se quita el trunc ya que falla el redondeo y hay desfase de 1 centimo
// Decimal := Trunc(((Cifra - Entero) * 100));
Decimal := Round((Cifra - Entero) * 100);
if (Decimal > 0) then
Cadena := ' CON ' + IntToLetras(Decimal) + ' CÉNTIMOS';

12
Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.dfm
View File

@ -142,15 +142,27 @@ inherited frViewContratosCliente: TfrViewContratosCliente
Width = 903
ExplicitWidth = 903
inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 806
Width = 806
end
inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 285
Width = 285
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 389
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 389
ExplicitWidth = 504
Width = 504

3
Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.pas
View File

@ -203,7 +203,8 @@ begin
if (ARecord.DisplayTexts[Sender.Index] <> 'Sin incidencias') then
begin
AIsHintMultiLine := True;
AHintText := ARecord.Values[cxGridViewINCIDENCIAS.Index]
if not VarIsNull(ARecord.Values[cxGridViewINCIDENCIAS.Index]) then
AHintText := ARecord.Values[cxGridViewINCIDENCIAS.Index];
end;
end;

12
Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm
View File

@ -143,15 +143,27 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
Width = 903
ExplicitWidth = 903
inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 806
Width = 806
end
inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 285
Width = 285
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 389
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 389
ExplicitWidth = 504
Width = 504

3
Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas
View File

@ -276,7 +276,8 @@ begin
if (ARecord.DisplayTexts[Sender.Index] <> 'Sin incidencias') then
begin
AIsHintMultiLine := True;
AHintText := ARecord.Values[cxGridViewINCIDENCIAS.Index]
if not VarIsNull(ARecord.Values[cxGridViewINCIDENCIAS.Index]) then
AHintText := ARecord.Values[cxGridViewINCIDENCIAS.Index];
end;
end;

2
Source/Servidor/FactuGES_Server.rc
View File

@ -16,7 +16,7 @@ BEGIN
VALUE "FileVersion", "2.5.6.0\0"
VALUE "ProductName", "FactuGES (Servidor)\0"
VALUE "ProductVersion", "2.5.6.0\0"
VALUE "CompileDate", "miércoles, 19 de marzo de 2014 18:35\0"
VALUE "CompileDate", "miércoles, 07 de mayo de 2014 12:42\0"
END
END
BLOCK "VarFileInfo"

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.