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 begin
Cadena := ''; Cadena := '';
Entero := Trunc(Cifra); 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 if (Decimal > 0) then
Cadena := ' CON ' + IntToLetras(Decimal) + ' CÉNTIMOS'; 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 Width = 903
ExplicitWidth = 903 ExplicitWidth = 903
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 806 ExplicitWidth = 806
Width = 806 Width = 806
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 285 ExplicitWidth = 285
Width = 285 Width = 285
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 389 Left = 389
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 389 ExplicitLeft = 389
ExplicitWidth = 504 ExplicitWidth = 504
Width = 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 if (ARecord.DisplayTexts[Sender.Index] <> 'Sin incidencias') then
begin begin
AIsHintMultiLine := True; AIsHintMultiLine := True;
AHintText := ARecord.Values[cxGridViewINCIDENCIAS.Index] if not VarIsNull(ARecord.Values[cxGridViewINCIDENCIAS.Index]) then
AHintText := ARecord.Values[cxGridViewINCIDENCIAS.Index];
end; end;
end; end;

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

@ -143,15 +143,27 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
Width = 903 Width = 903
ExplicitWidth = 903 ExplicitWidth = 903
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 806 ExplicitWidth = 806
Width = 806 Width = 806
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 285 ExplicitWidth = 285
Width = 285 Width = 285
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 389 Left = 389
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 389 ExplicitLeft = 389
ExplicitWidth = 504 ExplicitWidth = 504
Width = 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 if (ARecord.DisplayTexts[Sender.Index] <> 'Sin incidencias') then
begin begin
AIsHintMultiLine := True; AIsHintMultiLine := True;
AHintText := ARecord.Values[cxGridViewINCIDENCIAS.Index] if not VarIsNull(ARecord.Values[cxGridViewINCIDENCIAS.Index]) then
AHintText := ARecord.Values[cxGridViewINCIDENCIAS.Index];
end; end;
end; end;

2
Source/Servidor/FactuGES_Server.rc
View File

@ -16,7 +16,7 @@ BEGIN
VALUE "FileVersion", "2.5.6.0\0" VALUE "FileVersion", "2.5.6.0\0"
VALUE "ProductName", "FactuGES (Servidor)\0" VALUE "ProductName", "FactuGES (Servidor)\0"
VALUE "ProductVersion", "2.5.6.0\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
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.