Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Repaso a mensajes de warnings y hints

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Source/Base/Controladores/uControllerDetallesBase.pas
View File

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

2
Source/Base/Utiles/uSaveClipboard.pas
View File

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