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

Limpieza de mensajes de warning en el servidor.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@478 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-07-30 16:44:18 +00:00
parent 59adb81fe2
commit 62c4041a5a
4 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.pas
View File

@ -71,7 +71,7 @@ var
AConn : IDAConnection; AConn : IDAConnection;
dsData: IDADataset; dsData: IDADataset;
AWhere : TDAWhereExpression; // AWhere : TDAWhereExpression;
ABinary : Binary; ABinary : Binary;
begin begin
{ {

2
Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas
View File

@ -10,7 +10,7 @@ unit srvAlbaranesCliente_Impl;
interface interface
uses uses
{vcl:} Classes, SysUtils, {vcl:} Windows, Classes, SysUtils,
{RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions, {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
{Ancestor Implementation:} DataAbstractService_Impl, {Ancestor Implementation:} DataAbstractService_Impl,
{Used RODLs:} DataAbstract4_Intf, {Used RODLs:} DataAbstract4_Intf,

2
Source/Modulos/Contactos/Reports/uRptEtiquetasContacto_Server.pas
View File

@ -66,8 +66,8 @@ begin
FConnection.BeginTransaction; FConnection.BeginTransaction;
AStream := TMemoryStream.Create;
try try
AStream := TMemoryStream.Create;
dsMaster := schReport.NewDataset(FConnection, ds_InformeContactos, [], [], False); //, ['ID'], ['611, 751']); //AID]); dsMaster := schReport.NewDataset(FConnection, ds_InformeContactos, [], [], False); //, ['ID'], ['611, 751']); //AID]);
dsMaster.Where.AddText(fld_ContactosID + ' in (' + AID + ')'); dsMaster.Where.AddText(fld_ContactosID + ' in (' + AID + ')');
dsMaster.Open; dsMaster.Open;

2
Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas
View File

@ -103,8 +103,6 @@ begin
end; end;
function TRptWordPresupuestoCliente.Generar : Boolean; function TRptWordPresupuestoCliente.Generar : Boolean;
var
Aux : OleVariant;
begin begin
FWordApp := TWordApp.Create (False, False); FWordApp := TWordApp.Create (False, False);
with FWordApp do with FWordApp do