Repaso a mensajes de warnings y hints

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@960 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2009-07-09 08:26:17 +00:00
parent 56b18d02d7
commit 86f045c09a
2 changed files with 3 additions and 3 deletions

View File

@ -296,9 +296,9 @@ end;
procedure TControllerDetallesBase.CalculoDetalleDescuento(
DataTable: TDADataTable; var ImporteAcumulado, ImporteTotal: Double);
var
{var
ImporteDto : Double;
Redondeado : Double;
Redondeado : Double;}
begin
//Este metodo calcula el descuento por capitulo que no se activa para tecsitel
{ with DataTable do

View File

@ -155,7 +155,7 @@ var Data:THandle;
p : pointer;
Count, i : integer;
Buffer : array[0..MAX_PATH] of Char;
AList : TStringLIst;
// AList : TStringLIst;
begin
{ AList := TStringList.Create;